X-Git-Url: http://git.megabrutal.com/?a=blobdiff_plain;f=Network.pas;h=7521ff1877091bce6667fe4f3f92cbdb195b6dfe;hb=973fc2e5ed9372c813ce98f65ad4496c0935185b;hp=b19dd7dcbe144741369c301e3dfc71a03f24e8cc;hpb=461ab8aed63976eed05ba159c4dbfa4baa06d33b;p=mgsmtp.git

diff --git a/Network.pas b/Network.pas
index b19dd7d..7521ff1 100644
--- a/Network.pas
+++ b/Network.pas
@@ -41,6 +41,13 @@ uses Classes, Sockets, SocketUtils, DNSResolve, NetRFC, Common;
 
 const
 
+   { Address families: }
+   { These are here so users of this unit don't necessarily have to
+     use Sockets as well. }
+   AF_UNSPEC            =  Sockets.AF_UNSPEC;
+   AF_INET              =  Sockets.AF_INET;
+   AF_INET6             =  Sockets.AF_INET6;
+
    { Connection feature requests: }
    NET_TCP_BASIC        =  0;
    NET_TCP_RFCSUPPORT   =  1;
@@ -218,7 +225,7 @@ procedure TTCPConnection.ReverseDNSLookup;
 var NHostIP: TIPNamePair;
 begin
    if FConnected then begin
-      NHostIP:= TIPNamePair.Create(ResolveIP(@SockAddr), FHostIP.IP);
+      NHostIP:= TIPNamePair.Create(ResolveIP(PSockAddr(@SockAddr)), FHostIP.IP);
       FHostIP.Free;
       FHostIP:= NHostIP;
    end;