读取 下载一个网络文件

读取 下载一个网络文件.pas

user Wininet

function GetInetFile

(const fileURL, FileName: String): boolean;

const BufferSize = 1024;

var

hSession, hURL: HInternet;

Buffer: array[1..BufferSize] of Byte;

BufferLen: DWORD;

f: File;

sAppName: string;

begin

Result:=False;

sAppName := ExtractFileName(Application.ExeName);

hSession := InternetOpen(PChar(sAppName),

INTERNET_OPEN_TYPE_PRECONFIG,

nil, nil, 0);

try

hURL := InternetOpenURL(hSession,

PChar(fileURL),

nil,0,0,0);

try

AssignFile(f, FileName);

Rewrite(f,1);

repeat

InternetReadFile(hURL, @Buffer,

SizeOf(Buffer), BufferLen);

BlockWrite(f, Buffer, BufferLen)

until BufferLen = 0;

CloseFile(f);

Result:=True;

finally

InternetCloseHandle(hURL)

end

finally

InternetCloseHandle(hSession)

end

end;

procedure TForm1.Button1Click(Sender: TObject);

var

FileOnNet, LocalFileName: string;

begin

FileOnNet:='http://www.delphibbs.com/a.txt';

LocalFileName:='a.txt';

if GetInetFile(FileOnNet,LocalFileName)=True then

ShowMessage('Download successful')

else

ShowMessage('Error in file download')

end;