使用Delphi内置的NMFTP控件的例子
procedure TForm1.Button1Click(Sender: TObject);
begin
if NMFTP1.Connected then
NMFTP1.Disconnect
else
begin
NMFTP1.Host := Edit1.Text;
NMFTP1.UserID := Edit2.Text;
NMFTP1.Password := Edit3.Text;
NMFTP1.Connect;
NMFTP1.Download(远程文件名,保存到本地的文件名) //我加入的
end;
end;我在帮助里找到的,以后有问题先看看帮助,别浪费分了。
procedure TForm1.Button1Click(Sender: TObject);
begin
if NMFTP1.Connected then
NMFTP1.Disconnect
else
begin
NMFTP1.Host := Edit1.Text;
NMFTP1.UserID := Edit2.Text;
NMFTP1.Password := Edit3.Text;
NMFTP1.Connect;
NMFTP1.Download(远程文件名,保存到本地的文件名) //我加入的
end;
end;我在帮助里找到的,以后有问题先看看帮助,别浪费分了。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货