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

[Rifman]

Hallo zusammen,
ich muss erstmal sagen, dass ich ein neuling in Delphi-Welt bin.
meine Frage ist, wie kann ich binäre Daten in einem String-Buffer senden?
UDPServer.SendBuffer(AHost:String;APort:String,AData:String,Length:Integer); wie ihr sieht, die Indy-Funktion erwartet hier ein String-Parameter, wie kann ich binäre Daten darein schreiben?
Danke!

[sx2008]

Delphi-Quellcode:

var
 data:sring;
begin
 data := #27#0#0#255;  // binäre Daten
 data := data +Chr(15)+Chr(x); // so geht's auch

[Rifman]

Danke für deine Antwort.
Aber muss man jedes Byte manuell reinschreiben, gibt es keine andere Lösung, was ist wenn ich z.B. ein ganze "array[0..512] of byte" darein kopieren will?

Danke.

[sx2008]

Zitat von Rifman:

Aber muss man jedes Byte manuell reinschreiben, gibt es keine andere Lösung, was ist wenn ich z.B. ein ganze "array[0..512] of byte" darein kopieren will?

Du kannst auch kopieren; man muss dann aber etwas aufpassen, denn dann wird's Low-Level & "Hardcore"

Delphi-Quellcode:

var
  buffer:array[0..511] of Byte;
  s : string;
begin
  // angenommen in buffer sind schon Daten
  SetLength(s, sizeof(buffer));  // Speicher reservieren
  // jetzt wird's Tricky
  // Move() nimmt eigentlich zwei Zeiger für Quelle und Ziel entgegen
  // man muss bei einem Array das 1. Element angeben
  // bei einem String beginnt die Zählung bei 1
  Move(buffer[0], s[1], sizeof(buffer));

Man muss bei Move() genau aufpassen, was man tut, sonst ist der Speicher kaputt -> Absturz droht
Am Besten, man verwendet nur AnsiStrings als Puffer für binäre Daten.
Das ist angenehmer als diese array of Byte.

[Rifman]

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

[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!

[Rifman]

Sorry für die blöde Frage, der Kompiler findet diesen Fehler "nicht genügend wirkliche Parameter "
und zeigt auf diese Zeile:
stream := TStringStream.Create; Habe ich etwa was vergessen?

[sx2008]

Zitat von Rifman:

Sorry für die blöde Frage, der Kompiler findet diesen Fehler "nicht genügend wirkliche Parameter "
und zeigt auf diese Zeile:
stream := TStringStream.Create;

Achja, TStringStream will im Konstruktor einen Initialisierungswert haben:
stream := TStringStream.Create(''); // mit Leerstring erzeugen

[Rifman]

Super, jetzt zeigt er diesen Fehler nicht mehr aber diesen:
[Fehler] MPDLOG_MAIN.pas(324): Konstantenobjekt kann nicht als Var-Parameter weitergegeben werden
Im Bezug auf die 2.Zeile:

Delphi-Quellcode:

StreamBuffer.WriteBuffer(Bin_Buffer[0], 3);
UDPServer.SendBuffer(IP_Adresse,UDP_PORT,StreamBuffer.DataString,3);

Bin_Buffer ist so definiert:

Delphi-Quellcode:

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

Ich danke dir vielmals für deine Hilfe.

[Rifman]

Ich habe das Problem gelöst, und zwar ich habe stream.DataString in eine String-Variable zwischengespeichert und sie als Parameter übergegeben.
Jetzt werden die Daten gesendet nur das Problem ist, dass der Inhalt Falsch ist.