Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi TIdTcpServer dynamisch OnExecute zuweisen.... (https://www.delphipraxis.net/78839-tidtcpserver-dynamisch-onexecute-zuweisen.html)

zwaem86 11. Okt 2006 22:09


TIdTcpServer dynamisch OnExecute zuweisen....
 
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

DP-Maintenance 11. Okt 2006 22:14

DP-Maintenance
 
Dieses Thema wurde von "Christian Seehase" von "Internet / LAN / ASP.NET" nach "Object-Pascal / Delphi-Language" verschoben.
Ein Problem mit der Sprache Delphi als solcher

Zacherl 11. Okt 2006 22:29

Re: TIdTcpServer dynamisch OnExecute zuweisen....
 
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 11. Okt 2006 22:39

Re: TIdTcpServer dynamisch OnExecute zuweisen....
 
Daaaaaaaaaaaaankeeeeeeeeeeee......................

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

gruß zwaem86

Christian Seehase 11. Okt 2006 23:07

Re: TIdTcpServer dynamisch OnExecute zuweisen....
 
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 :gruebel: ;-))


Alle Zeitangaben in WEZ +1. Es ist jetzt 12:28 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz