簡(jiǎn)介本資源是面向Delphi中高級(jí)開(kāi)發(fā)者的技術(shù)組件包提供EmbeddedWB控件在Delphi 12.3環(huán)境下的完整源碼支持專(zhuān)為需深度定制嵌入式網(wǎng)頁(yè)瀏覽功能的應(yīng)用場(chǎng)景設(shè)計(jì)。該控件基于IE內(nèi)核MSHTML支持網(wǎng)頁(yè)內(nèi)嵌、DOM交互、事件鉤子與下載控制等核心能力適用于開(kāi)發(fā)帶Web前端集成的桌面管理工具、自動(dòng)化測(cè)試界面或企業(yè)級(jí)信息門(mén)戶(hù)客戶(hù)端。壓縮包共226個(gè)文件含65個(gè)Pascal源碼.pas用于邏輯與接口實(shí)現(xiàn)、126個(gè)編譯單元.dcu便于快速集成、22個(gè)包工程.dpk覆蓋D5至XE12多版本兼容性另有.dpr/.dfm/.dproj等工程配置文件及.bat構(gòu)建腳本總大小僅2.44MB結(jié)構(gòu)清晰、即取即用。已有81人學(xué)習(xí)下載開(kāi)發(fā)者可借此深入理解WebBrowser底層封裝機(jī)制復(fù)用RichEditBrowser、IEDownload等模塊代碼并基于MSHTMLEvents、Mshtml_Ewb等關(guān)鍵單元開(kāi)展事件攔截與渲染定制顯著提升跨版本適配與問(wèn)題定位效率。1. 項(xiàng)目背景與核心價(jià)值一個(gè)老牌控件的現(xiàn)代生存之道如果你是一個(gè)有十年以上經(jīng)驗(yàn)的Delphi開(kāi)發(fā)者看到“EmbeddedWB”這個(gè)名字大概率會(huì)心一笑然后眉頭一皺。這個(gè)笑是因?yàn)樗休d了太多用Delphi開(kāi)發(fā)桌面應(yīng)用尤其是需要內(nèi)嵌瀏覽器功能的黃金時(shí)代的記憶。那個(gè)皺眉頭則是因?yàn)槲覀兌记宄贒elphi的漫長(zhǎng)版本迭代和Web技術(shù)日新月異的沖擊下這類(lèi)控件的維護(hù)、兼容和升級(jí)簡(jiǎn)直就是一場(chǎng)噩夢(mèng)。今天要聊的這個(gè)“Delphi 12.3控件之EmbeddedWB-D5-XE12-SRC.7z”就是一個(gè)典型的、試圖將這份“遺產(chǎn)”延續(xù)到現(xiàn)代Delphi環(huán)境如12.3 Athens的打包項(xiàng)目。簡(jiǎn)單來(lái)說(shuō)EmbeddedWB的全稱(chēng)是Embedded Web Browser它本質(zhì)上是一個(gè)對(duì)微軟Internet ExplorerIE瀏覽器內(nèi)核的深度封裝控件。在WebView2基于Chromium的Edge內(nèi)核成為微軟官方推薦方案之前IE內(nèi)核是Windows桌面應(yīng)用內(nèi)嵌網(wǎng)頁(yè)功能最直接、最“原生”的選擇。EmbeddedWB提供了遠(yuǎn)超標(biāo)準(zhǔn)TWebBrowser控件的功能更精細(xì)的導(dǎo)航控制、更豐富的DOM操作接口、Cookie管理、腳本交互、打印控制甚至模擬用戶(hù)操作等。在需要與網(wǎng)頁(yè)進(jìn)行深度交互、自動(dòng)化填表、數(shù)據(jù)抓取在合規(guī)前提下或構(gòu)建混合式桌面應(yīng)用的場(chǎng)景里它曾是無(wú)可替代的利器。那么為什么在2024年的今天我們還需要關(guān)注一個(gè)基于IE內(nèi)核的、名為“D5-XE12-SRC”的控件包它的核心價(jià)值在于“傳承”與“過(guò)渡”。首先“SRC”意味著源代碼這對(duì)于解決控件的版本兼容性問(wèn)題至關(guān)重要。很多從Delphi 7、D2007時(shí)代遺留下來(lái)的項(xiàng)目升級(jí)到XE、10.x乃至12.x時(shí)最大的障礙就是第三方控件。擁有源代碼意味著我們有可能通過(guò)修改編譯條件、調(diào)整單元引用、修復(fù)過(guò)時(shí)的API調(diào)用來(lái)讓這個(gè)老控件在新環(huán)境下“復(fù)活”。其次“D5-XE12”這個(gè)版本跨度標(biāo)識(shí)暗示了這個(gè)打包版本試圖覆蓋從古老的Delphi 5到相對(duì)現(xiàn)代的Delphi XE12即12.3的廣泛版本這本身就是一份寶貴的兼容性測(cè)試成果。對(duì)于維護(hù)歷史項(xiàng)目的團(tuán)隊(duì)這能節(jié)省大量自行適配的時(shí)間。然而我們必須清醒地認(rèn)識(shí)到IE內(nèi)核已于2023年6月被微軟正式終止支持。這意味著依賴(lài)IE內(nèi)核的EmbeddedWB其技術(shù)基礎(chǔ)已經(jīng)走到了生命的盡頭。它不再接收安全更新無(wú)法完美支持現(xiàn)代HTML5、CSS3和ES6 JavaScript標(biāo)準(zhǔn)。因此它的適用場(chǎng)景已經(jīng)非常狹窄僅限于那些需要維護(hù)或遷移歷史遺留項(xiàng)目且項(xiàng)目功能?chē)?yán)重依賴(lài)IE特定行為或ActiveX組件短期內(nèi)無(wú)法重構(gòu)到現(xiàn)代WebView2技術(shù)棧的場(chǎng)景。對(duì)于全新的開(kāi)發(fā)強(qiáng)烈建議直接轉(zhuǎn)向基于TEdgeBrowser封裝WebView2的方案。2. 控件包解構(gòu)從壓縮包到可用的IDE組件拿到一個(gè)名為“EmbeddedWB-D5-XE12-SRC.7z”的壓縮包第一步不是盲目地安裝而是先要理解它的結(jié)構(gòu)評(píng)估其可用性。一個(gè)規(guī)范的控件源碼包通常包含以下核心部分源代碼目錄Source這是核心包含所有.pas單元文件和.dfm窗體文件。對(duì)于EmbeddedWB關(guān)鍵單元通常包括EmbeddedWB.pas主控件、WBConsts.pas常量定義、WBMisc.pas輔助函數(shù)等。你需要檢查這些文件頂部的{$IFDEF}編譯指令看它們是否已經(jīng)為高版本Delphi如12.3定義了條件編譯符號(hào)。演示程序目錄Demos通常包含多個(gè)子目錄每個(gè)子目錄對(duì)應(yīng)一個(gè)展示特定功能的小項(xiàng)目。這是學(xué)習(xí)控件API和驗(yàn)證控件是否正常工作的最佳途徑。幫助文檔Help可能是.chm或.pdf格式。老牌控件的文檔往往非常詳細(xì)是解決復(fù)雜問(wèn)題的金鑰匙。安裝腳本或說(shuō)明Install可能包含.bpl包工程文件.dpk、注冊(cè)腳本.reg或簡(jiǎn)單的文本說(shuō)明ReadMe.txt。針對(duì)Delphi 12.3的安裝前檢查與準(zhǔn)備在Delphi 12.3Athens中安裝這樣一個(gè)歷史跨度極大的控件包你大概率會(huì)遇到以下問(wèn)題必須提前做好準(zhǔn)備路徑與字符集老版本源碼可能使用ANSI編碼而高版本Delphi默認(rèn)是UTF-8。用IDE打開(kāi).pas文件時(shí)如果出現(xiàn)亂碼需要先用Notepad等工具將其轉(zhuǎn)換為UTF-8編碼無(wú)BOM。同時(shí)檢查源碼中所有硬編碼的文件路徑確保它們符合當(dāng)前操作系統(tǒng)的規(guī)范。過(guò)時(shí)的API與單元Delphi在版本演進(jìn)中廢棄了一些單元和函數(shù)。例如早期版本可能大量使用SHDocVw_TLBIE類(lèi)型庫(kù)導(dǎo)入單元而高版本可能有更標(biāo)準(zhǔn)的引用方式。你需要根據(jù)編譯錯(cuò)誤信息查找替代方案。有時(shí)僅僅在項(xiàng)目選項(xiàng)中添加舊版單元所在目錄如$(BDS)\source\Internet就能解決問(wèn)題。設(shè)計(jì)期包與運(yùn)行期包對(duì)于包含可視化控件的源碼通常需要編譯兩個(gè)包一個(gè)設(shè)計(jì)期包包含Dcl前綴用于在IDE組件面板顯示一個(gè)運(yùn)行期包包含核心功能代碼。你需要先編譯并安裝運(yùn)行期包再編譯安裝設(shè)計(jì)期包。一個(gè)具體的安裝流程示例解壓與備份將7z包解壓到一個(gè)不含空格和中文字符的目錄例如D:\Components\EmbeddedWB。立即備份整個(gè)目錄。以管理員身份運(yùn)行Delphi 12.3某些控件安裝需要寫(xiě)注冊(cè)表管理員權(quán)限是必要的。打開(kāi)運(yùn)行期包工程在解壓目錄的Install或Packages子目錄下尋找類(lèi)似EmbeddedWB_R.dpkR for Runtime的文件。用Delphi打開(kāi)它。調(diào)整編譯配置在項(xiàng)目管理器中對(duì)包工程右鍵選擇“Options”。在“Building” - “Delphi Compiler” - “Conditional defines”中確保添加了對(duì)應(yīng)你Delphi版本的符號(hào)如VER360代表Delphi 12.3。在“Library path”中添加源碼所在目錄。嘗試編譯直接點(diǎn)擊編譯CtrlF9。此時(shí)你很可能會(huì)遇到第一個(gè)錯(cuò)誤。例如可能提示“UnitOleCtrlsnot found”。這是因?yàn)楦甙姹綝elphi中該單元可能已更名或合并。你需要搜索Delphi安裝目錄或在線(xiàn)社區(qū)找到正確的單元名可能是Vcl.OleCtrls。迭代修復(fù)根據(jù)編譯錯(cuò)誤逐一修復(fù)。常見(jiàn)操作包括修改uses子句中的單元名、注釋掉或替換已廢棄的函數(shù)調(diào)用、調(diào)整{$IFDEF}條件編譯分支。這個(gè)過(guò)程可能需要一些耐心和對(duì)Delphi版本變化的了解。編譯與安裝運(yùn)行期包編譯成功后右鍵點(diǎn)擊項(xiàng)目選擇“Install”。這會(huì)將其編譯成.bpl文件并注冊(cè)到IDE。處理設(shè)計(jì)期包接著打開(kāi)EmbeddedWB_D.dpkD for Design-time進(jìn)行類(lèi)似操作。成功安裝后你會(huì)在IDE的組件面板上可能在“Internet”或“EmbeddedWB”頁(yè)簽看到TEmbeddedWB等控件。注意如果這個(gè)“D5-XE12”包聲稱(chēng)支持12.3那么上述編譯錯(cuò)誤應(yīng)該較少。但如果錯(cuò)誤太多可能意味著這個(gè)打包版本本身對(duì)12.3的支持并不完善你需要考慮是否值得投入時(shí)間或者尋找社區(qū)更新的分支版本。3. 核心功能實(shí)戰(zhàn)超越TWebBrowser的深度交互成功安裝后TEmbeddedWB控件在用法上與標(biāo)準(zhǔn)的TWebBrowser即TEdgeBrowser的前身類(lèi)似你可以將其拖放到窗體上設(shè)置URL屬性來(lái)導(dǎo)航。但其強(qiáng)大之處在于那些擴(kuò)展的屬性和方法。下面通過(guò)幾個(gè)典型場(chǎng)景展示其核心功能。場(chǎng)景一精確的導(dǎo)航與狀態(tài)控制標(biāo)準(zhǔn)TWebBrowser的導(dǎo)航事件比較簡(jiǎn)單而EmbeddedWB提供了更細(xì)粒度的事件如OnBeforeNavigate2,OnNavigateComplete2,OnDocumentComplete等并且能更容易地獲取導(dǎo)航狀態(tài)。procedure TForm1.EmbeddedWB1BeforeNavigate2(Sender: TObject; const pDisp: IDispatch; const URL, Flags, TargetFrameName, PostData, Headers: OleVariant; var Cancel: WordBool); begin // 在導(dǎo)航開(kāi)始前進(jìn)行攔截例如檢查URL是否在白名單內(nèi) if Pos(forbidden-site.com, URL) 0 then begin Cancel : True; ShowMessage(訪(fǎng)問(wèn)被禁止); end; Memo1.Lines.Add(即將導(dǎo)航至: URL); end; procedure TForm1.EmbeddedWB1DocumentComplete(Sender: TObject; const pDisp: IDispatch; const URL: OleVariant); begin // 僅在主框架文檔加載完成時(shí)觸發(fā)避免子框架重復(fù)觸發(fā) if EmbeddedWB1.Application pDisp then begin Memo1.Lines.Add(主文檔加載完成: URL); // 此時(shí)可以安全地執(zhí)行DOM操作或腳本注入 end; end;場(chǎng)景二DOM操作與數(shù)據(jù)提取這是EmbeddedWB的殺手級(jí)功能。你可以像在JavaScript中一樣遍歷和操作HTML元素。procedure TForm1.ButtonExtractLinksClick(Sender: TObject); var Doc: IHTMLDocument2; AllLinks: IHTMLElementCollection; Link: IHTMLElement; i: Integer; begin // 獲取文檔接口 Doc : EmbeddedWB1.Document as IHTMLDocument2; if Doc nil then Exit; // 獲取所有a標(biāo)簽 AllLinks : Doc.getElementsByTagName(a); ListBox1.Clear; for i : 0 to AllLinks.length - 1 do begin Link : AllLinks.item(i, 0) as IHTMLElement; // 獲取鏈接的href和文本 ListBox1.Items.Add(Link.innerText - (Link as IHTMLAnchorElement).href); end; end; procedure TForm1.ButtonFillFormClick(Sender: TObject); var Doc: IHTMLDocument2; UserNameInput, SubmitBtn: IHTMLElement; begin Doc : EmbeddedWB1.Document as IHTMLDocument2; if Doc nil then Exit; // 通過(guò)ID獲取輸入框 UserNameInput : Doc.getElementById(username); if Assigned(UserNameInput) then (UserNameInput as IHTMLInputElement).value : MyUser; // 通過(guò)Name獲取按鈕并點(diǎn)擊 SubmitBtn : (Doc.all as IHTMLElementCollection).item(submitBtn, 0) as IHTMLElement; if Assigned(SubmitBtn) then (SubmitBtn as IHTMLInputElement).click; end;場(chǎng)景三JavaScript與Delphi的雙向通信EmbeddedWB可以方便地讓Delphi代碼調(diào)用頁(yè)面中的JavaScript函數(shù)也可以讓JavaScript調(diào)用Delphi中暴露的方法。Delphi調(diào)用JSprocedure TForm1.ButtonCallJSClick(Sender: TObject); var JSCode: string; begin // 執(zhí)行一段JS代碼計(jì)算頁(yè)面中某個(gè)元素的數(shù)量 JSCode : alert(段落數(shù)量: document.getElementsByTagName(p).length);; EmbeddedWB1.ExecuteScript(JSCode); end;JS調(diào)用Delphi這需要更多的設(shè)置。首先你需要將一個(gè)Delphi對(duì)象通常是一個(gè)實(shí)現(xiàn)了IDispatch接口的類(lèi)暴露給JavaScript。type TMyExternalObject class(TInterfacedObject, IDispatch) public function Invoke(DispID: Integer; const IID: TGUID; LocaleID: Integer; Flags: Word; var Params; VarResult, ExcepInfo, ArgErr: Pointer): HResult; stdcall; // 可以在這里定義更多方法... end; // 在窗體創(chuàng)建時(shí)將對(duì)象暴露給WebBrowser procedure TForm1.FormCreate(Sender: TObject); begin EmbeddedWB1.OnGetExternal : GetExternal; end; procedure TForm1.GetExternal(Sender: TCustomEmbeddedWB; var ppDispatch: IDispatch); begin ppDispatch : TMyExternalObject.Create; end;然后在TMyExternalObject.Invoke方法中處理來(lái)自JS的調(diào)用。同時(shí)在HTML頁(yè)面中可以通過(guò)window.external.YourMethodName()來(lái)調(diào)用Delphi端的方法。場(chǎng)景四Cookie與緩存管理對(duì)于需要管理用戶(hù)會(huì)話(huà)或清理痕跡的應(yīng)用EmbeddedWB提供了直接操作Cookie和緩存的能力。procedure TForm1.ButtonClearCacheClick(Sender: TObject); begin // 清除所有Internet臨時(shí)文件、Cookie、歷史記錄等 EmbeddedWB1.ClearCache; EmbeddedWB1.ClearCookies; ShowMessage(緩存已清除); end; function TForm1.GetCookie(const Url, CookieName: string): string; var Cookie: string; begin // 獲取特定URL下的某個(gè)Cookie值注意此功能受IE安全策略限制 if EmbeddedWB1.GetCookie(Url, CookieName, Cookie) then Result : Cookie else Result : ; end;4. 版本兼容性陷阱與深度排錯(cuò)指南即便成功安裝了“D5-XE12-SRC”包在實(shí)際項(xiàng)目中使用時(shí)尤其是在不同Delphi版本間遷移項(xiàng)目時(shí)你依然會(huì)面臨重重挑戰(zhàn)。以下是幾個(gè)最常見(jiàn)的“坑”及其排查思路。問(wèn)題一設(shè)計(jì)期控件丟失與“幽靈”錯(cuò)誤這是最令人頭疼的問(wèn)題之一在IDE中打開(kāi)一個(gè)包含TEmbeddedWB的窗體控件顯示為灰色框提示“Class TEmbeddedWB not found”或“Error reading EmbeddedWB1.XXX: Property does not exist”。保存關(guān)閉后重新打開(kāi)問(wèn)題依舊。根因分析這通常不是控件本身的問(wèn)題而是Delphi IDE的設(shè)計(jì)期信息.dcu文件、注冊(cè)信息與實(shí)際的.bpl文件或源碼路徑不同步造成的。.dfm文件在保存時(shí)存儲(chǔ)的是控件屬性的二進(jìn)制流。當(dāng)IDE無(wú)法在已注冊(cè)的包中找到對(duì)應(yīng)的類(lèi)時(shí)就無(wú)法正確加載這個(gè)流。深度排查鏈路檢查包安裝狀態(tài)在IDE菜單Component - Install Packages中查看列表里是否有EmbeddedWB相關(guān)的設(shè)計(jì)期包如EmbeddedWB_D.bpl。確保其被勾選且路徑正確。檢查搜索路徑進(jìn)入Tools - Options - Language - Delphi Options - Library檢查“Library path”和“Browsing path”是否包含了EmbeddedWB源碼和編譯輸出目錄。特別注意路徑順序高版本Delphi的路徑應(yīng)優(yōu)先于舊版本路徑避免鏈接到錯(cuò)誤的.dcu文件。清理IDE緩存關(guān)閉Delphi手動(dòng)刪除項(xiàng)目目錄下的所有.dproj.local,.identcache,__history文件夾以及用戶(hù)目錄下的Embarcadero\Studio\23.0\CatalogRepository和BDS\23.0中的部分緩存文件夾具體路徑因版本而異。這是一個(gè)非常有效的“重啟大法”。重建包徹底卸載EmbeddedWB包在Install Packages中移除關(guān)閉Delphi。刪除所有已編譯的.bpl和.dcu文件。重新以管理員身份打開(kāi)Delphi從運(yùn)行期包開(kāi)始重新編譯并安裝。檢查.dfm文件用文本編輯器打開(kāi)出問(wèn)題的窗體.dfm文件查看object EmbeddedWB1: TEmbeddedWB這一行是否正常。有時(shí).dfm文件內(nèi)部可能損壞可以嘗試從備份恢復(fù)或創(chuàng)建一個(gè)新的TEmbeddedWB控件然后手動(dòng)將舊控件的屬性賦值過(guò)去。問(wèn)題二運(yùn)行時(shí)錯(cuò)誤“EOleSysError”或“接口不支持”程序編譯通過(guò)但運(yùn)行時(shí)點(diǎn)擊與網(wǎng)頁(yè)交互的按鈕時(shí)彈出“EOleSysError: 接口不支持”或類(lèi)似的OLE錯(cuò)誤。根因分析這通常是因?yàn)闆](méi)有正確初始化OLE庫(kù)或者IE內(nèi)核本身未安裝/被禁用。在Delphi中使用COM組件包括WebBrowser控件前必須調(diào)用OleInitialize或CoInitialize。高版本Delphi的VCL框架通常會(huì)在主窗體初始化時(shí)自動(dòng)處理但在DLL、線(xiàn)程或某些特定情況下可能遺漏。解決方案在主程序.dpr文件的begin語(yǔ)句后立即添加初始化代碼program MyApp; uses Vcl.Forms, Unit1 in Unit1.pas, ActiveX; // 引入ActiveX單元 {$R *.res} begin // 初始化COM庫(kù) CoInitializeEx(nil, COINIT_APARTMENTTHREADED); // 或者對(duì)于舊版兼容OleInitialize(nil); Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; // 程序退出時(shí)清理 CoUninitialize; end.確保操作系統(tǒng)IE功能未被禁用。在Windows“啟用或關(guān)閉Windows功能”中檢查“Internet Explorer 11”是否被勾選。即使你使用EdgeIE組件對(duì)于WebBrowser控件仍是必需的。如果錯(cuò)誤信息與特定接口如IHTMLDocument2相關(guān)檢查類(lèi)型庫(kù)導(dǎo)入是否完整。嘗試在uses子句中明確添加MSHTML單元它包含了IE DOM的核心接口聲明。問(wèn)題三高DPI或不同Windows主題下顯示異?？丶陂_(kāi)發(fā)機(jī)器上顯示正常但在高分辨率屏幕或開(kāi)啟了不同縮放比例的電腦上網(wǎng)頁(yè)內(nèi)容顯示錯(cuò)位、控件本身大小異常。根因分析TEmbeddedWB作為一個(gè)較老的VCL控件其本身對(duì)高DPI感知DPI Awareness的支持可能不完善。VCL在高DPI下的縮放是窗體級(jí)別的但內(nèi)嵌的IE渲染引擎是系統(tǒng)組件其DPI感知模式可能與宿主窗體不匹配。應(yīng)對(duì)策略應(yīng)用程序清單確保你的項(xiàng)目有一個(gè)正確的清單文件.manifest聲明其DPI感知級(jí)別?？梢栽陧?xiàng)目選項(xiàng)Application - Manifest中選擇“High DPI Aware”。對(duì)于更精細(xì)的控制可以手動(dòng)編輯.rc文件。運(yùn)行時(shí)設(shè)置在程序啟動(dòng)時(shí)調(diào)用SetProcessDPIAware或SetProcessDpiAwarenessAPI來(lái)明確設(shè)置DPI感知模式。但要注意這可能會(huì)影響整個(gè)應(yīng)用程序的縮放行為?？丶叽缱赃m應(yīng)避免在設(shè)計(jì)期給TEmbeddedWB設(shè)置固定的Width和Height。使用Align屬性如alClient讓其隨窗體自適應(yīng)或者在其父容器的OnResize事件中動(dòng)態(tài)計(jì)算并設(shè)置其大小。接受現(xiàn)實(shí)對(duì)于非常古老且不再維護(hù)的控件有時(shí)完美的DPI支持是不現(xiàn)實(shí)的。如果項(xiàng)目要求嚴(yán)格這可能成為推動(dòng)你遷移到現(xiàn)代控件如TEdgeBrowser的一個(gè)有力理由。問(wèn)題四與系統(tǒng)IE安全策略沖突導(dǎo)致功能受限一些高級(jí)功能如跨域Cookie訪(fǎng)問(wèn)、執(zhí)行某些ActiveX腳本、或訪(fǎng)問(wèn)本地文件系統(tǒng)可能會(huì)被IE的安全策略Security Zone阻止彈出安全警告或靜默失敗。理解安全區(qū)域IE將不同的URL劃分到不同的安全區(qū)域Internet、本地Intranet、受信任站點(diǎn)、受限制的站點(diǎn)每個(gè)區(qū)域有不同的安全設(shè)置。解決方案需謹(jǐn)慎將目標(biāo)站點(diǎn)加入受信任區(qū)域?qū)τ趦?nèi)部應(yīng)用這是最直接的方法。通過(guò)組策略或手動(dòng)在IE設(shè)置中添加站點(diǎn)到“受信任站點(diǎn)”。調(diào)整安全級(jí)別降低“本地Intranet”或“受信任站點(diǎn)”區(qū)域的安全級(jí)別例如允許運(yùn)行ActiveX控件和腳本。注意這會(huì)降低安全性?xún)H在內(nèi)網(wǎng)可信環(huán)境下考慮。使用Feature Control通過(guò)注冊(cè)表或組策略為你的可執(zhí)行文件設(shè)置特定的Feature Control鍵值可以繞過(guò)某些安全限制。這是一個(gè)高級(jí)且風(fēng)險(xiǎn)較高的操作需要對(duì)IE安全模型有深入理解并且不同Windows版本和IE版本差異很大不推薦普通用戶(hù)操作。5. 從EmbeddedWB到現(xiàn)代方案的遷移思考面對(duì)IE內(nèi)核的終結(jié)和EmbeddedWB的種種兼容性難題為現(xiàn)有項(xiàng)目規(guī)劃未來(lái)是必須的。遷移到基于WebView2的TEdgeBrowser控件是官方推薦的路徑。這個(gè)過(guò)程并非簡(jiǎn)單的控件替換而是一次架構(gòu)升級(jí)。核心差異與遷移挑戰(zhàn)異步編程模型WebView2的API絕大多數(shù)是異步的。例如導(dǎo)航、執(zhí)行腳本、獲取DOM內(nèi)容都需要通過(guò)回調(diào)函數(shù)或async/await在Delphi 10.4支持來(lái)處理。這與EmbeddedWB的同步或基于事件的模型有根本不同。EmbeddedWB風(fēng)格EmbeddedWB1.Navigate(...);然后等待OnDocumentComplete事件。WebView2風(fēng)格EdgeBrowser1.Navigate(...);然后需要處理OnNavigationCompleted事件或者使用ICoreWebView2接口的異步方法。DOM訪(fǎng)問(wèn)方式WebView2不直接暴露類(lèi)似IHTMLDocument2的COM接口。你需要通過(guò)執(zhí)行JavaScript來(lái)與頁(yè)面內(nèi)容交互并通過(guò)事件監(jiān)聽(tīng)來(lái)接收來(lái)自JavaScript的消息。獲取頁(yè)面標(biāo)題在EmbeddedWB中可能是(EmbeddedWB1.Document as IHTMLDocument2).title。在WebView2中你需要EdgeBrowser1.ExecuteScript(document.title, Callback)然后在回調(diào)函數(shù)中處理結(jié)果。功能映射與替代EmbeddedWB的許多特有功能在WebView2中可能有不同的實(shí)現(xiàn)方式或需要更多代碼。Cookie管理EmbeddedWB有ClearCookies方法。WebView2需要通過(guò)ICoreWebView2CookieManager接口來(lái)操作。打印控制EmbeddedWB有Print等方法。WebView2通過(guò)ICoreWebView2PrintSettings和PrintToPdfAsync等方法提供更強(qiáng)大的打印支持。遷移策略建議漸進(jìn)式遷移對(duì)于大型項(xiàng)目不要試圖一次性重寫(xiě)所有功能?？梢試L試在新的窗體或模塊中使用TEdgeBrowser逐步替換掉舊的TEmbeddedWB功能模塊。兩者甚至可以在同一個(gè)應(yīng)用程序中共存一段時(shí)間需注意運(yùn)行時(shí)依賴(lài)WebView2需要安裝運(yùn)行時(shí)。抽象接口層如果項(xiàng)目中大量使用瀏覽器功能可以考慮定義一個(gè)抽象的“瀏覽器操作接口”然后分別用TEmbeddedWB和TEdgeBrowser實(shí)現(xiàn)兩套適配器。這樣業(yè)務(wù)邏輯代碼不依賴(lài)于具體控件遷移時(shí)只需切換適配器的實(shí)現(xiàn)。重點(diǎn)評(píng)估評(píng)估現(xiàn)有功能對(duì)IE內(nèi)核的依賴(lài)程度。如果項(xiàng)目嚴(yán)重依賴(lài)只有IE才支持的ActiveX插件或特定渲染行為如舊版網(wǎng)銀控件那么遷移成本會(huì)極高甚至可能需要保留一個(gè)IE兼容模式或者推動(dòng)第三方升級(jí)其組件。擁抱未來(lái)盡管遷移有陣痛但轉(zhuǎn)向WebView2意味著獲得了現(xiàn)代Chromium內(nèi)核的所有優(yōu)勢(shì)對(duì)最新Web標(biāo)準(zhǔn)的完美支持、更快的性能、更好的安全性和更活躍的生態(tài)。微軟對(duì)WebView2的投入是長(zhǎng)期的這對(duì)于Delphi桌面應(yīng)用的現(xiàn)代化至關(guān)重要。對(duì)于新項(xiàng)目毫無(wú)懸念應(yīng)該直接從TEdgeBrowser開(kāi)始。對(duì)于歷史項(xiàng)目將遷移計(jì)劃提上日程利用“EmbeddedWB-D5-XE12-SRC”這類(lèi)資源完成最后的版本兼容性維護(hù)同時(shí)開(kāi)始技術(shù)驗(yàn)證和原型開(kāi)發(fā)是務(wù)實(shí)而明智的選擇。本文還有配套的精品資源點(diǎn)擊獲取