(Visual FoxPro) Example: Http.ExtractMetaRefreshUrl method

Demonstrates the ExtractMetaRefreshUrl method.

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

LOCAL lnSuccess
LOCAL loHttp
LOCAL loSb
LOCAL lnBCrlf
LOCAL lcUrl

lnSuccess = 0

loHttp = CreateObject('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>

loSb = CreateObject('Chilkat.StringBuilder')
lnBCrlf = 1
loSb.AppendLine("<!DOCTYPE html>",lnBCrlf)
loSb.AppendLine('<html lang="en">',lnBCrlf)
loSb.AppendLine("<head>",lnBCrlf)
loSb.AppendLine('  <meta charset="utf-8" />',lnBCrlf)
loSb.AppendLine('  <meta http-equiv="refresh" content="5; url=https://example.com" />',lnBCrlf)
loSb.AppendLine("  <title>Meta Refresh Redirect</title>",lnBCrlf)
loSb.AppendLine("</head>",lnBCrlf)
loSb.AppendLine("<body>",lnBCrlf)
loSb.AppendLine("  <p>Redirecting to example.com in 5 seconds�</p>",lnBCrlf)
loSb.AppendLine("</body>",lnBCrlf)
loSb.AppendLine("</html>",lnBCrlf)

lcUrl = loHttp.ExtractMetaRefreshUrl(loSb.GetAsString())
IF (loHttp.LastMethodSuccess = 0) THEN
    ? "The HTML has no META refresh tag."
ELSE
    ? "META refresh URL: " + lcUrl
ENDIF

RELEASE loHttp
RELEASE loSb