resolve.inc 690 B

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051
  1. uses winsock;
  2. Type
  3. PHostEntry = PHostEnt;
  4. PNetEntry = PNetEnt;
  5. PServEntry = PServEnt;
  6. Const
  7. DNSErr : Integer = 0;
  8. function getnetbyname ( Name : pchar) : PNetEntry;
  9. begin
  10. DNSErr:=-1;
  11. Result:=Nil;
  12. end;
  13. function getnetbyaddr ( Net : Longint; nettype : Longint) : PNetEntry;
  14. begin
  15. DNSErr:=-2;
  16. Result:=Nil;
  17. end;
  18. Function GetDNSError : Longint;
  19. begin
  20. If DNSErr<>0 then
  21. begin
  22. GetDNSError:=-DNSErr;
  23. DNSErr:=0;
  24. end
  25. else
  26. GetDNSError:=0; // Must get win32 error ?
  27. end;
  28. Function InitResolve : Boolean;
  29. var
  30. wsaData : TWsaData;
  31. begin
  32. Result:=WSAStartup(1,wsaData)=0;
  33. end;
  34. Function FinalResolve : Boolean;
  35. begin
  36. Result:=True;
  37. end;