projects
/
mgsmtp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Enable IPv6 listen address (ListenAddress6)
[mgsmtp.git]
/
Network.pas
diff --git
a/Network.pas
b/Network.pas
index b19dd7dcbe144741369c301e3dfc71a03f24e8cc..7521ff1877091bce6667fe4f3f92cbdb195b6dfe 100644
(file)
--- a/
Network.pas
+++ b/
Network.pas
@@
-41,6
+41,13
@@
uses Classes, Sockets, SocketUtils, DNSResolve, NetRFC, Common;
const
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;
{ 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
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;
FHostIP.Free;
FHostIP:= NHostIP;
end;