Pascal (Lazarus/Delphi)
Pascal (Lazarus/Delphi)
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 Pascal (Lazarus/Delphi) Downloads
program ChilkatDemo;
// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.
{$IFDEF FPC}
{$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}
uses
{$IFDEF UNIX}
cthreads,
{$ENDIF}
SysUtils,
CkDllLoader,
Chilkat.Http,
Chilkat.StringBuilder,
Chilkat.JsonObject;
// ---------------------------------------------------------------------------
procedure RunDemo;
var
success: Boolean;
http: THttp;
sbResponse: TStringBuilder;
statusCode: Integer;
json: TJsonObject;
value: string;
rel: string;
href: string;
v_type: string;
strVal: string;
j: Integer;
count_j: Integer;
identifier: string;
k: Integer;
count_k: Integer;
json1: TJsonObject;
i1: Integer;
count_i1: Integer;
j1: Integer;
count_j1: Integer;
eventAction: string;
eventDate: string;
title: string;
objectClassName: string;
handle: string;
ldhName: string;
DelegationSigned: Boolean;
i: Integer;
count_i: Integer;
begin
success := False;
// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.
http := THttp.Create;
// 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 := TStringBuilder.Create;
success := http.QuickGetSb('https://rdap.org/domain/oracle.com',sbResponse);
if (success = False) then
begin
WriteLn(http.LastErrorText);
Exit;
end;
statusCode := http.LastStatus;
if (statusCode <> 200) then
begin
WriteLn('Error response:');
WriteLn(sbResponse.GetAsString());
WriteLn('status code: ' + 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 := TJsonObject.Create;
json.LoadSb(sbResponse);
json.EmitCompact := False;
WriteLn(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 := TJsonObject.Create;
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);
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);
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;
http.Free;
sbResponse.Free;
json.Free;
json1.Free;
end;
// ---------------------------------------------------------------------------
begin
try
RunDemo;
except
on E: Exception do
WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
end;
WriteLn;
{$IFDEF MSWINDOWS}
WriteLn('Press Enter to exit...');
ReadLn;
{$ENDIF}
end.