Browse Source

* netdb: Always return False by GetHostByName() and GetHostByAddr() in the libc implementation.

git-svn-id: trunk@44302 -
yury 5 years ago
parent
commit
8ef8b3bdc0
1 changed files with 4 additions and 2 deletions
  1. 4 2
      packages/fcl-net/src/netdb.pp

+ 4 - 2
packages/fcl-net/src/netdb.pp

@@ -167,7 +167,9 @@ Function ResolveHostByAddr(HostAddr : THostAddr; Var H : THostEntry) : Boolean;
 Function ResolveHostByName6(Hostname : String; Var H : THostEntry6) : Boolean;
 Function ResolveHostByName6(Hostname : String; Var H : THostEntry6) : Boolean;
 Function ResolveHostByAddr6(HostAddr : THostAddr6; Var H : THostEntry6) : Boolean;
 Function ResolveHostByAddr6(HostAddr : THostAddr6; Var H : THostEntry6) : Boolean;
 
 
+// H.Addr is returned in the host byte order
 Function GetHostByName(HostName: String;  Var H : THostEntry) : boolean;
 Function GetHostByName(HostName: String;  Var H : THostEntry) : boolean;
+// Addr is specified in the host byte order
 Function GetHostByAddr(Addr: THostAddr;  Var H : THostEntry) : boolean;
 Function GetHostByAddr(Addr: THostAddr;  Var H : THostEntry) : boolean;
 
 
 // N.Addr is returned in the net byte order
 // N.Addr is returned in the net byte order
@@ -1803,12 +1805,12 @@ end;
 
 
 Function GetHostByName(HostName: String;  Var H : THostEntry) : boolean;
 Function GetHostByName(HostName: String;  Var H : THostEntry) : boolean;
 begin
 begin
-  Result:=ResolveHostByName(HostName, H);
+  Result:=False;
 end;
 end;
 
 
 Function GetHostByAddr(Addr: THostAddr;  Var H : THostEntry) : boolean;
 Function GetHostByAddr(Addr: THostAddr;  Var H : THostEntry) : boolean;
 begin
 begin
-  Result:=ResolveHostByAddr(Addr, H);
+  Result:=False;
 end;
 end;
 
 
 function PPCharToString(list: PPChar): string;
 function PPCharToString(list: PPChar): string;