加载中…
个人资料
  • 博客等级:
  • 博客积分:
  • 博客访问:
  • 关注人气:
  • 获赠金笔:0支
  • 赠出金笔:0支
  • 荣誉徽章:
正文 字体大小:

Delphi7向WebBrowser控件中直接写内容(文本串或Html串)

(2013-12-12 16:25:13)
标签:

webbrowser

html

it

分类: DELPHI

 一、直接写文本串

  WebBrowser1.Navigate('about:blank');

  WebBrowser1.OleObject.Document.Writeln('ok');

 二、直接写Html串

  procedure WriteHtmlToWB(wb: TWebBrowser; HTMLCode: string);
    //向WebBrowser中写入Html字符串

  var
   ss: TStrings;
   ms: TMemoryStream;
  begin
   ss := TStringList.Create;
   ms := TMemoryStream.Create;
   try
    ss.Text := HTMLCode;
    ss.SaveToStream(ms);
    ms.position:=0;

        wb.Navigate('about:blank');//这个很重要,第一次忘了加,搞了半天
    (wb.Document as IPersistStreamInit).Load(TStreamAdapter.Create(ms));
   finally
    ms.Free;
    ss.Free;
   end;
  end;

0

阅读 收藏 喜欢 打印举报/Report
  

新浪BLOG意见反馈留言板 欢迎批评指正

新浪简介 | About Sina | 广告服务 | 联系我们 | 招聘信息 | 网站律师 | SINA English | 产品答疑

新浪公司 版权所有