Delphi ActiveX Requires Chilkat v11.0.0+
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
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;