Stream mit Indy versenden

[Manzoni]

probier das mal:

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;
RecInfos.Read(Test,Sizeof(Test));    
RecInfos.Read(Test,RecInfos.Size); //eins von beiden müsste gehen
Menup.Caption := IntToStr(Test);             
end;