Gecko - TChromium使用方法  

http://so.trust.blog.163.com/blog/static/1718862002013102644111985/

2013-11-26 16:41:11|  分类： Delphi隨記|举报|字号 订阅

 

 

 

 

 

 

  下载LOFTER我的照片书  |
 
 
var SetNoteStr:string;
 SetNoteStr :='<body bgcolor=222222 align=center><br><p align=center><font size=+2 color=#FFFFFF>宝贝模特网 http://www.model61.com</font></p>' ;
 SetNoteStr :=SetNoteStr+'<br><p align=center><font size=+2 color=#FFFFFF>实现Chromium控件中显示动态html的程序代码</font></p>'
 +'<a href="http://www.model61.com/">宝贝传媒</a>';
 
 if Chrm.Browser<>nil then begin
   Chrm.DefaultEncoding:='Utf-8';
   第一种，打开本地文件
  Chrm.Load(ExtractFilePath(ParamStr(0))+'1.html');
   第二种，打开网站地址
   Chrm.Browser.MainFrame.LoadUrl(edAddress.Text);
   第三种，加载动态网站源码
   Chrm.Browser.MainFrame.LoadString(SetNoteStr,'http://www.model61.com');
   第四，加载动态数据流
   Chrm.Browser.MainFrame.LoadStream(Stream,True,url);
 end;