fpc/fcl/win32/resolve.inc

uses winsock;

Type
  PHostEntry = PHostEnt;
  PNetEntry = PNetEnt;
  PServEntry = PServEnt;

Const
  DNSErr : Integer = 0;

function getnetbyname ( Name : pchar) : PNetEntry;

begin
  DNSErr:=-1;
  Result:=Nil;
end;

function getnetbyaddr ( Net : Longint; nettype : Longint) : PNetEntry;

begin
  DNSErr:=-2;
  Result:=Nil;
end;

Function GetDNSError : Longint;

begin
  If DNSErr<>0 then
    begin
    GetDNSError:=-DNSErr;
    DNSErr:=0;
    end
  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;