Pointer in Stream lesen/schreiben

[ATwardz]

Hi,

ich habe eine Frage zum Thema TMemorystream!

Wie kann ich einen Pointer in einen Stream schreiben und wieder auslesen?
Das Programm soll später über das netzwerk Sound versenden nur weiss ich nit wie ich das mit den Streams mache!

Bitte um Hilfe!

Delphi-Quellcode:

procedure TForm1.ACMWaveIn1Data(data: Pointer; size: Integer);
VAR Stream:TMemorystream;
    Speicher:Pointer;
    Grösse:Integer;
begin
  Stream:=TMemorystream.Create;
  // In diesem Bereich muss etwas falsch sein
  Stream.WriteBuffer(Data,Size);
  Stream.Position:=0;
  Stream.ReadBuffer(Speicher,Grösse);
  //
  ACMWaveOut1.PlayBack(Speicher,Grösse);
end;

@wardz