Размер скачиваемого файла

[Sanek_ntsk]

Как узнать размер файла перед скачиванием в интернете в килобайтах. и как узнать сколько скачалось на данный момент?

[Квэнди]

Все зависит от того каким способом вы скачиваете файл

[Лубышев]

Sanek_ntsk вы EI пользуетесь? В Opera есть такая возможность

[Sanek_ntsk]

Мне на делфи надо прогу написать.
У меня не получается получить размер файла в килобайтах и сколько килобайт этого файла скачано на данный момент.
Вот код:

procedure TForm1.Button2Click(Sender: TObject);
var F: File;
    ResumePos,BufferLen,SumSize: DWORD;
    hSession, hURL: HInternet;
    Buffer: array[1..1024] of Byte;
    err: boolean;
begin
if (edit1.Text='') or (edit1.Text='') then
    messagebox(0,'Не введён адрес или место сохранения','Ошибка',$10*1*1)
else begin
SumSize:=0; ResumePos:=0;
AssignFile (F,Edit2.Text);
IF FileExists (Edit2.Text) then
  begin
   Reset(f,1);
   ResumePos:=FileSize(F);
   Seek(F, FileSize(F));
  end else ReWrite(f,1);
y:=TRUE;
hSession:= InternetOpen('X-Kachalka',PRE_CONFIG_INTERNET_ACCESS,nil,nil,0);
hURL := InternetOpenURL(hSession,PChar(Edit1.Text),nil,0,0,0);
if ResumePos>0 then
 begin
 InternetSetFilePointer(hURL,ResumePos,nil,0,0);
 end;
label3.Caption:='Состояние: Скачивается';
REPEAT
 err:= InternetReadFile(hURL, @Buffer,SizeOf(Buffer),BufferLen);
 IF err= false then
  begin
  messagebox(0,'При закачке произошла ошибка','Ошибка',$10*1*1);
  exit;
  end;
 BlockWrite(f, Buffer, BufferLen);
 Application.Processmessages;
UNTIL (BufferLen= 0) Or (y=FALSE);
  messagebox(0,'Файл успешно загружен!','Сообщение',$10*1*4);
  label3.Caption:='Состояние: Готов';
end;
end;

Короче: адрес считывается c edit1 место сохранения с edit2

[BOBAH13]

Я знаю... Тоже сделал бесконечный цикл. Возвращает ерунду всякую обычно, не стал разбираться. И еще не по теме, как чувствует себя форма во время закачки ? Не думали такие вещи в поток отдельный пихать ?

[Sanek_ntsk]

форма подтормаживает чуть-чуть