急,在线求indy idftp上传下载的代码,谢谢!

Question

在线下了几个都不怎么合适,谢谢!!!

Answer 1

IdFTP1.Host := '192.168.1.6';
    IdFTP1.Username := 'vinson';
    IdFTP1.Password := '000';
    if IdFTP1.Connected then IdFTP1.Disconnect;
    IdFTP1.Connect();
    try
      IdFTP1.Get('\UpdateFree.xml',nmm_xmlfile,True);
    except
    end ;==========================================================下载用GET 上传用PUT
异曲同工之妙~~

Answer 2

IdFTP1.Get 和IdFTP1.Put 具体该如何用以及参数如何设置请看DELPHI的帮助 

Answer 3

设置
     IdFTP.Host:=ftp服务器ip
     IdFTP.Username:=
     IdFTP.Password:=
下载：
if not IdFTP.Connected then IdFTP.Connect(true,1000);
                   IdFTP.ChangeDir(strFilePath);
                   IdFTP.Get(strFileName,SaveDialog1.FileName,false,true);
上传：
if not IdFTP.Connected then IdFTP.Connect(true,1000);
   IdFTP.ChangeDir(Path);
IdFTP.Put(filepath,strFilePath,true);