Сборник лабораторных работ по дисциплине "Прикладное программное обеспечение". Самохвалов К.М. - 48 стр.

UptoLike

Составители:

Рубрика:

48

BlockWrite(f, Buffer, BufferLen);

until

BufferLen = 0;

CloseFile(f);

Result := True;

finally InternetCloseHandle(hURL);

end;

finally

InternetCloseHandle(hSession);

end;

Как перед скачиванием узнать размер файла?

GetUrlInfo(HTTP_QUERY_CONTENT_LENGTH, 'http://in.com/in.zip');

function GetUrlInfo(const dwInfoLevel: DWORD; const FileURL: string):

string;

var

hSession, hFile: hInternet;

dwBuffer: Pointer;

dwBufferLen, dwIndex: DWORD;

begin

Result := '';

hSession := InternetOpen('STEROID Download',

INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);

if Assigned(hSession) then begin

hFile := InternetOpenURL(hSession, PChar(FileURL), nil, 0,

INTERNET_FLAG_RELOAD, 0);

dwIndex := 0;

dwBufferLen := 20;