用慣了EmbeddedWB,不想換,但是IE內核一直存在內存泄漏問題,沒辦法,只有尋找替代品了。
要把用習慣的EmbeddedWB換成完全不一樣的TChromium,有點挑戰,特別是在資料不多,英語沒過三級的情況下。未來趨勢是這樣,只有慢慢啃了。
首先,想到的是跨域,如果不能跨域,就沒辦法替代手上的成品。TChromium的跨域比想像中的簡單,直接通過chrm.Browser.GetFrameNames(list);//list:tstringList;取得各個IFrame/Frame的名稱(所謂名稱不是指name屬性,只是一個標識,在有name時,返回name,沒有name時,ID 也行,都沒有時,自動生成一個唯一名稱),如:
ff //這個是一個框架的ID
<!--framePath //ff/<!--frame0-->-->
<!--framePath //ff/<!--frame1-->-->
<!--framePath //ff/<!--frame2-->--> //后面三個是自動生成的唯一名稱
獲取指定Frame時,通過chrm1.Browser.Frame['frame 的名稱'],取得ICefFrame接口,后面的操作請隨意。
常用方法:
獲取主框架 chrm1.browser.MainFrame
獲取源代碼 s := chrm1.browser.MainFrame.Source;
其次是填表,用過google瀏覽器的都知道,其填表功能實在強大,在webbrowser時代,一般都是獲取表單元素的各種接口,然后設置其value、checked等屬性,而在TChromium中,一切皆js,把想做的事都讓js去執行吧,所以,用TChromium,js功力深厚的會輕松很多了。比如:
strTemp := 'document.forms[0].inmembername.value="User_Name";'; JavaExec(strTemp); strTemp := 'document.forms[0].inpassword.value="Password";'; JavaExec(strTemp); strTemp := 'document.forms[0].submit.click();'; chrm.browser.Frame['ff'].ExecuteJavaScript(str,'about:blank',0);; //想在哪一層frame執行,就調用哪一層
直接在某一個frame下執行JS
例如:
<frame id="IndexFrame" name="IndexFrame" scrolling="auto" noresize="noresize" style="overflow-x:hidden" src="Mark_Six.aspx?uid=42a0d760-1cdf-4004-90ed-bb5fef01a2c0">
網頁源碼如上: 我要在是frame id="IndexFrame下給紅色的Input 賦值。並不需要遍歷Ifame 直接 直接找到
var inputs = framesEl.contentWindow.document.getElementsByName('input');
inputs = inputs && inputs.length > 0 ?inputs:framesEl.contentDocument.getElementsByTagName('input');
for (var i = 0; i < inputs.length; i++) {
input = inputs[i];
if(input){
var point = input.getAttribute('data-fx');
var css = input.getAttribute('class');
if(point == index && css=='input'){
break;。。。。。。
更神奇的是,還可以通過以下方法加載屬於自己的jquery到瀏覽器中:
procedure TForm3.chrm1LoadEnd(Sender: TCustomChromium;
const browser: ICefBrowser; const frame: ICefFrame; httpStatusCode: Integer; out Result: TCefRetval); var str:string; begin str:='var oHead = document.getElementsByTagName(''HEAD'').item(0);'#13#10+ 'var oScript = document.createElement( "script" );'#13#10+ 'oScript.language = "javascript";'#13#10+ 'oScript.type = "text/javascript";'#13#10+ 'oScript.id = "sid";'#13#10+ 'oScript.defer = true;'#13#10+ 'oScript.src = "jquery.js";'#13#10+ 'oHead.appendChild( oScript );'#13#10+ 'alert("8")' ; Frame.ExecuteJavaScript(str,'about:blank',0); end;
直接連接本地的js!!!這段代碼最后寫在LoadEnd中,每加載完成一個frame,就讓這個frame加載自己的jquery,如果在需要使用的時候再去加載jquery,jquery加載是需要時間的,可能會導致緊接着的js代碼不能生效。
注意事項:Delphi執行JS的代碼,必須注意大小寫,特別是自己寫的JS函數,因為JS是區分大小寫的!~
下一篇主要講解DELPHI與JS交互的更深層次方面。