简介：水晶报表11 R2是面向Delphi/BCB XE开发者的VCL控件包，用于在桌面应用中集成水晶报表设计、预览、打印与导出功能，属于第三方基于11版修改的增强版本。压缩包共710个文件、约5.43MB，包含127个pas源码与101个hpp头文件，便于阅读和二次调整；113个dcu及dpk/bpk/bpl组件包用于编译安装，109个dfm保存窗口与报表设计布局，176个bmp等图像资源负责工具栏和图标，另有rpt报表模板、pdf/hlp帮助文档及dpr示例工程，结构覆盖从设计期到运行期的完整链路，可保留XE环境下的设计期能力。安装时需注意与Embarcadero Sample Components中的TCalendar控件冲突，在Install Packages菜单中取消勾选Sample Components即可正常安装，这一排错要点对同环境下复现问题的开发者很实用。目前已有416人学习/下载，适合需要快速在VCL应用中引入水晶报表、并希望保留源码可维护性的Delphi/BCB中高级开发人员。
1. 拿到 CrystalReport VCL 水晶报表 11 后，先搞清它能帮你省下多少报表工时
做 Delphi 或 C++Builder XE 的老人，十有八九被报表折磨过。Grid 打出来歪歪扭扭、PDF 导出来中文变方块、客户临时要个合计字段就得改代码重新编译……而 CrystalReport VCL 水晶报表 11 这套组件，就是把“报表设计”从代码里整个剥出去的存在。它让程序员只需要写数据加载代码，剩下排版、分组、求和、条形码全部在 .rpt 设计器里点鼠标完成。适合三种人：接手老项目被迫维护水晶报表的、新项目想快速交付复杂报表的、以及被 FastReport 或 RAVE 的布局折腾到想换工具的人。这套 VCL 版本直接嵌入 Delphi/BCB XE 的 IDE，不需要单独起报表进程，当年能在一夜之间把几十张报表的交付周期压缩一半。它的价值不在“能画画格子”，而在“把设计权限交给业务人员，代码只做搬运工”。
2. 装进 IDE：XE 环境下的安装步骤与版本匹配
2.1 组件包结构：先分清 RTL 与设计期包
水晶报表 11 的 VCL 包，解压后通常能看到几个关键文件：CRViewer.dcu、CRRTLLib_TLB.pas、CRDesigner.dcu，以及一堆.bpl和.bpi。第一次打开的人会懵：到底要装哪几个？我的习惯是先分两类——运行期包（RTL）和设计期包（Designer）。运行期包负责在程序里加载 rpt、连数据库、导出的核心逻辑；设计期包是集成到 IDE 里，让你在 Delphi 窗体上拖一个TCrViewer控件下来。两者缺一不可，但设计期包装错版本，IDE 启动直接报“包未找到”。
看安装说明时，重点找Crystal Reports 11 for Delphi或BCB字样的文件夹。里面通常有Delphi10、Delphi11、BCB等子目录，对应不同 IDE 版本。注意这是“XE”时代的老组件，它只认 Delphi 2007、2009、2010、XE 这类 32 位编译环境。如果你拿它硬塞给最新 RAD Studio 的 64 位编译器，后面会遇到一连串接口映射问题，这个后面专章说。
2.2 安装流程：注册路径与库文件
我一般不走官方 Installer，因为老组件在 XE 上经常检测不到注册表。手动装反而清晰：先把运行期包里的.bpl复制到系统System32或 IDE 的bin目录，然后在 IDE 里打开Component > Install Packages，点Add，选择对应的.bpl文件。设计期包通常是dclcr11.bpl这类名字。装完工具栏会出现CrViewer、CrReport等图标。
代码层面的依赖路径也要配好。在Project > Options > Delphi Compiler > Search Path里，把解压出来的Lib目录加进去，否则编译时uses CRTTL_TLB会报找不到文件。我的血泪经验是：一定把CRRTLLib_TLB.pas这个文件单独拿出来，放到自己的源码目录，别只依赖系统搜索路径。因为这个文件是类型库自动生成的，不同机器上不同版本生成的 GUID 会有偏差，一旦 IDE 自动帮你重新包装，接口引用就会错乱。
2.3 版本匹配：Delphi 与 BCB 的 lib 差异
Delphi 和 C++Builder XE 虽然共用 VCL 包机制，但水晶报表 11 给两边提供的.lib和.bpi不互通。我见过有人用 Delphi 的.dcu扔给 BCB 编译，直接报E2206 Illegal type in expression。正确做法是：BCB 项目优先添加.bpi，Delphi 项目添加.dcu。如果资源包里没有对应版本，你可以用tlibimp.exe（IDE 自带的类型库导入工具）手动从crts32.dll重新生成导入单元。命令大致是：
tlibimp -C -P -X -D crts32.dll这个命令会在当前目录生成CRRTLLib_TLB.pas和CRRTLLib_TLB.hpp，-C表示生成 C++ 头文件，-P生成 Pascal 单元，-X跳过已有文件，-D指定源 DLL。我一般用-X防止把原厂文件覆盖，但如果你之前生成错了，就删掉旧文件重新跑。参数不复杂，难的是得确定 DLL 里接口版本和你手上的 rpt 兼容——水晶报表 11 生成的文件，拿新版运行时引擎打开时总会有一堆兼容性提醒，这在老项目里是常态，别慌。
3. 第一条报表从设计器到代码：基本调用流程
3.1 设计报表文件：rpt 的生成与数据源绑定
水晶报表的核心是.rpt文件。它可以用独立的 Crystal Reports 设计器生成，也可以在本组件里通过代码动态生成。但最常见、最省事的路径是：先用设计器拉好版式，保存成 rpt，然后在 Delphi 里加载它。设计器里连数据库时要注意：水晶报表 11 的数据库连接方式分三种——直接 ODBC、ADO、和“当前连接”。
做桌面程序时我强烈建议选“ADO（OLE DB）”，因为部署目标机器上不一定装了水晶报表的数据库驱动，但 ODBC 驱动几乎都有。设计时先用自己的开发库连一次，把表结构和字段定义固化进 rpt。但注意：这种方式会把连接信息（服务器名、用户名密码）明文存进 rpt。如果程序要交给客户，要在设计器中把“保存密码”取消，运行时通过代码传连接参数覆盖。
3.2 在代码中加载并显示报表
在 Delphi 中调用，最核心的步骤是创建CrReport对象，设置ReportSource属性，再让CrViewer打开。我通常这样写：
procedure TMainForm.ShowReport(const RptFile: string); var CR: TCrReport; begin CR := TCrReport.Create(nil); try CR.Load(RptFile); // 加载已设计好的 rpt CR.LogOnServer('ADO', 'Provider=SQLOLEDB.1;Data Source=MYPC;User ID=sa;Password=xxx', '', ''); CrViewer1.ReportSource := CR; CrViewer1.ViewReport; // 触发预览 finally // 注意: ReportSource 赋值后, 释放时要先置空 CrViewer1.ReportSource := nil; CR.Free; end; end;逻辑说明：LogOnServer的参数依次是连接类型、连接字符串、日志和表前缀。对于 ADO 连接，第二个参数就是完整的 ADO 连接串。这里有个重点：ReportSource会持有CrReport对象的引用，所以在释放前必须先将ReportSource置空，否则访问违例。我一开始没写最后那行，程序退出时随机崩溃，排查了整整一个下午。
3.3 常用参数设置：打印边距、预览与静默导出
预览界面有很多可调项，但实用的是几个非 UI 属性。比如关闭预览窗口的工具栏，直接用代码导：
CrViewer1.ShowToolbar := False; CrViewer1.ShowGroupTree := False; CR.PrintWindowTitle := '季度销售明细';ShowGroupTree默认 True，会显示左侧的分组树。老客户往往不想要这个，觉得碍眼。如果要打印，用PrintReport(True)，参数意思是显示打印设置对话框。如果想直接静默打印到默认打印机，传False。还要注意边距：设计器里默认边距是 2.5cm，但很多针式打印机实际打不了那么宽，你需要在代码里覆盖：
CR.SetMarginLeft(5); // 单位: 缇 (twips), 1cm = 567 缇 CR.SetMarginRight(5); CR.SetMarginTop(5670); // 1cm单位很容易弄错。水晶报表的边距接口用的是缇，不是像素。我见过同事按像素填，结果打印出来左边距只有零点几毫米，整张纸挤成一团。
4. 把报表导出成 PDF / Excel：参数与乱码处理
4.1 导出格式的选择与导出参数
报表除了预览，更多时候客户要求自动生成 PDF 发邮件。水晶报表 11 的 VCL 导出函数是统一的ExportTo，靠枚举指定格式。我常用的是：
CR.ExportTo(ExportOptions, 'c:\report.pdf');其中ExportOptions是一个CrExportOptions对象，需要先创建并设置目标类型。常用格式有CrExportFormatPDF、CrExportFormatExcel、CrExportFormatRTF。每个格式有自己的子参数，比如 Excel 导出时可以设置ExcelUseTabDelimited或ExcelConstantColumnWidth。我一般记不清全部选项，都是先看类型库的注释。一个实用的技巧：导出成功后，用文件大小判断是否成功，别只看返回值。因为老版本组件有时导出空 pdf 也返回成功。
4.2 中文字体与乱码的坑
这是水晶报表在国内项目里八成会踩的坑。现象：预览正常，导出 PDF 后中文全部变成方块或问号。原因有两个：一是 rpt 中字段的字体没有选择中文字体。设计器里默认字体会落到Arial，它没有中文字形，PDF 引擎找不到对应字体就画方块。所以设计时必须把字体设为“宋体”或“微软雅黑”。二是导出时缺少字符映射。老外设计的水晶报表导出 PDF 默认不嵌入字体，在无中文字体的机器上打开必乱。
解决办法：在 rpt 设计器里选中所有文字对象，把字体改成“宋体”（SimSun）。另外可以在代码里用CR.Font.Name := 'SimSun'强行覆盖字段字体，但注意这只影响运行时，rpt 里固定好的样式优先级更高。实在不行，还有一个偏方：导出 PDF 后再用开源工具做一次字体嵌入。但这会引入额外依赖，不推荐。
4.3 导出到流对象而不落盘的技巧
有些场景不允许生成临时文件，比如 Web 服务里导出 PDF 后直接输出到响应流。水晶报表 VCL 的导出目标除了文件路径，还支持crExportOleStream。代码可以这样：
var MS: TMemoryStream; Opts: CrExportOptions; begin MS := TMemoryStream.Create; try Opts := CrExportOptions.Create; Opts.ExportFormat := CrExportFormatPDF; Opts.ExportFileName := ''; // 留空, 配合流目标 Opts.ExportWithOLE := True; CR.ExportTo(Opts, MS); // 第二个参数可以是 TStream MS.Position := 0; // 这里把 MS 交给 TIdHTTP 或 TFileStream 发送 finally MS.Free; end; end;这里的关键是ExportWithOLE := True，它让组件走 OLE 流通道，而不是写临时文件。我有一段时间导出总是卡住，原因是传给ExportTo的流对象没设置 Position，组件从当前位置写数据导致文件头为空。做法是在导出前显式MS.Position := 0。另外，如果 rpt 比较大（超过几十 MB），导出到内存流会很吃内存，建议先导临时文件再删，或者分页导出。
5. 避坑：水晶报表 VCL 常见的六大故障与排查
5.1 运行时提示 “Cannot load Crystal Reports” 错误
现象：程序编译通过，一打开带水晶报表的窗体就弹Cannot load Crystal Reports runtime。
原因：目标机器缺少水晶报表 11 的运行时 DLL（crts32.dll、u2d*.dll等）。开发机上能跑是因为 IDE 装了完整包，部署机只装了你的 exe。
解决：把资源包里Runtime目录下的所有文件复制到 exe 同目录，或者用安装工具把它们注册到系统目录。别只复制主 DLL，crpe32.dll和crdb_ado.dll也必须带，否则报错会在连接数据库时出现。
5.2 设计器打开 rpt 时崩溃
现象：双击 rpt 文件，IDE 崩溃或无响应。
原因：多数情况是 rpt 文件是用新版 Crystal Reports 设计器（13 或 14）保存的，数据结构与 11 的 RDC 接口不兼容。
解决：先用原版设计器把 rpt 另存为 11 格式，或者用纯文本方式打开 rpt 检查头部标记。如果客户坚持要新版设计，那就别用 rpt 文件，改为代码动态生成报表结构。这个工程量不小，但能根治兼容性问题。
5.3 导出 PDF 中文变方块
现象：预览正常，导出的 PDF 中文乱码。
原因：rpt 内字段字体为非中文字体，且 PDF 导出未嵌入字体。
解决：在 rpt 设计器中全选字段，统一设置字体为中文字体（宋体/黑体）。同时确认导出参数里PDFEnableFontEmbedding为 True。这个参数在 CrExportOptions 的子属性里，别漏了。如果还不行，检查 Windows 系统字体目录是否有 SimSun，没有则需要安装中文字体。
5.4 与 FastReport 同项目冲突
现象：项目中同时使用了水晶报表 VCL 和 FastReport，编译时提示TPersistent方法冲突或类名冲突。
原因：两个库都注册了名为TCustomReport或TfrxReport的类，根类相同但接口实现不同。
解决：在 uses 子句中调整顺序，把水晶报表相关单元放在 FastReport 之前。更彻底的做法是使用CRIntf前缀调用水晶报表接口，避免类名直接引用。如果你用的是包安装，还可以在 IDE 的包设置里禁掉其中一个库的自动加载——反正两个库混合使用在内存里很容易踩对象生命周期问题。
5.5 64 位编译下接口失效
现象：项目设置了 64 位编译，代码里调用LogOnServer直接报Access Violation。
原因：水晶报表 11 的 VCL 只生成了 32 位导入库，64 位下类型库接口指针宽度不一样，老式 COM 桥接失败。
解决：别挣扎，把报表相关模块单独编译成 32 位 exe，和主程序通过进程间通信。或者改用 64 位版水晶报表运行时（Crystal Reports for Visual Studio 等），但需要重写引用。这是老组件的硬伤，我最后就是让报表模块独立进程跑，主程序和报表进程用命名管道传递参数。
5.6 部署到目标机器时缺少运行时
现象：程序在客户机器上报“动态链接库 crpe32.dll 找不到”。
原因：安装包没有包含水晶报表运行时，开发机上能跑是因为 IDE 环境带了。
解决：制作安装包时，把水晶报表的整个 Redistributable 目录打进去。注意别直接覆盖客户机器同名的新版 DLL，最好使用私有目录加载方式：在 exe 启动时先调用SetDllDirectory指向你自己带的 DLL 目录。我一般会在主窗体初始化里加一句：
SetDllDirectory('D:\App\CRRuntime');这样系统会优先去这个目录找水晶报表的组件，避免和客户机器上其他版本打架。
6. 进阶：用数据字典动态绑定表，让一条 rpt 走遍多张表
水晶报表 11 最大的弱点就是 rpt 一旦设计了固定数据源，换张表就得重新做。我后来摸索出一个做法：用数据字典（DataDictionary）接口在运行时替换 rpt 的数据库连接和表名。核心思路是拿到CrReport对象的数据库控制器，然后用Dictionary方法重新设置表位置。
大概流程是：先在 rpt 里定义一个逻辑表名（比如ORDERS），设计时用假表占位。运行时通过代码遍历 rpt 的数据库表列表，把每张表的属性改为实际数据源。关键代码如下：
var Dic: CrDatabaseDictionary; Tbl: CrDatabaseTable; i: Integer; begin Dic := CR.Database.Dictionary; for i := 0 to Dic.TableCount - 1 do begin Tbl := Dic.Tables[i]; // 只替换逻辑名为 ORDERS 的表, 不碰其他子查询 if Tbl.Name = 'ORDERS' then begin Tbl.TableName := 'Northwind_Orders'; // 实际物理表 Tbl.ConnectionInfo.Provider := 'ADO'; Tbl.ConnectionInfo.ConnectionString := 'Provider=SQLOLEDB;Data Source=MYPC;Initial Catalog=Northwind;User ID=sa'; end; end; end;这么做的好处是，一套报表模板只要改字段映射就能复用。但坑也不少：表名替换后，字段仍是按原表结构绑定，如果物理表的列名不一样，报表会显示空白。我的习惯是在设计时就给字段取别名，让ORDERS.OrderID对应物理表的OrderID，这样替换表名就不会丢列。另外，Dictionary操作在每次ViewReport之前执行才有效，否则已打开的报表缓存不会刷新。从那以后我每次做多表报表，都强制走一遍“逻辑名 + 运行时替换”的流程，再也没为重复设计画过一张 rpt。这套路的另一好处是，客户中途要求换库连接，只需要改一个配置项，不用重新发布程序。希望这个用法帮你在老组件上多榨出一些生产力。
本文还有配套的精品资源，点击获取
