我想把一个html文件的内容通过twebbroswer 显示出来,网上说可以通过
函数WebBrowserLoadFrom来显示,但是编译时报错,说不认识此函数,
也uses activex 了,还是不行,这个函数到底是哪个单元的呢 ?

解决方案 »

  1.   

     uses   ActiveX;   
        
      function   ShowHtml(mWebBrowser:   TWebBrowser;   mStrings:   TStrings):   Boolean;   
      var   
          vMemoryStream:   TMemoryStream;   
      begin   
          Result   :=   False;   
          if   not   (Assigned(mStrings)   and   Assigned(mWebBrowser))   then   Exit;   
          mWebBrowser.Navigate('about:blank');   
          if   not   Assigned(mWebBrowser.Document)   then   Exit;   
          vMemoryStream   :=   TMemoryStream.Create;   
          try   
              mStrings.SaveToStream(vMemoryStream);   
              try   
                  vMemoryStream.Position   :=   0;   
                  Application.ProcessMessages;   //   :)   
                  (mWebBrowser.Document   as   IPersistStreamInit).Load(   
                      TStreamAdapter.Create(vMemoryStream));   
              except   
                  Exit;   
              end;   
          finally   
              vMemoryStream.Free;   
          end;   
          Result   :=   True;   
      end;   {   ShowHtml   }   此函数已搞定!!!