Как при закачке файла через WinInet сделать прогресс закачки ?

← →
star (2002-07-10 10:30) [0]

Собственно говоря, нужно просто узнать размер файла до его закачивания, а как ?
Может кто подскажет ?

← →
alexta (2002-07-11 02:44) [1]

Держи, страдал когда-то. Это выдрано из модуля апдейта.

var
hSession, hURL: HInternet;
Buf: Pointer;
dwBufLen, dwIndex: DWord;
Buffer: array[1..BufferSize] of Byte;
BufferLen: DWORD;
f: File;
FTQuery: boolean;

hSession:=InternetOpen("Download",INTERNET_OPEN_TYPE_PRECONFIG,nil,nil,0);
hURL:=InternetOpenURL(hSession,PChar(URL),nil,0,INTERNET_FLAG_RELOAD,0);
if hURL = nil then
begin
InternetCloseHandle(hURL);
InternetCloseHandle(hSession);
OutputStr:="Error! Can""t download file!";
Synchronize(OutputResults);
Result:=false;
Exit;
end;
dwIndex:=0;
dwBufLen:=1024;
GetMem(Buf, dwBufLen);
FTQuery:=HttpQueryInfo(hURL,HTTP_QUERY_CONTENT_LENGTH,Buf,dwBufLen,dwIndex);
if FTQuery then
FTSize:=StrToInt(StrPas(Buf))

Как при закачке файла через WinInet сделать прогресс закачки ? Найти похожие ветки