但在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。
联系客服