10-29-2011، 04:44 PM
این هم سورس trace ip با دلفی
کد:
function GetTextFromXML(xml,tagBegin,tagEnd:String):String; //I HATE OLE OBJECTS :D
var
iStart,iEnd:Integer;
begin
iStart:=Pos(tagBegin,xml);
iEnd:=Pos(tagEnd,xml);
if ((iStart and iEnd)>0) then
begin
Result:=Copy(xml,iStart+length(tagBegin),iEnd-(iStart+length(tagBegin)));
end
else
Result:='N/A';
end;
procedure GetIpInfo(ip: string;var szCountry,szRegion,szCity:String);
var
ihandle,hfile:hInternet;
url:String;
dwBtsRead:DWORD;
buf:array [0..5] of ansichar;
output:String;
begin
output:='';
url:='http://api.ipinfodb.com/v2/ip_query.php?key=7ec1f9db7ba558d95e831770377e64db58e31572dba1f382b6279385f9fbe684&ip='+ip+'&timezone=false';
ihandle:=InternetOpen('Safari/2.1',INTERNET_OPEN_TYPE_PRECONFIG,nil,nil,0);
if Assigned(ihandle) then
begin
hfile:=InternetOpenUrl(ihandle,PWideChar(url),nil,0,INTERNET_FLAG_RELOAD,0);
repeat
FillChar(buf[0],sizeof(buf),0);
InternetReadFile(hfile,@buf[0],sizeof(buf),dwBtsRead);
output:=output+buf;
until dwBtsRead=0 ;
InternetCloseHandle(ihandle);
end;
szCountry:=GetTextFromXml(output,'<CountryName>','</CountryName>');
szRegion:=GetTextFromXml(output,'<Region>','</Region>');
szCity:=GetTextFromXml(output,'<City>','</City>');
end;