TurboPower 组件库实战指南：Delphi 遗留系统的基础设施补全

简介：这份资源是TurboPower全套VCL组件源码及相关文档的完整归档，面向仍在使用Delphi进行桌面与数据库开发的程序员，以及需要研究经典第三方控件实现的技术人员。TurboPower作为有18年历史的Delphi组件厂商，于2004年停止运营并开放全部产品源代码，本包正是这批遗产的集中整理，涵盖Abbrevia、Async Professional、B-Tree Filer、Essentials、FlashFiler、Internet Professional、LockBox、OfficePartner、OnGuard、Orpheus、ShellShock、SysTools、Visual PlanIt、XML Partner等系列。压缩包共812个文件，约102.96MB，以dfm窗体、cpp与pas源码、h头文件、dpr与bpr工程文件为主，另含wav音频、zip子包、txt说明等，便于直接编译与二次开发。目前已有298人学习下载。对于需要压缩、串口通信、加密、报表、界面美化或数据库中间件的Delphi项目，这批源码可作为可靠参考，也能帮助读者理解早期组件架构与工程组织方式。

1. TurboPower 全套组件及相关文档：一套被低估的 Delphi 基础库该怎么用起来

如果你维护过五年以上的 Delphi 项目，大概率在uses里见过LMD、DevExpress、EhLib这些名字，但真正撑起底层脏活累活的，往往是另一批低调的库——TurboPower 系列就是典型。它不是一个单一控件包，而是由几十个独立组件库拼起来的“全家桶”：字符串处理、正则、序列化、日志、加密、压缩、数据库访问、Socket 通信、计划任务、单元测试框架，几乎每个模块都能单独拎出来用。很多人第一次接触它，是因为接手了一个老项目，发现代码里到处是StBase、StUtils、StRegEx、AbUtils、AbZip这类前缀，翻遍官方文档也找不到完整说明，只能靠源码硬啃。这套组件及相关文档的价值恰恰在这里：它把 Delphi 生态里最缺的那层“基础设施”补齐了，而且源码可读、依赖极少、跨版本兼容性好。适合谁？适合正在维护遗留 Delphi 系统、需要给老项目补日志/加密/压缩能力、又不想引入重型商业控件的工程师。接下来的内容，我会按“先搞清楚它到底包含什么、再动手跑通最小示例、最后把文档和源码配合起来查”的顺序讲，中间会穿插我踩过的坑和参数调优经验。

2. TurboPower 组件族的模块划分与选型逻辑

2.1 从源码目录反推模块边界

拿到一套 TurboPower 源码包，第一件事不是急着编译，而是先看目录结构。常见做法是每个子目录对应一个独立组件库，目录名通常就是单元前缀。比如St开头的是 SysTools，Ab开头的是 AsyncPro，Or开头的是 Orpheus 报表控件，Rx开头的是 RX 库，Sf开头的是 SciFile 科学计算文件格式。每个目录里一般有source、packages、demos、docs四个子目录，其中docs里可能是.hlp老式帮助文件，也可能是.chm或纯文本说明。我一般会先打开docs里的索引文件，把每个库的“一句话定位”抄下来，做成一张表，后面选型时直接查。

这张表不是让你背，而是让你在uses里看到前缀时能立刻反应过来该去哪个目录找源码。很多老项目只用了其中两三个库，但文档里往往把全套都列出来，容易看花眼。

2.2 哪些模块值得优先引入

不是所有模块都值得在新代码里用。我的经验是：SysTools 里的StUtils、StRegEx、StLog、StBase64、StCrc这几个单元，稳定性和可读性都很好，可以直接拿来替代自己手写的工具函数。AsyncPro 的串口部分在工控场景里仍然能打，但 Socket 部分建议评估后再用，因为现代 Delphi 已经有更成熟的网络库。Orpheus 和 RX 的 UI 控件偏老，除非维护旧界面，否则不建议在新项目里铺开。SciFile 比较垂直，做科学计算或仪器数据解析时才会用到。

选型时还有一个隐藏指标：看该模块的source目录里有没有*.inc条件编译文件。如果有，说明它做了跨版本适配，从 Delphi 7 到 Delphi 11 可能都能编过。没有.inc的模块，往往只针对特定版本，升级 IDE 时容易翻车。

2.3 文档的三种形态与查阅顺序

TurboPower 的文档不是统一格式，常见有三种：老式 WinHelp.hlp、编译后的.chm、以及散落在源码里的注释块。查阅顺序我建议是：先看.chm里的 API 索引，找不到再看源码单元头部的注释，最后才去翻.hlp（因为新版 Windows 打开.hlp很麻烦）。源码注释里经常藏着参数取值范围和调用顺序，比正式文档还准。比如StRegEx单元头部就写明了它基于 PCRE 的哪个版本、支持哪些修饰符，这些在.chm里反而没写全。

提示：如果.hlp打不开，不要花时间折腾系统组件，直接去source目录搜单元名，看头部注释和interface部分，信息量足够。

3. 用 SysTools 跑通第一个最小示例：字符串加密与日志

3.1 建立可编译的测试工程

先不要往现有项目里塞，新建一个 VCL Forms Application，把 SysTools 的source目录加到搜索路径里。具体操作：Project → Options → Delphi Compiler → Search Path，填入...\St\source。然后新建一个单元，uses里加上StBase64、StCrc、StLog。下面这段代码是我常用的最小验证模板，能同时测通 Base64 编解码、CRC 校验和日志写入。

unit TurboPowerMinDemo; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, StBase64, StCrc, StLog; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); var RawStr, EncStr, DecStr: string; CrcVal: LongWord; Log: TStLog; begin // 原始字符串 RawStr := 'TurboPower-Demo-2024'; // Base64 编码 EncStr := StBase64Encode(RawStr); // Base64 解码 DecStr := StBase64Decode(EncStr); // CRC32 校验 CrcVal := StCrc32(0, PAnsiChar(AnsiString(RawStr)), Length(RawStr)); // 日志写入 Log := TStLog.Create(nil); try Log.FileName := ExtractFilePath(Application.ExeName) + 'demo.log'; Log.Enabled := True; Log.Write('Raw=' + RawStr); Log.Write('Enc=' + EncStr); Log.Write('Dec=' + DecStr); Log.Write('CRC=' + IntToHex(CrcVal, 8)); finally Log.Free; end; ShowMessage('Enc: ' + EncStr + sLineBreak + 'Dec: ' + DecStr + sLineBreak + 'CRC: ' + IntToHex(CrcVal, 8)); end; end.

这段代码的逻辑很直白：先编码再解码，验证 Base64 单元是否正常工作；然后算一次 CRC32，确认StCrc的调用约定；最后用TStLog写文件，确认日志组件能创建文件并追加内容。参数上注意StCrc32的第一个参数是初始值，通常传 0；第二个参数是PAnsiChar，所以需要把string转成AnsiString再取指针，否则在 Unicode 版 Delphi 下会算错。TStLog.FileName必须给绝对路径，相对路径会写到系统临时目录，这是很多人第一次用日志时找不到文件的原因。

3.2 正则表达式单元的调用要点

StRegEx是 SysTools 里使用频率最高的单元之一，但它的 API 和 Delphi 自带的TRegEx不一样。它返回的是匹配结果对象，需要手动释放。下面是一个提取日志中 IP 地址的示例。

uses StRegEx; procedure TForm1.ExtractIPs; var Regex: TStRegEx; Match: TStRegExMatch; I: Integer; begin Regex := TStRegEx.Create; try // 编译正则，忽略大小写 Regex.Compile('(\d{1,3}\.){3}\d{1,3}', [roIgnoreCase]); Regex.Execute('Client 192.168.1.10 connected, peer 10.0.0.5 closed'); for I := 0 to Regex.MatchCount - 1 do begin Match := Regex.Matches[I]; Memo1.Lines.Add(Match.Value); end; finally Regex.Free; end; end;

关键参数在Compile的第二个参数，它是一个集合，常用值有roIgnoreCase、roMultiLine、roSingleLine。Execute之后通过MatchCount和Matches[I]取结果，Match.Value是完整匹配文本，Match.Sub[0]是第一个捕获组。注意TStRegEx不是线程安全的，每个线程要自己创建一个实例，不要全局共享。

3.3 日志组件的滚动与级别控制

TStLog支持按大小滚动和按级别过滤，但这两个功能默认是关的。要开启滚动，设置Log.Rolling := True和Log.MaxSize（单位 KB）。要按级别过滤，先设置Log.Level := lvWarning，然后写日志时用Log.Write(lvInfo, '...')这样的重载。很多人抱怨日志文件无限增长，就是因为只调了Write没开Rolling。另外TStLog默认会加时间戳，格式可以通过Log.TimeFormat改，但改完要调用Log.Reopen才生效，这个细节文档里没写，我是看源码发现的。

4. 把 AsyncPro 和 SciFile 接进实际项目：串口与数据文件

4.1 AsyncPro 串口的最小可用配置

AsyncPro 的串口组件叫TComPort，在AbCom单元里。它比 Delphi 自带的串口库功能多，但配置项也多。下面是一个打开串口并发送 AT 指令的示例。

uses AbCom, AbUtils; procedure TForm1.OpenSerial; begin ComPort1.Port := 'COM3'; ComPort1.BaudRate := br9600; ComPort1.DataBits := db8; ComPort1.StopBits := sbOne; ComPort1.Parity := paNone; ComPort1.FlowControl := fcNone; ComPort1.Open; if ComPort1.Connected then ComPort1.WriteStr('AT' + #13#10); end;

参数上最容易出错的是FlowControl，如果设备不支持硬件流控，一定要设成fcNone，否则会一直等 CTS 信号导致发送卡住。BaudRate是枚举类型，不是整数，常用值有br9600、br19200、br115200。接收数据要挂OnRxChar事件，在事件里用ComPort1.ReadStr读，不要在主线程里轮询，否则界面会卡。

4.2 SciFile 读写科学数据文件

SciFile 主要处理二进制科学数据，比如示波器导出的波形文件。它的核心类是TSfFile，支持自定义记录结构。下面是一个写入和读取的示例。

uses SfFile, SfUtils; type TWaveRecord = packed record TimeStamp: Double; Channel: Integer; Value: Double; end; procedure TForm1.WriteSciFile; var Sf: TSfFile; Rec: TWaveRecord; I: Integer; begin Sf := TSfFile.Create; try Sf.FileName := 'wave.sf'; Sf.Open(fmCreate); for I := 0 to 99 do begin Rec.TimeStamp := Now + I / 86400; Rec.Channel := 1; Rec.Value := Sin(I / 10); Sf.WriteRecord(Rec, SizeOf(Rec)); end; Sf.Close; finally Sf.Free; end; end;

这里的关键是记录必须用packed record，否则编译器会插入对齐字节，导致写入和读取的SizeOf不一致。Open的模式有fmCreate、fmOpenRead、fmOpenWrite，读取时用ReadRecord循环读，直到Eof为真。SciFile 不负责字节序转换，如果文件要跨平台用，得自己处理大端小端。

4.3 把两个库组合起来做数据采集

实际项目里经常是串口收数据、然后存成 SciFile。组合时注意线程问题：AsyncPro 的OnRxChar在后台线程触发，而 SciFile 的写入最好放在主线程或单独的写线程里，不要直接在OnRxChar里写文件，否则高频数据下会丢包。我一般用一个线程安全的队列缓冲，主线程定时取队列写文件。队列可以用TThreadedQueue或自己用临界区实现，TurboPower 的StUtils里有TStCriticalSection可以用。

5. 避坑与排查：TurboPower 集成中的五个血泪教训

5.1 编译报错“Unit not found”但路径明明加了

现象：Search Path 里加了St\source，编译还是提示找不到StBase64。原因：TurboPower 的单元文件可能放在source下的子目录里，比如St\source\common，你只加了顶层。解决：用文件资源管理器搜一下StBase64.pas的实际位置，把那一级目录也加进 Search Path，或者直接把所有子目录都加进去。

5.2 Unicode 版 Delphi 下字符串函数返回乱码

现象：StBase64Encode返回的字符串显示为乱码。原因：SysTools 早期版本是按 AnsiString 设计的，在 Unicode 版 Delphi 下，如果传入string会隐式转换，但内部可能按字节处理。解决：显式转成AnsiString再传入，或者找该库较新的分支，看是否已适配 Unicode。我一般会在调用前加AnsiString(RawStr)强制转换。

5.3 日志文件写不进去且不报错

现象：TStLog.Write调用后文件没内容。原因：Log.Enabled默认是 False，或者FileName指向了没有写权限的目录（比如 Program Files）。解决：先设Enabled := True，再把FileName设到用户目录或 Exe 同级的Logs子目录，并确保目录存在。TStLog不会自动创建目录，目录不存在时静默失败。

5.4 串口打开成功但收不到数据

现象：ComPort1.Connected为 True，但OnRxChar不触发。原因：OnRxChar事件没挂，或者ComPort1.ReadStr在事件里读的长度不对。解决：在设计器里双击OnRxChar生成事件框架，然后在里面用ComPort1.ReadStr(Data, ComPort1.InQue)读全部缓冲。如果设备是二进制协议，还要设ComPort1.RxTimeout，否则可能一直等。

5.5 升级 Delphi 版本后组件面板消失

现象：从 Delphi 10 升到 11，TurboPower 的组件面板页不见了。原因：组件包.dpk没有随 IDE 升级重新编译安装。解决：打开对应库的packages目录，找到.dpk文件，用新版本 IDE 打开并 Build，然后 Install。如果.dpk里有条件编译错误，检查.inc文件里的版本判断，手动加上新版本的符号定义。

6. 进阶：用源码注释和单元测试反推 API 行为

TurboPower 的文档虽然不全，但源码里有两样东西能当文档用：单元头部的注释块和demos目录里的示例工程。我习惯在遇到不确定的 API 时，先看单元头部注释，那里通常写了作者、版本、依赖和已知限制。比如StLog单元头部就写了“本单元不支持多线程同时写同一文件”，这个信息在.chm里根本没有。另一个技巧是看demos目录，每个库至少有一个示例工程，直接编译运行，比看文档快得多。

如果源码里带了单元测试（有些库的tests目录里有 DUnit 测试），那是最好的行为说明书。跑一遍测试，看每个用例的输入输出，比读十页文档都管用。我一般会把测试用例里的断言抄下来，改成自己的验证代码。比如StCrc的测试里会列出几个标准字符串的 CRC 值，你拿自己的实现去对，对不上就说明调用方式错了。

最后一个习惯：给每个引入的 TurboPower 单元在项目里建一个third_party目录，把源码复制进去，不要直接引用外部路径。这样项目迁移时不会因为路径变化而编译失败，也方便你给源码打补丁。补丁要单独记在一个patches文件里，写清楚改了哪个单元、哪一行、为什么改。下次升级库时，先看补丁能不能合并，不能合并就手动再打一遍。这个习惯帮我省过很多次“升级后编译不过”的后悔药。希望帮到你。

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