簡(jiǎn)介面向Delphi 12.3開(kāi)發(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)用開(kāi)發(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文檔開(kāi)發(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)目最頭疼的不是界面而是那些繞不開(kāi)的網(wǎng)絡(luò)協(xié)議設(shè)備那邊只暴露 SNMP 接口文件服務(wù)器只開(kāi) 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 開(kāi)頭的控件。常用的有 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è)要考慮的問(wèn)題是你買的是哪個(gè)子集。有些項(xiàng)目只需要 HTTP 和 FTP有些則必須 SSH 和 SNMP。我的習(xí)慣是先列一張需求清單協(xié)議、方向上行還是下行、是否需要證書校驗(yàn)、是否需要異步處理。把清單拿去核對(duì)包內(nèi)文件這個(gè)粒度足夠幫你判斷該用哪一組控件也方便后續(xù)確認(rèn) .rar 里到底有沒(méi)有缺文件。別等到項(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)、私鑰登錄適合不允許開(kāi)明文 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ī)問(wèn)題越少。有些開(kāi)發(fā)者習(xí)慣把所有 IPWorks 控件安裝完就順手拖到窗體上結(jié)果編譯產(chǎn)物體積變大不說(shuō)還容易在后續(xù)升級(jí)時(shí)被無(wú)關(guān)控件的版本更新?tīng)窟B。2.3 版本匹配要看包內(nèi)文件名.bpl、.dcu、.dpk 各代表什么裝之前先別急著解壓拖進(jìn) IDE。先確認(rèn)這個(gè)包是不是匹配 Delphi 12.3。怎么看打開(kāi) .rar 里 lib 或 redist 目錄文件名里通常帶有包名和版本信息比如 ipworks 加數(shù)字結(jié)尾的命名。重點(diǎn)看三點(diǎn)有沒(méi)有對(duì)應(yīng) 32 位和 64 位的目錄。Delphi 12.3 默認(rèn)可以同時(shí)做 Win32 和 Win64第三方包必須兩個(gè)平臺(tái)都提供否則切換平臺(tái)時(shí)控件會(huì)消失。有沒(méi)有 dcl 前綴的包。dcl 開(kāi)頭的是設(shè)計(jì)期包運(yùn)行時(shí)不出現(xiàn)在 Install Packages 里就看不到控件面板非 dcl 的是運(yùn)行時(shí)包只負(fù)責(zé)在程序分發(fā)時(shí)跟著 exe 走。有沒(méi)有源碼 .dpk。沒(méi)有預(yù)編譯包時(shí)可以用 .dpk 在 IDE 里自己編譯但這需要你有源碼授權(quán)光有 .dcu 沒(méi)有 .dpk 是沒(méi)法重新編譯的。到這里標(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 下放可打開(kāi)即跑的示例工程。具體的目錄名可能略有差異但結(jié)構(gòu)基本是這種風(fēng)格。這里最容易踩的坑是把 source 和 lib 混在一起加路徑。編譯器找的是 .dcu不是 .pas。把 .pas 放進(jìn)搜索路徑雖然也能觸發(fā)重編譯但容易在 IDE 里產(chǎn)生“同一個(gè)單元兩個(gè)來(lái)源”的怪問(wèn)題。我一般只把 lib 目錄加進(jìn)庫(kù)路徑source 目錄單獨(dú)留著只在需要跟代碼確認(rèn)控件行為時(shí)才打開(kāi)看。另一個(gè)小細(xì)節(jié)是解壓路徑不要帶中文和空格Delphi 的包管理對(duì) Unicode 路徑的支持雖然比老版本好但第三方包安裝階段少一點(diǎn)變量就少一點(diǎn)風(fēng)險(xiǎn)。3.2 配置 Library Path先修默認(rèn)路徑再追加第三方路徑在 Delphi 12.3 里打開(kāi) 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)被改亂或者缺失了一段第三方包只是把問(wèn)題暴露出來(lái)。先點(diǎn) Library path 文本框右側(cè)的按鈕確認(rèn)列表里包含 $(BDSLIB)\win32\release 這類默認(rèn)項(xiàng)再往上追加 IPWorks 路徑。默認(rèn)路徑修好、第三方路徑追加完之后新建一個(gè)工程編譯空 Form確認(rèn)沒(méi)報(bào) dcu 錯(cuò)誤再繼續(xù)后續(xù)安裝。先把環(huán)境恢復(fù)正常別帶著病根往下走。3.3 安裝設(shè)計(jì)期包Component Install Packages 加載 dcl 開(kāi)頭的 .bpl路徑配置只解決編譯期。要在組件面板里拖控件還得讓設(shè)計(jì)期包進(jìn)入 IDE。操作不復(fù)雜但順序有講究菜單 Component Install Packages在右側(cè) Installed packages 列表下方點(diǎn) Add瀏覽到 IPWorks 解壓目錄選擇 dcl 開(kāi)頭的 .bpl 文件確認(rèn)包名出現(xiàn)在 Installed packages 列表并把前面的勾打上確定后到組件面板搜索 TIP看控件圖標(biāo)是否顯示。如果控件面板里沒(méi)出現(xiàn)不要反復(fù)重裝。先重啟 IDE再回到 Install Packages 看包是否真的處于勾選狀態(tài)。很多時(shí)候是 IDE 在包安裝后沒(méi)有刷新工具欄面板重啟一次就好。另一個(gè)常見(jiàn)原因是你裝的是運(yùn)行時(shí)包而不是設(shè)計(jì)期包Installed Packages 對(duì)運(yùn)行時(shí)包也會(huì)顯示安裝成功但組件面板里永遠(yuǎn)不會(huì)有控件。判斷辦法就是看包名有沒(méi)有 dcl 前綴沒(méi)有的話去找到正確的設(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ò)濾掉大部分版本問(wèn)題空工程能編譯說(shuō)明路徑和包都正常編譯過(guò)了但運(yùn)行時(shí)報(bào)“類未注冊(cè)”或“找不到指定模塊”說(shuō)明包沒(méi)裝全或者依賴了別的包。冒煙驗(yàn)證不需要寫任何業(yè)務(wù)邏輯控件能拖上去、屬性能在 Object Inspector 里顯示、空 Form 能跑起來(lái)就算過(guò)關(guān)。真正寫業(yè)務(wù)代碼之前把環(huán)境問(wè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ì)量不佳下載到一半斷開(kāi)是常事所以要求支持?jǐn)帱c(diǎn)續(xù)傳。用 IPWorks 的 TIPHTTP 實(shí)現(xiàn)并不復(fù)雜核心是把這次要下載的字節(jié)范圍告訴服務(wù)器。代碼如下// 拖一個(gè) TIPHTTP 控件到 Form命名 httpDown // 單元引用按控件實(shí)際包名調(diào)整常見(jiàn)為 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é)開(kāi)始回?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ì)卡住。常見(jiàn)做法是把它放進(jìn) TThread 或 TTask通過(guò) Synchronize 把進(jìn)度回調(diào)到界面?？刂婆_(tái)工程沒(méi)有 UI 阻塞問(wèn)題但我仍然建議放到線程里方便同時(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ù)傳給你小接口沒(méi)問(wèn)題大文件千萬(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 等字段。開(kāi)發(fā)環(huán)境圖省事可以直接 Accept : True但生產(chǎn)環(huán)境要校驗(yàn)證書指紋或鏈。很多線上事故不是協(xié)議問(wèn)題而是把 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但沒(méi)有異常拋出LastStatus 會(huì)保留為 404。于是很多人寫代碼時(shí)以為“網(wǎng)絡(luò)沒(méi)報(bào)錯(cuò)就是沒(méi)問(wèn)題”結(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)里有沒(méi)有 Accept-Ranges沒(méi)有的話就不要續(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 了。原因第三方包路徑加得沒(méi)問(wèn)題但 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)第三方包只是把問(wè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 ...”。原因最常見(jiàn)的是電腦里裝過(guò)不止一份 IPWorks不同版本都往 Library path 里寫了一條路徑。Delphi 編譯時(shí)會(huì)把所有路徑上的 .dcu 都納入候選結(jié)果兩個(gè) IPHTTP.dcu 同時(shí)存在編譯器隨機(jī)取了先找到的那份兩份對(duì) System.SysUtils 的版本預(yù)期不一致就爆出這個(gè)錯(cuò)。這個(gè)問(wèn)題的特點(diǎn)是不會(huì)每次穩(wěn)定復(fù)現(xiàn)編譯前清沒(méi)清緩存都會(huì)影響結(jié)果排錯(cuò)排到后面很像玄學(xué)。解決打開(kāi) 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ì)方日志顯示連接被斷開(kāi)控件或服務(wù)器返回類似 “algorithm negotiation failed” 的錯(cuò)誤。很多人第一反應(yīng)是賬號(hào)密碼錯(cuò)了反復(fù)檢查無(wú)誤后開(kāi)始懷疑控件。原因服務(wù)器端 OpenSSH 較新版本默認(rèn)關(guān)閉了老式 ssh-rsa/SHA1 簽名算法而控件或本地加密庫(kù)還在用舊算法協(xié)商。這是客戶端和服務(wù)器在第一個(gè)握手上就沒(méi)有共同語(yǔ)言不是登錄階段的問(wèn)題。這類問(wèn)題從 2019 年后更新的 OpenSSH 上開(kāi)始批量出現(xiàn)新裝的服務(wù)器踩中概率很高。解決優(yōu)先把控件升級(jí)到較新版本然后調(diào)整控件提供的 KEX、簽名算法相關(guān)配置把 ssh-ed25519、rsa-sha2-256 放到算法列表前面。注意不要為了繞過(guò)問(wèn)題而在服務(wù)器端重新開(kāi)啟 ssh-rsa這是把安全口子重新打開(kāi)等安全審計(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è)屬性沒(méi)設(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)是按開(kāi)發(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è)思路從一開(kāi)始就是錯(cuò)的。搜索“activex控件安裝”能找到的教程大多假設(shè)你手里是 .dll而 Delphi 控件分發(fā)包里往往是 .bpl。解決先確認(rèn)這個(gè)包是 VCL 版還是 ActiveX 版。看目錄VCL 版提供 .bpl、.dcu、.dpkActiveX 版提供 .dll、.tlb 和注冊(cè)說(shuō)明。VCL 版用 Component Install PackagesActiveX 版才用 regsvr32 注冊(cè) .dll然后通過(guò) Import Component 導(dǎo)入類型庫(kù)。兩類文件分開(kāi)放別混在一個(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)聽(tīng)器。把這兩個(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 開(kāi)始枚舉前需要 Reset 重新掃描才能讀到最新數(shù)據(jù)事件回調(diào)里的參數(shù)格式因版本而異。能在幾分鐘里把這些跑順說(shuō)明路徑、包、事件機(jī)制都正常后續(xù)接業(yè)務(wù)代碼時(shí)就不用從零排錯(cuò)。我自己的教訓(xùn)是頭幾年用第三方控件喜歡一次性把一個(gè)大項(xiàng)目的所有單元都引入控件包結(jié)果編譯報(bào)錯(cuò)時(shí)根本分不清是哪一層的版本問(wèn)題。后來(lái)養(yǎng)成的習(xí)慣就是裝完控件先開(kāi)空白工程逐個(gè)控件冒煙測(cè)試半小時(shí)能確認(rèn)的事絕不拖到項(xiàng)目集成階段。這個(gè)習(xí)慣幫我省掉的排錯(cuò)時(shí)間比控件本身的授權(quán)費(fèi)貴多了。希望這套安裝與排錯(cuò)思路能幫到你。本文還有配套的精品資源點(diǎn)擊獲取