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:

zusammenfalten · markieren

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

servus...

also so habe ich das einmal gelöst gehabt:

zusammenfalten · markieren

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

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