[twista]

всем привет,помогите кто может подправить код..заранее спасибо
что бы можно было закачать файл или скопировать к себе на комп.

Код:

function LoadPrice(const URL, FileName: String; Http: TIdHTTP): Boolean;
var
tmpStream : TFileStream;
begin

tmpStream := TFileStream.Create(FileName, fmCreate);
try
Http.Get(URL, tmpStream);
tmpStream.Free;
except
On E: Exception do
begin
if E.ClassName = 'EIdSocketError' then
MessageText := 'Неверно указан порт или IP соединения'
else if E.ClassName = 'EIdProtocolReplyError' then
MessageText := 'Неправильный логин/пароль';
Result := MessageError(MessageText);
tmpStream.Free;
DeleteFile(PChar(FileName));
end;
end;
end;

Admin: Пользуемся тегами!

[uberchel]

Вот держи:

Код:

function DownloadFile(Idhtp: Tidhttp;  Furl, FileName: string): Boolean;
var
  MS: TMemoryStream;
begin
 try
  MS:= TMemoryStream.Create;
  with idhtp do
  begin
   Get(FURL, MS);
   with MS do
   begin
    Position:= 0;
    SaveToFile(FileName);
    Free;
   end;
  end;
  Result:= True;
 except
   Result:= False;
 end;
end;