Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Xojo Plugin) DNS Query TXT RecordsSee more DNS ExamplesShows how to perform a DNS query to retrieve TXT records. Note: This example requires Chilkat v9.5.0.96 or later.
Dim dns As New Chilkat.Dns Dim json As New Chilkat.JsonObject json.EmitCompact = False Dim success As Boolean success = dns.Query("TXT","x.com",json) If (success = False) Then System.DebugLog(dns.LastErrorText) Return End If System.DebugLog(json.Emit()) // Sample response. // Parsing code below.. // { // "answer": { // "txt": [ // { // "name": "x.com", // "ttl": 300, // "text": "kkdl3qb3tcrmdhfsm803p67r0my0svs8" // }, // { // "name": "x.com", // "ttl": 300, // "text": "v=spf1 ip4:199.16.156.128/26 ip4:199.59.150.64/26 include:_spf.google.com include:spf-008d0a01.pphosted.com -all" // }, // { // "name": "x.com", // "ttl": 300, // "text": "google-site-verification=8yQmoVhQedzlt36RPeQP41ytrEFk9aHEnde_xm0626g" // }, // { // "name": "x.com", // "ttl": 300, // "text": "google-site-verification=F6u9mGL--d2lbLljvH3b1UUgXtevQPdcamKr9c8914A" // } // ] // } // } // Use this online tool to generate parsing code from sample JSON: // Generate Parsing Code from JSON Dim name As String Dim ttl As Int32 Dim text As String Dim i As Int32 i = 0 Dim count_i As Int32 count_i = json.SizeOfArray("answer.txt") While i < count_i json.I = i name = json.StringOf("answer.txt[i].name") ttl = json.IntOf("answer.txt[i].ttl") text = json.StringOf("answer.txt[i].text") i = i + 1 Wend |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.