DcefBrowser浏览器控件HTML调用Delphi方法详解步骤指南

3星 · 超过75%的资源需积分: 49 21 浏览量更新于2024-09-14 收藏 1KB TXT 举报

"DcefBrowser浏览器控件html调用delphi方法详解步骤" 本文将详细介绍DcefBrowser浏览器控件如何使用HTML回调Delphi方法的步骤，并提供相应的代码示例。一、DcefBrowser浏览器控件简介 DcefBrowser是一个基于Chromium Embedded Framework（CEF）的Delphi浏览器控件，允许开发者在Delphi应用程序中嵌入Web浏览器。该控件支持多种平台，包括Windows、Mac OS X和Linux。二、HTML回调Delphi方法在DcefBrowser控件中，可以使用JavaScript调用Delphi方法。下面是一个简单的示例：首先，在Delphi项目中，定义一个名为TClient的类，该类包含一个名为DoTest的方法，该方法将接收一个字符串参数： ```delphi type TClient = class class procedure DoTest(aName: string); end; class procedure TClient.DoTest(aName: string); var a: string; begin a := aName; // 获取来自JavaScript的参数 Application.MessageBox(PChar(':'+a), 'JSDELPHI', MB_TOPMOST + MB_ICONINFORMATION); end; ``` 三、Delphi项目设置在Delphi项目中，需要将TClient类注册到DcefBrowser控件中，以便JavaScript可以调用Delphi方法。下面是注册TClient类的代码： ```delphi program JsInteract; var iHigh: Integer; aObjList: array of TClass; begin DcefBApp.CefSingleProcess := False; iHigh := High(aObjList); SetLength(aObjList, iHigh + 2); aObjList[iHigh + 1] := TClient; DcefBApp.RegisterClasses(aObjList); if not DcefBApp.Init then Exit; end. ``` 四、HTML文件在HTML文件中，使用JavaScript调用Delphi方法。在本示例中，创建一个名为test.html的HTML文件，内容如下： ```html <!DOCTYPE html> <html> <head> <meta charset="GBK"> <title></title> <link rel="stylesheet" href="../css/pc.css"/> </head> <body> <button type="button" onclick="alert('1'); TClient.DoTest('ABC9'); alert('2');">Click Me!</button> </body> </html> ``` 五、Delphi项目完整代码下面是完整的Delphi项目代码： ```delphi program JsInteract; uses DcefBApp, JsInteract_u; var iHigh: Integer; aObjList: array of TClass; begin DcefBApp.CefSingleProcess := False; iHigh := High(aObjList); SetLength(aObjList, iHigh + 2); aObjList[iHigh + 1] := TClient; DcefBApp.RegisterClasses(aObjList); if not DcefBApp.Init then Exit; DcefBrowser1.AddPage('file:///C:/Users/think/Desktop/test.html'); end. ``` 六、运行结果当用户点击HTML文件中的按钮时，将弹出一个消息框，显示来自JavaScript的参数“ABC9”。本文详细介绍了DcefBrowser浏览器控件如何使用HTML回调Delphi方法的步骤，并提供了相应的代码示例。开发者可以根据需要进行修改和扩展。

DcefBrowser浏览器控件js调用delphi方法详解步骤

1、新增被调用类及方法（比如项目工程文件 JsInteract.dproj）
新增
type
TClient = class
class procedure DoTest(aName: string);
end;

实现

class procedure TClient.DoTest(aName: string);
var
a: string;
begin
a := aName; //get aName from js
Application.MessageBox(PChar('入参是:' + a), 'JS调用DELPHI提示', MB_TOPMOST + MB_ICONINFORMATION);
end;

2、启动初始化前（项目工程文件比如program JsInteract;）
var
iHigh: Integer;
aObjList: array of TClass;

DcefBApp.CefSingleProcess := False;
iHigh := High(aObjList);
SetLength(aObjList, iHigh + 2);
aObjList[iHigh + 1] := TClient;
DcefBApp.RegisterClasses(aObjList);
if not DcefBApp.Init then

下载后可阅读完整内容，剩余2页未读，立即下载

jacylion

粉丝: 1
资源: 5

DcefBrowser浏览器控件HTML调用Delphi方法详解步骤指南

【阳光有点冷Delphi系列】D10.3 Rio可用谷歌控件+CEF4Delphi+DcefBrowser+TChromeTabs+JS网页元素交互实例源码_总裁爹地超给力

Chrome浏览器控件Delphi版dcef3.0

TDcefBrowserDcef的一个版本。

CEF4 浏览器控件， Delphi / C++Builder for RX10.2.x Version: 70.0.3538.77

delphi 控件包详解

Delphi7控件包详解

Delphi ActionList详解

DELPHI控件详解：属性、方法与常用函数指南

Delphi封装串口控件为C#调用的ActiveX组件详解

TAdvStringGrid控件属性事件与方法详解

最新资源