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;