UDP-Daten manipuliert gesendet..

[Rifman]

Hallo,
ich habe folgendes Problem; es werden Binäre Daten per UDP gesendet,und zwar der richtige Anzahl an Bytes aber der Inhalt ist falsch , anstatt $013141, wird jedesmal was anderes gesendet mal $e025d5 mal 50c2d5 mal 2e5dd5...
der Code sieht folgendermaßen aus:

Delphi-Quellcode:

var  
  stream : TStringStream; 
  s:String; 
begin  
  try   
  stream := TStringStream.Create('');  
  stream.WriteBuffer(Buffer[0], sizeof(buffer));    
  s := stream.DataString; 
  UDPServer.SendBuffer(IP_Adresse,UDP_PORT, s, stream.Size);         
  finaly 
   stream.Free; 
  end;

Buffer ist so definiert

Delphi-Quellcode:

 
const  
Buffer :array[0..2] of byte = ( $01,  
                                $02,  
                                $03 );

Wieso werden die Bufferdaten denn manipuliert?

Danke

[Dani]

Funktioniert das?
UDPServer.SendBuffer(IP_Adresse,UDP_PORT, s[1], Length(s));

[Rifman]

Vielen Dank, es hat funktioniert