Visual FoxPro

Example: Http.ExtractMetaRefreshUrl method

Demonstrates the ExtractMetaRefreshUrl method. Visual FoxPro

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