So verknüpfen Sie das OnUDPRead-Ereignis

Question

Ich kann das OnUDPRead-Ereignis nicht mit IdUDPServer verknüpfen.

-Code lautet wie folgt:

uses 
    System.SysUtils, IdUDPServer, IdGlobal, IdSocketHandle, Classes; 

var 
    udp: TIdUDPServer; 
    buffer: TIdBytes; 
    myBinding: TIdSocketHandle; 

procedure UDPRead (Sender: TObject; AData: TStream; ABinding: TIdSocketHandle); 
    var 
    bytes_received: integer; 
    begin 
    bytes_received:= AData.size; 
    end; 

begin 
    myBinding := udp.Bindings.Add; 
    myBinding.IP := '0.0.0.0'; 
    myBinding.Port := 5100; 

    udp.OnUDPRead := UDPRead; // Error occurs here 
    udp.Active := True; 
end. 

ich die Fehlermeldung erhalten:

[dcc32 Error] ACUR401_20170802_UDPServer.dpr(16): E2029 ';' expected but 'OF' found 
[dcc32 Error] ACUR401_20170802_UDPServer.dpr(28): E2009 Incompatible types: 'method pointer and regular procedure' 

ich meine Schwierigkeiten glauben ist, dass ich nicht in der Lage bin, die Eventhandler dem Verfahren zu verbinden.

Answer 1

Sie müssen der Eigenschaft OnUDPRead eine passende Objektmethode zuweisen. Was Sie zugewiesen haben, ist ein reguläres Verfahren. Tun Sie etwas wie dieses:

type 
    TMyObject = class 
    public 
    procedure UDPRead(AThread: TIdUDPListenerThread; AData: TIdBytes; 
     ABinding: TIdSocketHandle); 
    end; 

{ TMyObject } 

procedure TMyObject.UDPRead(AThread: TIdUDPListenerThread; AData: TIdBytes; 
    ABinding: TIdSocketHandle); 
var 
    Received: Integer; 
begin 
    Received := Length(AData); 
    ... 
end; 

var 
    MyObject: TMyObject; 
    MyServer: TIdUDPServer; 
    MyBinding: TIdSocketHandle; 
begin 
    MyServer := TIdUDPServer.Create(nil); 
    try 
    MyBinding := MyServer.Bindings.Add; 
    MyBinding.IP := '0.0.0.0'; 
    MyBinding.Port := 5100; 

    MyObject := TMyObject.Create; 
    try 
     MyServer.OnUDPRead := MyObject.UDPRead; 
     MyServer.Active := True; 
    finally 
     MyObject.Free; 
    end; 
    finally 
    MyServer.Free; 
    end; 
end.