企业官网建设流程全解析

简介：TurboPower 是 Delphi 第三方组件界的有 18 年历史的老牌厂商，2004 年停运后开放了旗下全部 VCL 组件源码。这份 102.96MB 的 RAR 包正是这笔开源遗产的完整整理，共 812 个文件，涵盖 Abbrevia 压缩解压、Async Professional 串口/传真/终端、LockBox 加解密、OnGuard 软件授权保护、Orpheus 界面控件、SysTools 系统工具、Visual PlanIt 日程管理等十余个产品线，并附有随源码发布的文档，适合需要研究控件实现原理、维护历史 Delphi 项目或借鉴成熟架构的开发者。文件类型以 pas 单元源码、dfm 窗体资源、cpp/h 接口头文件、dpr/bpr 工程及工程组文件为主，另有 wav 示例声音、zip 辅助包和 txt 说明；从预览可见压缩包内还保留了传真、串口、终端、协议、TAPI、Winsock 等典型场景的完整示例工程，便于按模块编译和对照学习。已有 299 人学习下载。这些组件既可直接引用到当前项目，也可作为理解面向对象设计、第三方控件封装与跨版本移植的活教材。

1. TurboPower 组件包：老 Delphi 项目绕不开的依赖

接手一台装着老 Delphi 的机器，第一件事往往是补 TurboPower 控件包。这套东西在早期 Delphi 项目里几乎成了标配，压缩、串口、加密、软件授权，全散落在 Abbrevia、AsyncPro、LockBox、OnGuard 这些包里。表面上看，Delphi 装好就能干活，但真打开一个十几年前的项目，编译时会直接甩一句“找不到单元 Abbrevia”。装完以后还有更隐蔽的坑：包顺序、库路径、设计期包注册，哪一步错了都白装。这篇文章就是我装这套控件包的全程记录，版本怎么挑、路径怎么配、编译顺序怎么排、翻车了怎么救，一次说清。适合卡在编译报错上的人，也适合准备接手老项目的开发者和运维。

2. 版本与准备：先弄清你手里的 Delphi 是哪个时代

2.1 TurboPower 全家桶里都有谁

TurboPower 不是一个控件，是一整套组件库。早期卖商业授权时，一套安装盘里通常带这些模块：

打开资源包时，先别急着装，把目录结构扫一遍。通常每个组件包下都有 Source 和 Packages 两个子目录，前者放 .pas 源码，后者放 .dpk/.bpl 构建文件。看到 README 或历史版本说明文件，顺手打开看一眼，里面有包之间的依赖顺序，比任何教程都准。

2.2 版本选择：不是最新就是最好

TurboPower 是商业控件转开源的典型。源码包里往往同时保留多个时代的构建文件，有对应 Delphi 5/6/7 的旧工程，也有对应 Delphi 2007/2009 甚至 XE 系列的新工程。我一般按这个原则选：项目本身在哪个 Delphi 版本上维护，就用那套同年代的包文件，而不是盲目挑最新的。

Delphi 7 的代码拿到 XE 上直接编，报错会集中在字符串类型上。2009 以后 Delphi 默认字符串是 UnicodeString，老代码里 PChar、AnsiString、Char 混用的地方会大面积报 Incompatible types。反过来，用新版本源码在老 IDE 上编，会遇到更尴尬的语法不支持问题。这套控件的源码我建议这样处理：先找到和自己 IDE 最接近的那一版，编不通再考虑少量改代码，而不是一上来就挑战跨版本迁移。

2.3 安装前的环境检查清单

装第三方组件前，我会把现有环境完整存个档，不然装坏了想回滚都不知道原来的配置长什么样。检查顺序和目的如下：

我还会把 Tools > Options > Library 里能看到的所有路径全部复制到一个 txt 里存着。这算是后悔药，路径配乱了直接对照恢复。要是机器上有残留的旧版 TurboPower BPL/DCP，也建议先清理干净再装，避免编译时抓到旧文件。

2.4 解包与目录规划

老压缩包里长文件名和中文字符多，图省事双击解压容易解出一堆乱码目录。我习惯把整个包解到纯英文、无空格的路径下，比如 D:\TurboPower。目录规划成这样：

D:\TurboPower\ Abbrevia\ Source\ Packages\ AsyncPro\ Source\ Packages\ LockBox\ Source\ Packages\ OnGuard\ Source\ Packages\ Orpheus\ Source\ Packages\

路径里一旦带了空格或中文，后面的 Library 路径和 DPK 依赖解析就会间歇性抽风。这不是玄学，是老 Delphi 在解析引号路径时容易出问题，我踩过一次就不再赌了。解包后如果发现某些包缺 Source 目录，多半是压缩包没解全，重新解一遍再继续。

3. 编译安装：从源码包到 IDE 里能用

3.1 理清 DPK 包的依赖顺序

每个组件包下的 Packages 目录里通常有两个关键文件：一个纯运行时包，一个设计期包。区分方法看文件名，带 D 后缀或者带 Design 字样的，基本就是设计期包。不带的那个，先编。

依赖顺序的原则只有一条：被依赖的包先编译。举例来说，Abbrevia 的包如果引用了 SysTools 里的公共代码，那 SysTools 就得先编好并加进库路径，否则 Abbrevia 编译时找不到单元。拿到一套新资源，我一般按 SysTools → Abbrevia/AsyncPro/LockBox 的顺序走，最后再装 Orpheus 这类界面控件。界面控件依赖的属性编辑器相关包最多，放最后可以减少重复编译。

3.2 配置 Library 搜索路径

编译前先把所有 Source 目录写进 IDE 的 Library path，这一步相当于告诉编译器：“这些目录里有源码和 DCU，找不到单元时来这里翻”。操作路径是 Tools > Options > Environment Options > Delphi Options > Library > Library path。

D:\TurboPower\SysTools\Source D:\TurboPower\Abbrevia\Source D:\TurboPower\AsyncPro\Source D:\TurboPower\LockBox\Source D:\TurboPower\OnGuard\Source D:\TurboPower\Orpheus\Source

这里有个细节：只加 Source 目录，不加 Packages 目录。Packages 里放的是 DPK/BPL 构建文件，不是编译器找单元的地方，加进去只会增加 IDE 扫描负担。改完路径后，我不会立刻编译，而是先把 IDE 完全重启一遍。老版本 IDE 对库路径的重新扫描没那么机智，不重启就编译，报错时就分不清是路径没生效还是包真没编过。

3.3 按顺序编译运行时包

在 IDE 里打开 Packages 目录下的 DPK 文件，Project Manager 面板里会看到这个包，右键选择 Compile。编译正常结束时，包名旁边显示小图标，并且没有红色错误信息。

先编译运行时包，再编译设计期包。设计期包的 DPK 里通常列着 Runtime Packages 依赖项，如果前置包没有先编并加入 IDE，这边会直接报 Can't load package 之类的问题。遇到这种情况不用慌，倒回去把缺的包编完，再回来重试就行。

命令行方式也能编，适合要批量处理多个包的时候。前提是先把 Delphi 的 bin 目录加进系统 PATH，再进到包目录执行：

cd /d D:\TurboPower\Abbrevia\Packages dcc32 -M Abbrevia.dpk dcc32 -M AbbreviaD.dpk

-M 是强制完整重建，避免增量编译时用了旧 DCU。命令行编完，BPL 文件默认生成在包目录或 IDE 配置的输出目录里，看编译日志里的 Output 行就知道去了哪。我一般只在自动化脚本里用命令行，手工装还是 IDE 更直观。

3.4 注册设计期包，让组件出现在面板上

运行时包编译通过，只代表代码能构建了，组件还不会自动出现在面板上。要让控件在窗体设计器里可用，得把设计期包安装进 IDE：打开带 D 的 DPK 文件，右键选择 Install。

老版本 Delphi 也可以走 Component > Install Packages > Add，然后选中编译好的 BPL 文件。这个操作相当于把设计期包注册进 IDE，安装成功后组件面板会新增页面，或者控件出现在既有页里。

装完我不会急着写代码，先在组件面板里翻一遍，确认压缩、串口、加密相关的图标都出来了。面板里能看到控件，说明这个包的安装已经闭环，接下来才能在工程里正常拖拽和引用。

4. 项目集成与运行期配置：让老项目重新站起来

4.1 工程里怎么引用组件单元

控件装进 IDE 只是开始，真正在代码里使用时，要在 uses 子句里加对应单元。以压缩功能为例：

uses AbZipKit, AbBase, AbArcTyp;

第一行声明中，AbZipKit 是压缩核心类所在单元，AbBase 提供基础流处理，AbArcTyp 负责压缩包类型定义。编译时 Delphi 会按 Library path 顺序去找这些 .pas 或 .dcu，找不到就报 Can't find unit。

有两点容易忽略：一是单元名不要靠记忆硬背，直接在组件面板里选中控件按 F1，看 Help 里的 Unit 列表最稳；二是同一个组件可能同时存在新老单元名，源码里原来写哪个名字就尽量维持哪个，别在迁移时顺手“优化”成新名字，容易引出一串连锁报错。

4.2 运行时包和静态编译，二选一

项目能编译后，部署方式还有个关键开关：Project Options > Packages 里的 Build with runtime packages。勾选它，exe 体积小，但运行时要依赖一堆 BPL 文件；不勾选，控件代码整个编进 exe，目标机器不需要安装任何 Delphi 运行环境。

我维护的老系统基本都选静态编译。理由很现实：客户机器环境乱七八糟，缺 BPL、版本被别的软件覆盖、路径对不上，随便一个坑就够折腾半天。静态编译的代价只是 exe 变大几 MB，换来的是部署时只拷一个文件，这买卖划算。新组件安装初期，可以暂时勾选运行时包，方便调试时少编译几次，但正式发布前一定记得切回静态编译。

4.3 真要发布运行时包，带哪几个文件

如果项目规模大，多个 exe 共用一套 BPL，动态发布也合理。这时需要分清四类文件的角色：

BPL 的放置位置也有讲究，放 exe 同目录最稳，其次是把 TurboPower 相关 BPL 所在目录加进系统 PATH。但改 PATH 会影响全局，能不放系统目录就别放，拷到程序目录里，清清爽爽。万一程序目录找不到 BPL，Windows 会去系统目录找，届时再出现版本冲突，就可以把每个 BPL 的版本号逐个检查一遍。

5. TurboPower 组件安装排查：五个高频翻车点

5.1 编译提示 Can't find unit Abbrevia

现象：新建工程引用 TurboPower 单元后，编译直接报错找不到 Abbrevia。 原因：八成是 Library path 里没加 Source 路径；或者路径加了但 IDE 没重启，缓存仍是旧状态。 解决：先确认 Tools > Options > Library 里存在 D:\TurboPower\Abbrevia\Source 这一行，没有就补上，然后彻底退出 IDE 重新打开工程。还是不行，手动在文件管理器里确认 Source 目录下确实有 AbBase.pas 和 AbZipKit.pas，排除解压不完整的可能性。

5.2 组件面板里找不到任何 TurboPower 控件

现象：包编译全程零报错，但面板翻遍了也没有新控件。 原因：只编译了运行时包，没安装设计期包。运行时包负责功能逻辑，设计期包才负责控件注册和面板显示。 解决：打开带 D 的 DPK，右键 Install。如果右键没有 Install 选项，确认打开的这个文件确属设计期包。安装完成后在 Component > Install Packages 里看对应 BPL 是否处于勾选状态，没勾就手动勾回来。

5.3 exe 发布后提示缺少 xxx.bpl

现象：开发机能跑，拷到别的机器双击就弹缺 BPL。 原因：Project Options 里勾选了 Build with runtime packages，但发布目录里没带 BPL 文件。 解决：最快是打开项目，取消勾选 Build with runtime packages，重新编译，exe 单文件就能跑。如果因为特殊原因必须动态发布，把项目引用到的所有 BPL 找出来，连同 exe 一起拷进同一目录。判断 exe 依赖了哪些 BPL，在 IDE 里看 Project > Options > Packages 的勾选列表即可。

5.4 老源码在 2009 以后版本上报字符串类型不兼容

现象：代码里大量 PChar、AnsiString 混用，编译报错或运行乱码。 原因：2009 以后默认字符串类型改为 UnicodeString，老代码按单字节字符假设写的逻辑全面失效。 解决：最务实的方式是用显式 AnsiString 替代隐式字符串声明，再把 PChar 转型处逐个检查。改动量大时，可以考虑保留一个 Delphi 7 环境专门维护老工程，新功能才在较新版本上开发。硬要跨版本迁移，就得把字符串相关单元全部过一遍，属于单独的项目工程，不推荐在装控件时顺手做。

5.5 编译报错找不到 .res 资源文件

现象：编译 DPK 时提示缺少资源文件，中断安装。 原因：解包时漏了 Resources 之类目录，或者资源文件被安全软件拦了，导致构建时找不到图标/版本信息资源。 解决：回压缩包里检查是否有独立资源目录，确认后解压到原包对应位置。如果资源文件确实受损，可以把 DPK 工程里的版本信息资源引用删掉，只保留核心代码包，功能不受影响，只是没了图标资源。装完后我会把所有资源文件再单独备份一份，这种文件最容易丢。

6. 装完怎么验证：一个冒烟测试项目跑通全链路

验证 TurboPower 是否装好，我一般不在老项目里直接试，而是新建一个空工程，挨个把最常用的几个功能跑一遍。冒烟测试通过，才敢动老项目。

先建一个 Application 工程，窗体上放一个按钮。在按钮事件里调用 Abbrevia 的压缩接口，把临时目录里的文件打包成 zip：

uses AbZipKit; procedure TForm1.Button1Click(Sender: TObject); var Zip: TAbZipKit; begin Zip := TAbZipKit.Create(nil); try Zip.FileName := ExtractFilePath(Application.ExeName) + 'test.zip'; Zip.BaseDirectory := 'C:\Temp\TestData'; Zip.AddFiles('*.*', 0); Zip.CloseArchive; finally Zip.Free; end; end;

这段代码里，BaseDirectory 指定要打包的目录，AddFiles 的第二个参数 0 表示不带路径存档，CloseArchive 负责写完压缩包。编译运行后，到程序目录看 test.zip 是否生成，能生成说明 Abbrevia 的编译期和运行期链路都通了。

紧接着验证加密组件 LockBox，对同一字符串加解密，结果一致即可：

uses LockBox3; procedure TForm1.Button2Click(Sender: TObject); var Codec: TCodec; CipherText, PlainText: string; begin Codec := TCodec.Create(nil); try Codec.CryptoLibrary := CryptoLib; Codec.StreamCipher := 'AES-256'; Codec.EncryptString('turbo test', CipherText); Codec.DecryptString(CipherText, PlainText); ShowMessage(PlainText); finally Codec.Free; end; end;

运行后弹框内容与加密前一致，说明 LockBox 注册成功。再把工程设置改成静态编译，发布到一台没装 Delphi 的干净机器上跑一遍，验证通过，这套控件包就算真正装完。

组件面板可见、编译器能引用、运行期不报缺包、静态发布可独立运行，这四关都过，老项目编译报错的底气就足了很多。从那以后我每次装完第三方控件包，都强制自己走一遍这套冒烟测试，不在老项目里试探，装坏了也知道问题出在哪一步。这套流程虽然多花十分钟，但能避免在代码里排查半天才发现是控件没装干净，希望帮到你。

本文还有配套的精品资源，点击获取