(Delphi ActiveX) RDAP Domain Lookup using rdap.org

Demonstrates doing an RDAP domain lookup using the rdap.org public RDAP server.

Note: This example requires Chilkat v11.0.0 or greater.

Chilkat for Delphi Downloads Chilkat ActiveX DLL for Delphi Chilkat non-ActiveX DLL for Delphi * The examples here use the ActiveX DLL.

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;
sbResponse: TChilkatStringBuilder;
statusCode: Integer;
json: TChilkatJsonObject;
value: WideString;
rel: WideString;
href: WideString;
v_type: WideString;
strVal: WideString;
j: Integer;
count_j: Integer;
identifier: WideString;
k: Integer;
count_k: Integer;
json1: TChilkatJsonObject;
i1: Integer;
count_i1: Integer;
j1: Integer;
count_j1: Integer;
eventAction: WideString;
eventDate: WideString;
title: WideString;
objectClassName: WideString;
handle: WideString;
ldhName: WideString;
DelegationSigned: Integer;
i: Integer;
count_i: Integer;

begin
success := 0;

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

http := TChilkatHttp.Create(Self);

// Send HTTP requests to https://rdap.org/<type>/<object>, where <type> is the object type (one of domain, ip, autnum, entity etc)
// and <object> is the object identifier (eg example.com, 192.168.0.1, 64496, etc).

// For example, here's a lookup for "oracle.com"
sbResponse := TChilkatStringBuilder.Create(Self);
success := http.QuickGetSb('https://rdap.org/domain/oracle.com',sbResponse.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
    Exit;
  end;

statusCode := http.LastStatus;
if (statusCode <> 200) then
  begin
    Memo1.Lines.Add('Error response:');
    Memo1.Lines.Add(sbResponse.GetAsString());
    Memo1.Lines.Add('status code: ' + IntToStr(statusCode));
    Exit;
  end;

// Load the JSON response and examine..

// Use this online tool to generate parsing code from sample JSON: 
// Generate Parsing Code from JSON

json := TChilkatJsonObject.Create(Self);
json.LoadSb(sbResponse.ControlInterface);
json.EmitCompact := 0;
Memo1.Lines.Add(json.Emit());

// Here's a sample response, and the parsing code generated from the above online tool follows..

// {
//   "objectClassName": "domain",
//   "handle": "607513_DOMAIN_COM-VRSN",
//   "ldhName": "ORACLE.COM",
//   "links": [
//     {
//       "value": "https:\/\/rdap.verisign.com\/com\/v1\/domain\/ORACLE.COM",
//       "rel": "self",
//       "href": "https:\/\/rdap.verisign.com\/com\/v1\/domain\/ORACLE.COM",
//       "type": "application\/rdap+json"
//     },
//     {
//       "value": "https:\/\/rdap.markmonitor.com\/rdap\/domain\/ORACLE.COM",
//       "rel": "related",
//       "href": "https:\/\/rdap.markmonitor.com\/rdap\/domain\/ORACLE.COM",
//       "type": "application\/rdap+json"
//     }
//   ],
//   "status": [
//     "client delete prohibited",
//     "client transfer prohibited",
//     "client update prohibited",
//     "server delete prohibited",
//     "server transfer prohibited",
//     "server update prohibited"
//   ],
//   "entities": [
//     {
//       "objectClassName": "entity",
//       "handle": "292",
//       "roles": [
//         "registrar"
//       ],
//       "publicIds": [
//         {
//           "type": "IANA Registrar ID",
//           "identifier": "292"
//         }
//       ],
//       "vcardArray": [
//         "vcard",
//         [
//           [
//             "version",
//             {},
//             "text",
//             "4.0"
//           ],
//           [
//             "fn",
//             {},
//             "text",
//             "MarkMonitor Inc."
//           ]
//         ]
//       ],
//       "entities": [
//         {
//           "objectClassName": "entity",
//           "roles": [
//             "abuse"
//           ],
//           "vcardArray": [
//             "vcard",
//             [
//               [
//                 "version",
//                 {},
//                 "text",
//                 "4.0"
//               ],
//               [
//                 "fn",
//                 {},
//                 "text",
//                 ""
//               ],
//               [
//                 "tel",
//                 {
//                   "type": "voice"
//                 },
//                 "uri",
//                 "tel:+1.2086851750"
//               ],
//               [
//                 "email",
//                 {},
//                 "text",
//                 "abusecomplaints@markmonitor.com"
//               ]
//             ]
//           ]
//         }
//       ]
//     }
//   ],
//   "events": [
//     {
//       "eventAction": "registration",
//       "eventDate": "1988-12-02T05:00:00Z"
//     },
//     {
//       "eventAction": "expiration",
//       "eventDate": "2025-12-01T05:00:00Z"
//     },
//     {
//       "eventAction": "last changed",
//       "eventDate": "2024-10-30T09:32:52Z"
//     },
//     {
//       "eventAction": "last update of RDAP database",
//       "eventDate": "2024-11-26T14:11:14Z"
//     }
//   ],
//   "secureDNS": {
//     "delegationSigned": false
//   },
//   "nameservers": [
//     {
//       "objectClassName": "nameserver",
//       "ldhName": "A1-160.AKAM.NET"
//     },
//     {
//       "objectClassName": "nameserver",
//       "ldhName": "A11-66.AKAM.NET"
//     },
//     {
//       "objectClassName": "nameserver",
//       "ldhName": "A13-65.AKAM.NET"
//     },
//     {
//       "objectClassName": "nameserver",
//       "ldhName": "A18-67.AKAM.NET"
//     },
//     {
//       "objectClassName": "nameserver",
//       "ldhName": "NS1.P201.DNS.ORACLECLOUD.NET"
//     },
//     {
//       "objectClassName": "nameserver",
//       "ldhName": "NS2.P201.DNS.ORACLECLOUD.NET"
//     },
//     {
//       "objectClassName": "nameserver",
//       "ldhName": "NS3.P201.DNS.ORACLECLOUD.NET"
//     },
//     {
//       "objectClassName": "nameserver",
//       "ldhName": "NS4.P201.DNS.ORACLECLOUD.NET"
//     }
//   ],
//   "rdapConformance": [
//     "rdap_level_0",
//     "icann_rdap_technical_implementation_guide_0",
//     "icann_rdap_response_profile_0"
//   ],
//   "notices": [
//     {
//       "title": "Terms of Use",
//       "description": [
//         "Service subject to Terms of Use."
//       ],
//       "links": [
//         {
//           "href": "https:\/\/www.verisign.com\/domain-names\/registration-data-access-protocol\/terms-service\/index.xhtml",
//           "type": "text\/html"
//         }
//       ]
//     },
//     {
//       "title": "Status Codes",
//       "description": [
//         "For more information on domain status codes, please visit https:\/\/icann.org\/epp"
//       ],
//       "links": [
//         {
//           "href": "https:\/\/icann.org\/epp",
//           "type": "text\/html"
//         }
//       ]
//     },
//     {
//       "title": "RDDS Inaccuracy Complaint Form",
//       "description": [
//         "URL of the ICANN RDDS Inaccuracy Complaint Form: https:\/\/icann.org\/wicf"
//       ],
//       "links": [
//         {
//           "href": "https:\/\/icann.org\/wicf",
//           "type": "text\/html"
//         }
//       ]
//     }
//   ]
// }

json1 := TChilkatJsonObject.Create(Self);

objectClassName := json.StringOf('objectClassName');
handle := json.StringOf('handle');
ldhName := json.StringOf('ldhName');
DelegationSigned := json.BoolOf('secureDNS.delegationSigned');
i := 0;
count_i := json.SizeOfArray('links');
while i < count_i do
  begin
    json.I := i;
    value := json.StringOf('links[i].value');
    rel := json.StringOf('links[i].rel');
    href := json.StringOf('links[i].href');
    v_type := json.StringOf('links[i].type');
    i := i + 1;
  end;

i := 0;
count_i := json.SizeOfArray('status');
while i < count_i do
  begin
    json.I := i;
    strVal := json.StringOf('status[i]');
    i := i + 1;
  end;

i := 0;
count_i := json.SizeOfArray('entities');
while i < count_i do
  begin
    json.I := i;
    objectClassName := json.StringOf('entities[i].objectClassName');
    handle := json.StringOf('entities[i].handle');
    j := 0;
    count_j := json.SizeOfArray('entities[i].roles');
    while j < count_j do
      begin
        json.J := j;
        strVal := json.StringOf('entities[i].roles[j]');
        j := j + 1;
      end;

    j := 0;
    count_j := json.SizeOfArray('entities[i].publicIds');
    while j < count_j do
      begin
        json.J := j;
        v_type := json.StringOf('entities[i].publicIds[j].type');
        identifier := json.StringOf('entities[i].publicIds[j].identifier');
        j := j + 1;
      end;

    j := 0;
    count_j := json.SizeOfArray('entities[i].vcardArray');
    while j < count_j do
      begin
        json.J := j;
        strVal := json.StringOf('entities[i].vcardArray[j]');
        k := 0;
        count_k := json.SizeOfArray('entities[i].vcardArray[j]');
        while k < count_k do
          begin
            json.K := k;
            json.ObjectOf2('entities[i].vcardArray[j][k]',json1.ControlInterface);

            i1 := 0;
            count_i1 := json1.SizeOfArray('');
            while i1 < count_i1 do
              begin
                json1.I := i1;
                strVal := json1.StringOf('[i]');
                i1 := i1 + 1;
              end;

            k := k + 1;
          end;

        j := j + 1;
      end;

    j := 0;
    count_j := json.SizeOfArray('entities[i].entities');
    while j < count_j do
      begin
        json.J := j;
        objectClassName := json.StringOf('entities[i].entities[j].objectClassName');
        k := 0;
        count_k := json.SizeOfArray('entities[i].entities[j].roles');
        while k < count_k do
          begin
            json.K := k;
            strVal := json.StringOf('entities[i].entities[j].roles[k]');
            k := k + 1;
          end;

        k := 0;
        count_k := json.SizeOfArray('entities[i].entities[j].vcardArray');
        while k < count_k do
          begin
            json.K := k;
            strVal := json.StringOf('entities[i].entities[j].vcardArray[k]');
            json.ObjectOf2('entities[i].entities[j].vcardArray[k]',json1.ControlInterface);

            i1 := 0;
            count_i1 := json1.SizeOfArray('');
            while i1 < count_i1 do
              begin
                json1.I := i1;
                j1 := 0;
                count_j1 := json1.SizeOfArray('[i]');
                while j1 < count_j1 do
                  begin
                    json1.J := j1;
                    strVal := json1.StringOf('[i][j]');
                    j1 := j1 + 1;
                  end;

                i1 := i1 + 1;
              end;

            k := k + 1;
          end;

        j := j + 1;
      end;

    i := i + 1;
  end;

i := 0;
count_i := json.SizeOfArray('events');
while i < count_i do
  begin
    json.I := i;
    eventAction := json.StringOf('events[i].eventAction');
    eventDate := json.StringOf('events[i].eventDate');
    i := i + 1;
  end;

i := 0;
count_i := json.SizeOfArray('nameservers');
while i < count_i do
  begin
    json.I := i;
    objectClassName := json.StringOf('nameservers[i].objectClassName');
    ldhName := json.StringOf('nameservers[i].ldhName');
    i := i + 1;
  end;

i := 0;
count_i := json.SizeOfArray('rdapConformance');
while i < count_i do
  begin
    json.I := i;
    strVal := json.StringOf('rdapConformance[i]');
    i := i + 1;
  end;

i := 0;
count_i := json.SizeOfArray('notices');
while i < count_i do
  begin
    json.I := i;
    title := json.StringOf('notices[i].title');
    j := 0;
    count_j := json.SizeOfArray('notices[i].description');
    while j < count_j do
      begin
        json.J := j;
        strVal := json.StringOf('notices[i].description[j]');
        j := j + 1;
      end;

    j := 0;
    count_j := json.SizeOfArray('notices[i].links');
    while j < count_j do
      begin
        json.J := j;
        href := json.StringOf('notices[i].links[j].href');
        v_type := json.StringOf('notices[i].links[j].type');
        j := j + 1;
      end;

    i := i + 1;
  end;
end;