Events in Pascal Projekt?

[cchris]

Hi,

ich würde gerne einen kleinen SMTP Daemon mit Indys schreiben, das ganze soll ohne Form laufen, daher hab ich ein Pascal Projekt erstellt, also soll ne Konsolenanwendung werden...
Das ganze sieht bis jetzt so aus:

Code:

var Socket:TIdSMTPServer;

procedure LoginEvent(ASender: TIdSMTPServerContext; const AUsername, APassword: string; var VAuthenticated: Boolean);
begin
writeln(AUsername);
writeln(APassword);
end;

procedure ConnectEvent (AContext:TIdSMTPServerContext);
begin
writeln('Connection coming in...');
end;

begin
Socket:=TIdSMTPServer.Create;
Socket.DefaultPort:=25;
Socket.ServerName:='********';
Socket.OnUserLogin:= @LoginEvent;
Socket.OnConnect:= @ConnectEvent;
Socket.Active := true;
repeat
Application.ProcessMessages;
until keypressed;
end.

2 Probleme: Erstens, das mit dem Events registrieren funktioniert noch net, ich soll net nen Prozedurzeiger übergeben sondern ne Prozedurvariable, wie mach ich das? Und 2. Problem, das was ich aus der Programmierung mit Forms kenne mit Application.ProcessMessages funzt auch net, da Application gar net da ist, muss ich dafür noch ne zusätzliche Unit einbinden oder einfach noch Application:TApplication; Application:=TApplication.Create; hin schreiben?

cYa cchris

ps: hoffe das ist das richtige forum

[mkinzler]

Eventbehandlungsroutinen müssen Methoden sin.

[cchris]

soll ich dann dadraus

Code:

type mysocket = class(TIdSMTPServer)
    procedure ConnectEvent (AContext:TIdSMTPServerContext);
    end;
var Socket:mysocket;

Oder wie? Weil normalerweise werden ja standartmäßig alle Events auf Methoden des Formulars gelenkt...
Wenn jemand da mal nur nen gaanz kurzen Code-Schnipsel schreiben könnte, wie er für das Event OnConnect (Prozedurparamter stimmen so wie ich sie hab) nen Event erstellt und registriert, dann wär ich ihm äußerst dankbar, weil ich das bis jetzt noch nie gemacht hab.

[mkinzler]

Es kann aber jede beliebige Klasse sein.

[cchris]

hab jetzt erstmal das gemacht:
[code]type
mySocket=class(TIdSMTPServer)
procedure ConnectEvent (AContext:TIdSMTPServerContext);
end;

var
Socket:mysocket;

procedure mySocket.ConnectEvent(AContext:TIdSMTPServerContex t);
begin
writeln('Connected...');
end;[code]

Aber was schreib ich jetzt bei Socket.OnConnect:= dahinter? Weil wenn ich einfach die Prozedur normal dahinter schreibe, dann wird sie ja normal ausgeführt, oder :?:

Sry, bin etwas verwirrt....

[mkinzler]

Delphi-Quellcode:

Self.ConnectEvent;

[cchris]

hab jetzt:

Code:

type
   mySocket=class(TIdSMTPServer)
      procedure ConnectEvent (AContext:TIdSMTPServerContext);
   end;

var
   Socket:mysocket;

procedure mySocket.ConnectEvent(AContext:TIdSMTPServerContext);
begin
writeln('Connected...');
end;

begin
Socket:=mysocket.Create;
Socket.DefaultPort:=25;
Socket.ServerName:='...';
Socket.OnConnect:= Self.ConnectEvent;
Socket.Active := true;
...
end.

Das ganze wird quittiert mit: "Error: Identifier not found "Self""
Iwas mach ich da wohl verkehrt... :wall:

Das Self. durch Socket. oder MySocket. zu ersetzen bringt auch nichts, dann meckert der Compiler, dass die Anzahl der Parameter nicht stimmt...

[mkinzler]

Außerhalb der Klasse:

Delphi-Quellcode:

Socket.OnConnect:= Socket.ConnectEvent;

[cchris]

Wie gesagt, das geht auch nicht, wenn ich das versuche (was ich schon hatte :wink:) dann kommt die Meldung, dass nicht genügend Parameter angegeben seien, aber ich will ja die Methode net sofort ausführen sondern blos "binden"...

[mkinzler]

Versuch es mal mit einer Hilfs(-Event-)Klasse