Hallo!
Ich habe folgenden Code: (Code liegt in einem Datenmodul)
Delphi-Quellcode:
procedure TMailConnectionDataModule.POP3ServerStart;
var
Binding : TIdSocketHandle;
intIndex: Integer;
strTemp :
String;
begin
if not POP3ServerIsRunning
then // Wenn der Server noch nicht gestartet ist, Bindings laden
begin
try
POP3Server.Active := True;
POP3Server.DefaultPort := 9099;
POP3Server.Bindings.Clear;
for intIndex := 0
to gvLstPOP3ServerBindings.Count - 1
do
begin
Binding := POP3Server.Bindings.Add;
strTemp := gvLstPOP3ServerBindings.Strings[intIndex];
Binding.IP := '
127.0.0.1';
//copy(strTemp,0,(Pos(strTemp,';')-1));
Binding.Port := 9099;
//StrToInt(strTemp);
AddLog('
Server bound to IP ' + Binding.IP + '
on port ' + IntToStr(Binding.Port));
end;
except
on E :
Exception do
begin
AddLog('
Server not started: ' + E.
Message)
end;
end;
end;
end;
Wenn ich nun in der Main-
Unit "MailConnectionDataModule.POP3ServerStart" aufrufe läuft der Compiler der Code zwar durch, und der Server ist auch Activ, aber ich kann den Server über den Port 9099 an
localhost nicht ansprechen.
Wenn ich nun aber wiederum die Server-Komponente auf das HauptFormular packe, dann kann ich den server erreichen...
Ich verstehe nicht, was ich falsch mache...
Schon mal vielen Dank im Voraus!
Gruß,
Steffen