如何将这段VB代码转换为Delphi代码?

Question

Private Sub Command2_Click()
   Dim objfg As New JetCarNetscape
   Dim pList(4)
    
   pList(0) = "http://www.amazesoft.com"
   pList(1) = "http://www.amazesoft.com/fgf087.zip"
   pList(2) = "FlashGet 0.87"
   pList(3) = "http://www.amazesoft.com/doc.zip"
   pList(4) = "FlashGet Documentation"
    
   objfg.AddUrlList pList
End Sub

Answer 1

Command2_Click()
var objfg :JetCarNetscape;
 pList(4) array[0..11] of string;
 begin   
   objfg :=create(J...);
   pList(0) := "http://www.amazesoft.com";
   pList(1) := "http://www.amazesoft.com/fgf087.zip";
   pList(2) := "FlashGet 0.87";
   pList(3) := "http://www.amazesoft.com/doc.zip";
   pList(4) := "FlashGet Documentation";   objfg.AddUrlList( pList);
 end;

Answer 2

http://borland.mblogger.cn/aiirii/posts/21238.aspxFlashget 在它的网站 http://www.amazesoft.com/cn/addons.htm  有相关的VB, VC示范代码!
VB的就很简单：
Private Sub Command2_Click()
   Dim objfg As New JetCarNetscape
   Dim pList(4)
    
   pList(0) = "http://www.amazesoft.com"
   pList(1) = "http://www.amazesoft.com/fgf087.zip"
   pList(2) = "FlashGet 0.87"
   pList(3) = "http://www.amazesoft.com/doc.zip"
   pList(4) = "FlashGet Documentation"
    
   objfg.AddUrlList pList
End Sub我想当然的用大概如下的代码：
   V:=VarArrayCreate([0,1], varVariant); 
   v[0]:='http://www.xxx.com/1.rar';
   v[1]:='http://www.xxx.com/2.rar';   JetCarNetscape:=TJetCarNetscape.Create(nil);
   JetCarNetscape.AddUrlList(v);老是出现 OLE error 800A0005, 也就是参数类型出错! 
今天修改如下，就可以了(基本照搬VC的代码):
 var
  psa: PSafeArray;
  rgsabound: array[0..0] of SAFEARRAYBOUND;
  JetCarNetscape: TJetCarNetscape;
  ix: integer;
  v, vList: olevariant;
begin
  rgsabound[0].lLbound := 0;
  rgsabound[0].cElements := 5;
  psa := SafeArrayCreate(VT_VARIANT, 1, rgsabound);  ix := 0;
  v := 'http://www.amazesoft.com';
  SafeArrayPutElement(psa, ix, v);  ix := 1;
  v := 'http://www.amazesoft.com/fgf087.zip';
  SafeArrayPutElement(psa, ix, v);  ix := 2;
  v := 'FlashGet 0.87';
  SafeArrayPutElement(psa, ix, v);  ix := 3;  v := 'http://www.amazesoft.com/doc.zip';
  SafeArrayPutElement(psa, ix, v);  ix := 4;
  v := 'FlashGet Documentation';
  SafeArrayPutElement(psa, ix, v);  TVariantArg(vList).VT := VT_VARIANT or VT_ARRAY or VT_BYREF;
  TVariantArg(vList).pparray := @psa;  JetCarNetscape := TJetCarNetscape.Create(nil);
  JetCarNetscape.AddUrlList(vList);
end;