【控件功能】我来做练习-第11课-FTP上传

FTP上传

` 提示：用到组件IDFTP

核心源代码如下

procedure TForm1.Button1Click(Sender: TObject);
begin
IdFTP1.Host := Edit1.Text;
IdFTP1.Username := Edit2.Text;
IdFTP1.Password := Edit3.Text;
IdFTP1.Connect;
if Edit4.Text <> ‘’ then
IdFTP1.ChangeDir(Edit4.Text);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if IdFTP1.Connected then
IdFTP1.Disconnect;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
// Choose file to upload
if OpenDialog1.Execute then
begin
Label1.Caption := OpenDialog1.FileName;
end;
end;

procedure TForm1.Button4Click(Sender: TObject);
var
URI: TidUri;
begin
if IdFTP1.Connected th