ReadStream in Verbindung mit idCmdTCPServer[Indy 10]

[bbBowser]

Hey DP-Forum ,
Ich hab mal wieder ein kleines Problem mit den Indy Komponenten. Diesmal versuche ich mit Hilfe der CmdTCP-Komponenten zu arbeiten, da mir das doch einiges erleichtert im verhältnis zu den normalen idTcp Server und Client Kompos. Hab anhand eines Codebeispiels hier im Forum untenstehenden Code zusammengeschustert, der auch wie beschrieben mit den normalen TCP Kompos geht. Allerdings gibt es in den CmdTCPs kein onexecute event, bzw es wird nicht ausgelöst... was soll ich nun mit dem Empfangscode machen, den ich hier Probeweise in den Commanhandlerevent gesetzt habe, wo er zwar keinen fehler kompiliert, aber einfach keine Datei erzeugt

bitte um hilfe, carsten

Server:

Delphi-Quellcode:

procedure TForm1.IdCmdTCPServer1CommandHandlers2Command(
  ASender: TIdCommand);
var 
  FSTream: TFileStream; 
begin
  FStream := TFileStream.Create('C:\ZZZTestdatei.txt', fmCreate);
  try
    ASender.Context.Connection.iohandler.ReadStream(Fstream);
  finally
    FreeAndNil(FStream);
  end;
end;

Client:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var 
  FStream: TFileStream; 
begin 
  FStream := TFileStream.Create('C:\testdatei.txt', fmOpenRead);
  try
    idcmdtcpclient1.IOHandler.Write(Fstream,0,true);
    IdCmdTCPClient1.IOHandler.WriteLn('FTPDOWNLOAD');
  finally
    FreeAndNil(FStream);
  end;
end;

[bbBowser]

sorry jungs, hab den fehler schon gefunden^^ war ein tippfehler beim cmdhandler-aufruf
manchma is ne kleine pause doch ganz gut^^

gruss carsten