procedure TForm1.btnDownLoadClick(Sender: TObject);
begin
if IdFtp.Connected then
IdFtp.Disconnect;
IdFtp.Host := ip;
IdFtp.Port := Port;
IdFtp.Username := User;
IdFtp.Password := Pwd;
IdFtp.ReadTimeout := TimeOut;
IdFTP.Connect;
IdFTP1.Get('\zzgl\Source\zzgl.exe', 'c:\zzgl.exe', true);
end;结果第一次执行没载下来,再执行一次才能载下来
why? 服务器是serv-u 6.4.0.4
begin
if IdFtp.Connected then
IdFtp.Disconnect;
IdFtp.Host := ip;
IdFtp.Port := Port;
IdFtp.Username := User;
IdFtp.Password := Pwd;
IdFtp.ReadTimeout := TimeOut;
IdFTP.Connect;
IdFTP1.Get('\zzgl\Source\zzgl.exe', 'c:\zzgl.exe', true);
end;结果第一次执行没载下来,再执行一次才能载下来
why? 服务器是serv-u 6.4.0.4
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货