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;
结果没有得到接口,请问为什么
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;
结果没有得到接口,请问为什么