[AleD]

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

хм, люди памагите, хочу получить размер файла из интернета, пишу

Код:

var
  url,sess: HINTERNET;
begin
  lblUrlSize.Caption := '0';
  sess := InternetOpen('iexplorer',INTERNET_OPEN_TYPE_PRECONFIG,
    nil,nil,0);
  url := InternetOpenUrl(sess,pchar('http://'+edtUrl.Text),nil,0,0,0);
  try
    // working
    if(url=nil)then Exit;
    fs := InternetSetFilePointer(url,0,nil,FILE_END,0);
    lblUrlSize.Caption := FloatToStr(fs)+' bytes';
  finally
    InternetCloseHandle(url);
    InternetCloseHandle(sess);
  end;

когда файл маленький (5-50 кб) он нормально размер получает, но когда например 500 и больше кб, он выводит какие то астрономические цифры. Он измеряет в байтах или битах?
Вот например файл со своего сайта (adworld.ucoz.ru/adworld_soft/quick_menu/QM_13.exe, весит 500 с лишним кб) он пооказывает цифру 4,294,967,295. Я ваще запутался, помогите

Упс, извените разобрался, когда размер равен максимому эт значит что файл не найден, виноват uCoz он пряммые ссылки на файл не даёт