Hallo, danke für deine Antwort, bleibt einfach hängen die Anwendung, wird aber auch nichts angezeigt.
Ich möchte nur einen bestimmten Dateitypen angezeigen lassen und nur den Dateinamen nicht noch alle möglichen Berechtigungen
Delphi-Quellcode:
try
if TransferringData then Form1.idFTP1.Abort;
if Form1.IdFTP1.Connected then Form1.IdFTP1.Disconnect;
application.ProcessMessages;
Form1.IdFTP1.Host := Host;
Form1.IdFTP1.Username := Username;
Form1.IdFTP1.Password := Password;
Form1.IdFTP1.Connect;
if Form1.idFTP1.Connected then begin
application.ProcessMessages;
Form1.IdFTP1.ChangeDir('/test');
listbox3.items.Clear;
idFTP1.List(ListBox3.Items, '*.X', false);
for i := 0 to ListBox3.Items.Count - 1 do
if ListBox3.Items.Strings[i] = laden2.Text + '.X' then begin
Showmessage('Datei ist zur Zeit in Benutzung');
exit;
end;
end;
except;
end;