如何從 COM 控件獲取 Delphi 中的非默認接口？

Question

我已經將一個 OCX 控件導入到 Delphi，它顯示了 TLB 和 OCX 類。 它工作正常，但我只能訪問默認界面。

如何訪問其他接口？

Answer 1

您可以在實例引用上使用as運算符，例如：

(SomeOcxObject as IPersistStreamInit).InitNew;

或者走很長的路，自己調用QueryInterface ：

var
  x:IPersistStreamInit;
begin
  if SomeOcxObject.QueryInterface(IPersistStreamInit,x)<>S_OK then
    RaiseLastOSError;
  x.InitNew;

（我只是在這里使用IPersistStreamInit作為示例，您沒有指定要使用的接口。）