1,593
社区成员
发帖
与我相关
我的任务
分享
passive:=true;
try
try
IdFTP1.Host := 'uploads.2ccc.com'; { FTP Server}
IdFTP1.Username := 'uploads'; { ...}
IdFTP1.Password := 'uploads'; { ...}
IdFTP1.Connect;
Application.ProcessMessages;
IdFTP1.List;
Memo1.Lines.Assign(IdFTP1.ListResult);
except
{狼又在YY群里嚎叫了。。。}
end;
finally
{...}
end;