Indy FTP Server - Dateiliste aus Stringlist

[skyquaker]

Kann man dem IndyFTP Server eine eigene Dateiliste zuspielen? Also das der Server dem Client statt einem Ordner Dateien anzeigt, die nicht existieren (nur als Einträge in einer StringList).

In der StringList steht beispielsweise:

Delphi-Quellcode:

datei1
datei2

Der User kriegt von seinem FTP Client angezeigt:

Delphi-Quellcode:

datei1
datei2

Datei1 und Datei2 gibt es nicht wirklich. (Sie sind keine reellen Dateien auf einem Datenträger)

Ich bin das ganze schon einmal selbst angegangen.

Die Dateiliste müsste doch hier gesendet werden:

Delphi-Quellcode:

procedure TForm1.FTPServerListDirectory(ASender: TIdFTPServerContext;
  const APath: string; ADirectoryListing: TIdFTPListOutput; const ACmd,
  ASwitches: string);

Wenn man jetzt TIdFTPListOutput die gewünschten Daten zuschieben könnte, dann müsste das ganze doch funktionieren, oder?

Ich bin dankbar für alle Hilfe die ich bekomme

[Klaus01]

Guten Abend,

die Liste ist das Resultat des FTP Befehls "list" (zu finden in der RFC unter Punkt 4.1.3).
Daran kannst Du so ohne weiteres nichts manipulieren.
Du könntest die List höchstens ändern bevor sie auf dem Client
angezeigt wird. Dazu mußt Du aber den Quelltext des Client ändern.

Wozu das gut sein soll, erschließt sich mir nicht so richtig.

Grüße
Klaus

[skyquaker]

Zitat von Klaus01:

Guten Abend,

die Liste ist das Resultat des FTP Befehls "list" (zu finden in der RFC unter Punkt 4.1.3).
Daran kannst Du so ohne weiteres nichts manipulieren.
Du könntest die List höchstens ändern bevor sie auf dem Client
angezeigt wird. Dazu mußt Du aber den Quelltext des Client ändern.

Wozu das gut sein soll, erschließt sich mir nicht so richtig.

Grüße
Klaus

Danke für die schnelle Antwort

Das ganze soll nur clientseitig laufen, ich möchte das der Client per "localhost" auf diese Liste zugreifen kann.

Ich wollte überprüfen ob eine Datei abgefragt wird und dann auf eine andere Datei verlinken, dies ist aber scheinbar nicht möglich. (Wäre das denn überhaupt machbar, jetzt einmal abgesehen von dem Einspeisen der Liste. Ginge das vielleicht mit FTPServer.ONGetFile?).

Es sollte eine Art "Verschachtelung" für ein anderes Protokoll (oder eine Mischung aus anderen Protokollen) werden, auf die man via FTP zugreifen kann.

[marabu]

Hallo,

Zitat von skyquaker:

... Kann man dem IndyFTP Server eine eigene Dateiliste zuspielen? Also das der Server dem Client statt einem Ordner Dateien anzeigt, die nicht existieren (nur als Einträge in einer StringList). ...

klar doch - warum sollte das nicht gehen? Du selbst implementierst ja die Behandlung des LIST-Befehls.

Zitat von skyquaker:

... Wenn man jetzt TIdFTPListOutput die gewünschten Daten zuschieben könnte, dann müsste das ganze doch funktionieren, oder? ...

Na klar, die Collection ist ja leer, wenn dein event handler die Kontrolle erhält. Wenn du da nichts reinschreibst, dann kommt beim Client auch nichts an. Was du da rein schreibst ist deine Sache, solange du ein erkennbares Format (Standard oder Custom) verwendest. Das Mapping der Dateinamen, wenn dann der Client die imaginäre Datei anfordert, musst du dann beim Ereignis OnRetrieveFile() vornehmen.

Klaus hat bestimmt übersehen, dass du den FTP Server ja selbst implementierst und nicht bei einem existierenden Server anfragst.

Freundliche Grüße

[SirThornberry]

FTP ist nur ein Protokoll. Was du dort beim List-Kommando zurück gibst ist einzig und allein dir überlassen. Natürlich müssen die Dateien dabei auch nicht existieren.
Einfach eine Stringlist nehmen geht allerdings auch nicht weil du beim Listing angeben solltest ob es sich um Dateien handelt, wie groß diese Sind welche Attribute sie haben etc.

[skyquaker]

Zitat von marabu:

Hallo,

Zitat von skyquaker:

... Kann man dem IndyFTP Server eine eigene Dateiliste zuspielen? Also das der Server dem Client statt einem Ordner Dateien anzeigt, die nicht existieren (nur als Einträge in einer StringList). ...

klar doch - warum sollte das nicht gehen? Du selbst implementierst ja die Behandlung des LIST-Befehls.

Zitat von skyquaker:

... Wenn man jetzt TIdFTPListOutput die gewünschten Daten zuschieben könnte, dann müsste das ganze doch funktionieren, oder? ...

Na klar, die Collection ist ja leer, wenn dein event handler die Kontrolle erhält. Wenn du da nichts reinschreibst, dann kommt beim Client auch nichts an. Was du da rein schreibst ist deine Sache, solange du ein erkennbares Format (Standard oder Custom) verwendest. Das Mapping der Dateinamen, wenn dann der Client die imaginäre Datei anfordert, musst du dann beim Ereignis OnRetrieveFile() vornehmen.

Klaus hat bestimmt übersehen, dass du den FTP Server ja selbst implementierst und nicht bei einem existierenden Server anfragst.

Freundliche Grüße

Ich kenn mich leider mit dem FTP Protokoll nicht besonders gut aus. Ich muss jetzt also ADirectoryListing (TIdFTPListOutput) die Informationen in einem bestimmten Format übergeben, in welchem? Kann mir jemand vielleicht ein praktisches Beispiel liefern? Oder mich auf eines verweisen?

Bitte übt Geduld mit mir, ich kenne mich halt nicht so gut aus

[marabu]

Du musst dir kein eigenes Format ausdenken, wenn dir das Standardformat genügt. Bei den Indy-Demos ist ein FTP-Server dabei, den solltest du dir mal anschauen. Du arbeitest eigentlich nur mit der Collection und ihren Items, das passende Format wird ohne dein Zutun vor der Übertragung hergestellt.

[skyquaker]

Zitat von marabu:

Du musst dir kein eigenes Format ausdenken, wenn dir das Standardformat genügt. Bei den Indy-Demos ist ein FTP-Server dabei, den solltest du dir mal anschauen. Du arbeitest eigentlich nur mit der Collection und ihren Items, das passende Format wird ohne dein Zutun vor der Übertragung hergestellt.

Delphi-Quellcode:

procedure TForm1.FTPServerListDirectory(ASender: TIdFTPServerContext;
  const APath: string; ADirectoryListing: TIdFTPListOutput; const ACmd,
  ASwitches: string);
 var st:TStrings;
     aq:TIdFTPListOutputItem;
begin
ShowMessage('TEST');
end;

Das erste Problem ist, dass TEST nicht angezeigt wird, was heißt das der Code nicht ausgeführt wird.

Das zweite Problem ist, dass ADirectoryListing scheinbar eine TCollection oder ein TCollectionItem benötigt um mit Daten befüllt zu werden.

Leider weiß ich absolut nicht was ich machen soll.

Wär echt gut wenn mir das jemand erklären könnte.

[skyquaker]

Weiß niemand eine Antwort? Das kann doch nicht so kompliziert sein.

(sorry fürs gepusche, aber ich hänge hier fest )

[marabu]

Moin,

hast du dir die Demo "FTPServer_Console" aus den Indy9Demos mal angeschaut?

Wie sieht denn dein nicht funktionierender Code aus?

Freundliche Grüße