1、如何在dcef3当中执行js代码

procedure TForm1.btnWriteZMClick(Sender: TObject);
var
  js: string;
begin
  js := 'document.getElementById(''login_button'').click();';    //获得ID为"login_button"并点击
  crm.Browser.MainFrame.ExecuteJavaScript(js, 'about:blank', 0);   //执行js
end;

2、如何给输入框赋值

procedure TForm1.btnWriteZMClick(Sender: TObject);
var
  js: string;
begin
  js := 'document.getElementById(''u'').value=''123123''';    //获得ID为"u"的输入框并赋值
  crm.Browser.MainFrame.ExecuteJavaScript(js, 'about:blank', 0);   //执行js
end;

 

3、如何获得js执行的返回值

procedure TForm1.btn1Click(Sender: TObject);
var
js: string;
begin
js := 'var uPage=document.getElementById(''errorMessage_lol'').innerText; alert(uPage);'; //获取errorMessage_lol文本值,并通过alert提交给crmJsdialog事件
crm.Browser.MainFrame.ExecuteJavaScript(js, 'about:blank', 0);
end;

//获取内容

procedure TForm1.crmJsdialog(Sender: TObject; const browser: ICefBrowser; const originUrl, acceptLang: ustring; dialogType: TCefJsDialogType; const messageText, defaultPromptText: ustring; callback: ICefJsDialogCallback; out suppressMessage, Result: Boolean);
begin
Memo1.Lines.Clear;
Memo1.Lines.Add(messageText);   //这里获得alert弹框发送的内容
Result := False; //这里返回true标识不弹出对话框
end;
————————————————
版权声明:本文为CSDN博主「淡淡的风8620」的原创文章,遵循 CC 4.0 BY-SA 版权协议,转载请附上原文出处链接及本声明。
原文链接:https://blog.csdn.net/cc001100/article/details/81905878

Last modification:January 29th, 2020 at 12:08 pm
如果觉得我的文章对你有用,请随意赞赏