+ Added init/final routines to initialize winsock library

fcl/inc/resolve.pp

@@ -636,12 +636,19 @@ begin
   Result:=ShortHostToNet(FPort);
 end;
 
-
+Initialization
+  InitResolve;
+  
+Finalization
+  FinalResolve;
 
 end.
 {
    $Log$
-   Revision 1.1  2003-02-01 16:50:38  michael
+   Revision 1.2  2003-02-03 10:14:12  michael
+   + Added init/final routines to initialize winsock library
+
+   Revision 1.1  2003/02/01 16:50:38  michael
    + Added resolve unit for WIndows/unix
 
 }

fcl/win32/resolve.inc

@@ -34,3 +34,18 @@ begin
   else
     GetDNSError:=0; // Must get win32 error ?  
 end;
+
+Function InitResolve : Boolean;
+
+var 
+   wsaData : TWsaData;
+
+begin
+  Result:=WSAStartup(1,wsaData)=0;
+end;
+
+Function FinalResolve : Boolean;
+
+begin
+  Result:=True;
+end;