dnswin init must be called from lcoreinit to support NT service

[lcore.git] / lsocket.pas

diff --git a/lsocket.pas b/lsocket.pas
index 72ef891b2966e0d6e8e0985f2107f987d9d2ffe4..6a1ce0be96b19ea5607b76cc35568de8abcd64a2 100755 (executable)
--- a/lsocket.pas
+++ b/lsocket.pas
@@ -449,6 +449,9 @@ begin
           \r
         end;\r
       end;\r
+    {$else}\r
+      SetSockOpt(fdhandlein, SOL_SOCKET, SO_REUSEADDR, 'TRUE', Length('TRUE'));\r
+\r
     {$endif}\r
     localaddr := addr;\r
     localport := port;\r
@@ -587,7 +590,7 @@ begin
       destx := {$ifdef win32}winsock.pSockAddr{$else}pInetSockAddrV{$endif}(@dest)\r
     end;\r
   {$else}\r
-    destx := {$ifdef win32}winsock.pSockAddr{$else}pInetSockAddrV{$endif}(@dest)\r
+    destx := {$ifdef win32}winsock.pSockAddr{$else}pInetSockAddrV{$endif}(@dest);\r
   {$endif}\r
 \r
   result := {$ifdef win32}winsock.sendto{$else}system_sendto{$endif}(self.fdhandleout,data^,len,0,destx^,destlen);\r