Indy UDP Server Recieve als Byte Array

[-TheCoke-]

Hallo!


Ist es möglich den Inhalt eines empfangenen UDP Packets in einem Byte Array zu speichern?

Das benutze ich momentan um den Inhalt als String zu bekommen.. Aber wie gesagt, ich bräuchte ein Byte Array in dem dann die einzelnen Zeichen als Hex Wert frin stehen:

Delphi-Quellcode:

procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
  ABinding: TIdSocketHandle);
var
  Text: string;
  StrStream: TStringStream;
begin
  StrStream := TStringStream.Create('');
  try
    StrStream.CopyFrom(AData, AData.Size);
    Text := StrStream.DataString;
  finally
    StrStream.Free;
  end;
end;

Gruß,
Coke

[ich2]

servus...

also so habe ich das einmal gelöst gehabt:

Delphi-Quellcode:

    

procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
  ABinding: TIdSocketHandle);
var
  InCommand: array [ 0..2047 ] of Byte;
begin
  // lesen der daten in ein array

  AData.Read ( InCommand, AData.Size );

  // auswerten der Daten
  if InCommand [ 0 ] = $00 then begin
    mache irgendwas
  end;
end;

mfg

[-TheCoke-]

Danke .. Das war genau das was ich gesucht habe..

Wenn ich den Inhalt jetzt in der Variable InCommand habe... Wie kann ich dann hinterher den inhalt von InCommand in einen String umwandeln?

Coke