FTP Log

[cruising6n]

Ich komme trotzdem nicht so richtig klar....

Wie muss der Quelltext dann aussehen?

Bei mir sieht es im Moment so aus:

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin
  IdFTP1.Host:= '127.0.0.1';
  IdFTP1.Username:= 'Daniel';
  IdFTP1.Password:= '1234';
  IdFTP1.Connect;
  IdFTP1.List(ListBox1.Items);

end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  IdFTP1.Disconnect;
end;


procedure TForm1.IdFTP1Status(ASender: TObject; const AStatus: TIdStatus;
  const AStatusText: String);
begin
  IdFTP1Status(IdFTP1, AStatus,  );
end;

end.

[Klaus01]

Hallo,

lass Dir doch mal ausgeben was in AStatusText steht.

Grüße
Klaus

[cruising6n]

Wie denn?
Irgendwie steh ich afm Schlauch....
Ich bekomme immer Probleme mit TStrings und String vom AStatusText....

[chaosben]

Z.B. so:
ListBox1.Items.Add(AStatusText);

[cruising6n]

Zitat von chaosben:

Z.B. so:
ListBox1.Items.Add(AStatusText);

Dann bekomme ich:

"Undefinierter Bezeichner AStatusText"


Ich glaube am Ansatz ist da grundsätzlich was verkehrt....

[Klaus01]

Zitat von cruising6n:

Zitat von chaosben:

Z.B. so:
ListBox1.Items.Add(AStatusText);

Dann bekomme ich:

"Undefinierter Bezeichner AStatusText"

..verstehe nicht, warum AStatusText unbekannt sein sollte.

Delphi-Quellcode:

procedure TForm1.IdFTP1Status(ASender: TObject; const AStatus: TIdStatus;
  const AStatusText: string);
begin
  Listbox1.Items.Add(AStatusText)
end;

Grüße
Klaus

[cruising6n]

Danke.
Endlich der lang erwartete Hinweis.
Vielen Dank Jungs!

Ich stell mich vielleicht etwas blöd an, aber das letzte mal als ich mit Delphi gearbeitet habe, war in der Berufsschule....