WebBrowser使用乱码问题。
函数如下:
procedure LoadWebBrowser(WebBrowser: TWebBrowser; HTML: WideString);
var
StrStream: TStringStream;
begin
StrStream := TStringStream.Create(HTML);
WebBrowser.Navigate('about:blank');
Application.ProcessMessages;
try
StrStream.Position := 0;
(WebBrowser.Document as IPersistStreamInit).Load(TStreamadapter.Create(StrStream));
finally
StrStream.Free;
end;
end;
调用语句如下:
LoadWebBrowser(WebBrowser, '你好');
奇怪的是 我独立做了个窗体 来加载以上语句 结果文字乱码 而这个语句直接在我父窗体上运行 并不会乱码
更绝的是 一般电脑都正常 测试过程中 开发的其中一台电脑发生这样的情况 怪了 实在找不到问题根本在哪里 所以在此请教大家下 谢谢。。。
[解决办法]
html编码问题吗?
<meta http-equiv="content-type" content="text/html;charset=gb2312">