Hallo!

Ich habe folgenden Code: (Code liegt in einem Datenmodul)

zusammenfalten · markieren

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

Hast Du schon mal versucht, erst die Bindings zu setzen und dann den Server auf Active zu setzen?

Hast Du schon mal versucht, erst die Bindings zu setzen und dann den Server auf Active zu setzen?