/[lcore]/trunk/lcorelocalips.pas
ViewVC logotype

Diff of /trunk/lcorelocalips.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 100 by plugwash, Sun May 8 00:01:47 2011 UTC revision 108 by beware, Fri Dec 9 23:15:45 2011 UTC
# Line 188  Line 188 
188  {$else}  {$else}
189    
190  uses  uses
191    sysutils,windows,winsock,dnssync;    sysutils,windows,winsock,dnssync,dnscore;
192    
193  {the following code's purpose is to determine what IP windows would come from, to reach an IP  {the following code's purpose is to determine what IP windows would come from, to reach an IP
194  it can be abused to find if there's any global v6 IPs on a local interface}  it can be abused to find if there's any global v6 IPs on a local interface}
# Line 255  Line 255 
255  var  var
256    a:integer;    a:integer;
257    ip:tbinip;    ip:tbinip;
258      usewindnstemp:boolean;
259  begin  begin
260      {this lookup must always be done with the windows API lookup
261      setting usewindns to false on windows will fail with infinite recursion}
262      usewindnstemp := usewindns;
263      usewindns := true;
264    result := forwardlookuplist('',0);    result := forwardlookuplist('',0);
265      usewindns := usewindnstemp;
266    
267    {$ifdef ipv6}    {$ifdef ipv6}
268    

Legend:
Removed from v.100  
changed lines
  Added in v.108

No admin address has been configured">No admin address has been configured
ViewVC Help
Powered by ViewVC 1.1.22