delphi Webbrowser1 设置获取编码

设置编码

procedure Set_charset(const p: WideString); safecall;

function Get_charset: WideString; safecall;

p的编码列表有哪些

//设置编码

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

var

RefreshLevel: OleVariant;

Begin

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

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

AWebBrowser.Refresh2(RefreshLevel);

End;

//Webbrowser1获取当前页面编码

Caption:=IHTMLDocument2(Webbrowser1.Document).Get_charset;

推荐分享