EmbeddedWb的问题！

小弟现在有一个问题,就是现有一HTML源代码.
想要通过WebBrowser里显示页面.
网上去查了一下要通过EmbeddedWb组件完成.
可我装的是DELPHI6,上面没有EmbeddedWB组件
有其它方法解决吗?
如果没有,那哪位仁兄能给我发一个EmbeddedWb控件.
小弟的EMAIL:[email protected]

解决方案 »

  1.   

    http://www.euromind.com/iedelphi/里面有下载的,不过现在不能访问。安装完后在internet页，图标和webbrowser的一样。
      

  2.   

    你的这个问题我遇到过，用webbrowser也可以。
    uses ActiveX;
    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;{ TForm1 }procedure TForm1.Button1Click(Sender: TObject);
    var
      S: TStringStream;
    begin
      S:= TStringStream.Create('<html><h1>Stream Test</h1><p>:This HTML content ' +
             'is being loaded from a stream.</html>');
      try
        LoadStream(WebBrowser1, S);
      finally
        S.Free;
      end;End;
      

  3.   

    具体我的问题：
    http://community.csdn.net/Expert/topic/3398/3398782.xml?temp=.5731928