ftp上传文件

Question

我想通过delphi将我程序目录下的一个文件ip.txt上传到ftp://www.myftp.com/ip/的目录下面,如何实现,我找了一点材料,里面的
    //以ftp格式上传上去
    if idFTP1.Connected then
    try
      //if  TransferrignData then IdFTP1.Abort;
      IdFTP1.Quit;
    finally
    end
    else
     with IdFTP1 do try
       Username:='lee';
       Password:='2005;
       Host:='www.myftp.com';
       Connect(True,5);
     finally
    end;      if   not   IdFTP1.Connected   then   exit;
     // IdFTP1.TransferType   :=ftBinary;
      IdFTP1.Put(ExtractFilePath(ParamStr(0)+'IP.txt'),   ExtractFileName('ftp://www.hztianfu.com.cn/db/IP.txt'));这样好像不对,谁能帮我改改?

Answer 1

  IdFTP1.Host :=Host;
  IdFTP1.Port := 21;
  IdFTP1.User := UserID;
  IdFTP1.Password := Pswd;try
    if not IdFTP1.Connected then
       IdFTP1.Connect ;
    IdFTP1.Put(AsourFileName,ADestFileName);//源文件全路径，目标文件不带路径，带路径要反/
    DeleteFile(AsourFileName);
    IdFTP1.Disconnect ;
  except     
  try
        IdFTP1.Disconnect ;
      except
      end;  
  end;
  if ftpDirectory <> '' then
      try
        IdFTP1.MakeDir(ftpDirectory);
      except
      end;

Answer 2

自己研究下把，目标文件一般写文件名就可以了，可以线改变路径，有个IdFTP1.changedir的好像

Answer 3

FTP上传的，网上一搜就会有代码的。

Answer 4

你首先需要设置一个ftp服务器,不是随便一个目录就可以ftp的