Delphi使用迅雷的开放下载引擎下载

迅雷的下载貌似开放了引擎，也就是说，咱们可以写程序用迅雷的下载引擎下载文件了。下载地址

http://thunderplatform.xunlei.com/

不过，下载的东西，给了一个SDK和一个DLL，只要调用DLL中的相关函数，就能下载了，不过，就我目前测试的来看，只支持Http协议，是阉割版的，而且，启动之后，会在系统右下角多一个图标，一个鸟头的图标。总之是很挫咯。他的SDK给了一个Demo，是VC的代码。顺带把SDK翻译了成Delphi的，有想使用这个阉割方法下载的人，可以偷偷懒试试咯。说明，我没有测试，所以不保证一定翻译有效。因为这个阉割版阉割的太厉害了，就支持一个Http的，所以，我就没心思去写一个完整的Demo测试。

(*
enum enumTaskStatus{
enumTaskStatus_Connect = 0, // 已经建立连接
enumTaskStatus_Download = 2, // 开始下载
enumTaskStatus_Pause = 10, // 暂停
enumTaskStatus_Success = 11, // 成功下载
enumTaskStatus_Fail = 12, // 下载失败
};
*)
enumTaskStatus = (
enumTaskStatus_Connect = 0, // 已经建立连接
enumTaskStatus_Download = 2, // 开始下载
enumTaskStatus_Pause = 10, // 暂停
enumTaskStatus_Success = 11, // 成功下载
enumTaskStatus_Fail = 12);

//BOOL __stdcall XLInitDownloadEngine();
function XLInitDownloadEngine: BOOL;stdcall;external 'XLDownload.dll';
//DWORD __stdcall XLURLDownloadToFile(LPCTSTR pszFileName, LPCTSTR pszUrl, LPCTSTR pszRefUrl, LONG & lTaskId);
function XLURLDownloadToFile(pszFileName,pszUrl,pszRefurl: PChar;var iTaskId: LongInt): DWORD;stdcall;external 'XLDownload.dll';
//DWORD __stdcall XLQueryTaskInfo(LONG lTaskId, LONG *plStatus, ULONGLONG *pullFileSize, ULONGLONG *pullRecvSize);
function XLQueryTaskInfo(lTaskId: LongInt;plStatus: PInteger;pullFileSize: PDWORD; pullRecvSize: PDWORD): DWORD;stdcall;external 'XLDownload.dll';
//DWORD __stdcall XLPauseTask(LONG lTaskId, LONG & lNewTaskId);
function XLPauseTask(lTaskID: LongInt;var lNewTaskID: LongInt): DWORD;stdcall;external 'XLDownload.dll';
//DWORD __stdcall XLContinueTask(LONG lTaskId);
function XLContinueTask(lTaskId: LongInt): DWORD;stdcall;external 'XLDownload.dll';
//DWORD __stdcall XLContinueTaskFromTdFile(LPCTSTR pszTdFileFullPath, LONG & lTaskId);
function XLContinueTaskFromTdFile(pszTdFileFullPath: PChar;var lTaskId: Longint): DWORD;stdcall;external 'XLDownload.dll';
//VOID __stdcall XLStopTask(LONG lTaskId);
procedure XLStopTask(lTaskId: longint);stdcall;external 'XLDownload.dll';
//BOOL __stdcall XLUninitDownloadEngine();
function XLUninitDownloadEngine: BOOL;stdcall;external 'XLDownload.dll';
//DWORD __stdcall XLGetErrorMsg(DWORD dwErrorId, LPTSTR pszBuffer, DWORD & dwSize);
function XLGetErrorMsg(dwErrorId: DWORD;pszBuffer: PChar;var dwsize: DWORD): DWORD;stdcall;external 'XLDownload.dll';

有兴趣的拿去试试把！

本文转自不得闲博客园博客，原文链接： http://www.cnblogs.com/DxSoft/archive/2011/03/22/1991557.html ，如需转载请自行联系原作者

Delphi使用迅雷的开放下载引擎下载相关推荐

迅雷11下载报错：下载引擎未启动
解决办法: 1. 打开"任务管理器"-->关闭"迅雷下载引擎". 2. 无需重启迅雷,直接点击下载资源重新下载.
C#调用迅雷ThunderAgentLib.dll批量添加下载任务
概述有时候我们需要执行一些无人职守的下载任务,迅雷有批量下载功能,但需要添加下载地址,然后执行下载,开放类库允许我们通过代码的方式添加,可玩性就高的多了类库 Interop.ThunderAgen ...
没有找到MSVCP71.dll，迅雷5无法进行离线下载，P2P Seacher无法连入emule网络
没有找到MSVCP71.dll,迅雷5无法进行离线下载,P2P Seacher无法连入emule网络 2012年12月7日14:14:08 某同学重装XP系统后,使用P2P Seacher绿色版来找片 ...
你知道吗？除了迅雷，这几款下载神器也不错！
迅雷虽然仍旧是功能强大的下载器,但部分网友对其的作风有所不满,即便是购买了会员,速度也是慢得可以.所以有不少网友就在问,除了迅雷,还有哪些Mac下载软件可以代替它呢?下面就给大家介绍几款Mac下载神器 ...
驰骋工作流引擎下载与安装步骤
驰骋工作流引擎下载安装集成 CCFlow的下载与安装下载直接下载zip文件进入ccflow的OSC界面,如下图: 下载:http://git.oschina.net/chichengsoft/ ...
使用迅雷代替SDK Manager快速下载Android SDK相关
使用迅雷代替SDK Manager快速下载Android SDK相关 2011年04月26日之前使用SDK Manager(即Android SDK and AVD Manager)下载Androi ...
迅雷7可以设置成下载完自动关机
迅雷7可以设置成下载完自动关机,除了这种关机方式还可以定时关机,定时开始下载等,这些都属于计划任务,迅雷内有计划任何的小工具的.我们来看看具体怎么设置吧. 首先我们打开迅雷7 在迅雷的界面的下边有一个 ...
秒杀迅雷的linux命令行下载文件以及常用工具：wget、Prozilla、MyGet、Linuxdown、Curl、Axel
本文介绍常用的几种命令行式的下载工具:wget.Prozilla.MyGet.Linuxdown.Curl.Axel 下面就为大家详细介绍一下这些工具 1. Wget Wget是一个十分常用命令行下载 ...
迅雷已开放的部分API+代码范例[迅雷7可用]
迅雷已开放的部分API+代码范例[迅雷7可用] 迅雷已开放的部分API+代码范例[迅雷7可用] | 动漫驿站迅雷已开放的部分API+代码范例[迅雷7可用] 基本应用 1.添加新任务创建讯雷调用对象 ...

Delphi使用迅雷的开放下载引擎下载

Delphi使用迅雷的开放下载引擎下载相关推荐

最新文章

热门文章