在dll中调用com对象提示“invalid variant operation”,代码如下:
------------------------------------------------------------
var
RTXObj:variant;
RTXParams:variant;
begin RTXObj.CoInitialize();
RTXParams.CoInitialize();
RTXObj:= CreateOleObject('RTXServer.RTXObj');
RTXParams:= CreateOleObject('RTXServer.Collection');
RTXObj.name := 'SMSOBJECT' ;
......
end;
------------------------------------------------------------------
RTXObj是com对象,在执行RTXObj.CoInitialize();时出错
------------------------------------------------------------
var
RTXObj:variant;
RTXParams:variant;
begin RTXObj.CoInitialize();
RTXParams.CoInitialize();
RTXObj:= CreateOleObject('RTXServer.RTXObj');
RTXParams:= CreateOleObject('RTXServer.Collection');
RTXObj.name := 'SMSOBJECT' ;
......
end;
------------------------------------------------------------------
RTXObj是com对象,在执行RTXObj.CoInitialize();时出错
RTXParams.CoInitialize();
这两句删掉,改成 CoInitialize();