(Xojo Plugin) DNS Query MX Records

See more DNS Examples

Shows how to perform a DNS query to retrieve MX records.

Note: This example requires Chilkat v9.5.0.96 or later.

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

Dim dns As New Chilkat.Dns

Dim json As New Chilkat.JsonObject
json.EmitCompact = False

Dim success As Boolean
success = dns.Query("MX","somebody@gmail.com",json)
If (success = False) Then
    System.DebugLog(dns.LastErrorText)
    Return
End If

System.DebugLog(json.Emit())

// Sample response.
// Parsing code below..

// -------------------------------------------------------------------------------
// Note: Chilkat will return the results sorted by "pref" from lowest to highest.
// -------------------------------------------------------------------------------

// {
//   "answer": {
//     "mx": [
//       {
//         "name": "gmail.com",
//         "ttl": 491,
//         "pref": 5,
//         "domain": "gmail-smtp-in.l.google.com"
//       },
//       {
//         "name": "gmail.com",
//         "ttl": 491,
//         "pref": 10,
//         "domain": "alt1.gmail-smtp-in.l.google.com"
//       },
//       {
//         "name": "gmail.com",
//         "ttl": 491,
//         "pref": 20,
//         "domain": "alt2.gmail-smtp-in.l.google.com"
//       },
//       {
//         "name": "gmail.com",
//         "ttl": 491,
//         "pref": 30,
//         "domain": "alt3.gmail-smtp-in.l.google.com"
//       },
//       {
//         "name": "gmail.com",
//         "ttl": 491,
//         "pref": 40,
//         "domain": "alt4.gmail-smtp-in.l.google.com"
//       }
//     ]
//   }
// }

// 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 pref As Int32
Dim domain As String

Dim i As Int32
i = 0
Dim count_i As Int32
count_i = json.SizeOfArray("answer.mx")
While i < count_i
    json.I = i
    name = json.StringOf("answer.mx[i].name")
    ttl = json.IntOf("answer.mx[i].ttl")
    pref = json.IntOf("answer.mx[i].pref")
    domain = json.StringOf("answer.mx[i].domain")
    i = i + 1
Wend