UDP Broadcast: Fehler bei OnUDPRead

[TERWI]

Im Prinzip das gleiche wie von Gargamel in Posting #1.

Code:

typ
  TWSDiscovery = Class
  public
    constructor Create(); // override;
    destructor  Destroy;  override;
    procedure   Send_PROBE(RcvPort : word);
    procedure   Send_HELLO();
    procedure   Send_BYE();
    procedure   Send_PROBE_CHINACAM(RcvPort : word);
  private
    ... div var
    FMethod      : TMethod;
    udpSrv_Lstn  : TIdUDPServer;
    udpSrv_Send  : TIdUDPServer;
    TimeOutTimer : TTimer;
    ...
    procedure udpSrv_LstnRead(AThread  : TIdUDPListenerThread;
                              AData    : TidBytes;
                              ABinding : TIdSocketHandle);
    procedure udpSrv_SendRead(AThread  : TIdUDPListenerThread;
                              AData    : TidBytes;
                              ABinding : TIdSocketHandle);
    procedure TimeOutTimerOnTimer(Sender: TObject);
    ...
  published
    property ...
  end;

constructor TWSDiscovery.Create();
begin
  inherited Create;
  ...
  TimeOutTimer          := TTimer.Create(nil);
  TimeOutTimer.Enabled  := false;
  TimeOutTimer.Interval := 3000;
  TimeOutTimer.OnTimer  := TimeOutTimerOnTimer;
  // create the "listening" server for HELLO & BYE
  udpSrv_Lstn := TIdUDPServer.Create;
  // !!! http://www.delphigroups.info/2/11/215650.html
  FMethod.Data := udpSrv_Send;                    // !!!!
  FMethod.Code := @TWSDiscovery.udpSrv_SendRead;  // !!!!
  with udpSrv_Send do begin                       // !!!!
    Active           := false;
    OnUDPRead        := TUDPReadEvent(FMethod);   // !!!!
//    OnUDPRead        := udpSrv_LstnRead;          // doesnt't work !!!
    Bindings.DefaultPort := WS_PORT_HELLOBYE;
    DefaultPort      := 20001;
    BufferSize       := 4096;
    ThreadedEvent    := true;
    BroadcastEnabled := true;
    Active           := True;
  end;
  // create the server for sending PROBE & listen for PROBEMATCH
  ...
  // das gleiche noch mal
end;

Eigentlich (!?) hab ich schon ne Lösung gefunden - siehe Link im Code bei Create.
Aber A) verstehe ich die auch nicht wirklich und B) geht mir nicht in den Kopf, warum das was in/auf einer Form funktioniert und ausgerechnet "nur" bei der Zuweisung der OnRead-procedure so ein Theater macht. Compilerfehler ?
Die Timer-Sache fnktioniert jedenfalls wie gewohnt.

Es spielt dabei anscheinend auch keine Geige, ob ich die var- und procedure Deklarationen unter private, protected, public oder published packe.

So wie es Remy Lebeau beschrirben hat und es da oben mit dem Umweg über die Zuweisung mit TMehtod steht, funktioniert es.
Sehr eigenartig ....

[himitsu]

Zitat:

// doesnt't work !!!

Was sagt der Compiler? Ich wette da steht der Grund.

[TERWI]

Steht im Post#7

"Incompatible Types: Parameter lists differ"

[himitsu]

Man könnte jetzt natürlich einfach mal auf die Idee kommen und schaut nach, wie OnUDPRead deklariert ist.

[TERWI]

Das passt schon, wie ich es dort in dem Code geschrieben habe.
Indy 9 und 10 sind da leicht unterschiedlich ...

Noch mal zur Verinnerlichung: Ich habe den gesamten Hauptteil aus einer ganz normalen, funktionierenden Form herausgenommen und habe es einfach in eine separate Unit in eine Klasse verpackt.

In der Form geht das wie die Wutz - da hat der Compiler ja auch sogar selbst per Doppelklick die Prozedurdeklaration erstellt !
In der Klasse wird aus der ursprünglichen Dekl. plötzlich ein TUDPReadEvent und der Compiler mault endlos.
Das verstehe ich eben nicht ....

[TERWI]

Keiner eine Idee ?
Ich habs hier nochmal als neuenThread mit erwas mehr text und anderer Erkenntnis gepostet:
http://www.delphipraxis.net/188225-i...onudpread.html

[TERWI]

Problem gelöst !
Siehe hier: http://www.delphipraxis.net/1330094-post2.html

[Neutral General]

Zitat von TERWI:

Problem gelöst !
Siehe hier: http://www.delphipraxis.net/1330094-post2.html

Genau darauf hat dich himitsu quasi hingewiesen. Du solltest gucken wie das OnUDPRead definiert ist.
Dann hättest du gemerkt dass da ein const fehlt.