1、尚未调用CoInitialize

成都创新互联公司-专业网站定制、快速模板网站建设、高性价比孟津网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式孟津网站制作公司更省心,省钱,快速模板网站建设找我们，业务覆盖孟津地区。费用合理售后完善，十年实体公司更值得信赖。

这是在调用Com对象（比如ADO对象）时出现的错误，按道理Delphi应该把这个问题自动处理好，但它就是出现了。所以只能自己处理。在单元文件中引用ActiveX，然后在初始和结束手动初始化和结束初始化。

initialization

CoInitialize(nil);

finalization

CoUninitialize;

另外有一点需要注意的是，根据MSDN：

Initializes the COM library on the current thread and identifies the concurrency model as single-thread apartment (STA).

New applications should call CoInitializeEx instead of CoInitialize.

If you want to use the Windows Runtime, you must call Windows::Foundation::Initialize instead.

这个Com库的初始化函数只对当前线程有效，所以如果使用了多线程，在别的线程出现报错，只是手动在主线程增加初始化是没用的，必须加在对应的线程单元中合适的位置。

以上述程序为例，开始的时候，将 CoInitialize(nil)加在了主窗体中，无效，因为对相关Com的调用是在别的线程；然后加在线程文件的initialization中，出乎意料，也无效。后来思考了一下，单元文件的initialization实际上还是主线程调用的，因为这时我自己写的线程还没有启动。最后把调用加在Execute方法里，报错消失了。

2、被呼叫方拒绝接收呼叫

因为是通过Com对象进行操作（比如导出Excel），这种情况一般是由于操作过快造成的（Com的速度都比较慢），需要减缓一下操作速度。

另外有需要云服务器可以了解下创新互联cdcxhl.cn，海内外云服务器15元起步，三天无理由+7*72小时售后在线，公司持有idc许可证，提供“云服务器、裸金属服务器、高防服务器、香港服务器、美国服务器、虚拟主机、免备案服务器”等云主机租用服务以及企业上云的综合解决方案，具有“安全稳定、简单易用、服务可用性高、性价比高”等特点与优势，专为企业上云打造定制，能够满足用户丰富、多元化的应用场景需求。

文章名称：Delphi中出现小问题及处理-创新互联
浏览路径：http://myzitong.com/article/cosgcp.html