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