Узнать размер файла более 4 гб

[Asteroid]

Привет всем программистам!
У меня такая вот незадача:
используя InDy узнаю размер файла

  fSize:=HTTP.Response.ContentLength;

но с файлами боле 2147468648 байт возвращаймое значение отрицательное. Сумничал следующим образом

 fSize:=HTTP.Response.ContentLength;
  if (fsize < 0) then fSize := 4294937296+fSize;

Все заработало, но... до заветной цифры 4294937296.
Если файл большего размера, например 4600000000, то функция выдает
305062704 (4600000000 - 4294937296 = 305062704 )
Как тут быть?

Смотрел следующие ссылки на этом форуме...
Определить размер файла перед скачиванием
Размер скачиваемого файла
Как узнать размер файла имея его URL
...понял WinInet не для меня )))

Начал ковырять исходники InDy и вот что выяснил:
HTTP.Response.ContentLength заполняется из строки "Content-Length" http заголовка и читает как строку, потом конвертит в Integer - по этому и размер больший не покажет... Решение проблемы вижу в самостоятельном изучении заголовка, но как его получить до обработки InDy???
Header из себя представляет набор строк типа:

HTTP/1.1 200 OK
Date: Fri, 20 Oct 2006 09:31:16 GMT
Server: Apache/1.3.37 (Unix) FrontPage/5.0.2.2623 PHP/4.4.4 with Suhosin-Patch mod_ssl/2.8.28 OpenSSL/0.9.7d-p1
Last-Modified: Thu, 12 Oct 2006 15:07:41 GMT
ETag: "61a0dc-54779-452e5a3d"
Accept-Ranges: bytes
Content-Length: 345977
Connection: close

мож кто подскажет как его достать то?...

[Alex Cones]

fSize:=HTTP.Response.ContentLength;

но с файлами боле 2147468648 байт возвращаймое значение отрицательное. Сумничал следующим образом
Код:


fSize:=HTTP.Response.ContentLength;
if (fsize < 0) then fSize := 4294937296+fSize;

А если так?:

Var GlobSize: LongInt;
...
if (fsize < 0) then GlobSize := 4294937296+fSize Else GlobSize := fSize;

[Asteroid]

Сообщение от Alex Cones

А если так?:

Var GlobSize: LongInt;
...
if (fsize < 0) then GlobSize := 4294937296+fSize Else GlobSize := fSize;

Не получиться.
fSize и так обьявлена как int64
проблема в том что fSize пишеться из HTTP.Response.ContentLength, который типа integer (то есть более 4294937296 быть не может) и если файл больше 4 гб, то возвращает его размер -4 гб (напр. если 4,3 гб, то скажет 300мб и т.д.)

[Asteroid]

Подскажите как можно прочитать http заголавок (header) ... ???

[Css]

Подскажите как можно прочитать http заголавок (header) ... ???

Да вроде так и читают...)

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
IdHTTP1.Head('http://www.programmersforum.ru/image.php?u=21166&dateline=1220988991');
With IdHTTP1.Response Do
   Label1.Caption:=ContentType+#13#10+IntToStr(ContentLength);
end;

но с файлами боле 2147468648 байт возвращаймое значение отрицательное.

Какой кошмар... Где ж вы такие файлы-то нашли? о_О

[Voody]

Заголовки: idHttp1.Response.RawHeaders.GetText ;

[Usov]

если версия инди 9 то скорее все с int64 будут проблемы, переходите на более новую версию