IdFTP1.List funktioniert nicht

[capo]

Ich blick's grad nichts mehr.
Hiermit:
 IdFTP1.List(ListBox1.Items, ' ',false); erhalte ich folgende Fehlermeldung:

Zitat:

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt Project1.exe ist eine Exception der Klasse EIdInvalidFTPListingFormat aufgetreten. Meldung: 'Unbekanntes FTP-Listenformat'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.
---------------------------
OK Hilfe
---------------------------

Lokal klappt der Code.


Und mit dem Code bleibt das Programm einfach nur noch hängen.
List(ListBox1.Items, '*.x',true);

Gruss Vito

[Klaus01]

Guten Abend,

zeige doch mal etwas mehr Code.

Diese Beispiel funktioniert bei mir:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  idftp1.Username:='anonymous';
  idftp1.Password:='[e-mail]';
  idftp1.Host:='ftp-stud.fht-esslingen.de';
  idftp1.Connect(true);
  idftp1.List(ListBox1.Items,'',true);
end;

Grüße
Klaus

[capo]

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;

[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]

[capo]

Hallo Klaus,
stimmt du hast recht, es funktioniert.
Ich mach das mal mit dem Testprojekt, melde mich dann wieder.
Danke für deine Hilfe.
Achso...was bedeutet c* kann ich doch auch *.X nehmen, oder?
vito

[Klaus01]

Zitat von capo:

Hallo Klaus,
s
Achso...was bedeutet c* kann ich doch auch *.X nehmen, oder?
vito

c* war mein Filter, auf dem FTP Server lagen keine Dateien mit *.X.
Gute Nacht.
Klaus

[capo]

es lag an meinem webhoster...
*röchel*