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

转载 2016年05月30日 16:07:14

这个一般是在使用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-码农]Delphi 多线程 “尚未调用CoInitialize错误”的解决方法

http://www.cnblogs.com/zhangzhifeng/p/3319214.html 在Delphi  多线程中出现“尚未调用CoInitialize错误”的解决方法 ...

delphi禁止webbrowser弹出窗口或者脚本错误

delphi禁止webbrowser弹出窗口或者脚本错误 webbrowser1.silent:=true; //屏蔽脚本错误 procedure TForm1.WebBrowser1Ne...

Delphi中始终用WebBrowser打开网页

这个问题也曾经困扰过我一段时间啊!呵呵…… 给你一个解决办法,肯定能成功! procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;   v...

Delphi_Webbrowser中自动点击Alert弹出窗口中的按钮

function CallBackProc(H, HMainForm: hwnd): Boolean; stdcall; var   hChild: hwnd; begin   Result := T...
  • wbryfl
  • wbryfl
  • 2013-12-02 20:00
  • 2428

用webBrowser打开网页出现脚本错误怎么办?

把Slient属性设为True就不会弹出脚本错误的信息了。 转自:http://bbs.csdn.net/topics/390351223
  • hncsl
  • hncsl
  • 2016-10-08 16:49
  • 842

用webBrowser打开网页出现脚本错误怎么办

当IE浏览器遇到脚本错误时,在浏览器左下角会出现一个黄色图标,点击可以查看脚本错误的详细信息,并不会有弹出的错误信息框。我们在用webBrowser编写的程序打开网页,遇到脚本有问题是,会弹出一个错误...

尚未调用CoInitialize和生成后事件

最近在工作中遇到这两个问题,特此总结一下,以备后面只用 1.尚未调用CoInitialize 在Ado访问数据库时,经常会遇到问题(VC) 在应用程序调用 是加入初始化com的代码 BOOL ...

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

这个一般是在使用COM或者调用ADO控件时出现的错误,通常情况下都是程序的问题。调用了com,ole函数库前就要coinitialize,因为在应用程序中,delphi会自动在initialize 单...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)