UDPSendBuffer(indy9): Binäre Daten in String buffer Senden?

[sx2008]

Zitat von Rifman:

Noch eine Frage, kann man das irgendwie nicht mit TStringStream machen? das wäre vielleicht sicherer was Bereichsprüfung angeht oder?

Ja, das geht auch:

Delphi-Quellcode:

var
  stream : TStringStream;
begin
  stream := TStringStream.Create;
  stream.WriteBuffer(buffer[0], sizeof(buffer));  // buffer ist ein array of byte


  // jetzt kann man
  UDPServer.SendBuffer(AHost:String;APort:String; stream.DataString, stream.Size);

  // oder vielleicht noch eleganter
  stream.Position := 0; // Achtung: Stream muss auf Anfang gesetzt werden
  UDPServer.SendStream(AHost,APort:String, stream);

  stream.Free;  // nicht vergessen!