Solved

TWebBrowser LOAD FROM MEMO

Posted on 2002-05-25
5
1,187 Views
Last Modified: 2012-05-04
TWebBrowser LOAD FROM MEMO

How to load WebBrowser1 HTML from Memo1.Text (HTML TEXT) ?

Thanks.
0
Comment
Question by:treqw
5 Comments
 
LVL 44

Accepted Solution

by:
bruintje earned 350 total points
ID: 7034242
Hi treqw,

maybe this can get you going a bit
http://www.swissdelphicenter.ch/torry/showcode.php?id=1096&PHPSESSID=813405c0944d27364a4d6dff9ae62775

you can put the memo text into the html string

HTH:O)Bruintje
0
 
LVL 8

Expert Comment

by:Cesario
ID: 7034295
uses ActiveX;

{Loads the contents of the "Stream" into the "WebBrowser"
"Stream" should contain HTML code}
procedure LoadStream(WebBrowser: TWebBrowser; Stream: TStream);
var
  PersistStreamInit: IPersistStreamInit;
  StreamAdapter: IStream;
  MemoryStream: TMemoryStream;
begin
  {Load empty HTML document into Webbrowser to make "Document" a valid HTML document}
  WebBrowser.Navigate('about:blank');
  {wait until finished loading}
  repeat
    Application.ProcessMessages;
    Sleep(0);
  until
    WebBrowser.ReadyState = READYSTATE_COMPLETE;
  {Get IPersistStreamInit - Interface}
  if WebBrowser.Document.QueryInterface(IPersistStreamInit, PersistStreamInit) = S_OK then
  begin
    {Clear document}
    if PersistStreamInit.InitNew = S_OK then
    begin
      {Make local copy of the contents of Stream if you want to use Stream directly, you have to
      consider, that StreamAdapter will destroy it automatically}
      MemoryStream:= TMemoryStream.Create;
      try
        MemoryStream.CopyFrom(Stream, 0);        
        MemoryStream.Position:= 0;
      except
        MemoryStream.Free;
        raise;
      end;
      {Use Stream-Adapter to get IStream Interface to our stream}
      StreamAdapter:= TStreamAdapter.Create(MemoryStream, soOwned);
      {Load data from Stream into WebBrowser}
      PersistStreamInit.Load(StreamAdapter);
    end;
  end;
end;


{Let's test. You could also create a TResourceStream or TFileStream etc. here.}
procedure TForm1.Button2Click(Sender: TObject);
var
  S: TStringStream;
begin
  {To use this code, replace [ ] brackets with <> ones in the following two lines !}
  S:= TStringStream.Create(Memo1.Text)
  try
    LoadStream(WebBrowser1, S);
  finally
    S.Free;
  end;
end;

Best Regards

Cesario
0
 

Expert Comment

by:delpro
ID: 7034414
go to http://www.pbear.com/ 
and download the HTML Display Components

This is how easy it is.

   HTMLViewer1.LoadFromString(memo1.Text);
0
 
LVL 12

Expert Comment

by:Lee_Nover
ID: 7034429
nice :)
another way would be to install EmbededWB from http://www.euromind.com/iedelphi/
0
 
LVL 44

Expert Comment

by:bruintje
ID: 7034612
wow, thanks for the grade
0

Featured Post

Netscaler Common Configuration How To guides

If you use NetScaler you will want to see these guides. The NetScaler How To Guides show administrators how to get NetScaler up and configured by providing instructions for common scenarios and some not so common ones.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Delphi cmd execution 6 60
How to create virtual printer while installing my application 5 50
CheckListBox usage 3 59
enhance the following code 3 32
This article explains how to create forms/units independent of other forms/units object names in a delphi project. Have you ever created a form for user input in a Delphi project and then had the need to have that same form in a other Delphi proj…
Objective: - This article will help user in how to convert their numeric value become words. How to use 1. You can copy this code in your Unit as function 2. than you can perform your function by type this code The Code   (CODE) The Im…
The Email Laundry PDF encryption service allows companies to send confidential encrypted  emails to anybody. The PDF document can also contain attachments that are embedded in the encrypted PDF. The password is randomly generated by The Email Laundr…
A short tutorial showing how to set up an email signature in Outlook on the Web (previously known as OWA). For free email signatures designs, visit https://www.mail-signatures.com/articles/signature-templates/?sts=6651 If you want to manage em…

778 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question