尚未调用 CoInitialize
2008-10-24 21:52
507 查看
这个一般是在使用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);
....
finally
.....
couninitialize;
end;
当然单元中要uses activex。
问题解决。
但在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);
....
finally
.....
couninitialize;
end;
当然单元中要uses activex。
问题解决。
相关文章推荐
- 问题-Delphi在多线程中使用其他窗体上的控件,报“尚未调用CoInitialize”解决方法
- 又见 “尚未调用CoInitialize错误” 报错
- 多线程“尚未调用coinitialize” 报错
- 当MFC中出现 尚未调用CoInitialize
- [Delphi-码农]尚未调用 CoInitialize
- Delphi“尚未调用CoInitialize”解决方法
- 又见 “尚未调用CoInitialize错误” 报错
- "尚未调用CoInitialize"错误
- [Delphi-码农]Delphi 多线程 “尚未调用CoInitialize错误”的解决方法
- 尚未调用 CoInitialize
- QT5.9 在线程中导出EXCLE报 CoCreateInstance failure (尚未调用 CoInitialize) 解决办法
- Delphi 多线程 “尚未调用CoInitialize错误”的解决方法
- Delphi“尚未调用CoInitialize”解决方法
- pywintypes.com_error: (-2147221008, '尚未调用 CoInitialize。', None, None)
- Delphi7 尚未调用CoInitialize 与 Application 的图标丢失
- Delphi中提示“尚未调用CoInitialize错误”的解决方法
- delphi出现‘尚未调用CoInitialize’异常
- delphi出现‘尚未调用CoInitialize’异常
- Delphi“尚未调用CoInitialize”解决方法
- delphi ADOQuery '尚未调用 CoInitialize。