Код:

function Downl0ad_MasteR_XD(url:string; sfile:string) : string;
var
  IdHTTP: TIdHTTP;
  memorystream: TMemoryStream;
begin
result:= '';
  IdHTTP:=TIdHTTP.Create(nil);
  memorystream:=TMemoryStream.Create;
   try
    IdHTTP.Get(url, memorystream);
    memorystream.Position:=0;
    MemoryStream.SaveToFile(sfile);
   finally
    memorystream.Free;
    IdHTTP.Free;
  end;
result:=':)';
end;

возможно ли узнать когда завершается загрузка файла(ну типа что бы сработало прогрессбар ) и можно узнать сколько весит данный файл на сервере (перед тем как качается)?

буду благодарен

[friz]

В Uses необходимо включить модуль: WinInet
Для определения размера файла воспользуемся следующей функцией:

Код:

function GetUrlSize(const URL:string):integer;
var
hSession,hFile:hInternet;
dwBuffer:array[1..20] of char;
dwBufferLen,dwIndex:DWORD;
begin
Result:=0;
hSession:=InternetOpen('GetUrlSize',INTERNET_OPEN_TYPE_PRECONFIG,nil,nil,0);
if Assigned(hSession) then
begin
hFile:=InternetOpenURL(hSession,PChar(URL),nil,0,INTERNET_FLAG_RELOAD,0);
dwIndex:=0;
dwBufferLen:=20;
if HttpQueryInfo(hFile,HTTP_QUERY_CONTENT_LENGTH,@dwBuffer,dwBufferLen,dwIndex) then Result:=StrToInt(StrPas(@dwBuffer));
if Assigned(hFile) then InternetCloseHandle(hFile);
InternetCloseHandle(hsession);
end;
end;

Пример использования:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
  begin
     i:=GetUrlSize('http://www.delphicode.ru/delphi.png');
     showmessage(inttostr(i));
  end;

спасибо...
но если менять ссылку http://www.delphicode.ru/delphi.png на любую другую то пишет 0 и еще глючит((

application.processmessages надо добавить где то

[pesi]

Код:

begin
  idhttp1.Head('http://www.delphisources.ru/forum/images/misc/logo_ds_forum.gif');
  memo1.Text:= inttostr(idhttp1.Response.ContentLength);
  memo2.Text:= idhttp1.Response.RawHeaders.GetText;
end;

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

Код:

begin
  idhttp1.Head('http://www.delphisources.ru/forum/images/misc/logo_ds_forum.gif');
  memo1.Text:= inttostr(idhttp1.Response.ContentLength);
  memo2.Text:= idhttp1.Response.RawHeaders.GetText;
end;

спасибо большое)) реально функция рулит!!! и даже не глючит прога))))

Код:

idhttp1.Response.RawHeaders.GetText;

//не только пишет размер файла)) но и куча информаций о серверЕ))))

[NumLock]

событие OnWorkBegin:
IdHTTP1.Response.ContentLength
что бы лишний HEAD не посылать
прогресс апдейтим в OnWork
OnWorkEnd - все, приехали

-- или --

procedure TForm1.IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCountMax: Integer);
begin
// AWorkCountMax - ничего не напоминает?
end;

procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
begin
// AWorkCount - а чтобы это значило?
end;

procedure TForm1.IdHTTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
// приехали
end;