Hallo liebe Leute,
da schon häufiger gefragt wurde wie ich über die Indykomponente IdFTP abfrage ob ein Verzeichnis existiert habe ich
folgende Funktion geschrieben:

zusammenfalten · markieren

Delphi-Quellcode:

function ftpDirExists(ftp:TIdFTP; dir:String; fromRoot:boolean):boolean;
  var tempDir : String;
      tempDir2 : String;
      tempDir3 : String;
      extractedDirs : TStringList;
      tempList : TStringList;
      i : integer;
begin
  result := false;
  // connected?
  if not ftp.Connected then exit;

  if dir[length(dir)] <> '/' then
    dir := dir + '/';

  // Initialize objects
  extractedDirs := TStringList.Create;
  tempList := TStringList.Create;

  // Store current dir
  tempDir := ftp.RetrieveCurrentDir;

  // go to the main dir if necessary
  if fromRoot then
    ftp.ChangeDir('/');
  tempDir3 := ftp.RetrieveCurrentDir;

  // extract all single directories in the dir path
  for i := 1 to length(dir) do
  begin
    if dir[i] = '/' then
    begin
      if tempDir2 <> '' then
      begin
        extractedDirs.Add(tempDir2);
        tempDir2 := '';
      end;
    end
    else tempDir2 := tempDir2 + dir[i];
  end;

  // Get List for each depth and check if dir exists
  for i := 0 to extractedDirs.Count-1 do
  begin
    tempList.Clear;
    ftp.List(tempList,'*',false);
    if tempList.IndexOf(extractedDirs.Strings[i]) = -1 then
    begin
      result := false;
      exit;
    end
    else
    begin
      tempDir3 := tempDir3 + extractedDirs.Strings[i]+'/';
      ftp.ChangeDir(tempDir3);
    end;
  end;

  //Clear objects
  extractedDirs.Free;
  tempList.Free;
  ftp.ChangeDir(tempDir);
  result := true;
end;

Wichtig ist, dass das Verzeichnis das ihr durchsuchen wollt mit einem '/' beginnt und,
dass eine Verbindung zum FTP-Server besteht.

Ein Beispielaufruf würde so aussehen:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  IdFTP1.Username := 'padmalcom';
  IdFTP1.Password := 'blubb';
  IdFTP1.Host := 'www.myftp.de';
  if not IdFTP1.Connected then
    IdFTP1.Connect;
  if ftpDirExists(idFTP1, '/Backup/ftp tool/', true) then
    showmessage('true')
  else showmessage('false');
end;

kleine doofe Frage: also die FTP-Verzeichnisse werden ja alle mit einem "/" angesprochen. Bei dir sind da jetzt an dieser Stelle lauter "\". Ich finde, dass die Verzeichnisnamen durch ein "\" ziemlich komisch aussehen.

Bernhard

Hast natürlich recht, habs geändert!

Geht das nicht einfacher?

zusammenfalten · markieren

Delphi-Quellcode:

function FTPDirExists(DirName : String; IdFTPComp : TIdFTP) : Boolean;
var
 DirList : TStringList;
begin
 Result := False;
 DirList := TStringList.Create;
 try
  IdFTPComp.List(DirList, DirName, True);
  if DirList.Count > 0 then
    Result := True;
 finally
   DirList.Free;
 end;
end;

Ich sehe in Deinem Code zudem drei potentielle Probleme

• Die IdFTP Komponenten wird nicht auf <> nil geprüft (Zugriffverletzung beim ersten Zugriff)
• Der String wird nicht auf Länge > 0 geprüft (Zugriffverletzung beim Abgreifen des letzten Zeichen). Siehe zusätzlich AnsiLastChar
• Um die erstellte StringListe ist kein Ressourcenschutzblock (try/finally) (Potentielles Speicherleck)

Weiterhin sind die Variablen TempDir1 bis 3 nicht gerade eindeutige Bezeichner...

Und noch was: Für neuere Delphi Versionen wäre so etwas eventuelle eine schöne Gelegenheit einen class helper zu verwenden


Viele Grüße