UDP Broadcast: Fehler bei OnUDPRead

[Bummi]

versuch mal

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

[Gargamel]

Geht ebenfalls nicht. Es erscheint die gleiche Fehlermeldung.

[Bummi]

Sorry, ich bin falsch abgebogen:

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

[Gargamel]

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

[Gargamel]

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:

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];

[TERWI]

Ich muss diesen Steinzeit-Thread noch mal hoch holen....

Gleiches Prob tat sich hier auch auf.
Ich auch ne Klasse nach der gleichen Art gebastelt und die Funktionszuweisung an OnUDPRead will einfach nicht.

"Incompatible Types: Parameter lists differ"

Also mal den Trick wie vor probiert -> Immer noch das gleiche Gemecker.

Verstehe eigentlich gar nicht warum.
Hatte den ganzen Code vorher in einer Form - nun in einer Klasse.
In der Form wird ja auch auf Doppelklick bei OnUDPRead entsprechende procedure generiert und alles läuft prima.

Bevor Fragen kommen: Delphi7 und Indy 10_5339.

[hoika]

Hallo,
mach mal ein Minimal-Beispiel.


Heiko