var w : OleVariant; w := CreateOleObject('Word.Application'); w.Visible := true; Writeln(w.CentimetersToPoints(2.0));
FWIW类型库给出
/ [id(0x00000173),helpcontext(0x09700173)] // single CentimetersToPoints([in] single Centimeters);
默认情况下,Delphi只将浮动值传递为Double,因此我尝试直接调用Idispatch.Invoke并将参数作为VT_R4传递,但没有更好的结果.
编辑:VB版本工作(保存为.vbs)
set w = CreateObject("Word.Application") w.Visible = true msgBox w.CentimetersToPoints(2.0)
什么可能出错的其他建议?
解决方法
正如我发现的那样,回答这个question,将单个精度浮点数变成一个变量是非常棘手的.我最初怀疑你可以使用我在那里提出的解决方案来解决你的问题.
function VarFromSingle(const Value: Single): Variant; begin VarClear(Result); tvarData(Result).VSingle := Value; tvarData(Result).VType := varSingle; end; .... w := CreateOleObject('Word.Application'); w.Visible := true; Writeln(w.CentimetersToPoints(VarFromSingle(2.0)));
但是,由于我还不了解的原因,这也以同样的方式失败了.
像你一样,我尝试使用Idispatch.Invoke调用该函数.这就是我想出的:
program SO16279098; {$APPTYPE CONSOLE} uses SysUtils,Variants,Windows,ComObj,ActiveX; function VarFromSingle(const Value: Single): Variant; begin VarClear(Result); tvarData(Result).VSingle := Value; tvarData(Result).VType := varSingle; end; var WordApp: Variant; param: Variant; retval: HRESULT; disp: Idispatch; Params: TdispParams; result: Variant; begin try CoInitialize(nil); WordApp := CreateOleObject('Word.Application'); disp := Idispatch(WordApp); param := VarFromSingle(2.0); Params := Default(TdispParams); Params.cArgs := 1; Params.rgvarg := @param; retval := disp.Invoke( 371,//CentimetersToPoints GUID_NULL,LOCALE_USER_DEFAULT,disPATCH_METHOD,Params,@Result,nil,nil ); // retval = E_FAIL Params := Default(TdispParams); retval := disp.Invoke( 404,//ProductCode GUID_NULL,nil ); // retval = S_OK except on E: Exception do Writeln(E.ClassName,': ',E.Message); end; Readln; end.
我无法以这种方式调用CentimetersToPoints,但可以调用ProductCode函数.
要添加到您的成功/失败指标集合中,当我使用PowerShell调用CentimetersToPoints函数时,我获得了成功.当我使用Python的win32com.client调用时,我得到了E_FAIL.
显然我们缺少一些特殊的魔法成分.似乎所有MS工具都知道这种魔力.
我得出结论,使用Delphi中实现的变体分派调用CentimetersToPoints是不可能的.无论魔法是什么,它都不知道魔法.
显然可以在Idispatch上调用Invoke并成功.我们可以说,因为其他环境设法这样做.所以,我不知道的是失踪的魔法是什么.
如果你可以使用早期绑定的COM,那么你可以回避这个问题:
Writeln((Idispatch(w) as WordApplication).CentimetersToPoints(2.0));
好的,在0700的help中,我有一些Delphi代码可以调用这个函数:
program SO16279098; {$APPTYPE CONSOLE} uses SysUtils,disPATCH_METHOD or disPATCH_PROPERTYGET,nil ); Writeln(Result); except on E: Exception do Writeln(E.ClassName,E.Message); end; Readln; end.
由于未知原因,您需要包括disPATCH_PROPERTYGET以及disPATCH_METHOD.
question that I asked可能使这个问题重复.所以,我投票结束.
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。