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版本的淘宝接口(TopAPI)开发

博文地址: http://blog.csdn.net/delphiteacher/article/details/8168741 Delphi版本淘宝接口控件下载地址(支持D7,D2007,D20...
  • delphi308
  • delphi308
  • 2013年11月25日 17:24
  • 6388

使用shareSDK时可能遇到的问题

shareSDK分享流程总结,和其中一小部分错误,有需要的可以查看,也希望大牛不吝赐教,欢迎大家一起来交流指正。。...
  • zhaochunyang_0726
  • zhaochunyang_0726
  • 2014年10月10日 16:19
  • 9088

1git命令的使用,查看git仓库状态,添加文件到git跟踪,git提交,查看git分支,查看git仓库日志信息,切换git分支,解决git分支合并后出现冲突的问题

1新建一个存储git的文件夹,命令是: toto@toto-K45VD:~$ mkdir gitfolder 2初始化一个git仓库,命令是: toto@toto-K4...
  • toto1297488504
  • toto1297488504
  • 2014年11月23日 01:07
  • 6692

Delphi XML-RPC 中文乱码解决方法

  • 2010年12月30日 23:09
  • 46KB
  • 下载

在DELPHI中使用MyDAC连接MySQL数据库时中文显示乱码的解决方法

  • 2017年07月05日 17:25
  • 12KB
  • 下载

ASP.NET 4.0尚未在 Web 服务器上注册 解决方法

使用Visual studio 2012创建web应用程序时出现如下提示ASP.NET 4.0尚未在 Web 服务器上注册。为了使网站正确运行,可能需要手动将 Web 服务器配置为使用 ASP.N...
  • h273979586
  • h273979586
  • 2017年01月20日 09:22
  • 832

Windows帮助中的远程bulk insert解决方法(909801尚未验证)

如何确保在创建到 SQL Server 2005 实例的远程连接时使用 Kerberos 身份验证Source: http://support.microsoft.com/kb/909801 本文介绍...
  • eagleatustb
  • eagleatustb
  • 2011年03月02日 21:33
  • 586

DELPHI调试状态出现“内存不足”的常规解决方法

在DELPHI的调试环境中,如果出现多层的指针的嵌套的情况。举个例子:   TPoint = Packed Record      x:double;      y:doiuble;   en...
  • lidayang2012
  • lidayang2012
  • 2013年01月02日 15:33
  • 559

Delphi TMediaPlayer播放音乐出现"no MCI device open"的错误的解决方法;循环播放

最近用DELPHI的TMediaPlayer写了一个音乐控制软件,用到了TMediaPlayer控件,播放音乐时总是出现no MCI device open的错误。查了半天资料终于找到原因。 我原来...
  • lailai186
  • lailai186
  • 2013年04月13日 08:44
  • 2706

xml文件报错找不到资源(字符串、变量)解决方法(尚未解决,待续)

今天在调试程序时,本来打算在EditText中加入hint属性的,当然是在xml文件中添加。语句为:android:hint="@string/reg_hint_name"。变量reg_hint_na...
  • HorseRunningNoStop
  • HorseRunningNoStop
  • 2016年03月19日 16:09
  • 1039
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Delphi“尚未调用CoInitialize”解决方法
举报原因:
原因补充:

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