Delphi

TIdFTP 两个重要函数

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

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

请看如下代码：

function TMainFrm.FtpDirectoryExists(ADir: string): Boolean;
var
  i, Index: Integer;
  strlist: TStringList;
  filename: string;
  b: Boolean;
begin
  Result := false;
  Index := 0;
  strlist := TStringList.Create;
  strlist.Clear;
  idFTP.List(strlist, '', True);
  if strlist.Count > 0 then
  begin
    for i := 0 to strlist.Count - 1 do
    begin
      filename := trim(strlist.Strings[i]);
      b := True;
      while b do
      begin
        if Pos(' ', filename) > 0 then
        begin
          filename := Trim(Copy(filename, Pos(' ', filename), Length(filename)));
        end;
        if Pos(' ', filename) = 0 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 := 0 to sFtpPath.Count - 1 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/
  本文版权归作者和博客园共有，欢迎转载，但未经作者同意必须保留此段声明，且在文章页面明显位置给出原文连接，否则保留追究法律责任的权利。