Delphi XE10.3 使用INI配置连接MYSQL数据库实战

"本文将详细介绍如何在Delphi XE10.3环境下，利用INI配置文件连接MySQL数据库，实现Multy-Device应用的调试。在DataModel文件夹下，我们将探讨一个名为`LinkDada`的过程，该过程涉及到FireDAC组件的使用。尽管在代码中设置FDConnection的CharacterSet属性时遇到问题，但在界面上设置则能成功连接。" 在Delphi XE10.3的开发中，与MySQL数据库的连接通常依赖于FireDAC组件库。FireDAC提供了一套强大的数据访问接口，支持多种数据库系统，包括MySQL。在多设备应用程序（Multy-Device App）的开发场景下，需要确保代码能在不同平台下运行。为了实现这一目标，我们可以采用INI文件来存储数据库连接的配置信息，这样可以在不修改代码的情况下更改连接参数。 `LinkDada`过程主要负责读取INI文件中的配置，并设置FDConnection的相关属性。首先，我们定义了一些变量，如`piececonfg`用于存储TIniFile对象，`pathconfgstr`用于保存INI文件的路径，其余变量如`_PORT`、`_HOST`、`_DATABASE`、`_USER_NAME`、`_PASSWORD`和`_SERVERCHARSET`分别对应MySQL连接的端口、主机名、数据库名、用户名、密码和字符集。 以下是一段示例代码，展示了如何读取和使用这些配置： ```delphi procedure TDM.LinkDada; var piececonfg: TIniFile; pathconfgstr: string; Providerstr, UserIDstr, Passwordstr, DataSourceStr, DatabaseNamestr, _PORT, _HOST, _DATABASE, _USER_NAME, _PASSWORD, _SERVERCHARSET: string; begin pathconfgstr := GetCurrentDir + '\'; if pathconfgstr[length(pathconfgstr)] = '\' then pathconfgstr := pathconfgstr + 'datebase.ini' else pathconfgstr := pathconfgstr + 'datebase.ini'; piececonfg := TIniFile.Create(pathconfgstr); // 检查INI文件是否存在 if not FileExists(pathconfgstr) then begin MessageDlg('配置文件不存在!', mtConfirmation, [mbOK], 0, mbOK); Halt; end; // 从INI文件中读取连接信息 _PORT := piececonfg.ReadString('DATABASE', 'port', ''); _HOST := piececonfg.ReadString('DATABASE', 'hostname', ''); _DATABASE := piececonfg.ReadString('DATABASE', 'database', ''); _USER_NAME := piececonfg.ReadString('DATABASE', 'user_name', ''); _PASSWORD := piececonfg.ReadString('DATABASE', 'password', ''); _SERVERCHARSET := piececonfg.ReadString('DATABASE', 'ServerCharSet', ''); // 如果配置项为空，则可能出现错误 if (_PORT = '') or ... ... end; ``` 在上述代码中，`ReadString`方法用于从INI文件的特定节（section）和键（key）中读取值。例如，`_PORT := piececonfg.ReadString('DATABASE', 'port', '');`读取了`DATABASE`节下的`port`键的值。 连接到MySQL数据库时，通常需要设置以下属性： 1. Providerstr：选择连接的驱动程序，对于MySQL通常是`FireDAC.MySQLDriver`。 2. DataSourceStr：数据源名称，可以自定义。 3. DatabaseNamestr：数据库名，即`_DATABASE`变量。 4. UserIDstr：数据库用户名，即`_USER_NAME`变量。 5. Passwordstr：数据库密码，即`_PASSWORD`变量。 6. Host：服务器地址，即`_HOST`变量。 7. Port：服务器端口，即`_PORT`变量。 8. ServerCharSet：服务器字符集，即`_SERVERCHARSET`变量。 在创建FDConnection组件后，将这些信息赋值给相应的属性，然后打开连接即可： ```delphi FDConnection1.Params.Values['Provider'] := Providerstr; FDConnection1.Params.Values['User_Name'] := UserIDstr; FDConnection1.Params.Values['Password'] := Passwordstr; FDConnection1.Params.Values['Database'] := DatabaseNamestr; FDConnection1.Params.Values['Server'] := _HOST; FDConnection1.Params.Values['Port'] := _PORT; FDConnection1.Params.Values['Charset'] := _SERVERCHARSET; FDConnection1.Connected := True; ``` 值得注意的是，代码中提到在界面上设置FDConnection的`CharacterSet`属性没有问题，但在代码中设置却会报错。这可能是因为FireDAC组件在不同上下文下的行为差异，或者某些属性需要在特定时刻设置。对于这类问题，通常需要查阅组件文档或进行更深入的调试来找出原因。 Delphi XE10.3通过INI文件连接MySQL数据库的方法是灵活且实用的，它允许开发者轻松地管理数据库连接参数，同时适用于多设备应用程序的部署。通过`LinkDada`这样的过程，可以确保在调试和部署过程中连接信息的正确性，提高开发效率。