动态改变Twebbrowser的Charset

var

 Doc:IHTMLDocument2;

begin

 Doc:=wbrowser.document as IHtmlDocument2;

 Doc.Set_charset(widestring('big5'));

end;

Twebbroswer的显示字体有所变化，可是还是不正常

用webbrowser.oleobject.document.chat_set('big5')

webbrowser.refresh

试一下

来自：eagleboost

为什么我总是错过很多机会？其实早就该想到的，但是一念之差，便即天壤之别。当时我要是肯再多考虑一下，多试验一下，这就不会排到第１１条了。下面给出一个函数，搞定，难以想象的简单。

　　procedure SetCharSet(AWebBrowser: TWebBrowser; ACharSet: String);

　　var

　　　RefreshLevel: OleVariant;

　　Begin

　　　IHTMLDocument2(AWebBrowser.Document).Set_CharSet(ACharSet);

　　　RefreshLevel :=7;　　　　　　　　　　　　　　//这个7应该从注册表来，帮助有Bug。

　　　AWebBrowser.Refresh2(RefreshLevel);

　　End;