Delphi“尚未调用CoInitialize”解决方法
2016-05-30 16:07
666 查看
这个一般是在使用COM或者调用ADO控件时出现的错误,通常情况下都是程序的问题。调用了com,ole函数库前就要coinitialize,因为在应用程序中,delphi会自动在initialize 单元加上对co...函数的调用,在dll中要自己调用。
但在Delphi开中的PubDBConn中的如下代码竞也提示“尚未调用 CoInitialize”
procedure CreateadocSQL;
begin
adocSQL := TADOConnection.Create(nil);
try
if adocSQL.Connected then
adocSQL.Close;
adocSQL.ConnectionString := StrIS;
adocSQL.LoginPrompt := FALSE;
adocSQL.Connected := TRUE;
adocSQL.CommandTimeout := 600;
except
on e: EOleException do
Application.MessageBox(PChar(e.Source), PChar(e.Message), MB_OK + MB_ICONSTOP);
end;
end;
initialization
CreateadocSQL;
end.
最终在CreateadocSQL前后加上CoInitialize(nil)和CoUninitilize(),即
try
coinitialize(nil);
CreateadocSQL;
finally
.....
couninitialize;
end;
当然单元中要uses activex。
转自:http://blog.csdn.net/trassion/article/details/9712389
但在Delphi开中的PubDBConn中的如下代码竞也提示“尚未调用 CoInitialize”
procedure CreateadocSQL;
begin
adocSQL := TADOConnection.Create(nil);
try
if adocSQL.Connected then
adocSQL.Close;
adocSQL.ConnectionString := StrIS;
adocSQL.LoginPrompt := FALSE;
adocSQL.Connected := TRUE;
adocSQL.CommandTimeout := 600;
except
on e: EOleException do
Application.MessageBox(PChar(e.Source), PChar(e.Message), MB_OK + MB_ICONSTOP);
end;
end;
initialization
CreateadocSQL;
end.
最终在CreateadocSQL前后加上CoInitialize(nil)和CoUninitilize(),即
try
coinitialize(nil);
CreateadocSQL;
finally
.....
couninitialize;
end;
当然单元中要uses activex。
转自:http://blog.csdn.net/trassion/article/details/9712389
相关文章推荐
- delphi出现‘尚未调用CoInitialize’异常
- QT5.9 在线程中导出EXCLE报 CoCreateInstance failure (尚未调用 CoInitialize) 解决办法
- Delphi 实现窗体自适应调整尺寸以适应不同屏幕分辩率的显示问题
- Delphi 中的哈希表(1): THashedStringList
- Delphi中的THashedStringList对象
- Delphi日期函数大全
- 在Delphi开发的服务中调用指定应用程序
- Delphi的学习笔记十六——数据类型
- delphi显示hello world 和退出程序
- 打开Delphi 10.1 berlin提示脚本错误的解决方法
- Delphi日期函数大全
- Delphi ADOQuery连接数据库的查询、插入、删除、修改
- Delphi下生成Map文件方法
- delphi 中COPY()函数的意思
- Delphi RAD Server 应用服务基础平台
- Delphi XE10.1 引用计数
- Delphi的学习笔记十四——接口
- Delphi的学习笔记十三——属性
- Delphi的学习笔记十二——方法
- Delphi的学习笔记十一——类