简介WPTools For XE5 是一套面向 Delphi XE5 及更高版本开发的文字处理与报表生成组件资源适合需要实现富文本编辑、邮件合并、PDF导出及DOCX/RTF/HTML转换的桌面应用开发者。资源包含完整源码工程、窗体文件、编译单元与运行库可用于组件集成学习、功能定制或二次开发。压缩包共547个文件以Pascal/Delphi源文件、DFM窗体定义、DCU编译单元及项目工程文件为主辅以配置文件、位图图标和少量示例程序整体体积约13.97MB。组件支持可编辑页眉页脚、样式表、书签、带文字包裹的嵌入式图片、脚注和栏目标签并内置SVG渲染引擎与WPReporter报表工具能够支撑复杂文档处理场景。资源包中额外提供示例工程与图标源文件便于快速了解WPTools在真实项目中的集成方式已有18人学习下载适合需要扩展编辑器功能或构建文档管理系统的中高级VCL开发者。1. WPTools For XE52013 年的富文本控件为什么今天还在被翻出来说是老东西但它从没消失WPTools For XE5 是 WPCubed 公司在 Delphi XE5 时代主推的商业富文本控件套件。在 2024 年打开一个十年前维护的 ERP、MES 或病历系统项目十有八九会碰到它——需求是“像 Word 一样编辑、打印、把 RTF 存进数据库”当年只有它把编辑、打印预览、RTF/HTML 解析和邮件合并打包进一个控件。适合读这篇的是两类人一类是刚接手老代码、被 DPK 编译和中文乱码折磨的新维护者另一类是想评估“老控件还能不能继续用于新模块”的老开发。下面按一条“装得上、用得动、看得懂坑”的路径拆开讲。2. 把 WPTools For XE5 装进 XE5 IDE先编译谁、路径加哪、怎么验证这一章解决最基础也最卡人的问题拿到 WPTools 源码包后怎么在 XE5 里把它变成能拖拽的控件。常见做法是先从安装包里找到 DPK 文件按运行期包到设计期包的顺序编译安装再配置全局库路径。顺序错了会出现“编译通过但拖不出来”“编译报错找不到某 DCU”等一系列问题。2.1 运行期包与设计期包先 runtime 后 designtime 的顺序从哪来Delphi 的组件包分两类运行期包runtime package最终发布软件时依赖的 BPL/DLL和设计期包designtime package只在 IDE 里负责注册控件、显示图标。WPTools 源码目录里通常按后缀区分这两类老版本常见_r和_d新一点用Runtime和DesignTime。为什么要先编译运行期包因为设计期包只是给 IDE 用的壳它内部引用的还是运行期包里的实现代码顺序反了IDE 会提示找不到wpctr或wpio单元。我一般会先打开运行期 DPK右键 Compile再打开设计期 DPK右键 Install。命令行的验证方式更稳定尤其在你需要给同事写安装脚本的时候:: 在 XE5 命令行环境编译运行期包的常见用法按实际路径修改 C:\Program Files (x86)\Embarcadero\RAD Studio\12.0\bin\rsvars.bat cd /d C:\wptools\source dcc32 -B WP_r.dpkrsvars.bat负责设置 DCC32 的环境变量-B是强制全量重建避免旧 DCU 干扰。如果 DPK 文件名带版本后缀比如WP_r_XE5.dpk就以实际文件名为准。编译结束后在Output或源码目录下会生成对应的.bpl和.dcu前者给系统注册后者给工程链接用。提示安装包里如果带了已编译的.bpl也别跳过编译步骤。不同版本的 Delphi 对 DCU 的格式敏感直接拿旧 BPL 到 XE5 下用通常会报“module compiled with a different version of Delphi”之类的错。2.2 编译安装的具体操作与验证命令完整流程一般是三步先把源码路径加进全局库路径再编译运行期包最后安装设计期包。在 XE5 的 IDE 里菜单路径是Tools Options Delphi Options Library在Library Path里把 WPTools 的源码目录加进去然后分别打开两个 DPK 执行操作。检查和验证安装结果最直接的方法是在 Object Inspector 的组件面板里搜“WPRichText”或“WPReporter”。命令行则可以用下面的方式确认 BPL 是否注册成功:: 查看已注册的 RAD Studio 包列表里是否包含 WPTools C:\Program Files (x86)\Embarcadero\RAD Studio\12.0\bin\bds.exe /personality:Delphi /noSplash这个命令只是带参数启动 IDE真正判断注册是否成功还是看组件面板或Component Install Packages列表里有没有 WPTools 条目。另一个更快的验证是新建一个 VCL 工程在uses里手动加上WPCTRRich编译一次——能过就说明 DCU 搜索路径正确控件能不能拖是设计期包的事。如果这里翻车九成是路径问题。比如把源码路径加进了Search Path而不是Library Path或者加了两个不同版本的 WPTools 目录IDE 会先搜到旧 DCU 然后报版本冲突。2.3 XE5 的库路径设置Library Path 与 Search Path 别再混用这两个路径经常被混用但职责完全不同。Library Path是 IDE 全局的编译搜索路径所有工程都会带上WPTools 的源码目录应该加在这里这样每个模块都能用。Search Path是工程级的只对当前工程生效通常用来放只有这个工程才用到的小工具目录。路径类型作用范围建议放什么不注意会怎样Library PathIDE 全局WPTools 源码目录、公共组件目录工程换机器后编译不过报 Find 单元错误Search Path当前工程工程私有源码、第三方补丁单元多放没坏处但换工程就得重配还有一个细节XE5 支持 Win32 和 Win64 两套编译目标Library Path 里两个平台要分别配。很多人只配了 Win32觉得能编译过就行等到做发行版或碰到内存需求大的场景要切到 64 位时IDE 突然说找不到 WPCTRRich.dcu其实不是控件没有是 Win64 的路径里没加。最后提醒一次WPTools 源码目录里可能同时存在多个版本的 DPK 文件比如按 Delphi 版本拆分的子目录。加 Library Path 时指到“和 XE5 匹配的那一层”不要直接指到根目录否则 IDE 可能搜到旧版本源码引发“重定义 WPTools 单元”的怪问题。3. 最小可用的 WPTools For XE5 编辑器加载 RTF、改文本、存回去装好控件之后下一步是把一个能编辑、能存取 RTF 的编辑器跑起来。这里不依赖表单设计器而是直接用代码创建 TWPRichText因为老项目里控件经常诞生于运行时尤其是动态生成编辑器、动态加载模板的场景。3.1 用代码创建一个可编辑的 TWPRichTextWPTools 的核心组件是 TWPRichText它既是数据容器也是可视化编辑器。放在窗体上能编辑不放在窗体上则可以作为纯内存文档使用。动态创建时要注意属主和释放顺序否则切换到窗口页签时控件被回收还会引发访问冲突。uses VCL.Forms, WPCTRRich, WPIORead, WPIOWrite; procedure CreateEditor(AOwner: TWinControl); var Ed: TWPRichText; begin Ed : TWPRichText.Create(AOwner); Ed.Parent : AOwner; // 挂到父控件上显示 Ed.Align : alClient; // 占满父区域 Ed.ReadOnly : False; // 允许编辑 Ed.Clear; Ed.LoadParams.Charset : 936; // 中文 GBK加载 RTF 必设 end;上面的LoadParams.Charset : 936是老项目里最容易被漏掉的一行。WPTools 默认按本地 ANSI 代码页解析 RTF在简体中文 Windows 上大概率是 936但如果系统区域设置不是中文就会出现乱码。显式指定后不管 RTF 文件里写的是ansicpg936还是别的标签控件都能按你给的代码页处理。3.2 RTF 读写与流式处理文件、数据库 Blob 和编码老项目保存文档很少直接存 .rtf 文件多数是存进数据库的 Blob 字段。WPTools 对流的支持比对文件路径更可靠原因在于文件读写会隐式依赖扩展名猜测格式而流读写可以显式指定格式避免“明明是 RTF 却按 HTML 解析”的尴尬。procedure SaveDocToBlob(Ed: TWPRichText; AStream: TMemoryStream); begin AStream.Clear; Ed.SaveParams.Charset : 936; // 部分版本支持 OutputCodePage可用于输出 UTF-8 编码的 RTF Ed.SaveToStream(AStream, RTF); end;SaveToStream的第二个参数是格式名传RTF就是输出 RTF传HTML则输出 HTML。这个参数在 XE5 配合的 WPTools 版本里很常用老代码里经常看到同一个函数根据扩展名切换格式。流的好处是天然适配数据库字段也方便做内存里的格式转换读出来的流可以直接再喂给另一个 TWPRichText实现“打开 RTF → 转成 HTML → 存到另一张表”的管道式处理。读取时同样推荐流方式。LoadFromFile 固然省事但碰到文件被占用、路径含中文等情况时不报错但读不到内容排查起来费时间。用 TFileStream 打开并校验 Size 后再 LoadFromStream至少能分清是文件层问题还是解析层问题。3.3 段落级操作对齐、缩进、字体与列表编辑器能跑起来之后业务上最常见的是对段落和字体做操作比如报价单里把标题居中、正文缩进、金额加粗。WPTools 的段落对象是 Paragraphs 集合当前光标所在段落通过 ActiveParagraph 或 ActiveStyle 控制操作粒度可以到字符。// 光源放在某一段对该段做对齐和字体设置 Ed.Paragraphs.Alignment : paCenter; // 居中对齐 Ed.ActiveStyle.FontName : 微软雅黑; // 字体 Ed.ActiveStyle.FontColor : clBlack; Ed.ActiveStyle.FontSize : 12; // 整段左缩进 500 个 twips约 8.8 毫米 Ed.Paragraphs.LeftIndent : 500;要提醒的是Alignment影响的是当前段落而不是整个文档。如果要对全文生效需要用循环遍历 Paragraphs 集合。遍历时注意边界Paragraphs.Count 在文档被清空后可能为 0遍历前先判空否则容易越界。另一个常见坑是ActiveStyle在光标落在表格或页眉里时指向的对象不同老项目的翻车现场多发生在“光标明明在第二页改的却是第一页样式”这类错位上。这一节的三个代码块基本覆盖了老项目的读写主线。真正干活时读、改、存三个动作会被拆到不同窗口甚至不同线程里但底层 API 就是这套。只要把 Stream 处理和 Charset 设置先固定下来后面所有功能都只是在这两个基础上叠。4. WPTools For XE5 的 5 个典型踩坑记录这一章的每条内容都来自实际接手老项目时有代表性的现场现象、原因、解决。不追求面面俱到只挑频率最高、最容易被当成控件缺陷处理的那几类。4.1 加载 RTF 后中文变成方框或问号现象用 TWPRichText 打开一份从 Word 导出的中文 RTF编辑区显示的内容全是?或空白方框但同一个文件用记事本打开能看到中文。原因RTF 内部声明了ansicpg936或\u编码而 WPTools 的LoadParams.Charset没设置控件按系统默认代码页解析。如果程序运行在英文或繁体中文系统上默认代码页不是 936中文字符就全部变成问号。解决加载前显式设置LoadParams.Charset : 936。如果文件实际是 UTF-8 编码先读进流再转成 UTF-8 字符串重新构建流后再 LoadFromStream。兜底方案是用Ed.Text : AnsiToUtf8(...)绕过格式解析但这样会丢掉 RTF 里的样式所以只适合纯文本场景。4.2 安装成功却拖不出控件或工具栏图标空白现象DPK 编译通过Component Install Packages列表里也能看到 WPTools但组件面板里搜不到 TWPRichText或者控件在面板上但图标是一张空白页拖到窗体上能正常使用。原因前一种多半是装的是运行期包而不是设计期包。运行期包只注册代码不注册 IDE 面板的控件后一种则是设计期包里的图标资源路径失效IDE 找不到对应的 .res 或 .dcr 文件。解决重新打开设计期 DPK 执行 Install而不是只 Compile。图标空白不影响使用但会影响协作——别人看到空白图标会以为没装好。把WPCTRRich所在的源码目录完整保留不要只拷贝 BPL图标资源一般和源码头文件放在一起。4.3 Windows 10/11 上界面发虚、字体模糊现象同一个程序在 Windows 7 上正常换到 Windows 10 高分屏后WPTools 编辑器区域文字模糊、工具栏图标边缘发虚整块区域像被放大过。原因XE5 生成的程序默认不声明 DPI 感知。Windows 10/11 在 150% 缩放下会直接把窗口当位图拉伸这是系统兼容行为不是控件渲染问题。WPTools 的编辑器内部还是按 96 DPI 计算的坐标一旦被拉伸必然糊。解决在工程选项里给 manifest 加dpiAware声明或者在Application.Initialize之前调SetProcessDPIAware()。注意后者必须在创建窗口前调用放在按钮事件里则无效。改完后重新编译发布重启程序看效果这一步对老 ERP 项目收益很大顺带把菜单和按钮都变清晰了。4.4 编译 Win64 目标时报 E2034 或指针相关错误现象工程切到 64 位编译大量报E2034类型不匹配错误定位都在 WPTools 的内部单元里比如指针赋值、Integer 和 Cardinal 互转的代码。原因XE5 时代的部分 WPTools 版本内部用Integer保存对象指针32 位下 Integer 和指针宽度一致能正常编译64 位下指针是 8 字节Integer 只截取 4 字节编译器直接报错。解决升级到兼容 64 位的 WPTools 版本这是最省事的路如果无法升级只能保持 32 位发布。老项目里如果某些功能依赖 DLL 注入或内存地址计算即使强改也能过编译运行时也会出更难查的异常。需要先问清楚发行环境是否强制 64 位再决定投入多少成本去折腾。4.5 XE5 工程换到新版 Delphi 后报错一堆现象拿到一份在 XE5 上正常的工程用 RAD Studio 10.x 打开编译报“找不到 DCU”“无法定位 BPL”。把 WPTools 的旧 DCU 拷到新工程目录里也没用。原因DCU 与编译器版本强相关BPL 也是按 IDE 版本编译的。老工程里如果引用的是绝对路径的 DCU 或 BPL新 IDE 压根不会去加载。另一个隐藏原因是 WPTools 源码里有些写法在新版 Delphi 下被标记为过时比如AnsiString相关的隐式转换新版一开严格语义检查就炸。解决不要走“拷 DCU 碰运气”的路子直接在新版 IDE 里重新编译 WPTools 的 DPK重配 Library Path。新版对字符串类型更严格源码里若有PChar和string混用的地方编译器会给出精确到行的警告逐个修正后重编 BPL。迁移后记得全部重新编译一次别留旧 DCU 在某个深层目录里否则会出现“改了代码但不生效”的玄学问题。5. 打印预览与邮件合并把 WPTools For XE5 用在业务单据上编辑器只是前半场业务系统里真正花钱买 WPTools 的理由通常是打印和报表。单据要预览、要按客户模板套打还要把数据库字段填进 RTF 模板批量生成。这一章讲清楚打印链路的参数、模板合并的用法以及业务单据常见的三个易错点。5.1 打印链路页面设置、预览与输出WPTools 的打印链路可以拆成四步设置页面尺寸、加载内容、预览、发送到打印机。页面尺寸用 PageWidth 和 PageHeight 控制单位是 1/1000 毫米A4 纵向纸对应21000 x 29700。这个单位和 Delphi 的 TPrinter 用的像素不同直接拿 TPrinter 的面板尺寸来填会出现打印裁切。// 页面设置、预览和打印的常见调用方式 WPRichText1.PageWidth : 21000; // A4 宽度1/1000 毫米单位 WPRichText1.PageHeight : 29700; // A4 高度 WPRichText1.Preview; // 打开预览窗口 WPRichText1.Print; // 直接打印到默认打印机预览这一步建议保留既是给用户一个确认机会也让排版错误在出纸前被拦住。如果项目要求“点按钮直接打印”至少把预览窗口换成无界面的强制打印分支否则第一次上线就会被业务方吐槽“多了一步确认”。打印机的名称和份数在部分版本里通过 PrintParams 设置老代码里常见WPRichText1.PrintParams或OnGetPrinter事件来做参数注入具体看你的版本提供哪些属性但流程骨架就是上面这段。5.2 WPReporter 做模板合并注意版本授权与字段语法邮件合并是 WPTools 套件里另一个高频功能官方组件是 WPReporter。它的思路和 Word 邮件合并类似准备一份 RTF 模板把变化的位置填成字段占位符运行时把数据源里的记录逐条替换进去生成一份或多份新文档。需要先确认你手上的授权是否包含 WPReporter它经常是单独授权的装完 WPTools 主体看不到这个组件很正常。// 假设 Reporter 已从模板加载了 RTF 内容 if Assigned(Reporter) then begin Reporter.MailMerge.DataSource : DataSource1; // 绑定数据集 Reporter.MailMerge.Merge(True); // 合并到输出文档 end;字段语法在不同版本里略有差异常见是[字段名]或字段名。判断依据很简单模板占位符两侧是否有空格、花括号或尖括号直接用实际模板测试一下最稳妥。合并成功后生成的文档会放在当前文档对象里可以继续用 SaveToFile 输出也可以再次用 TWPRichText 编辑。如果没装 WPReporter退而求其次的方案是自己写字符串替换用 TWPRichText 加载模板后把Text里的占位符 Replace 掉。代价是会丢失部分富文本格式适合纯文本段落。5.3 单据生成里的 3 个容易出错的设计点第一个是金额格式化。直接把数据库里的浮点数字段填进模板会出现1234.5而不是1,234.50。合并前先FormatFloat(#,##0.00, Amount)否则业务方验收时会盯着金额列一条条找茬。第二个是表格行高跑版。模板里手画了固定行高的表格字段内容一长就把行撑破或者被裁掉。处理办法是把含动态内容的表格行设成“自动行高”只在表头用固定行高。WPTools 的表格行高对象在段落和单元格之间老版本里通过编辑器的 Tables 集合遍历改完记得重新计算页面布局再预览。第三个是合并字段残留。数据源里某条记录的字段是 NULL 或空字符串合并后模板里留下一截空的[字段名]打印出来非常难看。合并且在循环里做校验合并前检查字段值为空则填充一个中文全角空格防止列宽抖动。输出后再跑一遍校验把Text里搜一遍没有[字符才算真正干净。这章的三个小节连起来就是一条完整的业务单据流水线模板设计、数据合并、页面输出。WPTools 的能力在编辑和格式上但在业务正确性上还得靠使用者把控格式细节控件渲染得再漂亮字段是空的也没用。6. 用 WPTools For XE5 把 RTF 当模板引擎一次跑通批量生成给老项目维护者一个进阶技巧把 WPTools 当成模板引擎批量生成合同、证明、通知单这类“格式固定、内容可变”的文档。做法是先做一份 RTF 模板把变化位置写成[Name]、[Amount]这样的占位符然后循环加载、替换、保存。这样改格式不用改代码业务方自己用 Word 就能维护模板。function ReplaceAndValidate(Ed: TWPRichText; AOld, ANew: string): Boolean; var Txt: string; begin Txt : Ed.Text; Ed.Text : StringReplace(Txt, AOld, ANew, [rfReplaceAll, rfIgnoreCase]); Result : Pos(AOld, Ed.Text) 0; // 校验是否还有残留 end;替换后再用Text检查占位符残留避免漏替换的字段直接打进正式文档。批量生成时的循环里要新建一个 TWPRichText 实例来做替换和保存不要复用同一个实例——复用时上一次替换的格式和样式会污染下一份文档。保存时用流而不直接写文件名能少踩文件占用和路径权限的坑。我现在的习惯是凡是接手含 WPTools For XE5 的老项目第一阶段不写任何业务代码先把装、读、存、打印这条基线跑通再动手叠功能宁可多花半天做验证也不要在客户现场才翻车。希望帮到你。本文还有配套的精品资源点击获取 WPTools For XE5 完整指南：从安装部署到RTF打印模板生成
简介WPTools For XE5 是一套面向 Delphi XE5 及更高版本开发的文字处理与报表生成组件资源适合需要实现富文本编辑、邮件合并、PDF导出及DOCX/RTF/HTML转换的桌面应用开发者。资源包含完整源码工程、窗体文件、编译单元与运行库可用于组件集成学习、功能定制或二次开发。压缩包共547个文件以Pascal/Delphi源文件、DFM窗体定义、DCU编译单元及项目工程文件为主辅以配置文件、位图图标和少量示例程序整体体积约13.97MB。组件支持可编辑页眉页脚、样式表、书签、带文字包裹的嵌入式图片、脚注和栏目标签并内置SVG渲染引擎与WPReporter报表工具能够支撑复杂文档处理场景。资源包中额外提供示例工程与图标源文件便于快速了解WPTools在真实项目中的集成方式已有18人学习下载适合需要扩展编辑器功能或构建文档管理系统的中高级VCL开发者。1. WPTools For XE52013 年的富文本控件为什么今天还在被翻出来说是老东西但它从没消失WPTools For XE5 是 WPCubed 公司在 Delphi XE5 时代主推的商业富文本控件套件。在 2024 年打开一个十年前维护的 ERP、MES 或病历系统项目十有八九会碰到它——需求是“像 Word 一样编辑、打印、把 RTF 存进数据库”当年只有它把编辑、打印预览、RTF/HTML 解析和邮件合并打包进一个控件。适合读这篇的是两类人一类是刚接手老代码、被 DPK 编译和中文乱码折磨的新维护者另一类是想评估“老控件还能不能继续用于新模块”的老开发。下面按一条“装得上、用得动、看得懂坑”的路径拆开讲。2. 把 WPTools For XE5 装进 XE5 IDE先编译谁、路径加哪、怎么验证这一章解决最基础也最卡人的问题拿到 WPTools 源码包后怎么在 XE5 里把它变成能拖拽的控件。常见做法是先从安装包里找到 DPK 文件按运行期包到设计期包的顺序编译安装再配置全局库路径。顺序错了会出现“编译通过但拖不出来”“编译报错找不到某 DCU”等一系列问题。2.1 运行期包与设计期包先 runtime 后 designtime 的顺序从哪来Delphi 的组件包分两类运行期包runtime package最终发布软件时依赖的 BPL/DLL和设计期包designtime package只在 IDE 里负责注册控件、显示图标。WPTools 源码目录里通常按后缀区分这两类老版本常见_r和_d新一点用Runtime和DesignTime。为什么要先编译运行期包因为设计期包只是给 IDE 用的壳它内部引用的还是运行期包里的实现代码顺序反了IDE 会提示找不到wpctr或wpio单元。我一般会先打开运行期 DPK右键 Compile再打开设计期 DPK右键 Install。命令行的验证方式更稳定尤其在你需要给同事写安装脚本的时候:: 在 XE5 命令行环境编译运行期包的常见用法按实际路径修改 C:\Program Files (x86)\Embarcadero\RAD Studio\12.0\bin\rsvars.bat cd /d C:\wptools\source dcc32 -B WP_r.dpkrsvars.bat负责设置 DCC32 的环境变量-B是强制全量重建避免旧 DCU 干扰。如果 DPK 文件名带版本后缀比如WP_r_XE5.dpk就以实际文件名为准。编译结束后在Output或源码目录下会生成对应的.bpl和.dcu前者给系统注册后者给工程链接用。提示安装包里如果带了已编译的.bpl也别跳过编译步骤。不同版本的 Delphi 对 DCU 的格式敏感直接拿旧 BPL 到 XE5 下用通常会报“module compiled with a different version of Delphi”之类的错。2.2 编译安装的具体操作与验证命令完整流程一般是三步先把源码路径加进全局库路径再编译运行期包最后安装设计期包。在 XE5 的 IDE 里菜单路径是Tools Options Delphi Options Library在Library Path里把 WPTools 的源码目录加进去然后分别打开两个 DPK 执行操作。检查和验证安装结果最直接的方法是在 Object Inspector 的组件面板里搜“WPRichText”或“WPReporter”。命令行则可以用下面的方式确认 BPL 是否注册成功:: 查看已注册的 RAD Studio 包列表里是否包含 WPTools C:\Program Files (x86)\Embarcadero\RAD Studio\12.0\bin\bds.exe /personality:Delphi /noSplash这个命令只是带参数启动 IDE真正判断注册是否成功还是看组件面板或Component Install Packages列表里有没有 WPTools 条目。另一个更快的验证是新建一个 VCL 工程在uses里手动加上WPCTRRich编译一次——能过就说明 DCU 搜索路径正确控件能不能拖是设计期包的事。如果这里翻车九成是路径问题。比如把源码路径加进了Search Path而不是Library Path或者加了两个不同版本的 WPTools 目录IDE 会先搜到旧 DCU 然后报版本冲突。2.3 XE5 的库路径设置Library Path 与 Search Path 别再混用这两个路径经常被混用但职责完全不同。Library Path是 IDE 全局的编译搜索路径所有工程都会带上WPTools 的源码目录应该加在这里这样每个模块都能用。Search Path是工程级的只对当前工程生效通常用来放只有这个工程才用到的小工具目录。路径类型作用范围建议放什么不注意会怎样Library PathIDE 全局WPTools 源码目录、公共组件目录工程换机器后编译不过报 Find 单元错误Search Path当前工程工程私有源码、第三方补丁单元多放没坏处但换工程就得重配还有一个细节XE5 支持 Win32 和 Win64 两套编译目标Library Path 里两个平台要分别配。很多人只配了 Win32觉得能编译过就行等到做发行版或碰到内存需求大的场景要切到 64 位时IDE 突然说找不到 WPCTRRich.dcu其实不是控件没有是 Win64 的路径里没加。最后提醒一次WPTools 源码目录里可能同时存在多个版本的 DPK 文件比如按 Delphi 版本拆分的子目录。加 Library Path 时指到“和 XE5 匹配的那一层”不要直接指到根目录否则 IDE 可能搜到旧版本源码引发“重定义 WPTools 单元”的怪问题。3. 最小可用的 WPTools For XE5 编辑器加载 RTF、改文本、存回去装好控件之后下一步是把一个能编辑、能存取 RTF 的编辑器跑起来。这里不依赖表单设计器而是直接用代码创建 TWPRichText因为老项目里控件经常诞生于运行时尤其是动态生成编辑器、动态加载模板的场景。3.1 用代码创建一个可编辑的 TWPRichTextWPTools 的核心组件是 TWPRichText它既是数据容器也是可视化编辑器。放在窗体上能编辑不放在窗体上则可以作为纯内存文档使用。动态创建时要注意属主和释放顺序否则切换到窗口页签时控件被回收还会引发访问冲突。uses VCL.Forms, WPCTRRich, WPIORead, WPIOWrite; procedure CreateEditor(AOwner: TWinControl); var Ed: TWPRichText; begin Ed : TWPRichText.Create(AOwner); Ed.Parent : AOwner; // 挂到父控件上显示 Ed.Align : alClient; // 占满父区域 Ed.ReadOnly : False; // 允许编辑 Ed.Clear; Ed.LoadParams.Charset : 936; // 中文 GBK加载 RTF 必设 end;上面的LoadParams.Charset : 936是老项目里最容易被漏掉的一行。WPTools 默认按本地 ANSI 代码页解析 RTF在简体中文 Windows 上大概率是 936但如果系统区域设置不是中文就会出现乱码。显式指定后不管 RTF 文件里写的是ansicpg936还是别的标签控件都能按你给的代码页处理。3.2 RTF 读写与流式处理文件、数据库 Blob 和编码老项目保存文档很少直接存 .rtf 文件多数是存进数据库的 Blob 字段。WPTools 对流的支持比对文件路径更可靠原因在于文件读写会隐式依赖扩展名猜测格式而流读写可以显式指定格式避免“明明是 RTF 却按 HTML 解析”的尴尬。procedure SaveDocToBlob(Ed: TWPRichText; AStream: TMemoryStream); begin AStream.Clear; Ed.SaveParams.Charset : 936; // 部分版本支持 OutputCodePage可用于输出 UTF-8 编码的 RTF Ed.SaveToStream(AStream, RTF); end;SaveToStream的第二个参数是格式名传RTF就是输出 RTF传HTML则输出 HTML。这个参数在 XE5 配合的 WPTools 版本里很常用老代码里经常看到同一个函数根据扩展名切换格式。流的好处是天然适配数据库字段也方便做内存里的格式转换读出来的流可以直接再喂给另一个 TWPRichText实现“打开 RTF → 转成 HTML → 存到另一张表”的管道式处理。读取时同样推荐流方式。LoadFromFile 固然省事但碰到文件被占用、路径含中文等情况时不报错但读不到内容排查起来费时间。用 TFileStream 打开并校验 Size 后再 LoadFromStream至少能分清是文件层问题还是解析层问题。3.3 段落级操作对齐、缩进、字体与列表编辑器能跑起来之后业务上最常见的是对段落和字体做操作比如报价单里把标题居中、正文缩进、金额加粗。WPTools 的段落对象是 Paragraphs 集合当前光标所在段落通过 ActiveParagraph 或 ActiveStyle 控制操作粒度可以到字符。// 光源放在某一段对该段做对齐和字体设置 Ed.Paragraphs.Alignment : paCenter; // 居中对齐 Ed.ActiveStyle.FontName : 微软雅黑; // 字体 Ed.ActiveStyle.FontColor : clBlack; Ed.ActiveStyle.FontSize : 12; // 整段左缩进 500 个 twips约 8.8 毫米 Ed.Paragraphs.LeftIndent : 500;要提醒的是Alignment影响的是当前段落而不是整个文档。如果要对全文生效需要用循环遍历 Paragraphs 集合。遍历时注意边界Paragraphs.Count 在文档被清空后可能为 0遍历前先判空否则容易越界。另一个常见坑是ActiveStyle在光标落在表格或页眉里时指向的对象不同老项目的翻车现场多发生在“光标明明在第二页改的却是第一页样式”这类错位上。这一节的三个代码块基本覆盖了老项目的读写主线。真正干活时读、改、存三个动作会被拆到不同窗口甚至不同线程里但底层 API 就是这套。只要把 Stream 处理和 Charset 设置先固定下来后面所有功能都只是在这两个基础上叠。4. WPTools For XE5 的 5 个典型踩坑记录这一章的每条内容都来自实际接手老项目时有代表性的现场现象、原因、解决。不追求面面俱到只挑频率最高、最容易被当成控件缺陷处理的那几类。4.1 加载 RTF 后中文变成方框或问号现象用 TWPRichText 打开一份从 Word 导出的中文 RTF编辑区显示的内容全是?或空白方框但同一个文件用记事本打开能看到中文。原因RTF 内部声明了ansicpg936或\u编码而 WPTools 的LoadParams.Charset没设置控件按系统默认代码页解析。如果程序运行在英文或繁体中文系统上默认代码页不是 936中文字符就全部变成问号。解决加载前显式设置LoadParams.Charset : 936。如果文件实际是 UTF-8 编码先读进流再转成 UTF-8 字符串重新构建流后再 LoadFromStream。兜底方案是用Ed.Text : AnsiToUtf8(...)绕过格式解析但这样会丢掉 RTF 里的样式所以只适合纯文本场景。4.2 安装成功却拖不出控件或工具栏图标空白现象DPK 编译通过Component Install Packages列表里也能看到 WPTools但组件面板里搜不到 TWPRichText或者控件在面板上但图标是一张空白页拖到窗体上能正常使用。原因前一种多半是装的是运行期包而不是设计期包。运行期包只注册代码不注册 IDE 面板的控件后一种则是设计期包里的图标资源路径失效IDE 找不到对应的 .res 或 .dcr 文件。解决重新打开设计期 DPK 执行 Install而不是只 Compile。图标空白不影响使用但会影响协作——别人看到空白图标会以为没装好。把WPCTRRich所在的源码目录完整保留不要只拷贝 BPL图标资源一般和源码头文件放在一起。4.3 Windows 10/11 上界面发虚、字体模糊现象同一个程序在 Windows 7 上正常换到 Windows 10 高分屏后WPTools 编辑器区域文字模糊、工具栏图标边缘发虚整块区域像被放大过。原因XE5 生成的程序默认不声明 DPI 感知。Windows 10/11 在 150% 缩放下会直接把窗口当位图拉伸这是系统兼容行为不是控件渲染问题。WPTools 的编辑器内部还是按 96 DPI 计算的坐标一旦被拉伸必然糊。解决在工程选项里给 manifest 加dpiAware声明或者在Application.Initialize之前调SetProcessDPIAware()。注意后者必须在创建窗口前调用放在按钮事件里则无效。改完后重新编译发布重启程序看效果这一步对老 ERP 项目收益很大顺带把菜单和按钮都变清晰了。4.4 编译 Win64 目标时报 E2034 或指针相关错误现象工程切到 64 位编译大量报E2034类型不匹配错误定位都在 WPTools 的内部单元里比如指针赋值、Integer 和 Cardinal 互转的代码。原因XE5 时代的部分 WPTools 版本内部用Integer保存对象指针32 位下 Integer 和指针宽度一致能正常编译64 位下指针是 8 字节Integer 只截取 4 字节编译器直接报错。解决升级到兼容 64 位的 WPTools 版本这是最省事的路如果无法升级只能保持 32 位发布。老项目里如果某些功能依赖 DLL 注入或内存地址计算即使强改也能过编译运行时也会出更难查的异常。需要先问清楚发行环境是否强制 64 位再决定投入多少成本去折腾。4.5 XE5 工程换到新版 Delphi 后报错一堆现象拿到一份在 XE5 上正常的工程用 RAD Studio 10.x 打开编译报“找不到 DCU”“无法定位 BPL”。把 WPTools 的旧 DCU 拷到新工程目录里也没用。原因DCU 与编译器版本强相关BPL 也是按 IDE 版本编译的。老工程里如果引用的是绝对路径的 DCU 或 BPL新 IDE 压根不会去加载。另一个隐藏原因是 WPTools 源码里有些写法在新版 Delphi 下被标记为过时比如AnsiString相关的隐式转换新版一开严格语义检查就炸。解决不要走“拷 DCU 碰运气”的路子直接在新版 IDE 里重新编译 WPTools 的 DPK重配 Library Path。新版对字符串类型更严格源码里若有PChar和string混用的地方编译器会给出精确到行的警告逐个修正后重编 BPL。迁移后记得全部重新编译一次别留旧 DCU 在某个深层目录里否则会出现“改了代码但不生效”的玄学问题。5. 打印预览与邮件合并把 WPTools For XE5 用在业务单据上编辑器只是前半场业务系统里真正花钱买 WPTools 的理由通常是打印和报表。单据要预览、要按客户模板套打还要把数据库字段填进 RTF 模板批量生成。这一章讲清楚打印链路的参数、模板合并的用法以及业务单据常见的三个易错点。5.1 打印链路页面设置、预览与输出WPTools 的打印链路可以拆成四步设置页面尺寸、加载内容、预览、发送到打印机。页面尺寸用 PageWidth 和 PageHeight 控制单位是 1/1000 毫米A4 纵向纸对应21000 x 29700。这个单位和 Delphi 的 TPrinter 用的像素不同直接拿 TPrinter 的面板尺寸来填会出现打印裁切。// 页面设置、预览和打印的常见调用方式 WPRichText1.PageWidth : 21000; // A4 宽度1/1000 毫米单位 WPRichText1.PageHeight : 29700; // A4 高度 WPRichText1.Preview; // 打开预览窗口 WPRichText1.Print; // 直接打印到默认打印机预览这一步建议保留既是给用户一个确认机会也让排版错误在出纸前被拦住。如果项目要求“点按钮直接打印”至少把预览窗口换成无界面的强制打印分支否则第一次上线就会被业务方吐槽“多了一步确认”。打印机的名称和份数在部分版本里通过 PrintParams 设置老代码里常见WPRichText1.PrintParams或OnGetPrinter事件来做参数注入具体看你的版本提供哪些属性但流程骨架就是上面这段。5.2 WPReporter 做模板合并注意版本授权与字段语法邮件合并是 WPTools 套件里另一个高频功能官方组件是 WPReporter。它的思路和 Word 邮件合并类似准备一份 RTF 模板把变化的位置填成字段占位符运行时把数据源里的记录逐条替换进去生成一份或多份新文档。需要先确认你手上的授权是否包含 WPReporter它经常是单独授权的装完 WPTools 主体看不到这个组件很正常。// 假设 Reporter 已从模板加载了 RTF 内容 if Assigned(Reporter) then begin Reporter.MailMerge.DataSource : DataSource1; // 绑定数据集 Reporter.MailMerge.Merge(True); // 合并到输出文档 end;字段语法在不同版本里略有差异常见是[字段名]或字段名。判断依据很简单模板占位符两侧是否有空格、花括号或尖括号直接用实际模板测试一下最稳妥。合并成功后生成的文档会放在当前文档对象里可以继续用 SaveToFile 输出也可以再次用 TWPRichText 编辑。如果没装 WPReporter退而求其次的方案是自己写字符串替换用 TWPRichText 加载模板后把Text里的占位符 Replace 掉。代价是会丢失部分富文本格式适合纯文本段落。5.3 单据生成里的 3 个容易出错的设计点第一个是金额格式化。直接把数据库里的浮点数字段填进模板会出现1234.5而不是1,234.50。合并前先FormatFloat(#,##0.00, Amount)否则业务方验收时会盯着金额列一条条找茬。第二个是表格行高跑版。模板里手画了固定行高的表格字段内容一长就把行撑破或者被裁掉。处理办法是把含动态内容的表格行设成“自动行高”只在表头用固定行高。WPTools 的表格行高对象在段落和单元格之间老版本里通过编辑器的 Tables 集合遍历改完记得重新计算页面布局再预览。第三个是合并字段残留。数据源里某条记录的字段是 NULL 或空字符串合并后模板里留下一截空的[字段名]打印出来非常难看。合并且在循环里做校验合并前检查字段值为空则填充一个中文全角空格防止列宽抖动。输出后再跑一遍校验把Text里搜一遍没有[字符才算真正干净。这章的三个小节连起来就是一条完整的业务单据流水线模板设计、数据合并、页面输出。WPTools 的能力在编辑和格式上但在业务正确性上还得靠使用者把控格式细节控件渲染得再漂亮字段是空的也没用。6. 用 WPTools For XE5 把 RTF 当模板引擎一次跑通批量生成给老项目维护者一个进阶技巧把 WPTools 当成模板引擎批量生成合同、证明、通知单这类“格式固定、内容可变”的文档。做法是先做一份 RTF 模板把变化位置写成[Name]、[Amount]这样的占位符然后循环加载、替换、保存。这样改格式不用改代码业务方自己用 Word 就能维护模板。function ReplaceAndValidate(Ed: TWPRichText; AOld, ANew: string): Boolean; var Txt: string; begin Txt : Ed.Text; Ed.Text : StringReplace(Txt, AOld, ANew, [rfReplaceAll, rfIgnoreCase]); Result : Pos(AOld, Ed.Text) 0; // 校验是否还有残留 end;替换后再用Text检查占位符残留避免漏替换的字段直接打进正式文档。批量生成时的循环里要新建一个 TWPRichText 实例来做替换和保存不要复用同一个实例——复用时上一次替换的格式和样式会污染下一份文档。保存时用流而不直接写文件名能少踩文件占用和路径权限的坑。我现在的习惯是凡是接手含 WPTools For XE5 的老项目第一阶段不写任何业务代码先把装、读、存、打印这条基线跑通再动手叠功能宁可多花半天做验证也不要在客户现场才翻车。希望帮到你。本文还有配套的精品资源点击获取