WebBrowser JS回调delphi的方法 （简单通用）
上一部分讲了Delphi根据方法名调用方法，这一部分还有用到，接着上一章；
【主要原理】
通过TEmbeddedWB控件的OnShowMessage事件捕获弹窗来实现，弹窗时定义方法名和参数，在捕获方法名和参数后，根据后方法名调用方法。
function TForm1.wb1ShowMessage(Sender: TObject; HWND: Cardinal; lpstrText,
lpstrCaption: PWideChar; dwType: Integer; lpstrHelpFile: PWideChar;
dwHelpContext: Integer; var plResult: Integer): HRESULT;
var
str_funcName : string;
str_param : string;
begin
if Pos('JsCallBack:',lpstrText)=0 then //以JsCallBack:开头的信息认为是JS回调
begin
Result := S_OK; //屏蔽弹窗
str_funcName := CopyStr(lpstrText,'JsCallBack:',',',False); //截取JsCallBack:和,之间的字符，CopyStr自己动手写一个吧
str_param := CopyStr(lpstrText,'Param:[',']',False);
ExecuteMethod(Self ,str_funcName ,str_param); //根据方法名调用方法
end;
end;
procedure TForm1.btnJSCallbackClick(Sender: TObject);
var
str_funcName : string;
str_param : string;
str_alert : string;
begin
str_funcName := 'DoJsCall'; //方法名
str_param := 'abc; //参数
str_alert := 'JsCallBack:'+str_funcName+',Param:['+str_param+']';
str_alert := Format('alert(''%s'');',[str_alert]); //通过alert弹窗 alert('JsCallBack:DoJsCall,Param:[abc]');
ExecScript(wb1,str_alert);
end;
最新文章
- Java面试常见知识点总结(二)
- 前端编码规范之CSS
- java常见的开发工具
- PHP 使用命名空间(namespace)，实现自动加载
- 2016---ios面试题
- c#自动更新+安装程序的制作 （转）
- Inno Setup 安装前卸载原程序(转)
- 【转】在PC上测试移动端网站和模拟手机浏览器的5大方法
- xjoi 2082: 小明的序列
- Android不编译某个模块
- 实战之elasticsearch集群及filebeat server和logstash server
- PostgreSQL版本快速升级
- mysql 5.7 json
- F#周报2019年第15期
- vim：放弃hjkl
- January 24th, 2018 Week 04th Wednesday
- Spring使用注解和struts集成
- leetcode 查找每个元素都出现两次的列表，返回只出现一次的元素
- L248 词汇题 2006
- vue 和 react 组件间通信方法对比