Delphi中多线程下使用使用 UniDAC+MSSQL 需要注意的问题

本文整理自网络，侵删。

 一般解决方法是在线程开始启用 CoInitialize(nil)，线程结束调用 CoUninitialize 。如果你使用多种数据库连接，比如三层中经常切换到MSSQL和Oracle，我们只需在判断 TUniConnection 的连接前事件 OnBeforeConnect 写下如下代码：
procedure TServDBFunc.ServConnBeforeConnect(Sender: TObject);
begin
if (ServConn <> nil) and SameText(ServConn.ProviderName,'SQL Server');then
CoInitialize(nil);
end;
在TUniConnection 的关闭连接后事件 OnAfterDisconnect 写下如下代码：
procedure TServDBFunc.ServConnAfterDisconnect(Sender: TObject);
begin
if (ServConn <> nil) and SameText(ServConn.ProviderName,'SQL Server');then
CoUninitialize;
end;
需要注意的是，必须先判断连接控件 (ServConn <> nil) 是否为空，否则，你会陷入指针释放的问题。 

相关阅读 >>

Delphi 根据注册表信息判断程序是否安装

在Delphi xe6 firemonkey移动应用程序的twebbrowser html页面上运行javascript

Delphi tms web core 判断是否包含汉字

Delphi twebbrowser 响应回车键(ewb响应正常，无需额外代码)

Delphi 释放资源文件中的exe文件并运行

Delphi 防止程序重复打开运行

Delphi 如何判断可见字符 unicode

Delphi自动以管理员身份在vista 和 windows7 下运行程序

Delphi 公历到农历的转换法

Delphi2010新功能:tdirectory.getfiles 支持通配符

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi中多线程下使用使用 UniDAC+MSSQL 需要注意的问题