动态注册ODBC数据源的通用方法

本文以在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注册动态连接库，以利于程序复用。