(Delphi ActiveX) Example: Http.ExtractMetaRefreshUrl method

Demonstrates the ExtractMetaRefreshUrl method.

Chilkat for Delphi Downloads

Chilkat ActiveX DLL for Delphi

Chilkat non-ActiveX DLL for Delphi

* The examples here use the ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Integer;
http: TChilkatHttp;
sb: TChilkatStringBuilder;
bCrlf: Integer;
url: WideString;

begin
success := 0;

http := TChilkatHttp.Create(Self);

// 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>

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

url := http.ExtractMetaRefreshUrl(sb.GetAsString());
if (http.LastMethodSuccess = 0) then
  begin
    Memo1.Lines.Add('The HTML has no META refresh tag.');
  end
else
  begin
    Memo1.Lines.Add('META refresh URL: ' + url);
  end;
end;