How to extract the title of an HTML document #71

Suppose you're writing a web browser using the Internet Explorer browser control and you want to display the title of the document in your program's title bar. You will need to be able to extract the loaded document's title from the HTML document itself. Here's how.

Here's a function that will read the title from a HTML document.

function GetHTMLDocTitle(const Doc: IDispatch): string;
begin
  if Supports(Doc, IHTMLDocument2) then
    Result := (Doc as IHTMLDocument2).title
  else
    Result := '';
end;

Assuming we have have dropped a TWebBrowser control onto a Delphi form named Form1, we set the form's caption like this:

Form1.Caption := GetHTMLDocTitle(WebBrowser1.Document);

Note that this code assumes the required HTML document is already loaded into the browser control and that it has finished loading.

See Tip #72 to learn how to ensure the HTML document has loaded.