1、尚未调用CoInitialize

Delphi中出现小问题及处理_第1张图片

这是在调用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、被呼叫方拒绝接收呼叫

Delphi中出现小问题及处理_第2张图片

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