delphi的 ics的使用例子,ftp客户端上传的例子。

关于delphi的 ics的使用例子。我现在想做个ftp服务器和。现在给大家一个例子

关于连接函数应该很简单，这是上传的代码，供大家参考。

 FtpClient1.HostDirName := '/';
 FtpClient1.Cwd;
 FtpClient1.HostDirName :=dir;
  if not FtpClient1.Cwd then
  begin
     //-----创建
    FtpClient1.HostFileName :=dir;
     FtpClient1.Mkd;
    //-----进入目录
     FtpClient1.Cwd;
  end;

  FtpClient1.HostDirName :=ftpDateName;
 
  if not FtpClient1.Cwd then
  begin
    FtpClient1.HostFileName :=ftpDateName;
     FtpClient1.Mkd;
    //-----进入目录
     FtpClient1.Cwd;
  end;
 
 FtpClient1.HostFileName :=ftpfilename;
 FtpClient1.LocalFileName   := Floacalfile;
 Result:= FtpClient1.Put;
 //--------返回根目录
 FtpClient1.HostDirName :='../../';
 FtpClient1.Cwd;