首页 / 软件开发 / Delphi / 用Delphi7设计FTP上传软件

用Delphi7设计FTP上传软件2009-10-11电脑报 周应随着宽带的不断普及，自己动手做网站的朋友也更多了。主页完工了，当然就要选择合适的免费空间，用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;