procedure TForm1.Button1Click(Sender: TObject);
begin
with IdFTP do
begin
try
TransferType := ftBinary;
Host := '127.0.0.1';
Username := 'zymftp';
Port := 21;
Password := 'zym';
Connect();
ChangeDir('STD_System');
//List(Memo1.Lines);
//Put('C:\CBX.V515.7z', 'a.d.7z', True);
//List(Memo1.Lines);
Get('CBX.V515.7z', 'C:\CBX.V515.7z',True);
Disconnect;
except
ShowMessage('完了');
end;
end;
end;我的代码就这么几句 很简单, 可是为什么用PUT的时候没有问题 但是用list或是用Get的时候就是不行 程序就死了 IDFTP的onwork好像死循环一样 不停。。
begin
with IdFTP do
begin
try
TransferType := ftBinary;
Host := '127.0.0.1';
Username := 'zymftp';
Port := 21;
Password := 'zym';
Connect();
ChangeDir('STD_System');
//List(Memo1.Lines);
//Put('C:\CBX.V515.7z', 'a.d.7z', True);
//List(Memo1.Lines);
Get('CBX.V515.7z', 'C:\CBX.V515.7z',True);
Disconnect;
except
ShowMessage('完了');
end;
end;
end;我的代码就这么几句 很简单, 可是为什么用PUT的时候没有问题 但是用list或是用Get的时候就是不行 程序就死了 IDFTP的onwork好像死循环一样 不停。。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货