How can I load an HTML string into a Firemonkey TWebBrowser?

Question

I'm trying to use the Firemonkey TWebBrowser to load some HTML that is generated at runtime. The HTML is a Delphi string.

I've looked at some code from: http://delphi.about.com/cs/adptips2004/a/bltip0104_4.htm

procedure WBLoadHTML(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;

procedure TForm1.FormCreate(Sender: TObject) ;
var
  sHTML : string;
begin
  sHTML := '<a href="http://delphi.about.com">GOTO</a>' +
           '<b>About Delphi Programming</b>';
  WBLoadHTML(WebBrowser1,sHTML) ;
end;

but this appears to be designed for a VCL application which is incompatible with Firemonkey TWebBrowser.

How can I achieve the same thing as this code example but using the Firemonkey control?

You're targeting mobile? There's no TWebBrowser available for Firemonkey in desktop apps. — Jason
I'm targeting both mobile and desktop. I thought FMX was supposed to be cross-platform? — spierepf
It is cross-platform, but you there's no FMX TWebBrowser component targeted at Desktop apps. Only Mobile. You'll need to use a different component at the presentation end if you want to create an FMX desktop application. — Jason

CCHuang CCHuang · Accepted Answer · 2016-10-08T01:35:50

1

votes

Use WebBrowser LoadFromStrings Method.

How can I load an HTML string into a Firemonkey TWebBrowser?

2 Answers