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

最新推荐文章于 2019-12-07 12:42:28 发布

原创最新推荐文章于 2019-12-07 12:42:28 发布 · 1.1k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #多线程 #sql server #oracle #数据库

Delphi 专栏收录该内容

23 篇文章

订阅专栏

本文介绍了一种在切换不同数据库连接（如MSSQL和Oracle）时，如何正确进行COM初始化和反初始化的方法，以避免潜在的运行时错误。通过在数据库连接前调用CoInitialize(nil)并在连接关闭后调用CoUninitialize，可以有效管理资源并确保程序稳定运行。

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