Delphi-Cross-Socket
Delphi-Cross-Socket copied to clipboard
建议增加SO_REUSEPORT,SO_REUSEADDR在linux下多开进程是无效的
class function TSocketAPI.SetReUsePort(const ASocket: THandle; const AReReUsePort: Boolean): Integer; const SO_REUSEPORT = 15; var LOptVal: Integer; begin if AReReUsePort then LOptVal := 1 else LOptVal := 0; Result := TSocketAPI.SetSockOpt(ASocket, SOL_SOCKET, SO_REUSEPORT, LOptVal, SizeOf(Integer)); end;