簡(jiǎn)介面向Delphi 12.3開發(fā)者的nSoftware-IPWorks網(wǎng)絡(luò)通訊組件包是2024年9月4日發(fā)布的版本專用于在RAD Studio中快速集成郵件、FTP、HTTP、POP3/SMTP等網(wǎng)絡(luò)協(xié)議以及SSL加密、云存儲(chǔ)、消息隊(duì)列等能力適合需要處理底層通訊代碼的桌面與跨平臺(tái)應(yīng)用開發(fā)。壓縮包共2000個(gè)文件約382.88MB其中以dproj、dpr、bdsproj工程文件pas、dfm源碼與窗體文件bpl運(yùn)行庫(kù)為主另含大量HTML、CSS、JavaScript、TXT文檔與腳本以及DLL、SO動(dòng)態(tài)庫(kù)目錄結(jié)構(gòu)清晰。目前已有136人學(xué)習(xí)/下載。通過(guò)包內(nèi)官方示例和API文檔開發(fā)者無(wú)需從零編寫通訊底層即可快速為Delphi項(xiàng)目添加文件傳輸、安全認(rèn)證等復(fù)雜功能該組件還支持跨平臺(tái)部署和多語(yǔ)言環(huán)境并附有更新日志與部署文件便于在金融、醫(yī)療等安全要求較高的場(chǎng)景中穩(wěn)定落地。1. 為什么 Delphi 12.3 項(xiàng)目還要裝一套 nSoftware-IPWorks需求清單與選型前的底層判斷接手一個(gè) Delphi 12.3 維護(hù)項(xiàng)目最頭疼的不是界面而是那些繞不開的網(wǎng)絡(luò)協(xié)議設(shè)備那邊只暴露 SNMP 接口文件服務(wù)器只開 SFTP板卡上傳數(shù)據(jù)用的是裸 TCP 私有協(xié)議。用 Indy 能完成一部分但 SNMP 和 SSH 這類協(xié)議在 Indy 里要寫的膠水代碼太多調(diào)試起來(lái)像在翻黑匣子。nSoftware-IPWorks 就是把這一整類協(xié)議封裝成 VCL 控件的商業(yè)套件TIPSFTP、TIPSSH、TIPSNMP、TIPHTTP 覆蓋了從設(shè)備管理到數(shù)據(jù)交換的主流場(chǎng)景。這個(gè)打包日期 2024-09-04 對(duì)應(yīng)的就是跟著 RAD Studio 12.3 走的版本很多學(xué)習(xí) Delphi 的朋友在搭企業(yè)級(jí)工具時(shí)都會(huì)先確認(rèn)這套控件。下面按“裝完能用、能排錯(cuò)、能復(fù)現(xiàn)”的順序把這套控件落到 Delphi 12.3 的工程里。2. 認(rèn)準(zhǔn)控件族譜再動(dòng)手IPWorks 的協(xié)議矩陣與兩種典型場(chǎng)景2.1 TIP 前綴的命名規(guī)則從協(xié)議名到控件名的映射IPWorks 的 Delphi 版本從命名上就能看出它在網(wǎng)絡(luò)協(xié)議上的野心幾乎每個(gè)協(xié)議對(duì)應(yīng)一個(gè) TIP 開頭的控件。常用的有 TIPHTTP、TIPFTP、TIPSFTP、TIPSSH、TIPSNMP、TIPSMTP、TIPDNS、TIPWebSocket、TIPTCP、TIPUDP、TIPIPInfo、TIPIPMonitor 等等。這個(gè)控件命名規(guī)則能幫你省掉一半查文檔的時(shí)間看到協(xié)議名就能猜到控件的名稱和默認(rèn)單元名。比如項(xiàng)目里要寫一個(gè) SFTP 文件同步不需要引入整個(gè) SSH 協(xié)議棧直接拖一個(gè) TIPSFTP把服務(wù)器地址、賬號(hào)、私鑰路徑填上剩下的就是調(diào)方法和接事件。不過(guò)也要注意IPWorks 是幾十個(gè)控件組成的套件不是某個(gè)控件單獨(dú)發(fā)布。Delphi 12.3 的安裝包里你會(huì)同時(shí)看到幾類東西編譯好的 .bpl 和 .dcu是給 Delphi 編譯器直接用的運(yùn)行時(shí)包和預(yù)編譯單元source 源碼目錄部分授權(quán)會(huì)附帶用于重新編譯或者將來(lái)升級(jí)到新 Delphi 版本samples 示例工程這是最該先看的東西尤其對(duì)協(xié)議解析類控件官方示例里的用法比幫助文檔更接近真實(shí)場(chǎng)景。選型時(shí)第一個(gè)要考慮的問題是你買的是哪個(gè)子集。有些項(xiàng)目只需要 HTTP 和 FTP有些則必須 SSH 和 SNMP。我的習(xí)慣是先列一張需求清單協(xié)議、方向上行還是下行、是否需要證書校驗(yàn)、是否需要異步處理。把清單拿去核對(duì)包內(nèi)文件這個(gè)粒度足夠幫你判斷該用哪一組控件也方便后續(xù)確認(rèn) .rar 里到底有沒有缺文件。別等到項(xiàng)目編譯期再發(fā)現(xiàn)少了個(gè) dcl 包那時(shí)再找供應(yīng)商補(bǔ)文件交付節(jié)奏就亂了。2.2 按業(yè)務(wù)場(chǎng)景選控件數(shù)據(jù)交換與設(shè)備管理是兩種打法盡管控件很多落地時(shí)通常只有兩類場(chǎng)景。一類是數(shù)據(jù)交換。典型需求是程序要把文件推到內(nèi)網(wǎng) FTP或者從某臺(tái)服務(wù)器拉取數(shù)據(jù)。這類直接選 TIPFTP、TIPHTTP、TIPSFTP。TIPHTTP 支持 HTTPS 和證書回調(diào)適合對(duì)接 Web 后端TIPSFTP 針對(duì) SSH 文件傳輸做了優(yōu)化比如主機(jī)密鑰校驗(yàn)、私鑰登錄適合不允許開明文 FTP 的環(huán)境。數(shù)據(jù)交換場(chǎng)景的核心不是控件本身而是文件切分、斷點(diǎn)續(xù)傳、超時(shí)和錯(cuò)誤恢復(fù)策略——控件負(fù)責(zé)協(xié)議剩下的狀態(tài)機(jī)還是得自己設(shè)計(jì)。另一類是設(shè)備管理。公司內(nèi)網(wǎng)的交換機(jī)、路由器、NAS 大多暴露 SNMP 接口Linux 服務(wù)器則靠 SSH 遠(yuǎn)程管理。這類場(chǎng)景常用 TIPSNMP 和 TIPSSH。SNMP 控件的價(jià)值在于把 OID 查詢、MIB 解析、Trap 接收封裝成屬性和事件這在純 Socket 層面自己寫很難做到跨設(shè)備兼容。SSH 控件則適合做遠(yuǎn)程命令執(zhí)行和日志采集配合 SFTP 可以把“登錄采集、回傳文件”這條鏈路串起來(lái)。下面這個(gè)表是兩類場(chǎng)景的控件選擇參考場(chǎng)景類型常用控件關(guān)注點(diǎn)數(shù)據(jù)交換TIPHTTP、TIPFTP、TIPSFTPRange 續(xù)傳、超時(shí)、證書回調(diào)設(shè)備管理TIPSNMP、TIPSSHOID 解析、KEX 算法、命令通道網(wǎng)絡(luò)基礎(chǔ)TIPDNS、TIPIPInfo、TIPIPMonitor域名解析、網(wǎng)卡枚舉、狀態(tài)變化值得注意的是選型階段不要在控件數(shù)量上貪多。一個(gè)項(xiàng)目里真正用到的 IPWorks 控件一般不超過(guò)五個(gè)?？丶缴侔姹緵_突和授權(quán)合規(guī)問題越少。有些開發(fā)者習(xí)慣把所有 IPWorks 控件安裝完就順手拖到窗體上結(jié)果編譯產(chǎn)物體積變大不說(shuō)還容易在后續(xù)升級(jí)時(shí)被無(wú)關(guān)控件的版本更新牽連。2.3 版本匹配要看包內(nèi)文件名.bpl、.dcu、.dpk 各代表什么裝之前先別急著解壓拖進(jìn) IDE。先確認(rèn)這個(gè)包是不是匹配 Delphi 12.3。怎么看打開 .rar 里 lib 或 redist 目錄文件名里通常帶有包名和版本信息比如 ipworks 加數(shù)字結(jié)尾的命名。重點(diǎn)看三點(diǎn)有沒有對(duì)應(yīng) 32 位和 64 位的目錄。Delphi 12.3 默認(rèn)可以同時(shí)做 Win32 和 Win64第三方包必須兩個(gè)平臺(tái)都提供否則切換平臺(tái)時(shí)控件會(huì)消失。有沒有 dcl 前綴的包。dcl 開頭的是設(shè)計(jì)期包運(yùn)行時(shí)不出現(xiàn)在 Install Packages 里就看不到控件面板非 dcl 的是運(yùn)行時(shí)包只負(fù)責(zé)在程序分發(fā)時(shí)跟著 exe 走。有沒有源碼 .dpk。沒有預(yù)編譯包時(shí)可以用 .dpk 在 IDE 里自己編譯但這需要你有源碼授權(quán)光有 .dcu 沒有 .dpk 是沒法重新編譯的。到這里標(biāo)題里 2024-09-04 這個(gè)日期就有用了。它告訴你這是跟著 2024 年那批 RAD Studio 12 更新節(jié)奏走的包編譯器版本大概率對(duì)得上。反過(guò)來(lái)如果你手上是還在用 Delphi 7 的老項(xiàng)目那這個(gè)日期的包可能根本裝不進(jìn)去——舊版 Delphi 的包格式和新版 RAD Studio 不兼容。版本匹配這個(gè)坑比控件本身好不好用更提前出現(xiàn)也更容易讓人在安裝階段就翻車。3. 把 IPWorks 裝進(jìn) Delphi 12.3解壓、路徑與 IDE 注冊(cè)的三步走3.1 解壓 .rar 后先核對(duì)目錄結(jié)構(gòu)解壓后別雙擊 .bpl 試圖“運(yùn)行”它先把目錄看清。干凈的 IPWorks 分發(fā)包通常長(zhǎng)這樣docs 或根目錄下有幫助文檔和 Release Noteslib 下放 .bpl、.dcu、.bpi按 win32 和 win64 分目錄source 下放 Delphi 單元源碼和 .dpk通常用于重編譯samples 下放可打開即跑的示例工程。具體的目錄名可能略有差異但結(jié)構(gòu)基本是這種風(fēng)格。這里最容易踩的坑是把 source 和 lib 混在一起加路徑。編譯器找的是 .dcu不是 .pas。把 .pas 放進(jìn)搜索路徑雖然也能觸發(fā)重編譯但容易在 IDE 里產(chǎn)生“同一個(gè)單元兩個(gè)來(lái)源”的怪問題。我一般只把 lib 目錄加進(jìn)庫(kù)路徑source 目錄單獨(dú)留著只在需要跟代碼確認(rèn)控件行為時(shí)才打開看。另一個(gè)小細(xì)節(jié)是解壓路徑不要帶中文和空格Delphi 的包管理對(duì) Unicode 路徑的支持雖然比老版本好但第三方包安裝階段少一點(diǎn)變量就少一點(diǎn)風(fēng)險(xiǎn)。3.2 配置 Library Path先修默認(rèn)路徑再追加第三方路徑在 Delphi 12.3 里打開 Tools Options Environment Delphi Options Library右側(cè)可以看到 Library path、Search path 和 Browsing path 三欄。和第三方控件相關(guān)的只有 Library path 和 Search path。把 IPWorks 解壓目錄里的 lib\win64 和 lib\win32 分別加進(jìn)去注意當(dāng)前項(xiàng)目是 32 位還是 64 位兩個(gè)平臺(tái)建議都加以后切換平臺(tái)不用回頭再改。這里要先說(shuō)一句默認(rèn)路徑。很多人裝完第三方包編譯報(bào)錯(cuò)報(bào)的不是 IPWorks 單元而是 Delphi 自帶的比如 msxmldom.dcu not found。這個(gè)現(xiàn)象說(shuō)明 IDE 默認(rèn)的庫(kù)路徑已經(jīng)被改亂或者缺失了一段第三方包只是把問題暴露出來(lái)。先點(diǎn) Library path 文本框右側(cè)的按鈕確認(rèn)列表里包含 $(BDSLIB)\win32\release 這類默認(rèn)項(xiàng)再往上追加 IPWorks 路徑。默認(rèn)路徑修好、第三方路徑追加完之后新建一個(gè)工程編譯空 Form確認(rèn)沒報(bào) dcu 錯(cuò)誤再繼續(xù)后續(xù)安裝。先把環(huán)境恢復(fù)正常別帶著病根往下走。3.3 安裝設(shè)計(jì)期包Component Install Packages 加載 dcl 開頭的 .bpl路徑配置只解決編譯期。要在組件面板里拖控件還得讓設(shè)計(jì)期包進(jìn)入 IDE。操作不復(fù)雜但順序有講究菜單 Component Install Packages在右側(cè) Installed packages 列表下方點(diǎn) Add瀏覽到 IPWorks 解壓目錄選擇 dcl 開頭的 .bpl 文件確認(rèn)包名出現(xiàn)在 Installed packages 列表并把前面的勾打上確定后到組件面板搜索 TIP看控件圖標(biāo)是否顯示。如果控件面板里沒出現(xiàn)不要反復(fù)重裝。先重啟 IDE再回到 Install Packages 看包是否真的處于勾選狀態(tài)。很多時(shí)候是 IDE 在包安裝后沒有刷新工具欄面板重啟一次就好。另一個(gè)常見原因是你裝的是運(yùn)行時(shí)包而不是設(shè)計(jì)期包Installed Packages 對(duì)運(yùn)行時(shí)包也會(huì)顯示安裝成功但組件面板里永遠(yuǎn)不會(huì)有控件。判斷辦法就是看包名有沒有 dcl 前綴沒有的話去找到正確的設(shè)計(jì)期包再裝一次。提示安裝包全過(guò)程不需要管理員權(quán)限但如果你把 .bpl 復(fù)制到了 C:\Windows\System32就在動(dòng)手前勸退自己——這是 ActiveX 時(shí)代的舊習(xí)慣VCL 包放到 IDE 的 bin 目錄即可。如果真的裝的是 ActiveX 控件版本安裝路徑完全不同需要先 regsvr32 注冊(cè) DLL再?gòu)?Component Import Component 導(dǎo)入類型庫(kù)。這也是為什么我建議先分清 VCL 版和 ActiveX 版的差異。標(biāo)題里這個(gè) .rar 如果帶的是 .bpl、.dcu 和 .dpk就按 VCL 流程走只有當(dāng)你看到 .dll 和 .tlb 時(shí)才去考慮 activex 控件安裝那套流程。3.4 裝完先做冒煙驗(yàn)證空白工程拖控件編譯一次裝完控件第一步不是寫業(yè)務(wù)代碼而是建一個(gè)空白 VCL 工程把要用到的 TIPHTTP、TIPSFTP 各拖一個(gè)到窗體上設(shè)置幾個(gè)屬性編譯運(yùn)行一次。這一步能過(guò)濾掉大部分版本問題空工程能編譯說(shuō)明路徑和包都正常編譯過(guò)了但運(yùn)行時(shí)報(bào)“類未注冊(cè)”或“找不到指定模塊”說(shuō)明包沒裝全或者依賴了別的包。冒煙驗(yàn)證不需要寫任何業(yè)務(wù)邏輯控件能拖上去、屬性能在 Object Inspector 里顯示、空 Form 能跑起來(lái)就算過(guò)關(guān)。真正寫業(yè)務(wù)代碼之前把環(huán)境問題先清零后面排查才不會(huì)混成一片。4. 第一個(gè)可復(fù)用工程用 TIPHTTP 寫一個(gè)帶斷點(diǎn)續(xù)傳的下載器4.1 最小可運(yùn)行代碼從 URL 帶進(jìn)度下載到本地文件業(yè)務(wù)場(chǎng)景內(nèi)網(wǎng)工具需要從 HTTP 服務(wù)器下載安裝包網(wǎng)絡(luò)質(zhì)量不佳下載到一半斷開是常事所以要求支持?jǐn)帱c(diǎn)續(xù)傳。用 IPWorks 的 TIPHTTP 實(shí)現(xiàn)并不復(fù)雜核心是把這次要下載的字節(jié)范圍告訴服務(wù)器。代碼如下// 拖一個(gè) TIPHTTP 控件到 Form命名 httpDown // 單元引用按控件實(shí)際包名調(diào)整常見為 ipworkshttp uses ipworkshttp, System.SysUtils, System.IOUtils; procedure TForm1.btnDownloadClick(Sender: TObject); var tmpFile: string; localSize: Int64; begin httpDown.TransferTimeout : 60; // 單次傳輸超時(shí)單位秒 tmpFile : ExtractFilePath(Application.ExeName) update.bin; // 已存在的文件大小作為續(xù)傳起點(diǎn) if FileExists(tmpFile) then begin localSize : TFile.GetSize(tmpFile); httpDown.Range : localSize.ToString; // 讓服務(wù)端從 localSize 字節(jié)開始回?cái)?shù)據(jù) end else httpDown.Range : 0; httpDown.LocalFile : tmpFile; // 響應(yīng)體寫入本地文件而不是留在內(nèi)存 httpDown.Get(https://download.example.com/update.bin); if httpDown.LastStatus 200 then Memo1.Lines.Add(下載完成: tmpFile) else Memo1.Lines.Add(HTTP httpDown.LastStatus.ToString); end;代碼邏輯不復(fù)雜但有兩處值得說(shuō)明。Range 屬性是斷點(diǎn)續(xù)傳的關(guān)鍵服務(wù)端支持 Range 請(qǐng)求時(shí)會(huì)用 206 Partial Content 響應(yīng)從指定偏移量繼續(xù)傳輸。傳輸結(jié)束后別忘了一個(gè)細(xì)節(jié)下一次下載前要把 Range 狀態(tài)理清楚否則同一控件重復(fù)使用時(shí)可能繼續(xù)沿用舊偏移。LastStatus 保存最近一次請(qǐng)求的 HTTP 狀態(tài)碼判斷成功與否盡量用它不要用異常來(lái)當(dāng)流程控制。TIPHTTP 的 Get 是同步阻塞的這個(gè)方法會(huì)在網(wǎng)絡(luò)傳輸全部結(jié)束才返回。如果你的 UI 在這個(gè)循環(huán)體里窗體就會(huì)卡住。常見做法是把它放進(jìn) TThread 或 TTask通過(guò) Synchronize 把進(jìn)度回調(diào)到界面?？刂婆_(tái)工程沒有 UI 阻塞問題但我仍然建議放到線程里方便同時(shí)處理多文件任務(wù)。同步阻塞不是 bug用錯(cuò)線程才是。4.2 關(guān)鍵參數(shù)表TransferTimeout、LocalFile、Range 與斷點(diǎn)續(xù)傳幾個(gè)常用屬性值得記下來(lái)它們是這個(gè)下載器能不能在真實(shí)網(wǎng)絡(luò)里活下來(lái)的關(guān)鍵。下面這個(gè)表是我調(diào)試時(shí)反復(fù)調(diào)整過(guò)的參數(shù)屬性含義建議值或用法TransferTimeout單次讀或?qū)懗瑫r(shí)單位秒內(nèi)網(wǎng) 30 到 60外網(wǎng)按鏈路質(zhì)量放寬LocalFile響應(yīng)體寫盤路徑大文件務(wù)必設(shè)置避免內(nèi)容留在內(nèi)存Range請(qǐng)求的字節(jié)范圍斷點(diǎn)續(xù)傳、分片下載都靠它OtherHeaders追加自定義請(qǐng)求頭加認(rèn)證 Token 用注意別覆蓋內(nèi)置頭LastStatus最近一次請(qǐng)求的 HTTP 狀態(tài)碼判斷 200/206/404比異?？煽窟@里重點(diǎn)說(shuō) LocalFile。不設(shè)置 LocalFile 時(shí)響應(yīng)內(nèi)容會(huì)通過(guò)事件的 Text 參數(shù)傳給你小接口沒問題大文件千萬(wàn)別這么干——內(nèi)存會(huì)被一次下載撐爆。設(shè)置 LocalFile 后控件會(huì)把響應(yīng)體直接寫盤。斷點(diǎn)續(xù)傳時(shí)Range 和 LocalFile 配合能實(shí)現(xiàn)“接著上次的位置繼續(xù)寫”而不是覆蓋整個(gè)文件。然后是 OnTransfer 事件。每傳輸一塊數(shù)據(jù)就會(huì)觸發(fā)一次參數(shù)里有 BytesTransferred 和 PercentDone。用它更新進(jìn)度條時(shí)不要每次都刷新 TProgressBar界面會(huì)閃爍得很難看控制在 10% 更新一次比較合適。還有一個(gè)容易被忽略的紀(jì)律OnTransfer 里禁止再去調(diào)用這個(gè)控件的其他方法?？丶?nèi)部狀態(tài)正在處理數(shù)據(jù)重入會(huì)導(dǎo)致不可預(yù)期的行為這是 IPWorks 事件回調(diào)里的硬規(guī)矩。4.3 事件驅(qū)動(dòng)的三個(gè)陷阱OnTransfer、OnSSLServerAuthentication、OnError第一個(gè)陷阱是證書校驗(yàn)。走 HTTPS 時(shí)首次連接會(huì)觸發(fā) OnSSLServerAuthentication 事件參數(shù)里有 CertSubject、Accept 等字段。開發(fā)環(huán)境圖省事可以直接 Accept : True但生產(chǎn)環(huán)境要校驗(yàn)證書指紋或鏈。很多線上事故不是協(xié)議問題而是把 Accept 寫成了永久 True導(dǎo)致中間人攻擊。我一般建議把證書校驗(yàn)做成配置項(xiàng)調(diào)試模式放行生產(chǎn)模式強(qiáng)制校驗(yàn)。第二個(gè)陷阱是 OnError 事件與 LastStatus 的關(guān)系。某些版本里服務(wù)端返回 404 會(huì)觸發(fā) OnError但沒有異常拋出LastStatus 會(huì)保留為 404。于是很多人寫代碼時(shí)以為“網(wǎng)絡(luò)沒報(bào)錯(cuò)就是沒問題”結(jié)果下載了個(gè) HTML 錯(cuò)誤頁(yè)進(jìn)度條走完才發(fā)現(xiàn)文件不對(duì)。正確做法是下載完成后檢查 LastStatus 和文件大小兩個(gè)都符合預(yù)期才算成功。第三個(gè)陷阱是 Range 與服務(wù)器行為差異。有些服務(wù)器不支持 Range 請(qǐng)求收到 Range 后直接返回 200 全量數(shù)據(jù)。這樣一來(lái)續(xù)傳時(shí)會(huì)覆蓋本地文件頭部。處理方式下載前先發(fā)一個(gè) HEAD 請(qǐng)求看響應(yīng)里有沒有 Accept-Ranges沒有的話就不要續(xù)傳直接重新全量下載并把本地文件刪掉。別指望 IPWorks 幫你決定策略它只負(fù)責(zé)把請(qǐng)求發(fā)出去續(xù)傳策略是使用者的事。5. IPWorks 避坑與排查五個(gè)容易翻車的現(xiàn)場(chǎng)5.1 編譯報(bào) dcu not found 時(shí)先查默認(rèn)庫(kù)路徑現(xiàn)象新裝 Delphi 12.3加好 IPWorks 路徑編譯一個(gè)小程序時(shí) IDE 報(bào) File not found: IPWorks.dcu或者直接報(bào) msxmldom.dcu not found。這個(gè)報(bào)錯(cuò)很有迷惑性因?yàn)槟忝髅饕呀?jīng)把 IPWorks 的目錄加進(jìn) Library path 了。原因第三方包路徑加得沒問題但 IDE 的默認(rèn)庫(kù)路徑里缺失了系統(tǒng)自帶單元目錄。很多老工程師圖省事直接修改默認(rèn) Library path導(dǎo)致 Delphi 自己?jiǎn)卧?.dcu 找不全。msxmldom 是 Delphi 自帶的 XML 單元它都找不到說(shuō)明默認(rèn)路徑缺得不是一點(diǎn)半點(diǎn)第三方包只是把問題暴露出來(lái)。解決先不要?jiǎng)拥谌桨氐?Tools Options Library確認(rèn)列表最前面有 $(BDSLIB)\win32\release、$(BDSLIB)\win64\release 等默認(rèn)條目缺了就手動(dòng)補(bǔ)回。等空工程編譯通過(guò)再把 IPWorks 路徑追加進(jìn) Search path。每次裝控件前先確認(rèn)默認(rèn)路徑是完整的能省掉一整類報(bào)錯(cuò)排查。5.2 Unit 版本不一致多個(gè) IPWorks 版本殘留在 Library 路徑現(xiàn)象編譯報(bào) “Unit IPHTTP was compiled with a different version of System.SysUtils”或者 “Cannot load package ... It contains unit ... which is also contained in ...”。原因最常見的是電腦里裝過(guò)不止一份 IPWorks不同版本都往 Library path 里寫了一條路徑。Delphi 編譯時(shí)會(huì)把所有路徑上的 .dcu 都納入候選結(jié)果兩個(gè) IPHTTP.dcu 同時(shí)存在編譯器隨機(jī)取了先找到的那份兩份對(duì) System.SysUtils 的版本預(yù)期不一致就爆出這個(gè)錯(cuò)。這個(gè)問題的特點(diǎn)是不會(huì)每次穩(wěn)定復(fù)現(xiàn)編譯前清沒清緩存都會(huì)影響結(jié)果排錯(cuò)排到后面很像玄學(xué)。解決打開 Library path把 IPWorks 相關(guān)目錄清到只剩一個(gè)然后 Project Clean刪除項(xiàng)目 output 目錄里的所有文件再 Build。如果還報(bào)錯(cuò)用搜索工具全盤搜一下 IPHTTP.dcu把老版本殘留刪掉或者手動(dòng)移出。這條坑治好了一般不會(huì)復(fù)發(fā)。裝新版本之前先把舊版本卸載干凈這個(gè)習(xí)慣比任何排查技巧都重要。5.3 TIPSFTP 連不上算法協(xié)商失敗的排查思路現(xiàn)象用 TIPSFTP 連某臺(tái)內(nèi)網(wǎng) Linux 服務(wù)器對(duì)方日志顯示連接被斷開控件或服務(wù)器返回類似 “algorithm negotiation failed” 的錯(cuò)誤。很多人第一反應(yīng)是賬號(hào)密碼錯(cuò)了反復(fù)檢查無(wú)誤后開始懷疑控件。原因服務(wù)器端 OpenSSH 較新版本默認(rèn)關(guān)閉了老式 ssh-rsa/SHA1 簽名算法而控件或本地加密庫(kù)還在用舊算法協(xié)商。這是客戶端和服務(wù)器在第一個(gè)握手上就沒有共同語(yǔ)言不是登錄階段的問題。這類問題從 2019 年后更新的 OpenSSH 上開始批量出現(xiàn)新裝的服務(wù)器踩中概率很高。解決優(yōu)先把控件升級(jí)到較新版本然后調(diào)整控件提供的 KEX、簽名算法相關(guān)配置把 ssh-ed25519、rsa-sha2-256 放到算法列表前面。注意不要為了繞過(guò)問題而在服務(wù)器端重新開啟 ssh-rsa這是把安全口子重新打開等安全審計(jì)查出來(lái)比升級(jí)控件麻煩得多。每一處算法配置的修改都要讓服務(wù)器運(yùn)維知悉并留檔。5.4 運(yùn)行期彈出評(píng)估授權(quán)窗試用版與正式版混裝現(xiàn)象程序裝上后跑一段時(shí)間突然彈出試用提醒對(duì)話框點(diǎn)確定之后程序才繼續(xù)。這個(gè)現(xiàn)象發(fā)生在運(yùn)行期而不是編譯期很多人會(huì)誤以為控件的某個(gè)屬性沒設(shè)對(duì)。原因畫的 .bpl 是評(píng)估版。商業(yè)控件評(píng)估包通常是不裝調(diào)試器時(shí)限制運(yùn)行時(shí)長(zhǎng)或限制部分功能而不是直接拒絕編譯。所以編譯期一切正常跑起來(lái)才暴露授權(quán)狀態(tài)。解決確認(rèn)授權(quán)類型。正式授權(quán)通過(guò)官方安裝包或 License 文件激活評(píng)估版不能通過(guò)修改代碼繞過(guò)正確做法是向廠商獲取正式版安裝程序重新覆蓋安裝。另外要注意授權(quán)是按開發(fā)機(jī)綁定的正式版的 .bpl 拿到后不要在多臺(tái)機(jī)器間復(fù)制。提前確認(rèn)手上是評(píng)估版還是正式版能避免項(xiàng)目演示到一半彈授權(quán)窗的尷尬。5.5 誤用 regsvr32 注冊(cè) .bplActiveX 與 VCL 安裝路徑的分岔現(xiàn)象照著網(wǎng)上的教程對(duì) IPWorks 某個(gè) .bpl 執(zhí)行 regsvr32 xxx.bpl彈窗提示“不是有效的 DLL/OCX 模塊”或“DllRegisterServer 入口點(diǎn)未找到”。原因VCL 包的加載機(jī)制是 Delphi IDE 的 Package 體系不經(jīng)過(guò) COM 注冊(cè)表。regsvr32 是 ActiveX/COM 組件用的工具。把 .bpl 當(dāng) ActiveX 注冊(cè)思路從一開始就是錯(cuò)的。搜索“activex控件安裝”能找到的教程大多假設(shè)你手里是 .dll而 Delphi 控件分發(fā)包里往往是 .bpl。解決先確認(rèn)這個(gè)包是 VCL 版還是 ActiveX 版?？茨夸沄CL 版提供 .bpl、.dcu、.dpkActiveX 版提供 .dll、.tlb 和注冊(cè)說(shuō)明。VCL 版用 Component Install PackagesActiveX 版才用 regsvr32 注冊(cè) .dll然后通過(guò) Import Component 導(dǎo)入類型庫(kù)。兩類文件分開放別混在一個(gè)目錄里。這個(gè)區(qū)分想清楚安裝過(guò)程少走一半彎路。6. 用 IPInfo 與 IPMonitor 做網(wǎng)卡巡檢工具驗(yàn)證控件安裝是否徹底裝完一套控件最好用一個(gè)不涉及業(yè)務(wù)的小工具驗(yàn)證每個(gè)控件真的可用而不是等到項(xiàng)目里才踩雷。我慣用的驗(yàn)證工程是網(wǎng)卡巡檢器正好用到兩個(gè)不常被注意的 IPWorks 控件TIPIPInfo 與 TIPIPMonitor。TIPIPInfo 負(fù)責(zé)一次性枚舉本機(jī)所有網(wǎng)絡(luò)接口讀出 IP、掩碼、網(wǎng)關(guān)、MAC。TIPIPMonitor 則可以在接口狀態(tài)變化時(shí)觸發(fā)事件相當(dāng)于給網(wǎng)卡裝了實(shí)時(shí)監(jiān)聽器。把這兩個(gè)控件放到一個(gè)窗體上加上一個(gè) TMemo就能做出一分鐘內(nèi)看到現(xiàn)象的最小驗(yàn)證程序// 拖入 TIPIPInfo1 和 TIPIPMonitor1Memo1 用于輸出 procedure TForm1.btnEnumerateClick(Sender: TObject); var i: Integer; begin IPIPInfo1.Reset; // 重新掃描網(wǎng)卡避免讀到舊緩存 for i : 0 to IPIPInfo1.NetworkInterfaceCount - 1 do Memo1.Lines.Add( IPIPInfo1.NetworkInterface[i].Description | IPIPInfo1.NetworkInterface[i].IPAddress); end; procedure TForm1.IPIPMonitor1StatusChange(Sender: TObject; InterfaceId: Integer; NewStatus: Integer); begin Memo1.Lines.Add(接口 InterfaceId.ToString 狀態(tài)變?yōu)? NewStatus.ToString); end;這個(gè)驗(yàn)證工程的價(jià)值不只是確認(rèn)“控件裝好了”。它會(huì)逼你面對(duì)三個(gè)細(xì)節(jié)屬性的索引從 0 開始枚舉前需要 Reset 重新掃描才能讀到最新數(shù)據(jù)事件回調(diào)里的參數(shù)格式因版本而異。能在幾分鐘里把這些跑順說(shuō)明路徑、包、事件機(jī)制都正常后續(xù)接業(yè)務(wù)代碼時(shí)就不用從零排錯(cuò)。我自己的教訓(xùn)是頭幾年用第三方控件喜歡一次性把一個(gè)大項(xiàng)目的所有單元都引入控件包結(jié)果編譯報(bào)錯(cuò)時(shí)根本分不清是哪一層的版本問題。后來(lái)養(yǎng)成的習(xí)慣就是裝完控件先開空白工程逐個(gè)控件冒煙測(cè)試半小時(shí)能確認(rèn)的事絕不拖到項(xiàng)目集成階段。這個(gè)習(xí)慣幫我省掉的排錯(cuò)時(shí)間比控件本身的授權(quán)費(fèi)貴多了。希望這套安裝與排錯(cuò)思路能幫到你。本文還有配套的精品資源點(diǎn)擊獲取