Как загрузить файл из интернета

[tarakan1983]

Господа, подскажите как реализовать такую идею, допустим я знаю что по адресу http://myhost.ru/download/files/ лежит файл MyFile.file, как мне по нажатию на кнопку загрузить к себе в указанную директорию?

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

а в чем собственно проблема?
GETом получай файл и все

[tarakan1983]

Сообщение от Пепел Феникса

а в чем собственно проблема?
GETом получай файл и все

Сделал так

uses 
  URLMon, ShellApi; 

function DownloadFile(SourceFile, DestFile: string): Boolean; 
begin 
  try 
    Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0; 
  except 
    Result := False; 
  end; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
const 
  // URL Location 
  SourceFile = 'http://www.google.com/intl/de/images/home_title.gif'; 
  // Where to save the file 
  DestFile = 'c:\temp\google-image.gif'; 
begin 
  if DownloadFile(SourceFile, DestFile) then 
  begin 
    ShowMessage('Download succesful!'); 
    // Show downloaded image in your browser 
    ShellExecute(Application.Handle, PChar('open'), PChar(DestFile), 
      PChar(''), nil, SW_NORMAL) 
  end 
  else 
    ShowMessage('Error while downloading ' + SourceFile) 
end;

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

а может через Инди...лучше?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdHTTP;

type
  TForm1 = class(TForm)
    IdHTTP1: TIdHTTP;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var F:TFileStream;
begin
 F:=TFileStream.Create('c:\temp\google-image.gif', fmCreate);
 idHTTP1.Get('http://www.google.com/intl/de/images/home_title.gif',f);
 F.Free;
end;

end.

[tarakan1983]

Спасибо так проще!

[tarakan1983]

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

Спасибо так проще!

Он загружается, но почему то у него размер нулевой и не открывается

[Alar]

tarakan1983, сначала положите в сеть что нибудь, потом скачайте.

idhttp1.get(адрес в сети);

- вполне достаточно

[tarakan1983]

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

tarakan1983, сначала положите в сеть что нибудь, потом скачайте.

Вы хотите сказать, что я качаю файл которого нет в сети?
Почему же тогда функцией приведенной мной выше качается нормально?

[DomiNick]

Я пока ещё не знаю компонента idHTTP1 (а без него никак нельзя?), но всё работает...

Вы компонент-то на форму добавили..?

[tarakan1983]

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

Я пока ещё не знаю компонента idHTTP1 (а без него никак нельзя?), но всё работает...

Вы компонент-то на форму добавили..?

Естественно, еслиб не добавил, проект не компилился бы

Прошу прщение, просто пропадала связь с инетом. Надо добавить проверку связи с интернетом.