【发布时间】：2019-02-04 09:42:42
【问题描述】：
我正在尝试为我的应用程序创建一个 COM 接口，以允许例如。 VBA 来驱动我的应用程序的某些部分。
我已经启动并运行并安装了我的 COM 库，甚至可以在 Delphi IDE 中调试 Excel 中调用的例程的部分。
这是我使用按钮从 Excel 激活的 VBA 代码：
Sub TestAMQMOLE_OpenProject()
Dim vConnection As String
Dim vAMQM As Object
Dim vAMProject As Object
vConnection = "$(MYSRC)\LCCAMQM38\UnitTestData\AnalyseSortingAndGrouping"
Set vAMQM = CreateObject("LCCAMQM_AX.LCCAMQM_Application")
vAMQM.Connect
Set vAMQMProject = vAMQM.OpenProject(vConnection) 'This parameter does not get through
Set vAMQMProject.Active = True
Set vAMQMProject = Nothing
vAMQM.Disconnect
Set vAMQM = Nothing
End Sub
Delphi 中处理它的部分如下所示：
function TLCCAMQM_Application.OpenProject(const aFolderOrAlias: WideString): ILCCAMQM_Project;
begin
try
Result:=TLCCAMQM_Project.Create(aFolderOrAlias); // wrapper om TdmAMEditBase
except
SHowMessage(ExceptionToString(ExceptObject,ExceptAddr));
end;
end;
由于aFolderOrAlias 参数字符串为空而导致代码失败。我添加了异常处理程序以便在 Delphi IDE 之外进行调试。在IDE内部调试时，参数字符串确实显示为空。
我还尝试将参数作为Variant 或const Variant 传递（并相应地调整类型库），但在这种情况下，我得到了一个VT_RECORD 变体类型（0x0024），它不会产生任何对我有感觉。
这是类型库的接口定义的样子。
....
[
uuid(EDD8E7FC-5D96-49F1-ADB7-F04EE9FED7B5),
helpstring("Dispatch interface for LCCAMQM_Application Object"),
dual,
oleautomation
]
interface ILCCAMQM_Application: IDispatch
{
[id(0x000000C9)]
int _stdcall Connect(void);
[id(0x000000CA)]
int _stdcall Disconnect(void);
[id(0x000000CB)]
ILCCAMQM_Project* _stdcall OpenProject([in] BSTR aFolderOrAlias);
[propget, id(0x000000CC)]
HRESULT _stdcall Connected([out, retval] VARIANT_BOOL* Value);
};
[
uuid(590DBF46-76C9-4877-8F47-5A926AFF389F),
helpstring("LCCAMQM_Application Object")
]
coclass LCCAMQM_Application
{
[default] interface ILCCAMQM_Application;
};
....
我很确定一定有一种方法可以将字符串从 VBA 传递到 COM 对象。但是在摆弄了几个小时后，我迷路了：s。
【问题讨论】：
-
不应该
ILCCAMQM_Project*是[out, retval]而不是返回类型？在我看来，OpenProject应该返回一个HRESULT。 -
在 IDL 中，是的。您必须使用带有
HRESULT返回值的[out, retval]参数：HRESULT _stdcall OpenProject([in] BSTR aFolderOrAlias, [out,retval] ILCCAMQM_Project** Result);。在 Delphi 代码中，将OpenProject()声明为safecall并带有ILCCAMQM_Project返回值且没有输出参数：function OpenProject(const aFolderOrAlias: WideString): ILCCAMQM_Project; safecall;让OpenProject()引发异常而不捕获它们，safecall会将其转换为HRESULT和使用异常详细信息填充GetErrorInfo()。与Connected()相同。