WebBrowser JS回调delphi的方法 (简单通用)
来源:互联网 发布:软件测试工具使用手册 编辑:程序博客网 时间:2024/05/17 09:42
上一部分讲了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;
- WebBrowser JS回调delphi的方法 (简单通用)
- Delphi WebBrowser右键的方法
- Delphi webbrowser 的一些方法
- delphi webbrowser 执行js
- Delphi中禁止WebBrowser右键的方法
- Delphi中禁止WebBrowser右键的方法
- delphi执行webbrowser中的js
- delphi WebBrowser的使用方法详解(三)
- delphi WebBrowser的使用方法详解(六)
- delphi 向webbrowser打开的网页中插入js命令
- delphi webbrowser 常用方法示例
- delphi webbrowser 常用方法示例
- delphi去除webbrowser滚动条的正确方法(流传的都不对)
- Delphi中webbrowser的document 对象的属性方法事件
- delphi 使用webbrowser取得网页中表格(Table)内容的正确方法
- delphi使用webbrowser取得网页中无序列表(ul)内容的正确方法
- Delphi控件的通用删除方法
- Delphi 2010 破解的方法[通用]
- Struct和Class的区别
- Linux find命令
- 时间复杂度和空间复杂度
- Reader 和 Writer
- 分布式系统基础
- WebBrowser JS回调delphi的方法 (简单通用)
- C# 数组冒泡排序(升序排序):
- Android 活动注册+主活动设置
- SSH登录安全策略
- Spring动态切换多数据源解决方案
- LDAP
- ligerui 表格中设置单元格不可编辑,添加行,删除行
- Visual Studio Code v1.16发布
- Spring MVC重定向参数传递