本文以在Delphi 5.0中利用程序，动态生成并注册ODBC数据源为例，说明了一种通用的动态注册ODBC数据源的方法。此种方法实现简单，不但适用于Delphi，也适用于其它Windows下的开发工具。
一、引言
ODBC是微软于1993年推出的开放性数据库接口标准，它为不同数据库产品的访问和操作提供了一个统一的解决方案。作为一个开放标准，Windows平台下的许多数据库开发工具都支持通过ODBC方式来存取数据，如：Visual C＋＋，PowerBuiler等。其它，如Borland的Delphi虽然通过BDE(Borland Database Engine)方式来访问数据，但ODBC配置的数据源，在BDE中也可以正确识别和使用。
一般，ODBC数据源的配置是通过Windows控制面板中ODBC管理器手工设置完成的，这一点给程序安装人员和用户都带来了许多不便。对用户来说，程序安装应该越简单越好。因此，对程序就提出了能够根据安装环境，自动注册所需ODBC数据源的要求。虽然，关于动态注册ODBC数据源的实现方法已屡见不鲜，但大多只适用于某种确定的开发工具和环境，且实现复杂，操作不便。经笔者试验，找到了一条简单有效而通用的配置ODBC数据源的方法。
实现原理： 通过导出开发环境下注册表中ODBC数据源信息到一注册表文件中，将所导出内容作为应用程序中的字符串常量进行保存。在程序运行时，如果发现ODBC数据源未正确注册，则根据环境信息和该字符串常量动态确定正确的注册表文件内容，并写入一临时注册表文件中；利用批处理文件将该文件中ODBC数据源信息导入系统注册表中，从而实现ODBC数据源的动态注册。
二、操作步骤
1.运行注册表编辑器程序（Regedit.exe）。
2.导出注册表中\HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\ODBC Data Sources下数据源名称信息到Reg1.reg文件中。注：该路径下存放的是用户定义的数据源信息，如果需要系统数据源信息，则可导出HKEY_Local_Machine\Software\ODBC.INI\ODBC Data Sources到注册文件中。
3.导出要注册的数据源名称的具体连接参数信息到db2.reg中。在此，以导出名称为“PostMdb”的数据为例，具体路径： \HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\PostMdb。
4.用文本编辑器如(NotePad.exe)打开上述db1.reg文件，保留数据源名称为PostMdb的行；并将db2.reg文件内容与当前db1.reg内容合并。假设修改后“PostMdb”数据源注册信息如下：
REGEDIT4
[HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\ODBC Data Sources]
″PostMdb″=″Microsoft Access Driver (＊.mdb)″
[HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\PostMdb]
″Driver″=″C：\\WINDOWS\\SYSTEM\\ODBCJT32.DLL″
″DBQ″=″c：\\My Documents\\db1.mdb″
″Description″=″Post Card Mis Database″
″DriverId″=dword：00000019
″FIL″=″MS Access；″
″SafeTransactions″=dword：00000000
″UID″=″″
[HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\PostMdb\Engines]
[HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\PostMdb\Engines\Jet]
″ImplicitCommitSync″=″″
″MaxBufferSize″=dword：00000800
″PageTimeout″=dword：00000005
″Threads″=dword：00000003
″UserCommitSync″=″Yes″
5.动态注册ODBC数据源的实现
从上述注册信息可以看出，对于特定的数据源来说，实际上要动态确定的只是“Driver”和“DBQ”两项内容。将“Driver”=“C：\\WINDOWS\\SYSTEM\\ODBCJT32.DLL”修改为“Driver”=“％s\\ODBCJT32.DLL”，将“DBQ”=“c：\\My Documents\\db1.mdb”修改为“DBQ”=“％s\\db1.mdb”。复制修改后的注册信息到程序单元中存储为一字符串常量，命名为OdbcStr。以下以Delphi为例说明实现方法。
为便于说明，假设主窗体名称为Form1，通过一命令钮Button1注册ODBC数据源。具体根据读者需要自行设定。
procedure TForm1.Button1Click(Sender： TObject)；
var
I ：Integer；
J ：double；
RegF ：TextFile；
SysDir： PChar；
AppPath， Params， Path， DbPath： string；
begin
try
//生成注册用的批处理文件
Params ：= ′Regedit/s tmp.reg′； //批处理文件内容
AppPath ：= ExtractFilePath(Application.ExeName)； //取得应用程序当前路径
AssignFile(RegF， AppPath ＋ ′Reg.Bat′)； //指定批处理文件路径和名称
ReWrite(RegF)； //创建和打开指定的文本文件
WriteLn(RegF， Params)； //将注册命令批处理内容写入文件
CloseFile(RegF)；
//生成注册表文件
GetMem(SysDir， 255)；
GetSystemDirectory(SysDir， 255)； //取得Windows系统目录
Path ：= String(SysDir)；
Path ：= InsertSplash(Path)； //将类似C：\WINDOWS\SYSTEM变为C：\\WINDOWS\\SYSTEM
Delete(AppPath， Length(AppPath)， 1)； //将字符串尾部′\′字符删除
DbPath ：= InsertSplash(AppPath)； //取得数据库存放路径
Params ：= Format(OdbcStr， [Path， DbPath])；
AssignFile(RegF， AppPath ＋ ′Tmp.Reg′)；
ReWrite(RegF)；
WriteLn(RegF， Params)；
CloseFile(RegF)；
//通过Api函数执行reg.bat， Uses中加入对ShellApi的引用
If ShellExeCute(Application.Handle， ′Open′，′Reg.bat′， ′′， PChar(AppPath)， SW_HIDE) <= 32
then
Showmessage(′导入注册表文件信息失败′)；
finally
FreeMem(SysDir)；
end；
end；
上述代码调用了一字符串处理函数InsertSplash，用于将路径字符串中所有的′\′处理为′\\′；这样做是必需的，否则，上述注册信息DRIVER和DBQ项无法正确注册。InsertSplash函数代码如下：
function InsertSplash(AStr： string)： string； //需要在单元公有部分进行函数声明
var
I ： Integer；
begin
For I ：= 1 to Length(AStr) do
case AStr[I] = ′\′ of
True ： Result ：= Result ＋ ′\\′；
False： Result ：= Result ＋ AStr[I]；
end；
end；
三、结束语
通过上述操作可以看出，实现ODBC数据源的动态注册并没有通过Delphi特有的功能去完成，而只是通过文件读写功能，根据具体安装环境，生成ODBC数据源注册信息和批处理文件，以完成ODBC数据源的注册。这种实现方法不依赖于某种特定的开发工具，不需要通过手工进行ODBC数据源的配置，具有通用性强和操作简单的特点。而且，用上述同样的方法，读者也可编写能够注册其它类型数据源的程序，甚至，写成ODBC注册动态连接库，以利于程序复用。