Einzelnen Beitrag anzeigen

zwaem86

Registriert seit: 4. Jul 2006
16 Beiträge
 
Delphi 7 Professional
 
#1

TIdTcpServer dynamisch OnExecute zuweisen....

  Alt 11. Okt 2006, 22:09
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
http://home.arcor.de/opencomedy/Bilder/161.jpg
Nichts auf der Welt ist so gerecht verteilt wie der Verstand. Denn jedermann ist überzeugt, dass er genug davon habe.
(Rene Descartes, fr. Mathematiker u. Philosoph, 1596-1650)
  Mit Zitat antworten Zitat