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 edit 让密码变成点

Delphi 合并两个 wav 文件流的函数

Delphi 防止程序重复执行的单元

Delphi钩子注入程序

Delphi 将汉字翻译成拼音缩写的函数

Delphi 2009 之 tstringbuilder 类[3]: replace

Delphi编程禁止用户关闭操作系统

Delphi setprivilege 提权代码

Delphi 每年、月、周、日的开始与结束的时间startofayear … startoftheyear … endofayear … endoftheyear

tidtcpserver控件中文指南

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

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