Vstream bei indyftpserver füllen ?

[supermuckl]

also ich hab folgendes ereignis wenn jemand von meinem server ( selbstbau mit indy 9 tidftpserver ) mit dem kommando RETR eine datei anfordert.

Delphi-Quellcode:

procedure TForm1.ftpRetrieveFile(ASender: TIdFTPServerThread;
  const AFileName: String; var VStream: TStream);

Vstream ist hierbei der stream wo für diesen clientthread "erstellt" wurde

nun würd ich gerne wissen wie ich dem eine datei zuweisen kann

Delphi-Quellcode:

vstream := tfilestream.Create('c:\1.txt',fmOpenRead);
asender.DataChannelThread.StartThread(ftpRetr);

hab ich mal probiert.. aber irgendwie kommt dann ne fehlermeldung: verbindung besteht bereits

hab keine ahnung wieso das net funzt

da bleibt dann der ftp client stehen und wartet auf daten:

PORT 127,0,0,1,7,117
200 PORT Anweisung erfolgreich.
RETR 1.txt
150 Dateistatus OK; Datenverbindung wird geöffnet.

[supermuckl]

na toll weis das keiner hier?
das is nur nen billiger stream den ich irgendwie füttern muss

leute das kann doch net so schwer sein :(