使用GetInterface取接口失败,为什么?请帮我看看代码(50分)

  • 主题发起人 主题发起人 yinju
  • 开始时间 开始时间
Y

yinju

Unregistered / Unconfirmed
GUEST, unregistred user!
ACTIVEX组件:
unit LEDSCREENLib_TLB;
const
IID_IRTLEDSCallBack: TGUID = '{7EB13DC5-AFB3-4984-858E-7F4156F56C4D}';
type

IRTLEDSCallBack = interface(IUnknown)
['{7EB13DC5-AFB3-4984-858E-7F4156F56C4D}']
procedure DrawText
safecall;
procedure Linkage(Linkage: WordBool)
safecall;
end;

程序调用:
var
RTLScreen: IRTLEDSCallBack;
begin
if ShowForm.RTLEDScreen1.GetInterface(IID_IRTLEDSCallBack , RTLScreen) then showmessage('');
end;
结果没有得到接口,请问为什么
 
也就是说你的ShowForm类中根本没有实现接口IRTLEDSCallBack
 
问题解决了,改成这样就可以了
ShowForm.RTLEDScreen1.DefaultInterface.QueryInterface
 
后退
顶部