Stream mit Indy versenden

[Manzoni]

Delphi-Quellcode:

procedure TForm1.ServerExecute(AThread: TIdPeerThread);
var Big: Integer;
    RecInfos: TMemoryStream;
    Test: Integer;
begin
Big := Athread.Connection.ReadInteger;    
RecInfos := TMemoryStream.Create;
Athread.Connection.ReadStream(RecInfos, Big);     
RecInfos.Position:=0;
Test := RecInfos.Read(Car.Munition, Big);    //Wenn ich das richtig sehe, willst du die Anzahl der gelesenen
Menup.Caption := IntToStr(Test);             // Bytes ausgeben?   
end;