How can I catch and handle "could not bind socket" errors on server start?

[rgreat]

StanAlone.

[irigsoft]

4 minutes ago, rgreat said:

StanAlone.

Hello, I use this to bind socket:

function PortAvailable(Port:STring):boolean;
var
  svr : TTCPBlockSocket;
begin
  svr := TTCPBlockSocket.Create;
  try
    svr.Bind('0.0.0.0',Port);
    svr.Listen;
    result := svr.LastError = 0;
    Svr.CloseSocket;
  finally
    svr.Free;
  end;
end;
 

 

procedure TUniServerModule.UniGUIServerModuleBeforeInit(Sender: TObject);
begin

//check port usage
if (not PortAvailable (YourServerPort)) then begin
    UniServerModule.Terminated := True;
    Application.Terminate;
    exit;
end;

end;

[rgreat]

Well, that's kind of walk around approach, but thanks for idea.

I was hoping for a more conventional approach.  

[irigsoft]

10 minutes ago, rgreat said:

Well, that's kind of walk around approach, but thanks for idea.

I was hoping for a more conventional approach.  

at this moment I know, only this way. If you find another one, could you please share it