如何用TWebBrowser将一段HTML代码显示成网页，或显示一个HTML文件？急！！！给分！！

如题！

解决方案 »

  1.   

    不会吧，没人理。
    我建议你先将代码存为一个文件，然后通过
      TWebBrowser.Navigate( 文件路径 ); 来显示.
      

  2.   

    (*//
    标题:显示超文本
    说明:在WebBrowser直接载入流，不通过文件
    设计:Zswang
    日期:2002-06-06
    支持:[email protected]
    //*)///////Begin Source
    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 }
    ///////End Source///////Begin Demo
    procedure TForm1.Button1Click(Sender: TObject);
    begin
      ShowHtml(WebBrowser1, Memo1.Lines);
    end;procedure TForm1.FormCreate(Sender: TObject);
    begin
      Memo1.Text :=
    '<html>'#13#10 +
    '<body bkcolor=#FF00FF><b>Hello Worlds!</b></body>'#13#10 +
    '</html>'#13#10;
    end;
    ///////End Demo
      

  3.   

    楼上的代码就可以了。—————————————————————————————————
    ┏━★━━◆━━★━┓ 
    ♂欢|◢ＣＳＤＮ◣|使♂ 　　　　　　　▲自由保存帖子，浏览，关注检测
    ┃迎|◥论坛助手◤|用┃ 　　　　　　　▲完善的ＣＳＤＮ客户端工具
    ┗━☆━━◇━━━☆┛　　　　　　　▲自动添加签名......让你更快，更爽，更方便地上CSDN...
    http://www.csdn.net/expert/topic/573/573604.xml
    http://www.chinaok.net/csdn/csdn.zip