Как при закачке файла через WinInet сделать прогресс закачки ? [D6]
star © (2002-07-10 10:30:00)
Собственно говоря, нужно просто узнать размер файла до его
закачивания, а как ?
Может кто подскажет ?
alexta (2002-07-11 02:44:00) [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))
Наверх 
ЧАТ |
Орешник |
|
