浏览代码

+ Added init/final routines for windows compatibility

michael 22 年之前
父节点
当前提交
bb231816e9
共有 1 个文件被更改,包括 12 次插入10 次删除
  1. 12 10
      fcl/unix/resolve.inc

+ 12 - 10
fcl/unix/resolve.inc

@@ -1,12 +1,3 @@
-{$ifdef win32}
-  uses winsock;
-
-Function GetDNSError : Longint;
-
-begin
-  GetDNSError:=0;
-end;
-{$else}
 const
   { Net type }
   socklib = 'c';
@@ -75,4 +66,15 @@ function getservbyport (port : longint; protocol : pchar) : PServEntry; cdecl; e
 
 var
   GetDNSError : longint;external socklib name 'h_errno';
-{$endif}
+
+Function InitResolve : Boolean;
+
+begin
+  Result:=True;
+end;
+
+Function FinalResolve : Boolean;
+
+begin
+  Result:=True;
+end;