IdFTP1.List funktioniert nicht

[Klaus01]

Hallo Vito,

auch der Code tut es bei mir, mußte ihn nur etwas anpassen.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Byte;

begin
  try
    if TransferringData then Form1.idFTP1.Abort;
    if Form1.IdFTP1.Connected then Form1.IdFTP1.Disconnect;
    application.ProcessMessages;


    Form1.IdFTP1.Host := 'ftp-stud.fht-esslingen.de';
    Form1.IdFTP1.Username := 'anonymous';
    Form1.IdFTP1.Password := '[e-mail]';
    Form1.IdFTP1.Connect;

    if Form1.idFTP1.Connected then
      begin
        application.ProcessMessages;
        Form1.IdFTP1.ChangeDir('/pub');


        listbox1.items.Clear;
        idFTP1.List(ListBox1.Items, 'c*', false);


        for i := 0 to ListBox1.Items.Count - 1 do
          if ListBox1.Items.Strings[i] = laden2.Text + '.X' then
            begin
              Showmessage('Datei ist zur Zeit in Benutzung');
              exit;
            end;
      end;
  except;

  end;
end;

Mache Dir doch einmal nur ein Testprojekt mit nur den
notwendigen Funktionen und teste damit.
Vielleicht kannst Du da den Fehler etwas weiter eingrenzen.

Grüße
Klaus

[edit=Matze]Beitrag neu abgesendet, da der Highlighter nicht ansprach. MfG, Matze[/edit]