动态改变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;