hi
erstmal der code:
Delphi-Quellcode:
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils, IdTCPServer;
type
TTCPServer = class
private
IdTCPServer: TIdTCPServer;
procedure IdTCPServerOnExecute;
public
constructor Create; reintroduce;
end;
var
mread: String;
constructor TTCPServer.Create;
begin
IdTCPServer := TIdTCPServer.Create(nil);
IdTCPServer.DefaultPort := 3724;
IdTCPServer.MaxConnections := 100;
IdTCPServer.OnExecute := IdTCPServerOnExecute;
IdTCPServer.Active := True;
end;
begin
with TTCPServer.Create do
try
writeln( 'running, press [enter] to terminate' ) ;
readln(mread);
finally
free;
end;
end.
fehler:
[Pascal Error] Project1.dpr(25): E2009 Incompatible types: 'Parameter lists differ'
[Pascal Error] Project1.dpr(12): E2065 Unsatisfied forward or external declaration: 'TTCPServer.IdTCPServerOnExecute'
problem: ich verstehe dieses OnExecute nicht, laut hilfe ist das ne properity so wie ich gelesen habe, allerdings finde ich im inet beispiele wo das ein event ist (was ich auch denke). wie gehe ich mit OnExecute und den restlichen Events um?