procedure TbsFileBackUpForm.conectServer(Sender: TObject);
var
tr : Tstrings;
begin //连接
tr := TStringlist.Create;
IdFTP1.Host := '10.000.00.00'; //FTP服务器IP地址or域名也可以
IdFTP1.Port :=21;
IdFTP1.Username := 'Download'; //FTP服务器用户名
IdFTP1.Password := '0000000'; //FTP服务器密码
if not IdFTP1.Connected then IdFTP1.Connect(); //连接到ftp
cxtxtdt1.Text := IdFTP1.RetrieveCurrentDir;//得到初始目录
// IdFTP1.ChangeDir('download'); //进入到client子目录
//IdFTP1.ChangeDir('..'); //回到上一级目录
IdFTP1.List(tr); //得到client目录下所有文件列表
cxMemo1.Lines.Assign(tr);
tr.Free;
end;
参考: