Konsolenprogramm: EventHandler definieren

[Aenogym]

hi ihr,

ich schreibe gerade ein konsolenprogramm und erstelle dynamisch einen TServerSocket.
jetzt möchte ich gern auf das event OnClientConnect reagieren. mein code dazu:

Delphi-Quellcode:

unit... uses... type......;

var TCPServer: TServerSocket;

procedure TCPServer_OnClientConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
  writeln('clientconnect ');
end;

begin
  TCPServer := TServerSocket.Create(nil);
  TCPServer.OnClientConnect := TCPServer_OnClientConnect;
end;

bei der letzten zeile bekomme ich jedoch den fehler "Inkompatible typen: 'Methodenzeiger und reguläre Prozedur'".

die OH verrät mir auch nur, wie ich events per objektInspektor definiere...
was muss ich also tun, damit es funktioniert?

danke wie imemr im voraus
aeno

[DGL-luke]

ist es denn richtig deklariert? schau mal, wies in ner vcl-form-app wäre.

und übernimms dann einfach entsprechend. es sei denn, das ist deine vorgehensweise. bei mir hats aber so wies bei dir steht meist gefunzt.

[Aenogym]

ja, laut OH ist das event so definiert:

Delphi-Quellcode:

type TSocketNotifyEvent = procedure (Sender: TObject; Socket: TCustomWinSocket) of object;

//type TServerSocket...
property OnClientConnect: TSocketNotifyEvent;

genauso

aeno

[retnyg]

der event-handler muss mitglied einer klasse sein, wie's geht steht hier: http://www.delphi-forum.de/viewtopic...ighlight=dummy

[Aenogym]

Zitat von retnyg:

der event-handler muss mitglied einer klasse sein, wie's geht steht hier: http://www.delphi-forum.de/viewtopic...ighlight=dummy

dankeschön! dann werd' ich jetzt mal eine dummyclass für meine events erstellen
aeno

[Muetze1]

Moin!

Und um nicht die Dummy Class instanzieren zu müssen (was in dem Link anscheinend überhaupt nicht gemacht wird...), einfach Class Procedure nutzen...

MfG
Muetze1