Indy UDP Server Recieve als Byte Array

[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