das funktioniert nicht? Und du hast es so übernommen (x als pointer oer ppointer)?
Naja, mit Header ist es etwas anders
Delphi-Quellcode:
type PPaket=^TPaket;
TPaket=packed record
headerinfo1:integer; //oder sonst irednetwas,
headerinfo2:byte;
//...
//können auch mehrere nichtdynamische Variablen sein
data:array[0..0] of byte;
end;
//Senden einer festen Paketgröße (nur Beispiel; kann auch sein, dass du es anders machen musst)
var Paket:PPaket;
size:integer;
begin
size:=50; //Größe der Datenpakete evtl. festlegen
getmem(Paket,sizeof(TPaket)+size);
stream.Read(Paket^.data,size);
Paket^.headerinfo1:=size; //z.b.,
//...oder was eben in den Header so alles gehört
idudpserver1.SendBuffer('127.0.0.1',2000,Paket^,sizeof(TPaket)+size);
freemem(Paket);
end;