简介MyDAC v5.10源文件包是一套面向Delphi 7至2007及CBuilder开发者的MySQL数据库访问组件源码适用于需要直连数据库、构建高可靠桌面应用的程序员。组件通过原生协议与服务器通信不依赖第三方中间件支持事务、批处理、存储过程、异步操作等高级特性适合中高级开发者二次开发或性能调优。资源共一千四百零三个文件压缩包仅1.39MB主要包含三百六十个Pascal源文件、一百四十六个Delphi包工程、一百零七个窗体描述文件、三十四个编译工程文件以及配置文件、图标和帮助文档这些文件完整呈现了组件的类结构、设计期行为和驱动实现便于阅读与定制。包内还提供历史记录、常见问题、自述文件及许可协议等文本帮助了解版本演进和合规使用。目前已有168人学习下载对于希望掌握MyDAC内部机制或将其源码改造融入自身项目的开发者这是一份紧凑且可直接编译研究的参考资料。1. 为什么还在用 MyDAC v5.10Delphi 老项目的数据库访问困境手里维护着几个有年头 Delphi 工程的同学大概率都遇到过同一个问题新装的 MySQL 版本能跑原来的数据库访问组件却带不动了要么升级新库要跟着换引用要么改一处接口后面产生连锁影响风险下不去手。MyDAC v5.10 是这类场景里比较能打的一份老资源组件体系完整、依赖少、源码可读尤其适合还在用较老版本 IDE、又想继续维护既有业务系统的项目组。它能解决的核心问题是在不重写架构的前提下让 Delphi 程序用一套统一的对象访问 MySQL 数据库从连接、查询、存储过程到批量脚本都有对应组件。下面的内容按实际动手顺序拆组件怎么选、连接怎么配、代码怎么写以及我踩过的最现实的几个坑。2. 认识 MyDAC v5.10组件体系与选型理由2.1 组件地图先分清五个常用组件的分工旧工程里带数据库访问层的常见搭配是五个组件一起用。TMyConnection 负责会话与连接管理账号、库名、字符集、事务开关都挂在它身上TMyQuery 承担日常 SELECT、INSERT、UPDATE 语句输出 TDataSet 供界面消费TMyStoredProc 用来跑存储过程并接收输出参数TMyScript 处理一批没有结果集返回的建表、初始化、迁移语句TMyDataSource 则是结果集和 DBGrid 这类界面控件之间的桥梁。老代码里经常看到 DBGrid 的 DataSource 指向 TMyDataSourceTMyDataSource.DataSet 又指向 TMyQuery整条链路是“连接-查询-数据源-界面控件”四层。组件名主要职责典型使用场景TMyConnection会话与连接管理统一管理账号、库名、字符集、事务TMyQuery执行 SQL 并返回结果集日常增删改查、参数化查询TMyDataSource连接数据集与界面控件配合 DBGrid 等数据感知控件TMyStoredProc调用存储过程有输入输出参数的复杂业务过程TMyScript批量执行多条语句建表、初始化数据、结构迁移这五个组件的关系不用死记TMyQuery 必须把 Connection 指定到已打开的 TMyConnectionTMyDataSource 又必须指向已激活的 TMyQuery。v5.10 安装完成后这些控件集中在 IDE 的专用页签下直接拖到窗体就能用。这里有一个容易被忽略的细节TMyDataSource 本身不保存 SQL它只是把查询结果转发给界面控件所以不要试图在它上面绑定语句。2.2 为什么 v5.10 反而是老工程的最优选很多人在选型时会纠结既然有更新版本为什么还要回头用 v5.10我的判断依据有两条。第一是兼容范围v5.10 发布的时间点对应的是那个时期主流 IDE 版本老工程如果还在用这些 IDE装上去不需要额外引第三方支持包更新版本往往要求更高版本 IDE或者把组件依赖做得更重迁移成本会从数据库访问层扩散到整个工程。第二是 API 稳定性v5.10 的组件命名和事件签名在那批老工程里已经是事实标准团队里的历史代码、内部文档、上线脚本都是对着这套 API 写的换新版本意味着重新过一遍全量回归收益却主要集中在少数新数据库功能上对业务系统意义不大。另外源文件在手还有一个实际好处如果某个行为不符合预期可以直接在 TMyQuery.pas 里搜关键方法看它内部是先执行还是先取值不用靠猜。我遇到过不止一次界面上报的错和实际 SQL 行为对不上最后都是翻源码定位到的。这种定位能力是闭源组件给不了的。能从源码层面定位问题才是这份资源最值钱的地方。2.3 源文件里有什么拿到手先看哪些目录MyDAC v5.10 的源文件解压后结构大致分四块Units 是组件源码所有核心单元都在这里Packages 按 IDE 版本分目录放编译用的包文件Demos 是官方示例工程覆盖了从最小连接到复杂业务场景的写法Docs 里面有帮助文档和版本说明。拿到手第一件事不是去翻 Demos而是先打开 Units 下的核心单元列表。目录/文件作用上手时看什么Units/MyDAC.pas组件注册与公共定义看组件枚举和注册逻辑Units/TMyConnection.pas连接组件的实现看连接参数与事件定义Units/TMyQuery.pas查询组件的实现看 SQL、参数、结果集处理Units/MyClasses.pas异常与工具类看错误码、字符集常量Packages/针对不同 IDE 版本的包文件找与本地 IDE 匹配的那个Demos/示例工程照着跑最小示例我一般建议先把 TMyConnection.pas 和 MyClasses.pas 各打开读一遍不需要全懂只要确认两件事当前包里的连接属性名是什么、错误异常类叫什么。因为网上流传的很多写法是针对其他版本的属性名可能不一样对着自己的源文件查一下最稳妥。这一步看起来费时间实际上能避免后面大把的调试时间。3. 从安装到跑通第一个查询环境搭建与连接配置3.1 安装前的版本确认与目录规划安装步骤看起来简单但顺序错了会埋下隐患。我一般按下面五步走解压源码包到纯英文路径避免中文目录导致包编译失败。打开 Packages 目录找到与本地 IDE 版本对应的子目录。某些 IDE 的内部版本号和界面显示名称不是同一套注意按内部代号找。在 IDE 中打开运行时包的 .dpk 文件先编译。再打开设计时包的 .dpk 文件右键执行 Install。把 Units 目录加入 IDE 库搜索路径让工程编译时能找到源文件。按这个顺序做基本不会有问题。常见翻车点是跳过第 4 步直接打开工程结果组件面板里看不到任何控件还有人不做第 5 步工程里能引用类型但 IDE 智能提示不识别。另外注意两个包都要编译只装设计时包不装运行时包IDE 会提示找不到已安装单元。提示安装前关掉正在运行的 IDE 和杀毒软件的实时扫描包编译过程会写注册表被拦截后安装一半失败组件面板出现但拖放报错这种状态比没装更麻烦。3.2 最小连接代码TMyConnection 的创建、开启与关闭先写一份最简单的连接代码确认组件本身能正常工作var Conn: TMyConnection; begin Conn : TMyConnection.Create(nil); try Conn.Server : 127.0.0.1; // 数据库服务所在主机 Conn.Port : 3306; // 默认端口 Conn.Username : app_user; Conn.Password : app_pass; Conn.Database : erp_local; Conn.Options.Charset : utf8mb4; Conn.LoginPrompt : False; // 不弹出登录框 Conn.ConnectionTimeout : 10; // 连接建立超时秒 Conn.Open; if Conn.Ping then WriteLn(connection alive); finally Conn.Free; end; end;逻辑说明这段代码做的事情是创建连接对象、逐项设置连接参数、打开会话并做一次连通性校验。需要注意的是Open 成功只代表会话建立不代表账号有权限访问 Database 里的表权限问题要到第一次查询时才会暴露。Ping 是轻量级检测适合放在初始化流程里确认会话没被服务端提前断开。参数说明里值得单独拎出来的是 Charset。v5.10 里字符集设置放在 Options.Charset写 utf8mb4 表示客户端按四字节 UTF-8 解析如果服务端和表也是 utf8mb4中文和生僻字就不会在传输过程中被截断。ConnectionTimeout 控制的是建立会话阶段的等待时长单位是秒默认值在某些环境下偏大联调时设成 5 到 10 秒比较合适能快速暴露问题。3.3 连接失败先查这三处第一处包编译了、面板也有控件但一运行就报“无法装载动态链接库”。这种现象在 v5.10 里最常见的原因是缺少客户端库。MyDAC v5.10 默认依赖数据库客户端库完成协议交互目标机器上没装对应版本的库连接就起不来。解决方法是把客户端库补到系统路径或程序目录下并确认版本位数和程序一致。第二处报 Access denied for user。这通常是账号密码、允许访问的来源范围、数据库名写错。注意数据库的账号授权是按来源主机区分的同一个用户名在不同来源主机下可能是两个账号先确认当前来源属于哪个授权范围。排查时用命令行客户端拿同一组参数测一遍能连上就说明问题在组件配置连不上就是授权问题。第三处超时。现象是 Open 调用卡住几十秒才返回错误。优先检查 ConnectionTimeout 是不是太大再看服务端端口是否被防火墙拦截以及服务是否监听在该端口上。联调阶段把超时调小失败会更快暴露生产环境再按实际网络情况放大。4. 核心组件实战把数据库操作写进业务代码4.1 TMyQuery参数化查询与结果集遍历参数化是 MyDAC 里最应该养成的习惯既能避免字符串拼接带来的类型转换问题也能防止注入。在 v5.10 里TMyQuery 的参数用冒号前缀写在 SQL 中通过 ParamByName 赋值q : TMyQuery.Create(nil); try q.Connection : Conn; q.SQL.Text : SELECT id, product_name, price FROM goods WHERE price :pMin AND category_id :pCat ORDER BY id; q.ParamByName(pMin).AsFloat : 100.0; q.ParamByName(pCat).AsInteger : 3; q.Open; while not q.Eof do begin // 逐行处理结果集这里可以填充到内存列表 q.Next; end; finally q.Free; end;逻辑说明Open 执行 SELECT 并让数据集进入浏览态循环用 Eof 判定结束每行通过字段对象取值。处理完必须关闭并释放对象否则下次打开会报数据集已激活的错误。Query 释放时会自动关闭游标但不保证释放会话上下文所以重大项目里一般是由连接统一管理事务。参数说明ParamByName 按名称匹配参数名大小写不敏感但名字必须与 SQL 文本里的冒号参数完全一致。AsFloat、AsInteger 这些是类型化赋值方法把字符串直接转成数字会触发异常建议先在赋值前用 TryStrToFloat 之类校验数据来源。如果遇到参数总是不生效的情况检查是不是把参数名写成了不带冒号的样式。4.2 TMyStoredProc带输出参数的存储过程调用老业务系统里存储过程是重头戏MyDAC 用 TMyStoredProc 把输入参数和输出参数都封装成了 Params 集合。下面是调用一个返回汇总值的存储过程的写法sp : TMyStoredProc.Create(nil); try sp.Connection : Conn; sp.StoredProcName : sp_get_order_total; sp.Params.CreateParam(ftInteger, inCustomerId, ptInput).Value : 88; sp.Params.CreateParam(ftString, outTotal, ptOutput); sp.ExecProc; WriteLn(sp.Params.ParamByName(outTotal).AsString); finally sp.Free; end;逻辑说明CreateParam 依次指定数据类型、参数名、参数方向ptInput 是入参ptOutput 是出参。ExecProc 执行存储过程但不返回数据集输出参数在调用完成后从 Params 集合里读取。如果存储过程本身还返回结果集需要再通过后续查询去取而不是直接在 Params 里拿。参数说明ftString 对应数据库的 VARCHAR / CHAR 类型输出参数长度如果小于存储过程里实际返回的长度结果会被截断。v5.10 里没有自动扩大输出参数长度的机制稳妥做法是在 CreateParam 之后手动设 Size长度取表字段定义或存储过程声明的最大值。遇到取出来总是空串先确认存储过程确实执行了对输出参数的赋值再确认参数名拼写一致。4.3 TMyScript批量执行建表与初始化语句TMyScript 是 v5.10 里被低估的组件它可以一次执行多条语句适合做初始化、建表、批量修复数据。使用方式很直接把整段 SQL 放进 SQL.Text调用 Executesc : TMyScript.Create(nil); try sc.Connection : Conn; sc.SQL.Text : CREATE TABLE IF NOT EXISTS t_audit ( sLineBreak id INT PRIMARY KEY AUTO_INCREMENT, sLineBreak action VARCHAR(64) NOT NULL, sLineBreak ts DATETIME NOT NULL sLineBreak ); sLineBreak INSERT INTO t_audit (action, ts) VALUES (init, NOW());; sc.Execute; finally sc.Free; end;逻辑说明Script 内部会按语句分隔符拆分文本逐条执行中间某条失败会导致后续语句不再执行。适合把关联性强、必须按顺序执行的语句放在同一个脚本里但要注意它默认不包事务前几条成功了、后几条失败时已经执行的部分不会自动回滚所以重要操作要么在脚本外手动开启事务要么把脚本拆小。参数说明SQL.Text 里的分号是做语句切分的依据字符串常量里如果带分号有可能被错误拆分这是 TMyScript 比较典型的坑。实际项目中我习惯把每条语句用独立的字符串常量写好再拼接进 SQL.Text方便在异常日志里定位到具体语句执行前先打印一遍完整 SQL确认切分结果符合预期。另外数据库的 DELIMITER 重定义在这里没有对应概念遇到自定义分隔符的需求不如拆成多个 Script 调用来得直观。5. 避坑指南v5.10 使用中的常见问题与排查5.1 界面放了一会儿再查询报连接错误现象程序启动后第一次查询都正常界面停了几分钟或者半小时不动再执行查询直接弹连接相关的错误重试一次又好了但过一会儿又坏。原因数据库服务端或中间设备的空闲超时把会话断开了而 v5.10 的旧连接对象还认为自己处于打开状态继续在已失效的会话上执行查询自然会失败。日志里通常能看到连接丢失的提示时间点往往在长时间空闲之后。解决两个方向一起做。一是把会话空闲超时参数在服务端调大二是应用侧在长空闲场景下做预检执行查询前先调用连接对象的轻量检测方法发现会话不通就先关闭再重新打开重建之后继续执行。对普通桌面业务程序检测加重建的代价很小不要指望数据库服务端永远不主动断开。5.2 中文写入后变成问号现象界面上显示正常INSERT 之后到数据库里看中文变成一串问号或者反过来库里数据正常读出来在界面上是乱码。原因这是典型的字符集链路不一致。MyDAC 里字符集由连接的 Charset 决定同时数据库服务端有全局字符集数据表有表级字符集客户端写入的数据还要受字段字符集约束任何一层跟其他层不一致中文就会在转换时失真。最隐蔽的是表字段已经是 utf8mb4但连接层还停留在 latin1 或 gbk。解决连接层统一设置 Options.Charset 为 utf8mb4再跟 DBA 确认数据库全局变量和表结构都已迁移到 utf8mb4。改字符集后要重新连接才生效不要以为改完连接参数就立刻对已有会话起作用。排查时用命令行客户端手动执行一遍同样的 INSERT如果命令行正常而程序写入乱码问题基本锁定在组件连接字符集配置上。5.3 主表插入成功从表数据没写进去现象订单头保存成功订单明细一行都没有或者主表写进去了从表因为外键约束失败整个操作看起来没有事务保护。原因v5.10 默认情况下每条语句是自动提交的。两段代码各用一个 Query先写主表再写从表时主表已经提交从表失败不会把主表一起回滚。再加上主表自增主键还没取到从表外键字段拿不到值结果就是主从数据对不上。解决把主从表的写入放进同一个事务里。先在主表插入并取得自增主键再插入从表明细最后统一提交任何一步失败就整体回滚。如果项目里已经有现成的事务辅助类优先复用不要每个窗体各自写一套提交逻辑。从表大批量插入时尽量批量组装语句或循环内复用同一个查询对象减少反复提交的耗时。5.4 插入之后取不到自增主键现象执行完 INSERT紧接着调 LastInsertID 相关取值方法拿到的是 0 或者上一条旧记录的值。原因常见有三种。取值发生在连接关闭或重绘之后会话上下文已丢失插入语句还没真正提交事务没结束就去取值或者是同一连接上之前做过其他写操作取值拿的不是最新插入的会话值。MyDAC 的这类方法返回的是当前会话里最近一次自动生成的值跨连接或跨会话调取自然拿不到新值。解决在同一个连接对象、同一次事务上下文里INSERT 成功后立刻取值中间不要做其他写操作。如果程序里存在自动重连机制插入成功和取主键两步之间绝不允许重连发生。调试时先看插入是否真成功再查取值前有没有副作用操作确认没问题后把取值结果打进日志避免在界面上看不到值就判断功能失败。5.5 换电脑、换 IDE 环境后组件面板消失现象把源码包拷到新机器IDE 能正常打开旧工程但工程里所有 TMyConnection 相关控件都报找不到类组件面板里也看不到它们。原因v5.10 组件需要先编译安装到 IDE 才能在设计期使用。新环境只有源码文件没有执行包安装步骤也没有把运行时包路径加入 IDE 库搜索路径IDE 自然不知道这些类在哪。直接把旧机器上的包文件复制过来通常也不行设计时包的注册信息和 IDE 内部版本绑定。解决按完整流程重新走一遍编译安装运行时包、安装设计时包、把 Units 目录加入库搜索路径。安装完重启 IDE打开一个空窗体在组件面板里确认控件出现后再打开旧工程。这个问题本质上是环境问题不是代码问题排查时先用最小示例编译通过后再接业务工程能少很多干扰。6. 把 MyDAC 用得更顺手三个长期值得养成的习惯6.1 用 OnError 事件统一收口数据库异常数据库异常不要散落在每个查询代码里 try except。v5.10 的连接组件提供了可统一处理的错误事件项目里可以挂一个全局处理器把错误消息、发生时间写进统一日志再把是否继续交给业务层决定。代码大致是这样procedure TForm1.ConnError(Sender: TObject; E: Exception; var Fail: Boolean); begin LogDbError(E.Message); // 统一落日志 Fail : False; // 不在这里弹框交给调用方 end;6.2 大批量导入时留意 FetchAll 开关v5.10 的 TMyQuery 默认会把结果集全部拉进本地内存小数据量无感几十万行时会明显卡顿。处理大批量导出或扫描场景时把 FetchAll 设为 False 再做流式遍历处理完尽快关闭数据集。这个开关在性能问题排查里优先级很高先改它再考虑 SQL 优化。q.FetchAll : False; q.Open; while not q.Eof do begin // 逐条消费不要长时间停在界面上等待 q.Next; end; q.Close;6.3 存一份最小连接配置模板每个新接手的项目我都先在代码库里留下一段最小连接配置模板账号、库名、字符集、超时四项写清楚后面接新功能直接复制。模板里不写具体业务表和业务逻辑保证它永远能单独运行任何环境问题都能用它先复现。Conn.Server : 127.0.0.1; Conn.Port : 3306; Conn.Username : app_user; Conn.Password : ******; Conn.Options.Charset : utf8mb4; Conn.LoginPrompt : False; Conn.ConnectionTimeout : 10;这三个习惯都不是什么高级技巧但非常救命。之前某次上线前整个查询界面报错、现场又无法调试最后就是靠最小连接模板定位到新机器没装客户端库的问题。从那以后我每次接手带 MyDAC 的旧工程第一件事都是跑一遍安装、最小连接、中文写入、存储过程调用这套流程确认基础环节能通再碰业务代码。这套流程朴素却帮我省掉过好几次半夜上线前的翻车。希望帮到你。本文还有配套的精品资源点击获取