初学者求助

Question

<script language = "JavaScript">var NXIECatcher = new ActiveXObject("NXIEHelper.NXIEAddURL");if (NXIECatcher)    NXIECatcher.AddTask("http://xi/", "http://www/site/", "you", "e:\\Folder", "", "qwe", "", 0, "torrent", 3);</script>上面的函数调用,在delphi中如何调用?望大侠给个代码.

Answer 1

在Delphi中ActiveX对象一般是转换为组件后直接设置属性的。

Answer 2

//try
uses ComObj;procedure TForm1.Button1Click(Sender: TObject);
var
  NXIECatcher: OleVariant;
begin
  NXIECatcher := CreateOleObject('NXIEHelper.NXIEAddURL');  if not VarIsEmpty(NXIECatcher) then
    NXIECatcher.AddTask('http://xi/', 'http://www/site/', 'you', 'e:\\Folder',
      '', 'qwe', '', 0, 'torrent', 3);
end;

Answer 3

\\ -> \
修正一下 'e:\Folder'