You could go the easy way and use the Synapse built-in, already
cross-platform function GetLocalIPs(), in the synamisc unit (instead of the
suggested "wininet" functions). It returns all local IPs in a
comma-delimited string -- the same way the GetDNS() function works.
Or, if you're looking for the IP address that this machine appears to be at
some external point (like "behind" one or more NAT routers), you can use
this: (but be sure to conform to usage requirements as specified on the
whatismyip.com site)
function WhatsMyIP(): string;
var sl : TStringList;
begin
sl := TStringList.Create;
try
HttpGetText('http://www.whatismyip.com/automation/n09230945.asp', sl);
result := trim(sl.Text);
finally
sl.free;
end;
end;
------------------------------------------------------------------------------
Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day
trial. Simplify your report design, integration and deployment - and focus on
what you do best, core application coding. Discover what's new with
Crystal Reports now. http://p.sf.net/sfu/bobj-july
_______________________________________________
synalist-public mailing list
synalist-public@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/synalist-public
