Delphi ActiveX

AbuseIPDB Check Endpoint

See more _Miscellaneous_ Examples

The check endpoint accepts a single IP address (v4 or v6). Optionally you may set the maxAgeInDays parameter to only return reports within the last x amount of days. Delphi ActiveX

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Integer;
http: TChilkatHttp;
req: TChilkatHttpRequest;
resp: TChilkatHttpResponse;
jResp: TChilkatJsonObject;
respStatusCode: Integer;
reportedAt: WideString;
comment: WideString;
reporterId: Integer;
reporterCountryCode: WideString;
reporterCountryName: WideString;
j: Integer;
count_j: Integer;
intVal: Integer;
dataIpAddress: WideString;
dataIsPublic: Integer;
dataIpVersion: Integer;
dataIsWhitelisted: Integer;
dataAbuseConfidenceScore: Integer;
dataCountryCode: WideString;
dataUsageType: WideString;
dataIsp: WideString;
dataDomain: WideString;
dataCountryName: WideString;
dataTotalReports: Integer;
dataNumDistinctUsers: Integer;
dataLastReportedAt: WideString;
i: Integer;
count_i: Integer;

begin
success := 0;

// This example assumes the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

http := TChilkatHttp.Create(Self);

// Implements the following CURL command:

// curl -G https://api.abuseipdb.com/api/v2/check \
//   --data-urlencode "ipAddress=118.25.6.39" \
//   -d maxAgeInDays=90 \
//   -d verbose \
//   -H "Key: $YOUR_API_KEY" \
//   -H "Accept: application/json"

// Use the following online tool to generate HTTP code from a CURL command
// Convert a cURL Command to HTTP Source Code

req := TChilkatHttpRequest.Create(Self);
req.HttpVerb := 'GET';
req.Path := '/api/v2/check';
req.ContentType := 'application/x-www-form-urlencoded';
req.AddParam('maxAgeInDays','90');
req.AddParam('verbose','');
req.AddParam('ipAddress','118.25.6.39');

req.AddHeader('Key','$YOUR_API_KEY');
req.AddHeader('Accept','application/json');

resp := TChilkatHttpResponse.Create(Self);
success := http.HttpSReq('api.abuseipdb.com',443,1,req.ControlInterface,resp.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
    Exit;
  end;

jResp := TChilkatJsonObject.Create(Self);
jResp.Load(resp.BodyStr);
jResp.EmitCompact := 0;

Memo1.Lines.Add('Response Body:');
Memo1.Lines.Add(jResp.Emit());

respStatusCode := resp.StatusCode;
Memo1.Lines.Add('Response Status Code = ' + IntToStr(respStatusCode));
if (respStatusCode >= 400) then
  begin
    Memo1.Lines.Add('Response Header:');
    Memo1.Lines.Add(resp.Header);
    Memo1.Lines.Add('Failed.');
    Exit;
  end;

// Sample JSON response:
// (Sample code for parsing the JSON response is shown below)

// {
//   "data": {
//     "ipAddress": "118.25.6.39",
//     "isPublic": true,
//     "ipVersion": 4,
//     "isWhitelisted": false,
//     "abuseConfidenceScore": 1,
//     "countryCode": "CN",
//     "usageType": "Data Center\/Web Hosting\/Transit",
//     "isp": "Tencent Cloud Computing (Beijing) Co. Ltd",
//     "domain": "tencent.com",
//     "hostnames": [
//     ],
//     "countryName": "China",
//     "totalReports": 2,
//     "numDistinctUsers": 1,
//     "lastReportedAt": "2021-04-03T18:55:00+00:00",
//     "reports": [
//       {
//         "reportedAt": "2021-03-10T10:07:53+00:00",
//         "comment": "SSH login attempts with user root.",
//         "categories": [
//           18,
//           22
//         ],
//         "reporterId": 54484,
//         "reporterCountryCode": "CN",
//         "reporterCountryName": "China"
//       },
//       {
//         "reportedAt": "2021-03-09T09:47:57+00:00",
//         "comment": "SSH login attempts with user root.",
//         "categories": [
//           18,
//           22
//         ],
//         "reporterId": 54484,
//         "reporterCountryCode": "CN",
//         "reporterCountryName": "China"
//       }
//     ]
//   }
// }

// Sample code for parsing the JSON response...
// Use the following online tool to generate parsing code from sample JSON:
// Generate Parsing Code from JSON

dataIpAddress := jResp.StringOf('data.ipAddress');
dataIsPublic := jResp.BoolOf('data.isPublic');
dataIpVersion := jResp.IntOf('data.ipVersion');
dataIsWhitelisted := jResp.BoolOf('data.isWhitelisted');
dataAbuseConfidenceScore := jResp.IntOf('data.abuseConfidenceScore');
dataCountryCode := jResp.StringOf('data.countryCode');
dataUsageType := jResp.StringOf('data.usageType');
dataIsp := jResp.StringOf('data.isp');
dataDomain := jResp.StringOf('data.domain');
dataCountryName := jResp.StringOf('data.countryName');
dataTotalReports := jResp.IntOf('data.totalReports');
dataNumDistinctUsers := jResp.IntOf('data.numDistinctUsers');
dataLastReportedAt := jResp.StringOf('data.lastReportedAt');
i := 0;
count_i := jResp.SizeOfArray('data.hostnames');
while i < count_i do
  begin
    jResp.I := i;
    i := i + 1;
  end;

i := 0;
count_i := jResp.SizeOfArray('data.reports');
while i < count_i do
  begin
    jResp.I := i;
    reportedAt := jResp.StringOf('data.reports[i].reportedAt');
    comment := jResp.StringOf('data.reports[i].comment');
    reporterId := jResp.IntOf('data.reports[i].reporterId');
    reporterCountryCode := jResp.StringOf('data.reports[i].reporterCountryCode');
    reporterCountryName := jResp.StringOf('data.reports[i].reporterCountryName');
    j := 0;
    count_j := jResp.SizeOfArray('data.reports[i].categories');
    while j < count_j do
      begin
        jResp.J := j;
        intVal := jResp.IntOf('data.reports[i].categories[j]');
        j := j + 1;
      end;

    i := i + 1;
  end;
end;