Delphi - TIdFTP 两个重要函数

TIdFTP 两个重要函数

项目开发过程中发现，直接对于服务器上的文件/路径进行处理，是很危险的事情，因为一旦文件/路径不存在，程序就会抛异常，影响客户体验。所以在对服务器上的文件/路径进行访问之前，我们一般先判断服务器上是否存在某个路径/文件，然后再进行进一步的处理。

判断服务器上文件或者路径是否存在 FtpDirectoryExists

请看如下代码：

 function TMainFrm.FtpDirectoryExists(ADir: string): Boolean;
 var
   i, Index: Integer;
   strlist: TStringList;
   filename: string;
   b: Boolean;
 begin
   Result := false;
   Index := ;
   strlist := TStringList.Create;
   strlist.Clear;
   idFTP.List(strlist, '', True);
   if strlist.Count >  then
   begin
     for i :=  to strlist.Count -  do
     begin
       filename := trim(strlist.Strings[i]);
       b := True;
       while b do
       begin
         if Pos(' ', filename) >  then
         begin
           filename := Trim(Copy(filename, Pos(' ', filename), Length(filename)));
         end;
         if Pos(' ', filename) =  then b := False;
       end;
       if filename = ADir then
       begin
         Result := true;
         Break;
       end;
     end;
   end;
   strlist.Free;
 end;

创建FTP路径/文件夹 CreateFtpDir

请看如下代码：

 procedure TMainFrm.CreateFtpDir(V_Path: string);
 var
   i, j, k: Integer;
   sFtpPath, s: tstringlist;
   t_Path, sSTR: string;
 begin
   sFtpPath := tstringlist.Create;
   sFtpPath.Clear;
   sFtpPath.Delimiter := '/';
   sFtpPath.DelimitedText := V_Path;
   idFTP.ChangeDir('/');
     //检查目录是否存在，不存在时自动创建
   for K :=  to sFtpPath.Count -  do
   begin
     sSTR := sFtpPath[k];
     try
       if not FtpDirectoryExists(sSTR) then
         idFTP.MakeDir(sSTR);
     except
       on E: Exception do
       begin
         null;
       end;
     end;
     idFTP.ChangeDir(sSTR + '/');
   end;
   sFtpPath.Free;
 end;

作者：Jeremy.Wu
  出处：https://www.cnblogs.com/jeremywucnblog/

  本文版权归作者和博客园共有，欢迎转载，但未经作者同意必须保留此段声明，且在文章页面明显位置给出原文连接，否则保留追究法律责任的权利。