简介：TurboPower 全套 VCL 组件源码及相关文档，是面向 Delphi 开发者的经典第三方组件资料包。这家有 18 年历史的组件开发商于 2004 年停运并开放全部产品源码，包含 Abbrevia、Async Professional、LockBox、OnGuard、Orpheus 等组件，覆盖压缩、串口通信、加密、软件保护、日程管理等场景，适合用来学习成熟组件架构、提取可复用代码或扩展项目功能。压缩包共 812 个文件，整体约 102.96MB，主要以 DFM 窗体文件、PAS 源码、DPR/BPR 工程文件为主，辅以 CPP 源码、WAV/ZIP 示例素材和相关文档；产品原始目录结构仍在，按模块即可快速定位。附带的示例工程覆盖传真、串口、协议、Winsock 等典型应用场景，便于研究事件模型、底层实现、排错思路以及组件之间的协作方式。已有 299 人学习下载，对需要参考优质 VCL 源码的 Delphi 开发者而言，这套整理好的源码与示例工程是一份完整资料。
1. Delphi 老牌控件库还值得装吗：TurboPower 是给谁准备的
当你接手一个十年前写的 VCL 客户端，搜索源码时跳出一片TApdComPort、TAbZipArchive、TLbAES，第一反应多半是“这又是哪个远古库”。TurboPower 就是那批老 Delphi 项目里最常见的控件来源，压缩、串口、加密、软件授权这些脏活儿都被它包圆了。它最大的价值不在新，而在源码开放、API 稳定，跟老系统走十年不带改行。这篇文章不是安利你给新项目硬塞它，而是写给两类人：要维护历史代码的开发者，以及还在 Delphi/C++Builder 里做桌面工具、不想把串口和加密底层全部自己造一遍的人。下面我会把库的构成、安装流程、三个能直接抄的调用示例和五个真实翻车点一次讲清。
2. TurboPower 图谱：我会按哪三个子库决定装不装整套
2.1 一套组件包里到底有哪些成员
TurboPower 不是单一控件，而是一套组件包，内部按功能拆成若干子库。常见的镜像压缩包解压后，Sources、Demos、Docs三个目录各占一块，每个子库是独立的.dpk工程。下面是我见过的最常见成员组合。
| 子库 | 定位 | 典型入口单元 / 组件 | 老项目里最常出现的场景 |
|---|---|---|---|
| Abbrevia | 压缩、解压、归档 | AbZipper.pas/TAbZipArchive | 备份、日志打包、批量解压附件 |
| AsyncPro | 串口、并口、Modem、网络通信 | AdTComm.pas/TApdComPort | 扫码枪、串口仪器、旧式 POS、继电器 |
| LockBox | 对称/非对称加密、摘要 | LbCipher.pas/TLbAES、TLbMD5 | 配置加密、注册校验、文件摘要 |
| Orpheus | 界面增强控件组 | OvcTable.pas/TOvcTable | 数据表格、日历、多功能编辑框 |
| OnGuard | 软件授权、试用期控制 | OgUtil.pas/TRegistry相关辅助 | 序列号、按天/按次数试用 |
| ShellShock | Windows Shell 扩展 | ShFldr.pas一带的单元 | 资源管理器右键菜单、图标覆盖 |
| ZLib | 压缩算法底库 | 通常被 Abbrevia 依赖 | 不直接引用，但编译顺序绕不开 |
先搞清楚一点：LockBox 有 v2 和 v3 两代，API 完全不是一回事。v2 走TLbAES、TLbMD5这类类，v3 改成了TCodec加 CryptoLibrary 的组合模型。老 Delphi 7 源码里见到的一定是 v2 风格，新拿到的镜像里也可能同时带 LockBox3。这个差异后面会单独展开。
2.2 按需取舍：不是全家桶就一定要全装
我没见过哪个正常业务把七个子库全用上的，绝大多数项目用到一两个就到头了。我的做法是：先看业务卡在哪一层，再决定装哪个包，而不是解压出来一把梭。
如果是做备份、日志归档、安装包解压的，Abbrevia 就够了，它内部依赖 ZLib，所以你编译顺序要从 ZLib 开始。如果是做串口仪器读数、扫码枪对接、继电器控制的，AsyncPro 是核心，它处理的是打开串口、读写缓冲区、触发事件这一层，不涉及业务协议。如果是做加密的，LockBox 肯定跑不掉，若同时要做注册码，OnGuard 和它会配合得很顺。
判断方向很简单：老源码里uses了什么单元，就装对应的子库。宁可只装两个子库并把 Library Path 配干净，也不要图省事把所有.dpk全编译一遍。全量编译的后果通常是包冲突、dcu 版本错乱，后面查起来比写业务代码还费神。
2.3 文档和示例工程是隐形的另一半价值
这套组件包和普通控件不一样的地方在于，它自带比较完整的Docs和Demos。文档虽然写的是 Win32 时期的 VCL 用法，但串口参数、压缩格式、加密算法的底层概念没有过时。Demo 更值钱，每个子库下都有能直接跑起来的示例工程，有的甚至自带模拟设备。
后续章节里我会把安装和调用串起来讲，而你手头这份资源里真正该反复看的，不是文档目录的索引页，而是Demos里最贴近你业务的那一两个工程。
3. 装进 Delphi 并按需取用：从 dpk 编译到 Library Path，附三段可复制代码
3.1 安装前三步：编译依赖、配路径、装设计包
这套控件和普通单文件组件不一样，它按包发布，.dpk就是包的工程文件。安装顺序错了，后面报的错会让你完全摸不着头脑。我先按最稳的顺序走一遍。
第一步，把解压后每个子库的Source目录加进 IDE 的 Library 搜索路径。不同版本 Delphi 的菜单路径略有差异，老版本叫Tools > Options > Environment Options > Library，新版本叫Tools > Options > Delphi Options > Library，找到 Library Path 编辑框就对了。示例路径是：
D:\ThirdParty\TurboPower\Abbrevia\Source D:\ThirdParty\TurboPower\AsyncPro\Source D:\ThirdParty\TurboPower\LockBox\Source为什么要先把 Source 加进 Library Path？因为.dpk编译时依赖的单元要按这个路径搜索，不加的话，下一步打开.dpk会先报一片“找不到 .dcu”或“找不到 .pas”；配置好这一步，绝大多数解析问题就直接消失了。
第二步，按依赖顺序编译运行包。Abbrevia 依赖 ZLib，所以先编译 ZLib 的.dpk，再编译 Abbrevia 的.dpk；AsyncPro 和 LockBox 相对独立。在 IDE 里File > Open打开对应.dpk，然后右键工程选Compile，先把运行包编出来。
第三步，安装设计包。同样在工程右键菜单里点Install，让控件出现在组件面板上。如果是锁在运行包里的非设计期组件，只 Compile 不 Install 也没问题。装完后去Component > Install Packages里确认对应.bpl已经勾选。
注意：如果某个子库编译时提示 “Unit xxx was compiled with a different version of yyy”，基本可以认定 Library Path 里混了旧版
.dcu，优先清理路径顺序，而不是去改代码。
3.2 用 AsyncPro 发一条串口指令
AsyncPro 的典型入口是TApdComPort，老项目里几乎所有串口操作都从它走。下面这段代码是最小可用的串口发送逻辑。
uses AdTComm; procedure SendCommandToDevice(const PortIndex: Integer; const Cmd: string); var Com: TApdComPort; begin Com := TApdComPort.Create(nil); try Com.ComNumber := PortIndex; // 1 表示 COM1 Com.Baud := 9600; Com.Parity := pNone; Com.DataBits := 8; Com.StopBits := 1; Com.Open; Com.Output := Cmd + #13#10; // 按设备协议补回车换行 finally Com.Free; end; end;这里几个参数值得说明。ComNumber对应 Windows 设备管理器里的串口号，1 就是 COM1。Baud、Parity、DataBits、StopBits这四个值必须和设备侧的配置一致，接仪器时很多“收发乱码”问题都出在某一项和硬件对不上。Output是发送缓冲区写入入口，设备协议要什么终结符就补什么，常见的是#13#10。Open之后才能读写，Free之前会自动释放端口。
对接收场景，我不会用轮询，一般挂OnTrigger事件，设置TriggerLength或TriggerChar，让控件在缓冲区满足条件时回调。真实项目里串口超时、粘包问题，多半要靠这些触发参数来调，而不是在业务代码里反复 Sleep。
3.3 用 Abbrevia 把目录打成压缩包
Abbrevia 里操作最频繁的是TAbZipArchive，支持 ZIP、TAR、GZIP 几种格式。下面是一个把指定目录下所有.dat文件打包的示例。
uses AbZipper; procedure BackupDatFiles(const ABasePath, AZipFile: string); var Zip: TAbZipArchive; begin Zip := TAbZipArchive.Create(AZipFile, fmCreate); try Zip.AddFiles(ABasePath + '*.dat', 0); Zip.CloseArchive; finally Zip.Free; end; end;Create的第二个参数是打开模式，fmCreate表示新建压缩包；如果文件已存在并想追加内容，要用fmOpenReadWrite打开再AddFiles，直接fmCreate会覆盖旧包。AddFiles第一个参数支持通配符，第二个参数是文件属性掩码，这里传入0表示只匹配普通文件，不加隐藏和系统文件。最关键的是CloseArchive，它会写完整 ZIP 中央目录并关闭文件，漏掉这一步，生成的压缩包用常规解压工具打开时会提示损坏。早期我在这上面翻过车，后来固定成 try/finally 里先CloseArchive再Free，再没出过事。
3.4 用 LockBox 做 AES 加解密
这里必须先分版本。LockBox v2 是类风格接口，LockBox v3 则是组件接口，两者代码长得很不一样。下面先给 v2 的写法。
uses LbCipher, LbAES; procedure EncryptBlockExample; var Cipher: TLbAES; Key: TKey128; Src, Dst: TBlock128; begin Cipher := TLbAES.Create(nil); try Cipher.KeySize := ks128; // 128 位密钥 Cipher.Key := Key; // 部分发行版写法是 Cipher.Init(Key, nil) Cipher.EncryptBlock(Src, Dst); finally Cipher.Free; end; end;KeySize决定密钥长度，ks128、ks192、ks256对应 128/192/256 位。Key是 16 字节的TKey128数组，实际项目里通常由用户口令经过摘要算法得到，而不是直接用字符串前 16 字节。EncryptBlock一次加密一个块，块大小由算法决定，所有块串起来才是完整密文。如果手里是 v3 镜像，接口就换成了TCodec：
uses LockBox3, LbCryptoLib; var Codec: TCodec; CryptoLib: TStreamCryptoLibrary; begin CryptoLib := TStreamCryptoLibrary.Create(nil); Codec := TCodec.Create(nil); try Codec.CryptoLibrary := CryptoLib; Codec.StreamCipher := 'AES-128'; Codec.ChainMode := 'CBC'; Codec.Password := 'user-pass'; Codec.EncryptStream(InStream, OutStream); finally Codec.Free; CryptoLib.Free; end; end;提示：LockBox3 在不同发行版里
TCodec的属性名有小幅调整，上面这段以你解压包内Demos里的示例为准。
4. 避坑指南：跨版本编译、镜像下载和安装暴雷的五个真实翻车现场
4.1 翻车点一：Library Path 顺序残留旧 dcu
现象：打开某个.dpk编译，IDE 报 “Unit x was compiled with a different version of y”，或者干脆File not found。
原因：机器上以前装过旧版 TurboPower，旧版.dcu还躺在某个搜索路径里；新解压的 Source 目录排在它后面，编译器先撞上了旧产物，版本对不上就直接拒绝。
解决：把 Library Path 里所有 TurboPower 相关旧路径先删掉，只留当前这份 Source；然后清掉 IDE 的临时缓存，老版本 Delphi 尤其要检查BPL默认输出目录里有没有同名文件。清完再编译，这类报错基本绝迹。
4.2 翻车点二：Unicode 编译期报错
现象：新 IDE 编译老工程，满屏Incompatible types: 'AnsiChar' and 'Char'，或者是字符串赋值到PAnsiChar的错。
原因：老套件在老编译器时代默认是 AnsiString，新 IDE 默认 UnicodeString，类型体系换了，老代码里大量直接传字符串指针给 API 的写法就炸了。
解决：老工程想快速迭代，优先在支持 AnsiString 的老 IDE 环境里编译；如果必须用新 IDE，找社区维护过的 Unicode 修复版镜像更省事，自己从零改字符串类型重编译的工作量不小。改代码时善用{$IFDEF UNICODE}区分两种处理，不要在源文件里随手把string全替换成AnsiString。
4.3 翻车点三：bpl 加载失败
现象：安装包时一切正常，重启 IDE 后弹出 “Cannot load package ... 找不到指定的模块”，控件面板一片空白。
原因：设计包.bpl编译到了某独立输出目录，但 IDE 启动时按自己的 BPL 搜索路径找不到它；64 位 IDE 还会因为架构不匹配直接拒绝加载。
解决：把.bpl输出目录加进 IDE 的 BPL 搜索路径，同时确认 IDE 和目标包同属一个位数架构。这里多说一句，老组件镜像基本都是 32 位时代产物，新 IDE 是 64 位时，优先用 32 位 IDE 目标平台跑兼容性最好，硬上 64 位大概率得不偿失。
4.4 翻车点四：旧包未卸载，新功能被旧控件覆盖
现象：装完新包，拖到窗体上的控件行为还是老样子，甚至组件面板上出现两个名字一样、图标一样的条目。
原因：旧版本运行包还挂在Install Packages列表里，两个包提供同类组件，IDE 加载顺序靠前的那个先生效，新装的组件根本没被用上。
解决：先在Component > Install Packages里把旧包 Remove，关掉 IDE，清掉临时目录，再开 IDE 装新包。装完之后别急着拖控件，先查一遍包列表里是否只有一个目标条目，这个习惯能省掉很多“我明明改了代码为什么没效果”的排查时间。
4.5 翻车点五：Demo 在 64 位目标平台下一跑就崩
现象：Demo 编译通过，但一运行就在某个控件内部访问冲突，或者字符串内容看着是乱码。
原因：老 Demo 是为 32 位指针时代写的，结构体里手动算偏移、硬编码SizeOf(Pointer)的地方不少，64 位下对象内存布局变化直接触发踩内存。
解决：把目标平台切到 32 位跑通，先验证业务逻辑；确认 Demo 的行为和文档描述一致后，再考虑是否需要为 64 位做适配。对老组件库，我一般不会花太多力气去改底层适配，运行包稳定比花哨目标平台重要得多。
5. 组件源码的阅读顺序：用断点、输出日志把黑匣子打开
5.1 Demo 是最佳入口，但不是所有 Demo 都要跑
拿到镜像后，Demos目录的价值远大于文档。我的阅读顺序是：先看离自己业务最近的一个 Demo，例如要写串口就找 AsyncPro 下带 Serial 或 ComPort 字样的示例，要写压缩就找 Abbrevia 下带 Archive 的示例。打开的.dpr或.dpk里如果涉及硬件设备、没有对应外设时，用虚拟串口工具把两端映射起来就能跑，不需要真接仪器。读 Demo 时重点不是抄代码，而是看控件属性在真实场景里怎么组合，尤其是打开句柄、设置超时、触发事件三个位置。
5.2 在控件源码里下断点
组件用起来是黑匣子，但 TurboPower 源码是开放的，直接打开Sources里对应.pas文件就能把黑匣子撬开。以 AsyncPro 为例，想知道Open方法内部到底做了什么，就在AdTComm.pas里搜索procedure Open，在实现的第一行下断点，然后运行 Demo，IDE 会在调用串口时自动停在断点处。从断点往后单步走，能清楚看到端口句柄如何建立、缓冲区如何初始化、错误码如何捕获。
这个方法对新手特别管用。源码里一堆相互调用的函数，单靠看很难记住调用链，但打断点跟一遍，就比自己瞎猜高效得多。
5.3 用属性 setter 定位行为变化
更系统的做法是把属性名当搜索入口。比如看到 Demo 里设置了Com.Baud := 9600，就在源码里搜property Baud，定位到set_Baud方法，再从 setter 往下找它实际调用的是哪个驱动函数。这样一个属性一条链路，串口参数、压缩模式、加密算法全是这样追出来的。不想打断点时，可以临时在源码里加一行OutputDebugString，重编译对应.bpl后，在 IDE 的 Event Log 窗口看输出，很多“控件为什么没反应”的疑问，看日志比读代码快得多。
不过要提醒一句：给源码加日志后，记得在后续编译前还原或者用条件编译包一层。我一般用{$IFDEF DEBUG}把这类日志代码包起来，这样发布时直接切 release 配置，不会把调试分支带进运行环境。
6. 维护一份自己的组件分支：把补丁嵌进源码，编译动作固化成脚本
组件装到 IDE 里只是第一步，真正长线维护得靠自己的分支。我把 TurboPower 的源码复制到项目的ThirdParty目录下，纳入项目版本管理，此后任何修改都只落在自己这份拷贝上，不影响全局公共目录。改完源码后重新编译对应.bpl，IDE 重启用到的就是新逻辑，这也相当于给自己留了一份后悔药。
固定编译顺序是一个容易被忽略的动作。每个子库依赖关系稳定，但手动点来点去容易漏，我把它写进批处理脚本，按 ZLib、Abbrevia、AsyncPro、LockBox 的顺序依次编译：
dcc32 -B -M ZLib.dpk dcc32 -B -M Abbrevia.dpk dcc32 -B -M AsyncPro.dpk dcc32 -B -M LockBox.dpk-B表示全量重建，-M是检查依赖后编译丢失目标的单元。新环境装完 Delphi，把脚本路径和 IDE 菜单路径配好，一条命令就能回归一遍完整构建。从那以后我每次换机器或升级 IDE，都强制自己走一遍“清理旧包、配 Library Path、跑构建脚本、跑三个核心 Demo”的固定流程，宁可先花半小时验证环境，也不要等业务代码跑起来才发现控件根本没装对。这套资源里的源码和示例文档，就是做这件事最好的底子，希望帮到你。
本文还有配套的精品资源，点击获取
