Hi Richi!
Ich glaub mich zu erinnern dass ich mal dasselbe Problem hatte,
als ich in
Indy eingestiegen bin.....
Der Grund liegt wahrscheinlich darin, dass der Server von Grund auf keine Bindungen
anlegt (da ist ihm der "DefaultPort" auch ziemlich egal!)
Darum nimmt er keine Verbindungen an.
Versuch doch mal folgende Initialisierung des TIdTCPServers
(angenommen er heißt "TCPServer"):
procedure TMainForm.InitServer;
var
ABinding: TIdSocketHandle;
begin
TCPServer.Active := False; { Server inaktiv setzen sonst können keine Bindungen angelegt werden! }
{ Bindung(en) anlegen (auf diese
IP / Port "hört" der Server) }
ABinding := TCPServer.Bindings.Add;
ABinding.IP := '127.0.0.1'; { Bindung auf
Localhost }
ABinding.Port := 85; { Port = 85 }
TCPServer.Active := True; { Server aktiv setzen }
end;
Vielleicht klappts!
lg
Tommiii