然后出现了这个问题:Unspecified error when calling Word CentimetersToPoints via OLE
几乎没有跟进:http://pastebin.ca/2369858
我开始寻找现货Delphi TWordApplication组件(即Word200.pas单元).在那里,我看到:
// *********************************************************************// // Interface: _Application // Flags: (4560) Hidden Dual NonExtensible OleAutomation dispatchable // GUID: {00020970-0000-0000-C000-000000000046} // *********************************************************************// _Application = interface(Idispatch) ['{00020970-0000-0000-C000-000000000046}'] ... function CentimetersToPoints(Centimeters: Single): Single; safecall; // *********************************************************************// // dispIntf: _Applicationdisp // Flags: (4560) Hidden Dual NonExtensible OleAutomation dispatchable // GUID: {00020970-0000-0000-C000-000000000046} // *********************************************************************// _Applicationdisp = dispinterface ['{00020970-0000-0000-C000-000000000046}'] ... function CentimetersToPoints(Centimeters: Single): Single; dispid 371;
或类似的:
// *********************************************************************// // Interface: _Global // Flags: (4560) Hidden Dual NonExtensible OleAutomation dispatchable // GUID: {000209B9-0000-0000-C000-000000000046} // *********************************************************************// _Global = interface(Idispatch) ['{000209B9-0000-0000-C000-000000000046}'] ... function CentimetersToPoints(Centimeters: Single): Single; safecall; // *********************************************************************// // dispIntf: _Globaldisp // Flags: (4560) Hidden Dual NonExtensible OleAutomation dispatchable // GUID: {000209B9-0000-0000-C000-000000000046} // *********************************************************************// _Globaldisp = dispinterface ['{000209B9-0000-0000-C000-000000000046}'] ... function CentimetersToPoints(Centimeters: Single): Single; dispid 371;
我觉得这里完全迷失了.
我以前认为dispinterface是接口的“子类”,如TOERS的TPersistent是?如果是,那么如何在同一个项目中具有相同GUID的两个接口?
或者它们来自不同的不相关框架,如Delphi新类类继承TurboPascal对象类型? _Globaldisp和_Applicationdisp似乎都没有在Word200.pas中使用,所以它们就像附录,自动导入但从未实际使用过吗?
我使用_Application和_Applicationdisp创建了该项目并进行编译.但后来我只想知道如果他们有相同的指南,Delphi如何打字呢?
procedure TForm4.Button1Click(Sender: TObject); procedure show(const s: Single); begin ShowMessage(FloatToStr(s)); end; begin show( WordApplication1.CentimetersToPoints(1.0) ); show( WordApplication1.Application.CentimetersToPoints(2.0) ); show( WordApplication1.DefaultInterface.CentimetersToPoints(3.0) ); show( _Applicationdisp(WordApplication1.Application).CentimetersToPoints(4.0) ); show( (WordApplication1.DefaultInterface as _Applicationdisp).CentimetersToPoints(5.0) ); end;
解决方法
使用Idispatch调用方法时,通常必须调用GetIdsOfNames以获取方法的调度ID.但由于这些是静态的,如果您知道调度ID,则可以通过跳过该步骤来节省时间.这就是dispinterface允许你做的事情.
当您在调度接口上调用方法时,您仍然最终在Idispatch上调用Invoke,但是您跳过对GetIdsOfNames的调用.
当您使用带接口的QueryInterface时,您将获得Idispatch.然后,您可以将其强制转换为相应的调度接口.它仍然是相同的接口,但是当您在dispinterface上调用方法时,您将保存对GetIdsOfNames的调用.
因此,如果您有Word应用程序对象的Idispatch,比如说,您可以编写如下代码:
var WordApp: Variant; Worddisp: _Applicationdisp; .... WordApp := CreateOleObject('Word.Application'); Worddisp := _Applicationdisp(Idispatch(WordApp));
_Applicationdisp()强制转换只不过是对Intfcopy的调用.反过来,这只不过是对_AddRef的调用.然后你可以写:
Writeln(WordApp.ProductCode); Writeln(Worddisp.ProductCode);