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