Delphi-PRAXiS - Einzelnen Beitrag anzeigen

**himitsu**

Arbeitet MOVE nicht mit Pointern?

Code:

			procedure TForm1.UDPSendMyRecord(ip : string; SomeRecord: TUDPPacket); 

var  dummy : Tbytes; 

begin 

     setlength(dummy, sizeof(SomeRecord)); 

     move([color=#ff0000]@[/color]SomeRecord, [color=#ff0000]@[/color]dummy[0], sizeof(someRecord)); 

     form1.IdUDPClient1.Host := ip; 

     form1.IdUDPClient1.SendBuffer(dummy); 

end;

und zurück dann

markieren

Code:

			     // setlength wird nicht benötigt

     move([color=#ff0000]@[/color]dummy[0], [color=#ff0000]@[/color]SomeRecord, sizeof(someRecord));

(Pointer ist nur so 'ne Vermutung...)

Einzelnen Beitrag anzeigen

Re: Daten reinpacken in Tbytes...