多线程下使用使用 UniDAC+MSSQL 需要注意的问题（使用CoInitialize）

Posted 2020-10-19 朝闻道

ADO线程不安全，UniDAC 在使用MSSQL也是如此。其实这是微软COM问题，不怪Devart公司。

一般解决方法是在线程开始启用 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) 是否为空，否则，你会陷入指针释放的问题。

 

转自：http://hi.baidu.com/tintinsoft/item/361a8255237b0dc49f266761

http://blog.csdn.net/rznice/article/details/8252775