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