скачка фаила

[dr.fauster]

Люди плз помогите! мне надо написать программу в Delphi 7 которая скачивает файлы с нета при занесении ссылки !!!

[MaxNik2009]

А поиском религия не позволяет пользоваться? На форуме много подобных тем разбиралось, например ->эта<-.

[dr.fauster]

блин там чутка какая то ошибка((( сейчас попробую что не будь еще попробовать!

[xakkkkker]

Вот исходник....

__________________________
Если вам помогли не забывайте оставлять отзыв, не поленитесь нажмите на кнопку

[Stilet]

http://www.delphiworld.narod.ru/_all_articles_.html
Раздел # Файлы и Интернет - [18]

[dr.fauster]

Спасибо! но я нашел код но у меня выводит ошибку!!!

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    SaveDialog1: TSaveDialog;
    ProgressBar1: TProgressBar;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
  protected
  public
  end;

  TDownLoader = class(TThread)
  private
  protected
    procedure Execute; override;
  published
  public
  FToFolder: string;
  FURL: string ;
   property URL:string read FURL write FURL;
   property ToFolder:string read FToFolder write FToFolder;
 end;

var
  Form1: TForm1;

  str:TFileStream;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
saveDialog1.Filename:=copy(edit1.text, LastDelimiter('',Edit1.Text)+1,maxint);
if SaveDialog1.Execute then
Edit2.Text:=SaveDialog1.FileName;

end;
procedure TDownLoader.Execute;
var
http:TIdHTTP;
  str:TFileStream;
begin
http:=TIdHttp.creat(nil);
ForceDirectories(ExtractFileDir(ToFolder));
str:=TFileStream.Create(ToFolder, fmCreate);
try
  http.get(url,str);
finally
  http.Free;
    str.Free;
end;


end;
procedure TForm1.Button2Click(Sender: TObject);

var d:TDownLoader;
begin
    d:=TDownLoader.Create(true);
    d.URL:=Edit1.Text;
  d.ToFolder:=Edit2.Text;
    d.FreeOnTerminate:=true;
    d.Resume;
  end;
end;

end.

почему то указывает ошибку на http

[Stilet]

http:=TIdHttp.creat(nil);

http:=TIdHttp.creatе(nil);
Букву провтыкал.

[dr.fauster]

с буквой нашел)))) теперь новый геморрой ошибку выдает

"Cannot run project unless a host application is defined. Use the Run| Parameters... dialog box.."
что это за фигня???

[Stilet]

Ану прикрепи сюда свой проект в архиве.

[dr.fauster]

глянь что можно сделать плз