用Delphi7设计FTP上传软件

随着宽带的不断普及，自己动手做网站的朋友也更多了。主页完工了，当然就要选择合适的免费空间，用FTP软件进行上传了。在这方面，可选择的上传软件有很多。那么有没有想过自己动手做一个呢?其实用Delphi就可以很方便地完成这项工作。Let’s go!

界面设计

首先,添加NMftp1、Edit、opendialog1、meno1、label等控件，按下图放置。

控件代码

1.“连接”代码：

procedure TForm1.Button2Click(Sender: TObject);
begin
nmftp1.Host :=edit3.Text ;
nmftp1.UserID :=edit1.text;
nmftp1.Password :=edit2.text;
nmftp1.Connect ;
end;

2.“上传”代码：

procedure TForm1.Button5Click(Sender: TObject);
var s:string;
begin
s:=label5.caption;
nmftp1.Upload('s',null);

3.“中止”代码：

procedure TForm1.Button4Click(Sender: TObject);
begin
NMFTP1.Abort ;
end;