简介MyDAC v5.00.1.7 完整源码包主要面向使用 Delphi、CBuilder 等 RAD 工具连接 MySQL 的开发者用于替代官方客户端库或 BDE实现高性能、轻量级的数据库访问。压缩包共 1297 个文件体积约 2.1MB其中包含 348 个 pas 单元源码、134 个 dpk 和 27 个 dpr 工程文件、105 个 dfm 窗体定义以及 res、bmp、xfm 等资源文件可看清组件单元划分与设计期注册机制。目前已有 115 人学习查看适合需要二次开发或排查 MyDAC 连接异常的中高级程序员。研究这些源码可直接理解 MyDAC 的直连协议、连接池管理、SQL 解析与客户端库动态加载逻辑为自建 MySQL 访问组件或深挖底层通信细节提供第一手参考。1. 这份带 MySQL 源码的 MyDAC v5.00.1.7到底能帮你解决什么手头这份mydac.v5.00.1.7.src.rar_MYSQL_MyDAC_MySql.Data src_The Client说白了就是一整套给 Delphi 老项目续命、给新项目省时间的 MySQL 客户端组件源码包。MyDAC 是 Delphi/CBuilder 生态里做 MySQL 连接的老牌商业组件v5.00.1.7 这个版本号对应的是它比较经典稳定的一代带 src 意味着你能拿到完整源码自己编译不用被安装程序的黑匣子卡住。它能解决的核心问题是Delphi 原生没有一套好用的 MySQL 驱动而 MyDAC 把连接管理、查询、事务、存储过程调用、连接池这些都封装成了可视化组件拖拽就能用。适合三类人维护老 Delphi 项目、想把组件源码改一改满足定制需求、以及在 Delphi 和 .NET 两边都写 MySQL 客户端的人。这篇就按我实际编译、连库、排错的经验把从 rar 到跑通的路给你趟一遍。2. 拆开 src 包看结构MyDAC 客户端组件、MySQL 驱动链路和 MySql.Data 的边界拿到这种带src后缀的 rar第一件事不是解压就开编而是先搞清楚包里装的是哪几层东西。这个标题里其实藏着三条线索MyDAC是 Delphi 的客户端组件MYSQL是它对标的数据库MySql.Data src是另一个客户端库的源码。三者经常被混为一谈但它们的职能边界完全不同。2.1 标题里的三个关键词分别是什么角色MyDAC 是一组运行在 Delphi IDE 里的可视/非可视组件它解决的是「Delphi 程序怎么连上 MySQL」这层问题。它的定位和 ADO 类似但专为 MySQL 优化不走 ODBC 中间层所以延迟更低、功能更贴 MySQL 特性。MySql.Data则是 Oracle 官方提供的 .NET 平台 MySQL 驱动源码服务的是 C#/VB.NET 程序跟 Delphi 没有关系。为什么这两个会被打包成一个src资源常见做法是团队里既有 Delphi 老系统、又有 .NET 新服务两个客户端都得留着于是资源整合者把它们放到了一起。The Client这个后缀点明的就是这份资源的核心价值在「客户端连接能力」不是服务端脚本也不是 MySQL 服务器本身。明白这一层你就知道该怎么用这份资源了——别指望从里面找到 MySQL 服务器安装包也别指望 MyDAC 源码能直接被 .NET 项目引用它们各自有各自的编译入口。2.2 MyDAC 客户端组件体系从 TMyConnection 到 TMyScriptMyDAC 这套组件在代码层面围绕几个核心类展开。TMyConnection是连接管理的中枢负责建立和断开到 MySQL 的连接持有服务器地址、端口、账号、数据库名、字符集这些基本信息TMyQuery负责执行 SQL 并返回数据集是日常写增删改查用得最多的组件TMyCommand是不返回结果集的命令组件适合执行 DDL、UPDATE、DELETE 这类操作TMyStoredProc封装了存储过程的调用TMyScript则用来一次性执行多条 SQL 脚本。还有TMyTable、TMyMetaData这些辅助类直接映射表结构或者读取库表元信息。这些组件不是各干各的它们都挂在同一个TMyConnection实例上。你只需要配置一个连接然后让 TMyQuery、TMyCommand 的Connection属性指向它组件之间会自动复用底层连接。这一点和 ADO 的 Connection 对象设计思路一致但对 MySQL 协议做了一层更薄的封装调试时能看到更细的客户端行为。2.3 连接 MySQL 的两条驱动链路直连模式和客户端库模式这是 MyDAC 最值得讲清楚的一个设计也是很多人第一次编译它时翻车的地方。MyDAC 支持两种连接底层方式一种是Direct直连模式即组件自己实现了 MySQL 的客户端协议不依赖任何外部 DLL另一种是客户端库模式需要加载 MySQL 官方的libmysql.dllLinux 下是libmysqlclient.so通过 C API 与服务器通信。直连模式的好处是部署简单拷一个 exe 就能跑不要求目标机器安装 MySQL 客户端库缺点是协议细节被锁在组件内部遇到 MySQL 大版本升级、认证方式变化时老版本直连模式容易失灵。客户端库模式正好相反它把协议兼容性问题外包给了官方库MySQL 升级后你只需要替换新版本的libmysql.dll组件侧不用动。但部署时必须多带一个 DLL而且这个 DLL 的位数要和编译出的程序一致——32 位程序配 32 位库64 位配 64 位配错就是运行时报错。2.4 MySql.Data src 是给谁用的、边界在哪MySql.Data的源码结构和 MyDAC 完全不同它不依赖 Delphi 的包机制是一个标准 .NET 类库里面按Connection、Command、DataReader、MySqlProtocol这样的命名空间组织。如果你打开源码会发现它的协议层直接处理 MySQL 握手包、认证报文、结果集行报文——这部分代码读起来比 MyDAC 的直连模式更直观因为它就是纯 C# 实现的协议栈。边界在哪里MyDAC 源码是基于 Delphi 的Package体系编译的产物是.bpl运行期包和.dcp编译期包MySql.Data 源码则是基于.csproj构建产物是.dll。两者服务不同的开发语言、不同的运行环境不要试图在 Delphi IDE 里加载 MySql.Data 的工程文件也不要指望 MyDAC 的包能在 NuGet 里被引用。它们在同一份资源里共存只是因为做资源打包的人想把两条技术栈的客户端都备齐。提示读源码时优先读 MyDAC 的Source目录里与协议、连接相关的单元那部分是这套组件的核心资产改起来最有价值。UI 相关单元优先级低可以先跳过。3. 把 MyDAC 源码编译进 Delphi IDEdpk 选择、路径配置与三件套组装拿到 rar 后最关键的落地动作就是把它编进你的 Delphi IDE让组件栏里出现 MyDAC 那组控件。这个过程说难不难但有几个关节如果不提前知道会在编译报错上耗掉半天。下面按我常用的操作顺序写每个步骤都带上原因和参数说明。3.1 先看 rar 里的目录骨架确认你的 Delphi 版本对应哪份工程解压之前先列一下包内容。Windows 下我习惯用 WinRAR 或 7-Zip 的命令行工具先把清单打出来unrar l mydac.v5.00.1.7.src.rar这一步不是走形式。l参数只列出文件清单不解压你可以快速看到里面有没有Source、Lib、Packages这类顶层目录以及有没有按 Delphi 版本号划分的子目录。MyDAC 这类商业组件的源码包通常会为好几个 Delphi 版本准备不同的包工程文件因为 Delphi 7、Delphi 2007、Delphi XE 系列的对象结构、编译器指令并不完全兼容厂商会分别维护。看到目录结构后定位到自己 Delphi 版本对应的那个.dpk文件。文件命名一般会把版本标识带在名字里如果你的 IDE 是 Delphi 7 就找带 7 的是 Delphi XE 就找带 XE 或相应内部版本号的不要随手打开一个高版本的包硬编——那是第一个入坑点。3.2 解压到固定路径路径里别带中文和空格解压这个步骤看起来没技术含量但路径选不好后面全是泪unrar x mydac.v5.00.1.7.src.rar D:\Develop\MyDAC为什么单独强调路径Delphi 的包编译机制会把源码路径写进 IDE 的搜索路径配置里如果路径含中文或空格编译器的dcc32工具解析起来偶尔会出玄学问题表现为某个单元明明在却提示找不到。我一般统一放在D:\Develop这种纯英文短路径下省心。解压完不要直接双击.dpk就罢了先检查解压出来的文件是不是完整——重点是看有没有.pas源码文件和.dpk包工程同时存在只有.dcu没有.pas的那不叫源码包。3.3 IDE 里安装包把运行时包和设计时包都装上MyDAC 的安装过程和大多数 Delphi 组件一致分运行时包、设计时包两个层次。设计时包负责把组件注册进 IDE 的组件面板运行时包是程序编译和运行时要用的库。打开 Delphi 后按下面步骤操作点菜单Component - Install Packages在弹出的对话框里点Add导航到刚才解压的目录找到设计时包对应的.dpk一般带Design或D字样选中并打开Delphi 会弹出确认编译安装的窗口点Yes开始编译编译成功后同一个目录下的运行时包会作为依赖自动编译关掉对话框回到组件面板翻到新增的组件页签确认出现TMyConnection、TMyQuery等图标。编译过程中如果报错缺少某个单元多半是 IDE 的 Library 搜索路径没包含 MyDAC 的Source目录。这时打开Tools - Options - Delphi Options - Library在Library path里加上D:\Develop\MyDAC\Source点Add保存然后重新编译。这个搜索路径的作用是让编译器在找不到源码单元时能去Source目录里找MyDAC 的多个子目录如Source\Common、Source\MySQL最好都加进去避免编译到半路缺头文件。注意设计时包和运行时包必须配套安装。只装设计时包不装运行时包IDE 里能看到组件但编译项目时包找不到只装运行时包不装设计时包组件栏里啥都没有。3.4 命令行编译适合批量构建和无 IDE 环境如果不想开 IDE或者要给多台机器批量装环境可以用 Delphi 自带的命令行编译器。先把环境变量切到 Delphi 的 bin 目录再执行set PATHC:\Program Files\Embarcadero\RAD Studio\bin;%PATH% dcc32 -JP D:\Develop\MyDAC\Source\MyDACPackage.dpk-JP参数表示编译 Delphi 包Package生成.bpl和.dcp。命令行方式没有 IDE 的自动化依赖处理如果它报错找不到其他单元必须手动在dcc32命令后面追加-U参数指定源码路径例如dcc32 -JP D:\Develop\MyDAC\Source\MyDACPackage.dpk -UD:\Develop\MyDAC\Source;D:\Develop\MyDAC\Source\Common-U是编译器搜索单元路径的参数多个路径用分号隔开。命令行方式适合写进批处理脚本里一键执行但第一次装还是建议先在 IDE 里走一遍因为 IDE 的报错信息更友好定位问题快。3.5 编译通过后必做的三件事包安装成功不代表万事大吉我会立刻做三件事验证安装有效性。第一新建一个空 VCL 项目拖一个TMyConnection到窗体上在对象监视器里能看到它的全部属性——说明设计时包生效。第二给Connection属性填一个肯定连不上的地址运行程序触发连接错误确认报错信息来自 MyDAC 自己的异常类而不是 IDE 环境错误。第三检查项目生成的 exe 目录下是否有依赖的.bpl文件如果没有说明用了静态编译模式部署时要把 exe 和libmysql.dll放在一起如果有.bpl部署时要带上对应版本的运行期包。这三步做完组件安装这件事才算闭环后面写连库代码才有地基。4. 用 TMyConnection 连接 MySQL最小工程、存储过程和连接池参数怎么设组件上了工具箱下一步就是把数据跑通。这章从头写一个最小可运行的 Delphi MySQL 客户端把连接参数、查询、参数化更新、存储过程调用和连接池依次落地。照抄就能跑通跑通后再按自己的业务改。4.1 最小连接工程TMyConnection 加 TMyQuery 跑通第一条 SELECT窗体上放一个TMyConnection、一个TMyQuery、一个TButton和一个TMemo在按钮的 OnClick 里写这段procedure TForm1.Button1Click(Sender: TObject); begin // 配置连接服务器、端口、账号、密码、库名 MyConnection1.Server : 127.0.0.1; MyConnection1.Port : 3306; MyConnection1.Username : root; MyConnection1.Password : your_password; MyConnection1.Database : test_db; MyConnection1.Charset : utf8mb4; // 打开连接 MyConnection1.Connect; // 绑定查询组件到同一个连接 MyQuery1.Connection : MyConnection1; MyQuery1.SQL.Text : SELECT id, name, created_at FROM users LIMIT 10; MyQuery1.Open; // 把查询结果导出到备忘录里显示 while not MyQuery1.Eof do begin Memo1.Lines.Add(MyQuery1.FieldByName(name).AsString); MyQuery1.Next; end; MyQuery1.Close; MyConnection1.Disconnect; end;这段代码里有几个参数值得单独说。Server和Port是连接寻址的基本参数端口默认 3306如果你的 MySQL 改了端口必须同步改这里。Charset建议直接设utf8mb4这是 MySQL 5.5 支持的完整 UTF-8 字符集能正确存 emoji 四字节字符比utf8更安全。Connect和Disconnect是显式管理连接生命周期的方式也可以不写让组件在第一次查询时自动连接但显式写出来有利于把控异常时机。FieldByName(name)通过字段名取值比Fields[1]这种按索引取的方式更稳因为 SQL 一旦加了列索引就会变字段名不会。4.2 参数化查询和 UPDATE别把变量拼进 SQL 字符串很多从新手期过来的开发写 UPDATE 时用的是这种拼接方式把用户输入直接拼进 SQL 文本。这在 MySQL 上有两个隐患一是 SQL 注入输入里带单引号就能改变语句结构二是 MySQL 查询缓存和服务器端预处理都对文本 SQL 不太友好每次都要重复解析。MyDAC 的TMyQuery支持参数化写法是MyQuery1.SQL.Text : UPDATE users SET status :status WHERE id :id; MyQuery1.ParamByName(status).AsInteger : 1; MyQuery1.ParamByName(id).AsInteger : 1001; MyQuery1.Execute;:status和:id是参数占位符用ParamByName按名赋值。这里有个容易忽略的点赋值类型要和字段类型匹配AsInteger对应整型字段字符串字段用AsString日期字段用AsDateTime。类型不匹配时 MySQL 端可能做隐式转换短小 SQL 看不出来但在 where 条件里有索引的列上隐式转换会导致索引失效——全表扫描的坑就是这么埋下的。Execute方法用于执行不返回数据集的命令返回值是受影响行数需要判断更新是否成功的业务可以这样拿if MyQuery1.Execute 0 then ShowMessage(更新成功) else ShowMessage(没有匹配的记录);4.3 调存储过程TMyStoredProc 和参数模式MySQL 的存储过程是服务端逻辑客户端调用时最需要注意的是参数模式IN、OUT、INOUT的处理。先建一个简单的存储过程DELIMITER $$ CREATE PROCEDURE sp_count_users(OUT total INT) BEGIN SELECT COUNT(*) INTO total FROM users; END$$ DELIMITER ;Delphi 端用TMyStoredProc调用MyStoredProc1.Connection : MyConnection1; MyStoredProc1.StoredProcName : sp_count_users; MyStoredProc1.Prepare; MyStoredProc1.ParamByName(total).ParamType : ptOutput; MyStoredProc1.ExecProc; ShowMessage(用户总数: MyStoredProc1.ParamByName(total).AsString);这里prepare先准备存储过程ExecProc执行执行完从输出参数里取结果。新手容易栽的地方是忘记设置ParamType默认的ptInput会让存储过程拿不到输出值或者在Prepare之前就去读ParamByName此时参数列表还没建立会报参数不存在。如果存储过程既返回数据集又有输出参数用TMyStoredProc会有状态错乱的风险我一般的做法是退一步用TMyQuery直接执行CALL sp_name(...)并读取随后的结果集。存储过程返回多个结果集时MyDAC 需要把MultipleActiveResults属性打开否则第二个结果集读不到。4.4 连接池开在哪一层、参数怎么调连接池是 MySQL 客户端老生常谈的话题。在 MyDAC 里连接池功能就在TMyConnection上打开Pooling : True就能启用配套的PoolingOptions里可调参数有这几个参数默认值说明ConnectTimeout15建立连接的等待秒数超过就报超时MaxConnections32池里最多保活几条连接MinConnections1池里最少保活几条连接CleanupFrequency30每隔多少秒清理一次空闲超时连接ExpireTimeout60空闲超过多少秒就会被清理连接池的原理是连接用完后不真正断开而是回收到池里下次连接时直接复用已建立的会话省去 TCP 握手和 MySQL 认证的开销。这在高频短查询的场景下收益明显。但开连接池有个前提——你的 MySQL 服务端的wait_timeout要大于池里的ExpireTimeout否则 MySQL 端已经把空闲连接掐断池里还留着这个连接下次取出来用就报MySQL server has gone away。这个问题很隐蔽我在第 5 章的避坑记录里专门展开。提示PoolingOptions里的参数不是调得越大越好。MaxConnections设 100 不代表 MySQL 能扛 100 条并发连接还要看 MySQL 自身的max_connections上限以及服务器的文件描述符限制。5. 编译和连库避坑5 个从现场拍回来的问题记录这一章是我把这套组件跑了几年之后攒下的踩坑记录每条都是「现象 → 原因 → 解决」的格式写出来给你当后悔药。前三条集中在编译和加载阶段后两条是运行期才炸的雷。5.1 编译时报找不到运行时包包依赖顺序错了现象设计时包编译通过但新建项目一编译就提示File not found: dcu或者二进制包找不到。原因MyDAC 的包分了好几个层次核心运行时包在最底层设计时包在上层并依赖它。如果你单独安装设计时包而没有先装底层运行时包或者 IDE 的 Library 搜索路径里没有包含底层包的.dcp输出目录就会出现「IDE 看得到组件、编译时找不到实现」的割裂状态。解决打开Component - Install Packages把 MyDAC 相关包全部卸载然后按从底到上的顺序重新添加先加运行时包不带 Design 字样的.dpk再加设计时包。添加时注意下方消息框的编译日志确认每一层的.dcp文件都生成了再进入下一层。这个顺序问题在全新安装时最容易混淆因为没有 IDE 历史记录可以参考。5.2 程序启动报 libmysql.dll 加载失败位数不匹配是头号原因现象程序一运行就弹Cannot load library libmysql.dll或者The specified module could not be found。原因这种报错有两大来源。一是真没带这个 DLL部署目录下没有二是带了但位数不匹配——你的程序编译为 64 位带的却是 32 位的libmysql.dllWindows 加载器直接拒绝。64 位进程只能加载 64 位 DLL这是系统级限制不是 MyDAC 能绕过的。解决先确认程序位数打开项目的Project Options - Compiling看Target platform是 32 位还是 64 位然后去 MySQL 安装目录的bin里找对应位数的新版 libmysql复制到 exe 同目录。如果 MySQL 装在别的机器上就去 MySQL 官网的 Connector/C 下载对应平台版本里面带的libmysql.dll就是客户端库。还有一个容易被忽略的小坑有些第三方安全软件会拦截 DLL 加载报错信息一样但那是环境问题换一台干净机器就能区分出来。5.3 MySQL 8.0 连不上认证插件从 mysql_native_password 换成了 caching_sha2_password现象MyDAC 5.x 连 MySQL 5.7 一切正常换成 MySQL 8.0 之后报认证失败错误码是Authentication plugin caching_sha2_password cannot be loaded。原因MySQL 8.0 把默认认证插件改成了caching_sha2_password而 MyDAC v5.00.1.7 这个年代的组件其握手协议实现对老的mysql_native_password支持最完善对新插件要么不认识、要么只支持加密通道下的交互。这不是 Bug是协议版本的自然代沟。解决有两条路。第一条是把 MySQL 账号改回老认证插件SQL 是ALTER USER rootlocalhost IDENTIFIED WITH mysql_native_password BY your_password;改完刷新权限对 MyDAC 立刻生效老组件继续用。第二条是升级 MyDAC 到新版让组件协议跟上 MySQL 8.x代价是要重新评估新版组件在你的 Delphi 版本下的兼容性。如果你手头只有 v5.00.1.7显然第一条路最省事。这事在维护老项目的场景里很常见MySQL 服务端先升级了客户端组件跟不上就得靠这种兼容手段过渡。5.4 中文写入变成问号字符集三处不一致现象程序里明明写的Charset : utf8mb4查询读出来的中文正常但插入的数据在 MySQL 客户端里看全是?。原因连接字符集只是三处中的一处。MySQL 的字符集链路是客户端连接字符集 → 数据库默认字符集 → 表的字符集。MyDAC 的Charset只控制了第一环如果数据库或表是latin1MySQL 服务端会在写入时做一次有损转换中文变成问号后存进表里再查回来也是问号。这是 MySQL 的老规矩不是 MyDAC 的毛病。解决入库之前先验证表和库的字符集SHOW CREATE TABLE users;重点看CHARSET那段如果是latin1需要把表和库都转成utf8mb4典型语句ALTER TABLE users CONVERT TO CHARACTER SET utf8mb4; ALTER DATABASE test_db CHARACTER SET utf8mb4 COLLATE utf8mb4_unicode_ci;改完表之后再用 MyDAC 插入一条中文测试数据读回来确认不是问号再放业务代码进去。真遇到历史遗留的 latin1 表转换前先备份转换过程会重写整张表大表可能锁表很久。5.5 开了连接池后偶发MySQL server has gone away现象连接池Pooling : True跑了一天之后某次操作突然报MySQL server has gone away重试一次又好了过阵子又犯。原因典型的原因有两个。一是 MySQL 服务端的wait_timeout小于池里的ExpireTimeoutMySQL 先把空闲连接断了池里不知道取出来一用就是死连接。二是连接空闲期间 MySQL 重启过池里保活的连接全部失效但池的清理频率还没跑到。解决先把池的ExpireTimeout调小到比 MySQL 的wait_timeout小比如 MySQLwait_timeout是 28800 秒8 小时ExpireTimeout设 600 秒就够然后实现一层连接失效重连逻辑try MyQuery1.Open; except on E: EMyConnectionError do begin MyConnection1.Disconnect; MyConnection1.Connect; MyQuery1.Open; end; end;捕获连接异常后主动断开重连再重放一次查询。这种容错风格在长连接服务里很常见不要觉得多余——MySQL 重启、网络抖动、防火墙空闲策略都会杀连接重连一次的成本远低于一次崩溃排查。顺手把 MySQL 侧的wait_timeout调成一个可控的值比如 3600 秒让行为可预期别用默认的 8 小时排错时看日志能少绕几个弯。6. 验证组件没白装用事件日志抓 SQL、用慢查询日志找性能问题组件装好、数据也通了怎么确认这套链路真的是健康的我最后分享两个验证手段一个抓客户端发出的真实 SQL一个抓服务端执行慢的语句交叉一对比问题基本无处藏身。6.1 用 TMyEventLog 记录客户端侧 SQLMyDAC 自带一个TMyEventLog组件作用是把客户端连接和 SQL 执行过程记录到本地文件。拖一个到窗体上和TMyConnection关联然后在连接事件回调里挂上日志MyConnection1.AfterConnect : LogEvent; MyConnection1.AfterQueryExecute : LogEvent;在LogEvent里把消息转发给MyEventLog1设置好日志文件路径所有经过这个连接的 SQL 和错误信息就会落到文件里。这个日志的价值在于能看到 MyDAC 实际发给 MySQL 的文本——如果你怀疑组件在 SQL 层面做了改写或者参数化没生效看一眼日志就明白了。6.2 用 MySQL 慢查询日志做服务端交叉验证客户端日志只能证明 SQL 发出去了不能证明服务端执行得怎么样。打开 MySQL 的慢查询日志把执行时间超过阈值比如 1 秒的语句记录到文件SET GLOBAL slow_query_log ON; SET GLOBAL long_query_time 1; SET GLOBAL slow_query_log_file /var/log/mysql/slow.log;跑一段时间后把慢日志里的 SQL 和TMyEventLog记录的 SQL 对比。如果一条 SQL 在客户端日志里出现也在慢日志里出现说明问题在 SQL 本身或索引如果只在客户端日志里出现、慢日志里没有那问题可能在客户端等待网络响应压根不是数据库执行慢。MySQL 8.0 的performance_schema还能看更细的语句执行阶段但对日常排查来说这两份日志交叉已经够用了。我现在的习惯是每次新接一个 Delphi MySQL 项目第一周就把TMyEventLog开着、慢日志阈值调到 1 秒跑完一轮业务再看文件。因为大部分连接问题都发生在没人盯着的时候日志是唯一能让问题现形的东西。这套组件值得花点时间把日志机制吃透希望你也能在项目里真正用起来少踩几个我踩过的坑让 MySQL 这条链路在你手上不再像黑匣子一样让人心里没底。本文还有配套的精品资源点击获取