在dcef3當中執行js程式碼並獲得返回值
https://tw.saowen.com/a/aa503b54a738240edfc17b7e5046d04ba21602378b6aac35c197416a3298912a
2017-06-13 / VIEWS: 5
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;
關鍵詞：js 執行 獲得 返回 dcef sender begin 當中 tobject tform
相關推薦：
怎樣實現在DBGrid中雙擊選擇整行，並且可以多選？謝謝！！
delphi 多執行緒之 TEvent 和 TLightweightEvent
delphi 多執行緒之System.TMonitor （續一）
