Размер файла в Интернете

[newerow1989]

Дана процедура:

procedure InternetZagruzitFajl(URL, f: string);
const MaxBuffer=65536;
var H1,H2:pointer;
    H3:integer;
    Buffer:array[1..MaxBuffer] of char;
    Count:cardinal;
begin
   H1:=InternetOpen('',0,nil,nil,0);
   try
   H2:=InternetOpenURL(H1,pChar(URL),nil,0,0,0);
   If H2=nil then
   begin
      InternetCloseHandle(H1);
      Exit;
   end;
   try
   H3:=FileCreate(f);
   Count:=0;
   try
   Repeat
      InternetReadFile(H2,@Buffer,SizeOf(Buffer),Count);
      Count:=FileWrite(H3,Buffer,Count);
   Until Count<=0;
   finally
      FileClose(H3);
   end;
   finally
      InternetCloseHandle(H2);
   end;
   finally
      InternetCloseHandle(H1);
   end;
end;

Как узнать размер загружаемого файла (есть ли процедуры/функции, которые могут определить объем файла)? Через переменную Count можно узнать сколько загружено. Подобное имеется в tSearchRec.Size (но это для файлов, хранящихся на компьютере)?

[eval]

когда узнать?

[cotseec]

например, так Как узнать размер файла в интернете?
(для работы функции необходима ссылка непосредственно на файл)

[Человек_Борща]

Спаси и сохрани от такого кода =)

Все что надо, это HEAD запрос к http://supersite.com/megafile.lol
В ответ придет заголовок Content-Length, который указывает размер файла в байтах, на сервере.

[newerow1989]

Напишите процедуру (или функцию) определения размера файлов в Интернете

[Человек_Борща]

Вот тебе пример, а функцию сам напишешь.

var
  http:THTTPSendEx;
  iSize:Integer;
begin
 http:=THttpSendEx.Create;
 try
  if HTTP.HEAD('http://file.bin') then
  begin
    http.Headers.NameValueSeparator:=':';
    iSize:=StrToIntDef(http.Headers.Values['Content-length'],-1);
  end;
 finally
  http.Free;
 end;
end;