Hi

Ich habe mir eine Klasse geschrieben, um UDPBroadcast zu verwenden. Wenn ich nun dem UDPServer das OnUDPRead-Event zuweisen will, erzeugt der Compiler folgende Fehlermeldung:

E2010 Inkompatible Typen: 'array of Byte' und 'System.TArray<System.Byte>'


Als Hilfe hier noch die Klasse:

zusammenfalten · markieren

Delphi-Quellcode:

TUDPBroadcast = class
  strict protected
    udpClient:TidUDPClient;
    udpServer:TidUDPServer;
    Port:integer;

    BroadText:string;

  public
    constructor Create(thePort:integer);
    destructor Destroy(); override;

    procedure UDPServerRead(Sender: TObject; AData: TidBytes; ABinding: TIdSocketHandle);
    procedure sendBroadcast();
    procedure sendBroadcastEx(bc_text:string);
end;

constructor TUDPBroadcast.Create(thePort:integer);
begin
  BroadText:='irgendwas';
  Port:=thePort;

  udpClient:=TidUDPClient.Create;
  udpClient.Active:=false;
  udpClient.BroadcastEnabled:=true;
  udpClient.Port:=Port;
  udpClient.Active:=true;
  udpClient.ReceiveTimeout:=2000;


  udpServer:=TidUDPServer.Create;
  udpServer.Active:=false;
  udpServer.Name:='UDPServer1';
  udpServer.DefaultPort:=Port;
  udpServer.OnUDPRead:=UDPServerRead; // hier meckert der Compiler

  udpServer.ThreadedEvent:=true;
  udpServer.Active:=true;
end;

versuch mal

procedure UDPServerRead(AThread: TIdUDPListenerThread; AData: TArray<Byte>; ABinding: TIdSocketHandle);

Geht ebenfalls nicht. Es erscheint die gleiche Fehlermeldung.

Sorry, ich bin falsch abgebogen:

 procedure UDPServerRead(AThread: TIdUDPListenerThread; AData: TArray<Byte>; ABinding: TIdSocketHandle);

Schreibe ich statt AData: TArray<Byte>; einfach nur AData: array of byte, meckert der Compiler nicht mehr.
Allerdings funktioniert dann BytesToString(aData,nil) nicht.

Möglicherweise habe ich den Fehler gefunden. Es scheint, laut anderer User, ein Compiler-Fehler zu sein.

TidBytes = TBytes = array of byte

Der Compiler scheint TidBytes wieder auf array of byte zu reduzieren. Deswegen gab es die Probleme bei OnUDPRead. Nimmt man also statt

procedure UDPServerRead(Sender: TObject; AData: TidBytes; ABinding: TIdSocketHandle);

diese Zeile

procedure UDPServerRead(Sender: TObject; AData: array of byte; ABinding: TIdSocketHandle);

meckert der Compiler nicht mehr.
Allerdings will dann die Funktion BytesToString nicht mehr, da diese TidBytes verlangt. Das habe ich dann so gelöst:

markieren

Delphi-Quellcode:

var

idBytes:TidBytes;
num_idBytes:integer;
i:integer;

num_idBytes:=length(AData);
setLength(idBytes, num_idBytes);
for i:=0 to num_idBytes-1 do
   idBytes[i]:=AData[i];