初学者求助

最新推荐文章于 2022-09-15 10:21:33 发布

aibi9196

最新推荐文章于 2022-09-15 10:21:33 发布

阅读量151

点赞数

文章标签： javascript ViewUI

原文链接：http://www.cnblogs.com/delphi2007/archive/2008/11/18/1335923.html

版权

初学者求助 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'

转载于:https://www.cnblogs.com/delphi2007/archive/2008/11/18/1335923.html