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 idhttp访问datasnap有密码验证的中间件

Delphi读ios的设备id

Delphi 64位汇编编程

Delphi twebbrowser 响应回车键(ewb响应正常，无需额外代码)

Delphi 随意将函数执行权限提高到ring0源代码

Delphi 10.4.1的编译器bug终于修正了！

5种运行程序的方法具体应用实例

Delphi多线程学习：多线程数据库查询（ado）

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

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