delphi TChromium控件（delphi memo控件）

嵌入式Chromium框架(简称CEF) 是一个由Marshall Greenblatt在2008建立的开源项目，它主要目的是开发一个基于Google Chromium的Webbrowser控件。CEF支持一系列的编程语言和操作系统，并且能很容易地整合到新的或已有的工程中去。

它的设计思想政治就是易用且兼顾性能。CEF基本的框架包含C/C++程序接口，通过本地库的接口来实现，而这个库则会隔离宿主程序和Chromium&Webkit的操作细节。它在浏览器控件和宿主程序之间提供紧密的整合，它支持用户插件，协议，javascript对象以及javascript扩展，宿主程序可以随意地控件资源下载，导航，下下文内容和打印等，并且可以跟Google Chrome浏览器一起，支持高性能和Html5 技术,

————————————————

版权声明：本文为CSDN博主「vx_xtfnpgy」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。

原文链接：https://blog.csdn.net/xtfnpgy/article/details/46635225

框架接口：

CefBrowser是主要的浏览器窗口类，可以用静态的函数CreateBrowser() 和CreateBrowserSync() 来创建一个新的浏览器窗口。

CefFrame 代表一个浏览器窗口的框架，每个浏览器窗口有一个顶层的主框架，而这个主框架可以用GetMainFrame() 方法得到。

CefClient是主浏览器窗口的代表接口，这个接口做为参数传递给CreateBrowser()

CefRequest 代表URL，方法，发送数据和头文件等这样的请求。

CefSchemeHandleFactory 类是被用来处理像myscheme://mydomain类似客户计划的请求

CefReadHandler和CefWriteHandle是一个读写数据的简单接口。

CefV8Handler,CefV8Value和CefV8Context是被用来创建和访问JavaScript对象。

安装完成之后，新建一个Demo1,拖一个chromium控件出来并命名为chrm1，并把bin目录下所有文件，复制到你的程序的当前文件夹；

再拖一个button，双击加入代码：

chrm1.Browser.MainFrame.LoadUrl('about:blank'); //第一次必须先加载空白页，才能浏览其他网页

chrm1.Browser.MainFrame.LoadUrl('你要浏览的网址');

获取主框架 chrm1.browser.MainFrame

获取源代码 s := chrm1.browser.MainFrame.Source;

　　其次是填表，用过google浏览器的都知道，其填表功能实在强大，在webbrowser时代，一般都是获取表单元素的各种接口，然后设置其value、checked等属性，而在TChromium中，一切皆js，把想做的事都让js去执行吧，所以，用TChromium，js功力深厚的会轻松很多了。比如：

strTemp := 'document.forms[0].inmembername.value="User_Name";';   JavaExec(strTemp); strTemp := 'document.forms[0].inpassword.value="Password";'; JavaExec(strTemp); strTemp := 'document.forms[0].submit.click();'; chrm.browser.Frame['ff'].ExecuteJavaScript(str,'about:blank',0);; //想在哪一层frame执行，就调用哪一层

注入自定义的JS

首先必须在网页加载完成之后，才可以执行，不能为空页面！

str_js := 'var oScript = document.createElement( "script" );oScript.id = "sid";alert(oScript.id);';
chrm1.browser.MainFrame.ExecuteJavaScript(str_js,'about:blank',0);

delphi与JS交互（通过ceflib实现）

Cef3的Demo里面，有一个cefclient的例子，可以看下，关键代码：

TExtension = class(TCefv8HandlerOwn)
  private
    FTestParam: ustring;
  protected
    function Execute(const name: ustring; const obj: ICefv8Value;
      const arguments: TCefv8ValueArray; var retval: ICefv8Value;
      var exception: ustring): Boolean; override;  //重写Execute事件
  end;

遍历网页元素并点击JS:

遍历所有元素

var eles=document.all;
for(var i=0;i<eles.length;i++){var a;
var d=eles[i];
var s=eles[i].getAttribute("class");
if(s!=null){
if((s=='img')||(s=='J_ItemPic img')||(s=='productImg')){
a=eles[i];
a.click();break;
}}}

遍历所有A标签

下面代码为找到淘宝宝贝页面，成交记录元素的代码：

for(var i=0;i<document.getElementsByTagName("A").length;i++){var a;
var d=document.getElementsByTagName("A")[i];
var s=document.getElementsByTagName("A")[i].innerHTML;
if(s!=null){
if(s.indexOf("成交记录")>-1){
a=document.getElementsByTagName("A")[i];alert(a.innerHTML);
ClickElement(a); //由于chromium控件元素不支持click事件，所以需要自己重新绑定事件

break;
}}}

//-----------------点击元素的代码------------------------------

function ClickElement(AObj) {
var e = document.createEvent("MouseEvent");
e.initEvent("click", false, false);
AObj.dispatchEvent(e);
}

根据ID或Name获取元素

1.根据ID

var a=document.getElementById("元素id");

2.根据Name

var b=document.getElementsByName("元素name").item(0);

b.setAttribute("value","输入值");

3.根据TagName

var c=document.getElementsByTagName("INPUT")[0];

var d=document.getElementsByTagName("INPUT").item(0);

如何在Delphi中直接操作Document接口

Button1.OnClick：

chrm1.Browser.MainFrame.VisitDomProc(ChrmDomProc);

procedure ChrmDomProc(const doc : ICefDomDocument); //其他接口有待自己研究
var
s : string;
begin
doc.GetElementById('txtUsername').SetElementAttribute('Value','abc');
s := doc.GetElementById('txtUsername').GetValue;
showmessage(s);
end;

简单实例：

var ele;

ele=document.getElementById('ID');
ele=document.getElementsByName('Name').iteme(0);
ele=docuemnt.getElementsByTagName('TAG');

ele.click();

var e=document.createEvent("MouseEvent");
e.initEvent("Click",false,false);
ele.dispatchEvent(e);

var c=document.getElementsByTagName("INPUT").item(0);

模拟移动鼠标

// SetCursorPos(StrToInt(Edit1.Text),StrToInt(Edit2.Text)); //相对屏幕位置
SetCursorPos(Self.Left+chrm1.Left+strtoint(Edit1.Text),Self.Top+chrm1.Top+strtoint(Edit2.Text)); //相对Chrm位置

mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);//模拟按下鼠标左键。

　　mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);//模拟放开鼠标左键。

　　keybd_event(VK_SHIFT,MapVirtualKey(VK_SHIFT,0),0,0); //按下SHIFT键。
　　keybd_event(0x52,MapVirtualKey(0x52,0),0,0);//按下R键。
　　keybd_event(0x52,MapVirtualKey(0x52,0),KEYEVENTF_KEYUP,0);//放开R键。
　　keybd_event(VK_SHIFT,MapVirtualKey(VK_SHIFT,0),KEYEVENTF_KEYUP,0);//放开SHIFT键。

Chromiume控件指定坐标点击

SendMessage(GetWindow(GetWindow(form1.chrm1.Handle, GW_CHILD), GW_CHILD),WM_LBUTTONDOWN,MK_LBUTTON, MAKELONG(StrToIntDef(Edit1.Text,100),StrToIntDef(Edit2.Text,100)));

SendMessage(GetWindow(GetWindow(form1.chrm1.Handle, GW_CHILD), GW_CHILD),WM_LBUTTONUP,MK_LBUTTON, MAKELONG(StrToIntDef(Edit1.Text,100),StrToIntDef(Edit2.Text,100)));

MK_LBUTTON可以改为0，MAKELONG可以改为MAKELParam

JS控制滚动条的位置：
window.scrollTo(x,y);

竖向滚动条置顶(window.scrollTo(0,0);
竖向滚动条置底 window.scrollTo(0,document.body.scrollHeight)
或： window.scrollByo(0,document.body.scrollHeight)

设置代理ip

ceflib.pas单元：

uses iniFiles;

procedure TInternalApp.OnBeforeCommandLineProcessing(const processType: ustring;
const commandLine: ICefCommandLine);
var
ini : TIniFile;
str_ip : string;
begin
ini := TIniFile.Create(StringReplace(ParamStr(0),'.exe','.ini',[]));
str_ip := ini.ReadString('default','Proxy','');
ini.Free;
commandLine.AppendSwitchWithValue('proxy-server',str_ip);
if Assigned(CefOnBeforeCommandLineProcessing) then
CefOnBeforeCommandLineProcessing(processType, commandLine);
end;

[default]
Proxy=218.189.26.20:8080
Proxy1=218.207.212.79:80

Proxy2=120.203.159.18:8118