Okay wir sind jetzt ganz wo anders, aber ich wollte keine neue Topic aufmachen, weil das mit dem gleichn zutun hat...
Delphi-Quellcode:
program Neon;
uses
Forms,
IdBaseComponent,
IdComponent,
IdTCPConnection,
IdTCPClient,
IdTCPServer,
Classes,
Controls;
{$R *.res}
var
TcpClient: TIdTcpClient;
TcpServer: TIdTcpServer;
Buffer:
String;
procedure ServerExec(AThread: TIdPeerThread);
begin
//Der Server wurde aufgerufen
end;
begin
//StartUp, anschalten der Tcp's
TcpClient := TIdTcpClient.Create(Application.Owner);
//Client erstellen
TcpClient.Port := 18754;
//Port festlegen
TcpServer := TIdTcpServer.Create(Application.Owner);
//Server erstellen
TcpServer.DefaultPort := 18754;
//Port festlegen
TcpServer.Active := true;
//Server starten
//Events setzen
TcpServer.OnExecute := ServerExec;
//Hier ist der Fehler
//Anlaufen der DauerSchleife
while not Application.Terminated
do begin
end;
end.
Ich erhalte eine Fehlermeldung:
[Fehler] Neon.dpr(36): Inkompatible Typen: 'Methodenzeiger und reguläre Prozedur'
was ist da falsch?