Lianja
Example: Http.ExtractMetaRefreshUrl method

Demonstrates the ExtractMetaRefreshUrl method.
Chilkat Lianja Downloads

Lianja
llSuccess = .F.

loHttp = createobject("CkHttp")

// 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("CkStringBuilder")
llBCrlf = .T.
loSb.AppendLine("<!DOCTYPE html>",llBCrlf)
loSb.AppendLine('<html lang="en">',llBCrlf)
loSb.AppendLine("<head>",llBCrlf)
loSb.AppendLine('  <meta charset="utf-8" />',llBCrlf)
loSb.AppendLine('  <meta http-equiv="refresh" content="5; url=https://example.com" />',llBCrlf)
loSb.AppendLine("  <title>Meta Refresh Redirect</title>",llBCrlf)
loSb.AppendLine("</head>",llBCrlf)
loSb.AppendLine("<body>",llBCrlf)
loSb.AppendLine("  <p>Redirecting to example.com in 5 seconds�</p>",llBCrlf)
loSb.AppendLine("</body>",llBCrlf)
loSb.AppendLine("</html>",llBCrlf)

lcUrl = loHttp.ExtractMetaRefreshUrl(loSb.GetAsString())
if (loHttp.LastMethodSuccess = .F.) then
    ? "The HTML has no META refresh tag."
else
    ? "META refresh URL: " + lcUrl
endif



release loHttp
release loSb