delphi做ftp下载运行

Question

idftp1.Host:='174.37.136.251';
idftp1.Port:=21;
idftp1.Username:='xxxxx';
idftp1.Password:='xxxxx';
idftp1.Connect;
我连接了上去怎么实现下载里面的   1.rar 文件,  下载了就运行打开文件 下面代码怎么写代码

Answer 1

下载IdFTP1.Host := '主机地址';
IdFTP1.Username := '用户名';
IdFTP1.Password := '密码';
if IdFTP1.Connected then IdFTP1.Disconnect;
IdFTP1.Connect();
try
IdFTP1.Get('\data\远程文件名','本地文件名',True);
except上传IdFTP1.Host := '主机地址';
IdFTP1.Username := '用户名';
IdFTP1.Password := '密码';
if IdFTP1.Connected then IdFTP1.Disconnect;
IdFTP1.Connect();
try
IdFTP1.Put('data/本地文件名','远程文件名');
except