How to load HTML code from a string into a TWebBrowser (Views: 717)
Problem/Question/Abstract: How to load HTML code from a string into a TWebBrowser Answer: First, add ActiveX to the unit's Uses clause. With this procedure you'll be able to do so. procedure LoadHTMLCode(WebBrowser: TWebBrowser; HTMLCode: string); var sl: TStringList; ms: TMemoryStream; begin WebBrowser.Navigate('about:blank'); while WebBrowser.ReadyState < READYSTATE_INTERACTIVE do Application.ProcessMessages; if Assigned(WebBrowser.Document) then begin sl := TStringList.Create; try ms := TMemoryStream.Create; try sl.Text := HTMLCode; sl.SaveToStream(ms); ms.Seek(0, 0); (WebBrowser.Document as IPersistStreamInit).Load(TStreamAdapter.Create(ms)); finally ms.Free; end; finally sl.Free; end; end; end; An example : LoadHTMLCode(WebBrowser1,Memo1.Text) ; |