With all that said and done... here's some code that'll probably do what you
want, using minimalistic techniques:
function WhatsMyIP(): string;
var sl : TStringList;
begin
sl := TStringList.Create;
try
HttpGetText('http://www.whatismyip.com/automation/n09230945.asp', sl);
result := sl.Text;
finally
sl.free;
end;
end;
'Course, that code went together in about 30 seconds, after about 83 seconds
of Googling... I should've probably answered this way first <G>...
------------------------------------------------------------------------------
The NEW KODAK i700 Series Scanners deliver under ANY circumstances! Your
production scanning environment may not be a perfect world - but thanks to
Kodak, there's a perfect scanner to get the job done! With the NEW KODAK i700
Series Scanner you'll get full speed at 300 dpi even with all image
processing features enabled. http://p.sf.net/sfu/kodak-com
_______________________________________________
synalist-public mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/synalist-public
