Stream mit Indy versenden

[Spurius]

Kommt das Gleiche raus

[DataCool]

Hi,

das Read ist ja auch überflüssig !!!
Die Informationen stehen doch schon im MemoryStream(bei Dir RecInfos)

Gruß Data

[Spurius]

Wie kann ich die Daten dann aus dem MemoryStream auslesen?

[Manzoni]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var test : TMemoryStream;
    zeiger : ^integer;
    inte,
    inte2 : integer;
begin
  test:=tmemorystream.Create;
  inte:=4;
  test.Write(inte,sizeof(inte));
  test.Position:=0;
  zeiger:=test.Memory;
  inte2:=moi^;
  Label1.Caption:=IntToStr(inte2);
end;