IPInfo_API

مكتبة عملاء IPinfo دلفي

 uses 
 HGM.IpInfo;
... 
var
 Details: TDetails;
begin
 with TIpInfo.Create( ' ' ) do
 try
   if GetDetails(Details, ' 8.8.8.8 ' ) then
   try
     Memo1.Lines.Add(Details.Country);
   finally  
     Details.Free;
   end ;
 finally  
   Free;
 end ;
end ;

 var
 IpInfo: IIpInfo;
 ASN: TASN;
begin
 IpInfo := TIpInfo.Create( ' ' , True);
 IpInfo.RaiseErrors := True;
 if IpInfo.GetASN(ASN, ' AS7922 ' ) then
 try
   Memo1.Lines.Add(ASN.Domain);
 finally  
   ASN.Free;
 end ;
end ;

Memo1.Lines.Add(IpInfo.GetItem( ' city ' , ' 2001:4860:4860::8888 ' ));

يمكنك الحصول على هذا الرمز هنا: https://ipinfo.io/account/home