Delphi ActiveX
Delphi ActiveX
RDAP Domain Lookup using rdap.org
See more HTTP Misc Examples
Demonstrates doing an RDAP domain lookup using the rdap.org public RDAP server.Chilkat Delphi ActiveX Downloads
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;