IdTCPServer zur Laufzeit erstellen..

[monty.ms]

Guten Abend

Habe mal wieder ein kleines Problem. Natürlich hab ich auch gleich im Forum was dazu gefunden, aber so richtig hat das dann doch nicht funktioniert:

Delphi-Quellcode:

  private 
      { Private-Deklarationen } 
      procedure ServerExecute(AThread: TIdPeerThread); 
   public 
      { Public-Deklarationen } 
   end; 

var 
   Form1: TForm1; 

implementation 

var TCPServer:array[1..10] of TIdTCPServer; 

{$R *.DFM} 

procedure SetPort(Port:integer); 
begin 
   TCPServer[1] := TIdTCPServer.Create(nil); 
   TCPServer[1].DefaultPort := Port; 
   TCPServer[1].OnExecute := ServerExecute; 
end; 

procedure TForm1.ServerExecute(AThread: TIdPeerThread); 
begin 

end;

Als Fehler bekomme ich immer: Undeclared identifier: 'ServerExecute'

Hat einer ne Idee was ich falsch gemacht habe?

EDIT: Sry, hatte versehentlich den falschen Code drinne.

Danke schonmal.

[marabu]

Guten Morgen,

weil deine Prozedur SetPort() keine Methode der Form TForm1 ist, musst du den event handler mit seinem qualifizierten Namen zuweisen:

Delphi-Quellcode:

procedure SetPort(Port: Integer);
begin
  TCPServer[1] := TIdTCPServer.Create(nil);
  TCPServer[1].DefaultPort := Port;
  TCPServer[1].OnExecute := Form1.ServerExecute;
end;

Alternativ kannst du die Prozedur SetPort() auch zu einer Methode der Form machen.

Neujahrsgrüße vom marabu

[monty.ms]

Danke, es geht :)