全部
Ada助手

createoleobject('excel.application')报错， eolesyserror 不支持此接口

qdlover 2010-12-05 05:07:17

纠结的问题，在网上查了很久，也只碰到有人遇到类似的问题，但是没有任何解决方法。
也找过微软的技术支持，最后研究半天，给出了答复是
“由于这个不是微软产品报出来的错误，所以我们的案例库中没有记载这样的错误信息。另外vbs脚本调用Excel应用程序对象正常，所以严格来说这个问题超出了我们能够支持的范围。我会帮您继续在Internet上继续搜索这个报错，但是多数论坛没有这方面的专家进行支持所以这个报错问题通常都没有解决。”

因为程序用了很多年了，最近突然开始陆陆续续有用户(不是一个单位，是不同单位的用户都有这个问题)反映导入excle报错，后来我们看了一下，就是在调用
createoleobject('excel.application') 报错了

提示"不支持此接口"(说没装office的就不用关注这个问题了)
全部的错误提示为“Project test_excel.exe raised exception class EOleSysError with message '不支持此接口',Process stopped,Use step or Run to continue”

而且客户机器上的excel是可以正常打开的，而且用vbscript的createobject("excel.application")是可以调用excel的，就是delphi的不行。

最纠结的是，本来这些客户都用的好好的，突然有一个月就开始说这个功能有问题了，也不知道是什么问题导致的，也不知道怎么解决。

delphi现在没落了，不知道这个问题还可不可能解决啊

...全文

给本帖投票

用AI写文章

后台调用外部程序的完美实现，请求>>

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

foreverhero 2010-12-22

打赏
举报

[Quote=引用 4 楼 qdlover 的回复:]

unit ComObj;

function CreateOleObject(const ClassName: string): IDispatch;
var
ClassID: TCLSID;
begin
ClassID := ProgIDToClassID(ClassName);
OleCheck(CoCreateInstance(ClassID, nil, CLSC……
[/Quote]
project options->compiler->选中use debug dcu，就可以跟踪进去了

qdlover 2010-12-21

打赏
举报

unit ComObj;

function CreateOleObject(const ClassName: string): IDispatch;
var
ClassID: TCLSID;
begin
ClassID := ProgIDToClassID(ClassName);
OleCheck(CoCreateInstance(ClassID, nil, CLSCTX_INPROC_SERVER or
CLSCTX_LOCAL_SERVER, IDispatch, Result));
end;

function ProgIDToClassID(const ProgID: string): TGUID;
begin
OleCheck(CLSIDFromProgID(PWideChar(WideString(ProgID)), Result));
end;

unit ActiveX;
{$EXTERNALSYM CLSIDFromProgID}
function CLSIDFromProgID(pszProgID: POleStr; out clsid: TCLSID): HResult; stdcall;

function CLSIDFromProgID; external ole32 name 'CLSIDFromProgID';

ole32 = 'ole32.dll';

procedure OleCheck(Result: HResult);
begin
if not Succeeded(Result) then OleError(Result);
end;

function Succeeded(Res: HResult): Boolean;
begin
Result := Res and $80000000 = 0;
end;

procedure OleError(ErrorCode: HResult);
begin
raise EOleSysError.Create('', ErrorCode, 0);
end;

可是无法断点跟到CreateOleObject里面去啊