Back to index

plt-scheme  4.2.1
testobject.idl
Go to the documentation of this file.
00001 // testobject.idl : IDL source for testobject.dll
00002 //
00003 
00004 // This file will be processed by the MIDL tool to
00005 // produce the type library (testobject.tlb) and marshalling code.
00006 
00007 import "oaidl.idl";
00008 import "ocidl.idl";
00009 #include "olectl.h"
00010        
00011 
00012        [
00013               object,
00014               uuid(07B31FFC-19EE-11D3-B5DB-0060089002FE),
00015               dual,
00016               helpstring("ITestControl Interface"),
00017               pointer_default(unique)
00018        ]
00019        interface ITestControl : IDispatch
00020        {
00021               [propput, id(DISPID_CAPTION)]
00022               HRESULT Caption([in]BSTR strCaption);
00023               [propget, id(DISPID_CAPTION)]
00024               HRESULT Caption([out,retval]BSTR* pstrCaption);
00025               [id(1), helpstring("method AddTest")] HRESULT AddTest(long n1,long *n2,[out,retval]long *n3);
00026               [id(2), helpstring("method StringTest")] HRESULT StringTest(BSTR s1,BSTR s2,[out,retval]BSTR *s3);
00027               [id(3), helpstring("method ShortTest")] HRESULT ShortTest(short int n1,short int n2,[out,retval]short int *n3);
00028               [id(4), helpstring("method FloatTest")] HRESULT FloatTest(double n1,double n2,[out,retval]double *n3);
00029               [id(5), helpstring("method UnsignedTest")] HRESULT UnsignedTest(unsigned n1,unsigned n2,[out,retval]unsigned *n3);
00030                [propget, id(6), helpstring("property Numprop")] HRESULT Numprop(long ndx,[out, retval] long *pVal);
00031               [propput, id(6), helpstring("property Numprop")] HRESULT Numprop(long ndx,[in] long newVal);
00032        };
00033 
00034 [
00035        uuid(07B31FF0-19EE-11D3-B5DB-0060089002FE),
00036        version(1.0),
00037        helpstring("testobject 1.0 Type Library")
00038 ]
00039 library TESTOBJECTLib
00040 {
00041        importlib("stdole32.tlb");
00042        importlib("stdole2.tlb");
00043 
00044        [
00045               uuid(07B31FFD-19EE-11D3-B5DB-0060089002FE),
00046               helpstring("_ITestControlEvents Interface")
00047        ]
00048        dispinterface _ITestControlEvents
00049        {
00050               properties:
00051               methods:
00052               [id(DISPID_CLICK), helpstring("method Click")] HRESULT Click();
00053               [id(DISPID_MOUSEDOWN), helpstring("method MouseDown")] HRESULT MouseDown(short button,short shift,OLE_XPOS_PIXELS x,OLE_YPOS_PIXELS y);
00054               [id(DISPID_MOUSEUP), helpstring("method MouseUp")] HRESULT MouseUp(short button,short shift,OLE_XPOS_PIXELS x,OLE_YPOS_PIXELS y);
00055               [id(1), helpstring("method KeyDown")] HRESULT KeyDown(short *keyCode,short shift);
00056               [id(2), helpstring("method KeyUp")] HRESULT KeyUp(short *keyCode,short shift);
00057               [id(3), helpstring("method MouseMove")] HRESULT MouseMove(short button,short shift,OLE_XPOS_PIXELS x,OLE_YPOS_PIXELS y);
00058        };
00059 
00060        [
00061               uuid(FED8FE26-19CA-11D3-B5DB-0060089002FE),
00062               helpstring("TestControl Class")
00063        ]
00064        coclass TestControl
00065        {
00066               [default] interface ITestControl;
00067               [default, source] dispinterface _ITestControlEvents;
00068        };
00069 };