TIdFTP Listenindex überschreitet maximum

[0NyX]

Hallo DP-User,

nachdem ich mich zwei Jahre lang leider nicht mehr mit delphi beschäftigt habe, sitze ich seit gestern wieder begeistert davor ;-)
Derzeit arbeite ich an einem kleinen Programm in dem ich auch die TIdFTP Componente verwenden will / muss.
Doch leider komme ich seit gut zwei Stunden einfach nicht mehr weiter und hoffe darauf, dass mir vielleicht einer von euch helfen kann.

Es scheitert derzeit an der List funktion.
Jedesmal, wenn ich idftp1.list aufrufe, kommt folgender Fehler:


---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt upload.exe ist eine Exception der Klasse EListError mit der Meldung 'Listenindex überschreitet das Maximum (1)' aufgetreten.
---------------------------
Anhalten Fortsetzen Hilfe
---------------------------


Meine Verwendete Umgebung:
RAD Studio 2010

Indy Version:
10.5.5

Mein Programmcode für die Verbindung:

Delphi-Quellcode:

procedure TForm1.BtnConnectClick(Sender: TObject);
begin
  lblftpstatus.Caption:='Setze Parameter';
  IdFTP1.Passive:=CheckBoxPassive.Checked;
  IdFTP1.Host := EdtServerIp.Text;
  IdFTP1.Port := StrToInt(EdtPort.Text);
  IdFTP1.Username := EdtUsername.Text;
  IdFTP1.Password := EdtPasswort.Text;
  lblftpstatus.Caption:='Baue verbindingung auf . . .';
  IdFTP1.Connect;
  lblftpstatus.Caption:='Wechsel Ordner . . .';
  IdFTP1.ChangeDir(EdtPath.Text);

  if IdFTP1.Connected=true then begin
    lblftpstatus.Caption:='Connected.';
    IdFTP1.List(DirectoryListBox.Items);
  end else begin
    lblftpstatus.Caption:='Verbindung fehlgeschlagen.';
  end;


end;

Würde mich echt freuen, wenn mir einer von euch helfen könnte.

Viele Grüße




--------------------------
Hat sich grade erledigt.
Das Problem lag nicht an dem List sondern an das, was ich beim OnWork veranstaltet habe.
Schuldigt nun dieses unnützen Thread

[DeddyH]

Trotzdem solltest Du

Zitat:

Delphi-Quellcode:

if IdFTP1.Connected=true then begin

ändern in

Delphi-Quellcode:

if IdFTP1.Connected then begin

P.S.: Lass mich raten, Du hattest Code in der Art

Delphi-Quellcode:

for i := 0 to Liste.Count do

geschrieben, der den Fehler verursachte, stimmt' s ?

[CCRDude]

Je nach Servergegenstelle hatte ich an der Stelle (List) auch häufiger eine Exception. Geholfen hat da, die passend IdFTPListParse*.pas in das uses mit aufzunehmen. Kann mich aber an den Typ der Exception nicht mehr erinnern, nur eben an obige Lösung.

[Neutral General]

Hallo,

Wollte nur Bescheid sagen, dass das Problem nicht mehr besteht.
Habe auch grad nur zufällig gesehen, dass er ganz unten versteckt in seinem Post was editiert hat
(Noch bevor DeddyH geantwortet hat):

Zitat:

Hat sich grade erledigt.
Das Problem lag nicht an dem List sondern an das, was ich beim OnWork veranstaltet habe.
Schuldigt nun dieses unnützen Thread

Nicht, dass sich noch mehr Leute großartig Gedanken machen :mrgreen:

[DeddyH]

Öhm, ich hatte das schon gesehen, wollte aber trotzdem noch den Vergleich auf true ansprechen ;)

[Neutral General]

Achso^^

Egal. Geschadet hat mein Post sicher nicht :stupid: