FTP Log

[cruising6n]

Hallo Leute,

nach langem Stöbern über Google und hier im Forum bzw. diverser Tutorials bräuchte ich etwas Hilfe beim entwerfen eines kleinen FTP-Tools.

Die Befehle zum Anzeigen der Ordner in einer ListBox und zum Verbinden sind mir mitlerweile bekannt.

Leider finde ich nirgends, wie man das Log in einer ListBox anzeigen kann.
Mit Log meine ich z.B. "Verbindung hergestellt" oder "Datei übertragen"......,das also, was bei jedem FTP Client angezeigt wird.

Prinzipiell möchte ich per ButtonClick eine vorher ausgewählte Datei uploaden auf ein Gerät was FTP unterstützt.
Das einzige, was dabei variabel sein soll ist die IP (des Gerätes) und die Datei.

Aber wie gesagt, geht es mir erstmal vorrangig darum, die vom FTP-Server kommenden Meldungen anzeigen zu lassen.

Danke schonmal für eure Hilfe.

[chaosben]

Erstmal herzlich Willkommen in der DP!

Um dir weiterhelfen zu können, müssen wir noch wissen mit welchem Delphi und vor allem mit welchen FTP-Komponenten du arbeitest.

[cruising6n]

Hi Ben,

ich arbeite mit Delphi 7 und den IdFTPCommon Komponenten.
Verbinden und Trennen funktioniert schon. Und das Anzeigen der Dateien und Ordner auch. (mit fileZilla Server getestet)

Nur die Nachrichten, die vom Server kommen würde ich gern angezeigt bekommen....

Die müssen aber irgendwie ausgelesen werden können.
Wenn ich über cmd "ftp 127.0.0.1" eingebe bekomme ich die auch angezeigt. Das sind in meinem Fall irgendwelche Willkommensmeldungen.

PS:
Danke für die nette Begrüßung

[chaosben]

Die Komponente hat ein OnStatus-Event (jedenfalls in der 10er Version). Da bekommst du ne Menge Infos geliefert.

[cruising6n]

Danke,

in Delphi 7 gibt es eine OnStatus Eigenschaft.
Aber leider weiß ich damit nichts anzufangen.

MFG

[chaosben]

Du kannst in das freie Feld rechts neben dem Namen "OnStatus" doppelklicken und dann erstellt dir Delphi den Event-Handler. Darin bekommst du einen Parameter "StatusText" übergeben. Den kannst du dann in deine Listbox schreiben.

[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);