Amos,
Whoops. Better change that to:
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;
(that trims the carriage return ...)
and you need to use the httpsend unit...
------------------------------------------------------------------------------
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
