сравнение размера файла в интернете с размером файла на компьютере

[Excellion]

Доброго времени суток!
Ребят выручайте...
Знаю что просьбо ужасная, но плиз помогите...

Нужно сравнить размера файла в интернете (ну на сайте : допустим Http://мой сайт.ру/1.txt) с размером файла на компьютере ( допустим d:\1.txt )
если размеры разные то
ShowMessage('разные файлы');

[FaTaL]

Ну и в чем проблема? Подключаетесь к сайту, берёте размер файла на сайте, потом подключаетесь к файлу на компе и берёте его размер, ну а потом уже и сравниваете.

[Stilet]

А нужно именно через HTTP?
Просто можно через FTP функцией FtpFindFirstFile получить информацию о файле.
А как используя HTTP я тоже не в курсе, самому интересно бы узнать (правда я и не интересовался особо)

[FaTaL]

Вот так например:

// Функция возврата размера
function GetSizeUrl (URL : String; TypeOfSize : integer) : string;
var
  HTTP     : TidHTTP;
  Razmer   : int64;
begin
 HTTP := TIdHTTP.Create(nil);
 HTTP.Head(URL);
 Razmer := HTTP.Response.ContentLength; //размер файла
 HTTP.Free;
 case TypeOfSize of
  0 : Result := IntToStr (Razmer); //Байты
  1 : Result := IntToStr (Round (Razmer / 1024)); //Килобайты
  2 : Result := IntToStr (Round (Razmer / 1024 / 1024)); //МегаБайты
 end;
end;

[Excellion]

Сообщение от FaTaL

Ну и в чем проблема? Подключаетесь к сайту, берёте размер файла на сайте, потом подключаетесь к файлу на компе и берёте его размер, ну а потом уже и сравниваете.

еслибы проблем небыло, я бы не написал сюда

[FaTaL]

Сообщение от Excellion

еслибы проблем небыло, я бы не написал сюда

Ну и какая же у Вас проблема то? Напишите!

[Excellion]

Сообщение от FaTaL

Вот так например:

// Функция возврата размера
function GetSizeUrl (URL : String; TypeOfSize : integer) : string;
var
  HTTP     : TidHTTP;
  Razmer   : int64;
begin
 HTTP := TIdHTTP.Create(nil);
 HTTP.Head(URL);
 Razmer := HTTP.Response.ContentLength; //размер файла
 HTTP.Free;
 case TypeOfSize of
  0 : Result := IntToStr (Razmer); //Байты
  1 : Result := IntToStr (Round (Razmer / 1024)); //Килобайты
  2 : Result := IntToStr (Round (Razmer / 1024 / 1024)); //МегаБайты
 end;
end;

это я получил размер файла на сайте! (спасибо за код)

а как получить размер файла на компе ?

[Stilet]

f:File;sz:cardinal;
...
assignfile(f,'файл');reset(f);sz:=FileSize(f);CloseFile(f);

и в sz будет размер.
Либо же через FindFirst - Она тоже даст размер файла, но без открытия (если не ошибаюсь)

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

FileSizeByName(<имя файла>)

[Excellion]

Сообщение от Stilet

f:File;sz:cardinal;
...
assignfile(f,'файл');reset(f);sz:=FileSize(f);CloseFile(f);

и в sz будет размер.
Либо же через FindFirst - Она тоже даст размер файла, но без открытия (если не ошибаюсь)

ff:File;
sz:cardinal;

assignfile(ff,'GameGuard\gGuard.des ');
reset(ff);
sz:=FileSize(ff);
CloseFile(ff);
ShowMessage('Ðàçìåð :' + IntToStr(sz));

фалй размер 806 кб
а в сообщении он мне выводит 6452 <- что это ?