初学者求助 VCL组件开发及应用http://www.delphi2007.net/DelphiVCL/html/delphi_20061222145535187.html
<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中如何调用?望大侠给个代码.
帮个忙呀！！！！！！！！！
在Delphi中ActiveX对象一般是转换为组件后直接设置属性的。
//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;
\\ -> \
修正一下
'e:\Folder'