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! :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....
:oops:

[chaosben]

Z.B. so:

Delphi-Quellcode:

ListBox1.Items.Add(AStatusText);

[cruising6n]

Zitat:

Zitat von chaosben (Beitrag 1133427)

Z.B. so:

Delphi-Quellcode:

ListBox1.Items.Add(AStatusText);

Dann bekomme ich:

"Undefinierter Bezeichner AStatusText"


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

[Klaus01]

Zitat:

Zitat von cruising6n (Beitrag 1133429)

Zitat:

Zitat von chaosben (Beitrag 1133427)

Z.B. so:

Delphi-Quellcode:

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....


:-D:-D:-D

[cruising6n]

Danke nochmal.
Das mit dem StatusText funktioniert wunderbar.

Kann mir jetzt noch jemand sagen wie ich mit dem IdFTP.Put eine Datei hochlade?

Mit festen Pfaden funktioniert es, aber sobald ich mit einem OpenDialog eine Datei auswähle bekomme ich den Pfad als TStrings übergeben, ich bräuchte für den IdFTP.Put aber einen String....

Habe Google schon nach Umwandlungsfunktionen bemüht aber nix brauchbares gefunden.

Eine Dateiauswahlfunktion welche mir direkt einen String übergibt wäre mir auch recht.

Danke schonmal im voraus.

[Bummi]

opendialog.FileName

nur wenn Du ofAllowMuliSelect setzt können mehere Dateien ausgewählt werden
und Du müsstest OpenDialog.Files verwenden

Delphi-Quellcode:

For i := 0 to OpenDialog.Files.count - 1 do
  DasWasDoTunWillstMitEinerDatei(OpenDialog.Files[i]);

[cruising6n]

Vielen Dank.
Funktioniert wunderbar!

MfG

Daniel