如何用idftp/idftpserver进行文件传输，最简单的完整例子（idftp发送，idftpserver接收）即可，多谢！！我的idftp总是连接不上idftpserve

Question

如何用idftp/idftpserver进行文件传输，最简单的例子即可，多谢！！我的idftp总是连接不上idftpserver,为什么？在线等，立即给分！！    With IdFTP do
    begin
      Disconnect;
      Host := IniFile.ReadString('PriorProperty','PriorIP','127.0.0.1');
      Port := IniFile.ReadInteger('PriorProperty','PriorFTPPort',4000);
      Username := 'ftp';
      Password := '';
      Try
        IdFTP.Connect;   ＃＃＃＃＃＃这里报错，说是socket error :10061
        //IdFTP.Account('ftp');
        if IdFTP.Connected then
          Result := True
        else
          Result := False;
      Except
        Result := False;
      End;
    end;
  Finally
    IniFile.Free;
  End;＃＃＃＃＃＃这里报错，说是socket error :10061,connection refused，
怎么回事？多谢！！

Answer 1

Program Files\Borland\Delphi6\Demos\Indy\FTPDemo下有完整的例子 ________________________欢迎访问和宣传我的论坛http://hthunter.vicp.net/