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 自带的 base64 编解码函数

Delphi 读写文本

Delphi2010显示选择文件夹对话框 (有新建按钮)

Delphi 拼接文件路径

Delphi中stringgrid删除行

Delphi midstr 返回指定范围内的字符串

Delphi xe下文件转base64编码函数

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

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