[aleksnine]

Привет

В FAQ есть код

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

GetUrlInfo(HTTP_QUERY_CONTENT_LENGTH, 'http://some.com/some.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;     if HttpQueryInfo(hFile, dwInfoLevel, @dwBuffer, dwBufferLen, dwIndex)       then Result := PChar(@dwBuffer);     if Assigned(hFile) then InternetCloseHandle(hFile);     InternetCloseHandle(hsession);   end; end;

Код возвращает результат в виде , например

Код:

1

4823-

4 цыфры и "-"
Как узнать полный объем файла перед скачиванием в байтах ?
Спасибо