Hallo,
ich versuche mit folgendem Code einen Stream mit
Indy zu versenden:
Delphi-Quellcode:
Sourcecode:
procedure TForm1.ServerExecute(AThread: TIdPeerThread);
var Big: Integer;
RecInfos: TMemoryStream;
Test: Integer;
begin
Big := Athread.Connection.ReadInteger; // Größe von Car.Munition
RecInfos := TMemoryStream.Create;
Athread.Connection.ReadStream(RecInfos, Big); //Hier soll der Stream gelesen werden
Test := RecInfos.Read(Car.Munition, Big);
Menup.Caption := IntToStr(Test);
end;
procedure TForm1.Timer2Timer(Sender: TObject);
Var Infos: TMemoryStream;
begin
Infos := TMemoryStream.Create;
Infos.WriteBuffer(Car.Munition, SizeOf(Car.Munition)); //Car.Munition ist ein Integerwert
Client.WriteInteger(SizeOf(Car.Munition)); //Hier soll die Größe des Streams an den Server übermittelt
Client.WriteStream(Infos,true,True,0); //werden
end;
Leider ist die Menup.Caption 0. Ich kenn mich mit Streams nicht wirklcih aus, deshalb kann es sein, dass ich mit dem Stream was falsch mache.
Gruß
Spurius