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

[Lauri]

Делаю проверку обновлений. Имеется программа, нужно сделать запрос на сервер, и если файл имеет размер больше чем другой (тот что папке с прогой) то он должен его скачать. Как реализовать запрос веса файла?
Желательно на winsock

2. Не оффтопить. Оффтопом считается создание темы, не соответствующей названию раздела, вопрос или пост не по теме, или попытка перевода темы в русло другого вопроса.
Также к оффтопу приравнивается размещение своих личных вопросов в чужой теме, пусть даже и подходящей по смыслу. Есть вопрос - создайте свою тему.
И запомните - на форуме действуют правила "Одна тема - один вопрос", "Одна тема - один автор".

За оффтоп нарушитель получит нарушение №1.

[Son Of Pain]

На winsock? ) Ну если у тебя протокол http, отправь серверу команду HEAD для нужного файла, среди прочего он вернет и content-length.

Но вообще, конечно, для этого есть функция HttpQueryInfo.

[Пепел Феникса]

протокол то какой для начала?

[Хамяг]

function GetUrlSize(URL: String): Integer;
var
  hSession, hFile: HINTERNET;
  dwBuffer: array [1..20] of Char;
  dwBufferLen, dwIndex: DWORD;
begin
  Result:=0;
  hSession:=InternetOpen('InternetSession',0,nil,nil,0);
  if Assigned(hSession) then
  begin
    hFile:=InternetOpenURL(hSession,PChar(URL),nil,0,$80000000,0);
    dwIndex:=0;
    dwBufferLen:=20;
    if HttpQueryInfo(hFile,5,@dwBuffer,dwBufferLen,dwIndex) then Result:=StrToInt(PWideChar(@dwBuffer));
    if Assigned(hFile) then InternetCloseHandle(hFile);
    InternetCloseHandle(hsession);
  end;
end;

[mihali4]

Оффтоп. Переношу в раздел "Работа с сетью в Delphi".