delphi|delphi 跟 WebBrowser 中JS 交互思路
最近才接触delphi在其他语言中跟WebBrowser 中JS交互很轻松,可在delphi中交互却并不容易
【delphi|delphi 跟 WebBrowser 中JS 交互思路】问题有：
wb1.OleObject.Document.parentWindow.execScript('setData(1)', 'javascript');
以上代码可以调用网页JS 但delphi 得不到返回的js的返回值。
解决办法：
JS代码：
var result='';
//申明一个全局的返回变量值
function setData(s){
result='OK接收了数据';
}
delphi 代码：
wb1.OleObject.Document.parentWindow.execScript('setData(1)', 'javascript');
wb1.OleObject.Document.parentWindow.result
比如WebBrowser想主动调用delphi 似乎则无可下手。
完美解决方法网上有但问题依然太多。
我想起了10年前接触编程所使用Flash跟JS通信的一个案例。
利用修改网页标题来得到所传递的参数返回值。
但在delphi 中此方法并不是很好。网页标题会出现259的文字长度限制
只能另辟新方法：改变WebBrowser的URL获取当前的URL值。从中获得参数,
可是此方法似乎也是问题多多。也并不完美。行不通还得再换方法。
最终解决方法：监听WebBrowser的onBeforeNavigate2 事件 获得post的数据 这样就能解决 WebBrowser主动调用delphi函数。而且支持大数据的传递
procedure TForm2.e(ASender: TObject;
const pDisp: IDispatch;
var URL, Flags, TargetFrameName, PostData, Headers: OleVariant;
var Cancel: WordBool);
var
i: integer;
postStr: string;
postAry: array of byte;
begin
if Headers<>'' then
begin
postAry := PostData;
for i := 0 to Length(postAry) do
postStr := postStr + chr(postAry[i]);
ShowMessage(postStr);
end;
end;
推荐阅读
- “不完美，才美”01（190410）
- 良心
- 我的小叔
- 只有经历了才真正懂得的伤痛
- 跟身体谈恋爱
- 诱惑的世界
- 每一根头发丝都在跟我说我今天很开心
- 爱情就是“你要去哪，我跟你一起去”
- HTML基础--基本概念--跟着李南江学编程
- 你有跟人打过架吗（）