(Xojo Plugin) Example: Http.ExtractMetaRefreshUrl method

Demonstrates the ExtractMetaRefreshUrl method.

Chilkat Xojo Plugin Download

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

Dim success As Boolean
success = False

Dim http As New Chilkat.Http

// Sample HTML with a META refresh.

// <!DOCTYPE html>
// <html lang="en">
// <head>
//   <meta charset="utf-8" />
//   <meta http-equiv="refresh" content="5; url=https://example.com" />
//   <title>Meta Refresh Redirect</title>
// </head>
// <body>
//   <p>Redirecting to example.com in 5 seconds�</p>
// </body>
// </html>

Dim sb As New Chilkat.StringBuilder
Dim bCrlf As Boolean
bCrlf = True
success = sb.AppendLine("<!DOCTYPE html>",bCrlf)
success = sb.AppendLine("<html lang=""en"">",bCrlf)
success = sb.AppendLine("<head>",bCrlf)
success = sb.AppendLine("  <meta charset=""utf-8"" />",bCrlf)
success = sb.AppendLine("  <meta http-equiv=""refresh"" content=""5; url=https://example.com"" />",bCrlf)
success = sb.AppendLine("  <title>Meta Refresh Redirect</title>",bCrlf)
success = sb.AppendLine("</head>",bCrlf)
success = sb.AppendLine("<body>",bCrlf)
success = sb.AppendLine("  <p>Redirecting to example.com in 5 seconds�</p>",bCrlf)
success = sb.AppendLine("</body>",bCrlf)
success = sb.AppendLine("</html>",bCrlf)

Dim url As String
url = http.ExtractMetaRefreshUrl(sb.GetAsString())
If (http.LastMethodSuccess = False) Then
    System.DebugLog("The HTML has no META refresh tag.")
Else
    System.DebugLog("META refresh URL: " + url)
End If