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