مثال عن api ipinfo كنسول
#1
برمجته منذ مدة كبيرة
وجدته بالصدفة واردت مشاركته
PHP كود :
program Project2;

{
$APPTYPE CONSOLE}

uses
  WinInet
,
  Windows //,superobject
;

function 
GetUrlContent(const Urlstring): UTF8String;
var
  NetHandleHINTERNET;
  UrlHandleHINTERNET;
  Buffer: array[0..1023of byte;
  BytesReaddWord;
  StrBufferUTF8String;
begin
  Result 
:= '';
  NetHandle := InternetOpen('USER_AGENT'INTERNET_OPEN_TYPE_PRECONFIGnilnil0);
  if Assigned(NetHandlethen
    
try
      UrlHandle := InternetOpenUrl(NetHandlePChar(Url), nil0INTERNET_FLAG_RELOAD0);
      if Assigned(UrlHandlethen
        
try
          repeat
            InternetReadFile
(UrlHandle, @BufferSizeOf(Buffer), BytesRead);
            SetString(StrBufferPAnsiChar(@Buffer[0]), BytesRead);
            Result := Result StrBuffer;
          until BytesRead 0;
        finally
          InternetCloseHandle(UrlHandle);
        end
      
else
        Result:=('Cannot open URL 'Url);
    finally
      InternetCloseHandle(NetHandle);
    end
  
else
    Result:=('Unable to initialize Wininet');
end;
var 
Content:UTF8String;
begin
Content
:=GetUrlContent('http://api.ipinfodb.com/v3/ip-city/?key=725b4fc2190b0ac507d281ea20b491e2d80e484a40e887cf05e32f796934168a&format=json') ;
Writeln(Content) ;
{
Writeln('------------------------------------------------------');
writeln('Country Name : '+so(Content)['countryName'].AsString) ;
writeln('Region Name : '+so(Content)['regionName'].AsString) ;
writeln('City Name : '+so(Content)['cityName'].AsString) ;
writeln('Zip Code : '+so(Content)['zipCode'].AsString) ;
writeln('Latitude : '+so(Content)['latitude'].AsString) ;
writeln('Longitude : '+so(Content)['longitude'].AsString) ;
writeln('Time Zone : '+so(Content)['timeZone'].AsString) ;
Writeln('------------------------------------------------------');  }
Readln
end



الملفات المرفقة
.rar   Project2.rar (الحجم : 865 bytes / التحميلات : 23)
[-] كل من 3 users say قال شكرا ل onexite على المشاركة المفيدة
  • delphi17, larbiparadox, Rever7eR
الرد
#2
بارك للخ فيك على المجهودات و لكن الرابط لا يعمل في الملف المرفق و بوركت الجهود خويا
الرد


التنقل السريع :


مستخدمين يتصفحوا هذا الموضوع: 1 ضيف