How can I get HTML source code from TWebBrowser

delphi delphi-7 twebbrowser
Someone picture Someone · Apr 10, 2012 · Viewed 26.3k times · Source

How can I get source code from WebBrowser component?

I want to get source code of active page on WebBrowser component and write it to a Memo component.

Thanks.

Answer

RRUZ picture RRUZ · Apr 10, 2012

You can use the IPersistStreamInit Interface and the save method to store the content of the Webbrowser in a Stream. 

Uses 
  ActiveX;

function GetWebBrowserHTML(const WebBrowser: TWebBrowser): String;
var
  LStream: TStringStream;
  Stream : IStream;
  LPersistStreamInit : IPersistStreamInit;
begin
  if not Assigned(WebBrowser.Document) then exit;
  LStream := TStringStream.Create('');
  try
    LPersistStreamInit := WebBrowser.Document as IPersistStreamInit;
    Stream := TStreamAdapter.Create(LStream,soReference);
    LPersistStreamInit.Save(Stream,true);
    result := LStream.DataString;
  finally
    LStream.Free();
  end;
end;

Related questions

ms sql xml data type convert to text

in MS Sql there are data types that are not supported by delphi 7, the xml datatype is one example. I wish to convert the XML datatype to Text datatype, so that i could handle it in delphi. Is there a …

Read More
Delphi isNumber

Is there a method in Delphi to check if a string is a number without raising an exception? its for int parsing. and an exception will raise if one use the try StrToInt(s); except //exception handling end;

Read More
Delphi: StringList Delimiter is always a space character even if Delimiter is set

I am having trouble with the delimiter in the TStringList Class. Take a look: var s: string; sl: TStringList; begin sl := TStringList.Create; s := 'Users^foo bar^bar foo^foobar^barfoo'; sl.Delimiter := '^'; sl.DelimitedText := s; ShowMessage(sl[1]); …

Read More