TIdTcpServer dynamisch OnExecute zuweisen....

[zwaem86]

Hallo Leudz,

ich steh aufm Schlauch...........
Das ist nicht das erste mal, dass ich dynamisch Ereignisse irgendwo anhänge....
Aber anscheinend seh ich den Wald vor lauter Bäumen net.......

Kann mir bitte einer nen Tipp geben??????????

(Dies wird ein Hintergrundprozess)

Delphi-Quellcode:

program Server;

//{$APPTYPE CONSOLE}

uses
  SysUtils, IdTCPServer, Forms;

procedure ServerExecute(AThread: TIdPeerThread);
begin
  //todo
end;

var
  ServerSocket: TIdTCPServer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  ServerSocket.Create(Application);

  ServerSocket.Active       := True;
  ServerSocket.DefaultPort  := 6000;
  ServerSocket.OnExecute    := ServerExecute; //hier kommt die Fehlermeldung
end.

Compiler- Fehlermeldung: Incompatible Typs 'method pointer and regular method'

Greetziiii...
Euer zwaem86

[Zacherl]

Die Procedure muss Inhalt eines Objektes sein ... z.B. könntest du die Procedure unter der public Deklaration von TForm1 deklarieren, oder aber du definierst ein neues ansonsten leeres von TObject abgeleitetes Object, welchem du die Procedure implementiertst.

[zwaem86]

Daaaaaaaaaaaaankeeeeeeeeeeee......................

Weiß zwar net wieso aba geht............

gruß zwaem86

[Christian Seehase]

Moin zwaem86,

und wenn Du nicht erst eine Instanz des Objektes erzeugen willst, deklarierst Du die Prozedur als Klassenmethode.

(das hatten wir doch gerade erst alles )