关闭

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

标签: coinitialize
324人阅读 评论(0) 收藏 举报
分类:

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

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:284219次
    • 积分:4003
    • 等级:
    • 排名:第7845名
    • 原创:34篇
    • 转载:534篇
    • 译文:0篇
    • 评论:18条
    最新评论