![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Delphi ActiveX) RDAP Domain Lookup using rdap.orgDemonstrates doing an RDAP domain lookup using the rdap.org public RDAP server. Note: This example requires Chilkat v11.0.0 or greater.
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; |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.