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;
 

相关阅读 >>

Delphi将图片缩放成指定大小

Delphi 数字排序自动完成

Delphi 校验注册码时的技巧

Delphi原生方法取得文件的md5

Delphi comobj调用wmplayer播放音乐

Delphi图片base64编码

Delphi2010 无法继承窗体的bug

Delphi 十进制十六进制转换

Delphi中format函数的用法

Delphi memo1 数字列设定取值范围

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi Webbrowser1 设置获取编码