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) 是否为空,否则,你会陷入指针释放的问题。

相关阅读 >>

vclzip控件显示压缩进度

Delphi如何把一个文本列表添加到tlistbox并避免重复项

Delphi 从paintbox拷贝一部分内容到tbitmap

Delphi几个进制相关的代码(hextoint、hextoasc)

Delphi 如何在窗体标题栏添加按钮

Delphi 调用clipboard 收集剪切板信息

Delphi读取android短信信息

Delphi strtofloat 将“字符型”转换成“浮点型”

Delphi 处理以逗号分隔的长字符串

Delphi android路径 tpath 文件路径,文件管理

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...