将HTML代码直接加入到TWebbrowser组件中去
来源:互联网 发布:英文网络流行语 编辑:程序博客网 时间:2024/05/01 22:54
uses
ActiveX;
procedure WB_LoadHTML(WebBrowser: TWebBrowser; HTMLCode: string);
var
sl: TStringList;
ms: TMemoryStream;
begin
WebBrowser.Navigate('about:blank');
if Assigned(WebBrowser.Document) then
begin
sl := TStringList.Create;
try
ms := TMemoryStream.Create;
try
sl.Text := HTMLCode;
sl.SaveToStream(ms); 0D
ms.Seek(0, 0);
(WebBrowser.Document as IPersistStreamInit).Load(TStreamAdapter.Create(ms));
0A finally
ms.Free;
end;
finally
sl.Free;
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
WB_LoadHTML(WebBrowser1,'<html><body bgcolor="#0099FF">SwissDelphiCenter</html>');
end;
=========================
下面是左轻候的一段代码
//实现内容
procedure Tform1.ShowHTML(src:string;iebrw:TEmbeddedWB;ID:integer);
var
vv: Variant;
HTMLDocument: IHTMLDocument2;
tmpStr,tmpfilepath:string;0D
begin
//直接写到浏览器里。
vv := VarArrayCreate([0,0],varVariant);
vv[0] := '<base href="'+LocalPath+'"/>'+ src+ tmpStr;
try
ieBrw.Navigate('about:blank'); //这里必须要
HTMLDocument := iebrw.Document as IHTMLDocument2;
HTMLDocument.write(PSafeArray(TVarData(vv).VArray));
HTMLDocument.charset:3D 'gb2312';
HTMLDocument.close;
except
statusbar1.Panels[0].Text:='写浏览器出错';
end;
HtmlDocument:=nil;
end;
两者还有是有区别的。写完后,第一个方法不会改变当前页默认的路径,就是说她是直接改内容。
而第二个就不行了,她完成后,你就会发现网页的属性为"about:blank"
我也说不太清楚。请自己认真体会啊
ActiveX;
procedure WB_LoadHTML(WebBrowser: TWebBrowser; HTMLCode: string);
var
sl: TStringList;
ms: TMemoryStream;
begin
WebBrowser.Navigate('about:blank');
if Assigned(WebBrowser.Document) then
begin
sl := TStringList.Create;
try
ms := TMemoryStream.Create;
try
sl.Text := HTMLCode;
sl.SaveToStream(ms); 0D
ms.Seek(0, 0);
(WebBrowser.Document as IPersistStreamInit).Load(TStreamAdapter.Create(ms));
0A finally
ms.Free;
end;
finally
sl.Free;
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
WB_LoadHTML(WebBrowser1,'<html><body bgcolor="#0099FF">SwissDelphiCenter</html>');
end;
=========================
下面是左轻候的一段代码
//实现内容
procedure Tform1.ShowHTML(src:string;iebrw:TEmbeddedWB;ID:integer);
var
vv: Variant;
HTMLDocument: IHTMLDocument2;
tmpStr,tmpfilepath:string;0D
begin
//直接写到浏览器里。
vv := VarArrayCreate([0,0],varVariant);
vv[0] := '<base href="'+LocalPath+'"/>'+ src+ tmpStr;
try
ieBrw.Navigate('about:blank'); //这里必须要
HTMLDocument := iebrw.Document as IHTMLDocument2;
HTMLDocument.write(PSafeArray(TVarData(vv).VArray));
HTMLDocument.charset:3D 'gb2312';
HTMLDocument.close;
except
statusbar1.Panels[0].Text:='写浏览器出错';
end;
HtmlDocument:=nil;
end;
两者还有是有区别的。写完后,第一个方法不会改变当前页默认的路径,就是说她是直接改内容。
而第二个就不行了,她完成后,你就会发现网页的属性为"about:blank"
我也说不太清楚。请自己认真体会啊
- 将HTML代码直接加入到TWebbrowser组件中去
- delphi 将 HTML 代码直接加入到 TWebbrowser 组件中去
- 将样式表加入到HTML中
- 将样式表加入到HTML中
- 将样式表加入到HTML中
- 将样式表加入到HTML中
- 如何将tomcat加入到linux服务中去
- 如何将样式表加入到HTML中
- 计算机在加入域时直接将计算机加入到指定OU中
- eclipse快捷将代码打包到方法中去
- 将hibernate得jar包加入到一个Library中去
- UITextView中加入html代码
- 将JTable加入到JScrollPane后,无法向JScrollPane中添加其他的组件的解决方案
- CSS文档怎样加入到HTML中
- 将FLASH加入到网页中
- 将AVS audio加入到ffmpeg中
- 将vim加入到右键菜单中
- 将vim加入到右键菜单中
- 获取NT中系统进程的路径
- windows 2003下asp.Net站点无法使用用户名+密码的方式连接SQLSERVER的问题
- 新型BT软件雏形
- 使用split分割多字符的字符串的方法
- 2005.9.25 精神亢奋
- 将HTML代码直接加入到TWebbrowser组件中去
- 网上书店可行性分析报告(原创)
- XP介面
- DVDRip转成的AVI,播放出现画面抖动的解决方法!
- ASP程序的性能优化
- LINUX常用命令
- 20050925
- 函數指針
- 一个人万岁?