blob: 2ee0803667acd92a9873cecd1635637d0f7b3b29 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
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;
|
