WinInetDownLoad('http://下载地名','c:\本地文件名')
引用
unit xHttpGetThread;
interface
const MAXBLOCKSIZE = 1024;
function WinInetDownLoad(Url:PChar; FileName:string):Boolean;
implementation
uses
Windows, Classes, WinInet, SysUtils ;
function WinInetDownload(Url:PChar; FileName:string):Boolean;
var
hSession : HINTERNET;
hOpenUrl : HINTERNET;
Temp : array [0..MAXBLOCKSIZE-1] of Byte;
dwRead : DWORD;
fs : TFileStream;
dwResult : DWORD;
begin
Result := False;
hSession := InternetOpen('RookIE/1.0', //指定调用 WinINet 函数的应用程序或入口。该入口用作HTTP协议中用户代理项。
INTERNET_OPEN_TYPE_PRECONFIG,//访问要求类型,该参数可为下列值之一:
{ INTERNET_OPEN_TYPE_DIRECT 解析所有本地主机;
INTERNET_OPEN_TYPE_PRECONFIG 返回注册表中代理或直接的配置;
INTERNET_OP