<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'