delphi中怎么实现远程上传下载文件包

Question

delphi中怎么实现远程上传下载文件包

Answer 1

delphi中怎么实现远程上传下载文件包
我现在用的是DELPHI6中的INDY的IdFTP来实现。
但是就是在最基础的连接的时候老是报错。procedure TForm1.Button1Click(Sender: TObject);
var
  tr : Tstrings;
begin  //连接
  tr := TStringlist.Create;
  with idftp1.SocksInfo do
  begin
    Host := '192.168.36.112'; //FTP服务器地址
    Userid := 'db2admin'; //FTP服务器用户名
    IdFTP1.Password := 'db2admin'; //FTP服务器密码
  end;
 IdFTP1.Connect();  //连接到ftp     [color=#FF0000]这里的时候老是报错[/color]  Edit1.Text := IdFTP1.RetrieveCurrentDir;//得到初始目录
  IdFTP1.ChangeDir('client'); //进入到client子目录
  //IdFTP1.ChangeDir('..'); //回到上一级目录
  IdFTP1.List(tr); //得到client目录下所有文件列表
  Memo1.Lines.Assign(tr);
  tr.Free;
end;

Answer 2

报错：Socket Error # 10061 Connection refused
端口的话我默认为21
我就是测试DELPHI6中自带的DEMO的INDY的FTPDemo也是报同样的错误

Answer 3

你用其他ftp客户端，比如cuteFtp试试看能不能连上，如果不能的话，是你ftp服务器有问题。

Answer 4

TO songyan 
  你有现成的例子？
  只要用DELPHI的远程传输文件的，发一个给我
  [email protected]

Answer 5

用INDY 10 的IdFTP,10里有很多改进的BUG..

Answer 6

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