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;