如何从 COM 控件获取 Delphi 中的非默认接口？

Question

I have imported a OCX control to Delphi, it shows the TLB and OCX classes. It works fine but I only can access to default interface.

How can I access to other interfaces?

Answer 1

You can either use the as operator on a instance reference, eg:

(SomeOcxObject as IPersistStreamInit).InitNew;

or go the long way round and call QueryInterface yourself:

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

(I'm just using IPersistStreamInit here as an example, you didn't specify which interface you'd be using.)