Delphi“尚未调用CoInitialize”解决方法

这个一般是在使用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。