我写了一个不用登录就可下载我们校园网上电影的小软件
需要用到迅雷,
现在是通过IE的默认下载工具(在我的机子上是迅雷,所以可以正常运行)来下载,但由于没有真正的来直接调用迅雷
所以在别人的机子上运行的不是很好。
所以现在想的是如何直接来调用迅雷。 在测试中我添加了一个名为IAgent5的 COM Oject,好像是迅雷的一个接口。
procedure TForm1.Button1Click(Sender: TObject);
var
xunlei: IAgent5;
begin
xunlei:=Txunlei.create;
xunlei.AddTask5('http://www.autoit.net.cn/autoitv3/3.2.5.5.1.exe', '', '', '3.2.5.5.1', 'F:\\电影',-1,0,-1,'strCookie','','', 1, '', -1);
{ThunderAgent.AddTask5(Url, "", "", Info, Location, -1, 0, -1, strCookie, strCID, strStatUrl, 1, "", -1)
AddTask5(Url, "", "", Info, Location,-1,0,-1,strCookie,"","", 1, "", -1) 这两个都是在迅雷5.7.4 的geturl.htm文件里面找到的}
xunlei.CommitTasks2(1);
end;现在可以编译成功 但是点了按钮 迅雷一点反应也没有
需要用到迅雷,
现在是通过IE的默认下载工具(在我的机子上是迅雷,所以可以正常运行)来下载,但由于没有真正的来直接调用迅雷
所以在别人的机子上运行的不是很好。
所以现在想的是如何直接来调用迅雷。 在测试中我添加了一个名为IAgent5的 COM Oject,好像是迅雷的一个接口。
procedure TForm1.Button1Click(Sender: TObject);
var
xunlei: IAgent5;
begin
xunlei:=Txunlei.create;
xunlei.AddTask5('http://www.autoit.net.cn/autoitv3/3.2.5.5.1.exe', '', '', '3.2.5.5.1', 'F:\\电影',-1,0,-1,'strCookie','','', 1, '', -1);
{ThunderAgent.AddTask5(Url, "", "", Info, Location, -1, 0, -1, strCookie, strCID, strStatUrl, 1, "", -1)
AddTask5(Url, "", "", Info, Location,-1,0,-1,strCookie,"","", 1, "", -1) 这两个都是在迅雷5.7.4 的geturl.htm文件里面找到的}
xunlei.CommitTasks2(1);
end;现在可以编译成功 但是点了按钮 迅雷一点反应也没有
这篇是使用.net调用COM的,使用delphi也差不多,可以参考一下
不知道是不是自己搞错了。
ThunderAgent.dll,这个该怎么用啊。
迅雷 安装目录下 的Program目录
里有两个HTML文件 getAllurl.htm geturl.htm
你打开看看就知道了 里面是用javascript调用的