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

[Jens Schumann]

Hallo,
das versenden von Streams über's Netz geht mit TWinSocketStream.

[ATwardz]

Ja, das weiss ich, dann habe ich vielleicht etwas falsch ausgedrückt!
Wie man Streams versendet das ist mir bekannt und das weiss ich aber wie lese ich einsfach einen Pointer ein und wieder aus?

@wardz

[mischerr]

Muss "Speicher" nicht zuerst mit GetMem Speicher zugewiesen werden?
Wohin zeigt denn "Speicher" beim Aufruf von "ReadStream(Speicher..."?

Gruss, Micha

[stoxx]

vielleicht hilft Dir dieses kleine Beispiel ?

Code:

procedure TForm1.Button1Click(Sender: TObject);
var m : TMemorystream;

   p : ^ byte;
   bytecount : DWORD;
   i : integer;
   puffer : string;
begin


m := Tmemorystream.Create;
m.SetSize(5);
puffer := 'HALLO';


p := m.Memory;
bytecount := m.Size;

for i := 0 to bytecount -1 do
begin
 p^ := ord ( puffer[i+1]);
 inc(p);
end;



p := m.Memory;

for i := 0 to bytecount -1 do
begin
  showmessage(  Char(p^) +  ' ' + inttostr(p^) );
  inc(p);
end;


m.SaveToFile('test.txt');
m.Free;

end;

[SirThornberry]

Willst du den Pointer speichern (was ich mir nicht vorstellen kann) oder die daten auf die der Pointer zeigt?