eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

WaitInit now sets SO_REUSEADDR

This commit is contained in:
mysticbbs 2012-03-12 02:03:20 -04:00
parent 0939cd3062
commit 1e3c476819
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
mdl/m_socket_class.pas
View File

@ -487,9 +487,14 @@ End;
Procedure TSocketClass.WaitInit (Port: Word); Procedure TSocketClass.WaitInit (Port: Word);
Var Var
SIN : TINetSockAddr; SIN : TINetSockAddr;
Opt : LongInt;
Begin Begin
FSocketHandle := fpSocket(PF_INET, SOCK_STREAM, 0); FSocketHandle := fpSocket(PF_INET, SOCK_STREAM, 0);
Opt := 1;
fpSetSockOpt (FSocketHandle, SOL_SOCKET, SO_REUSEADDR, @Opt, SizeOf(Opt));
SIN.sin_family := PF_INET; SIN.sin_family := PF_INET;
SIN.sin_addr.s_addr := 0; SIN.sin_addr.s_addr := 0;
SIN.sin_port := htons(Port); SIN.sin_port := htons(Port);