不保存成html在程序中能直接显示吗?
记得用其他语言时能够直接复制显示,网上找了一下都是nagigate打开.html
记得用其他语言时能够直接复制显示,网上找了一下都是nagigate打开.html
解决方案 »
- 公司给的给芯片烧录Flash的软件,在笔记本上打开时出现Access violation at address....
- 用delphi开发报表,是最合适的工具吗?
- Tlistview选中的颜色,Viewstyle为vsReport,RowSelect为true,CheckBoxs为True,SmallImages的模式下
- 浏览器的前进和后退
- 关于union的用法
- 请教大虾弱弱的一段代码
- 请高手帮小妹个忙,谢谢!问题解决,马上结贴!
- 听说Borland是微软的一个子公司?
- 什么地方有teechart for D6版本下载?
- "not found xxx.dcu"如何处理?新手~_^
- 请教一个问题:dephi+SQL server 中 delete from paper_data1 where word='是' or word='中' 报错
- 怎么改变delphi 应用程序图标即.exe的图标?
var
s: string;
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);
ms.Seek(0, 0);
(WebBrowser.Document as IPersistStreamInit).Load(TStreamAdapter.Create(ms));
finally
ms.Free;
end;
finally
sl.Free;
end;
end;
end;
begin
s := '<font color=red>test</font>';
WB_LoadHTML(WebBrowser1, s);
end;