source: Include/OAIdl.ab@ 299

Last change on this file since 299 was 285, checked in by イグトランス (egtra), 17 years ago

wtypes.abを追加

File size: 42.9 KB
Line 
1' OAIdl.sbp
2' 本来はOAIdl.idlから生成するのが正当ですが、
3' これは手動で移植したものです。
4
5#ifndef _INC_OAIDL_AB
6#define _INC_OAIDL_AB
7
8'#ifndef COM_NO_WINDOWS_H
9#include <windows.sbp>
10#include <ole2.ab>
11'#endif /*COM_NO_WINDOWS_H*/
12
13#include <objidl.sbp>
14
15#ifndef __IOleAutomationTypes_INTERFACE_DEFINED__
16#define __IOleAutomationTypes_INTERFACE_DEFINED__
17
18TypeDef SCODE = Long
19
20/* interface IOleAutomationTypes */
21/* [auto_handle][unique][version] */
22
23TypeDef CURRENCY = CY
24
25Type SAFEARRAYBOUND
26 cElements As DWord
27 lLbound As Long
28End Type
29
30Typedef LPSAFEARRAYBOUND = *SAFEARRAYBOUND
31
32Typedef wireVARIANT = VoidPtr '/* [unique] */ *_wireVARIANT
33
34Typedef wireBRECORD = VoidPtr '/* [unique] */ *_wireBRECORD
35
36' Type SAFEARR_BSTR;
37' Type SAFEARR_UNKNOWN;
38' Type SAFEARR_DISPATCH;
39' Type SAFEARR_VARIANT;
40' Type SAFEARR_BRECORD;
41' Type SAFEARR_HAVEIID;
42
43/* [v1_enum] */
44/*
45Const Enum SF_TYPE
46 SF_ERROR = VT_ERROR
47 SF_I1 = VT_I1
48 SF_I2 = VT_I2
49 SF_I4 = VT_I4
50 SF_I8 = VT_I8
51 SF_BSTR = VT_BSTR
52 SF_UNKNOWN = VT_UNKNOWN
53 SF_DISPATCH = VT_DISPATCH
54 SF_VARIANT = VT_VARIANT
55 SF_RECORD = VT_RECORD
56 SF_HAVEIID = VT_UNKNOWN Or VT_RESERVED
57End Enum
58*/
59' Type SAFEARRAYUNION
60
61' Type /* [unique] */ wireSAFEARRAY
62
63TypeDef wirePSAFEARRAY = VoidPtr '/* [unique] */ *wireSAFEARRAY
64
65Type SAFEARRAY
66 cDims As Word
67 fFeatures As Word
68 cbElements As DWord
69 cLocks As DWord
70 pvData As VoidPtr
71 rgsabound[ELM(1)] As SAFEARRAYBOUND
72End Type
73
74TypeDef LPSAFEARRAY = /* [wire_marshal] */ *SAFEARRAY
75
76Const FADF_AUTO = &h1
77Const FADF_STATIC = &h2
78Const FADF_EMBEDDED = &h4
79Const FADF_FIXEDSIZE = &h10
80Const FADF_RECORD = &h20
81Const FADF_HAVEIID = &h40
82Const FADF_HAVEVARTYPE = &h80
83Const FADF_BSTR = &h100
84Const FADF_UNKNOWN = &h200
85Const FADF_DISPATCH = &h400
86Const FADF_VARIANT = &h800
87Const FADF_RESERVED = &hf008
88
89Type /*Class*/ VARIANT
90Public
91 vt As VARTYPE
92 wReserved1 As Word
93 wReserved2 As Word
94 wReserved3 As Word
95 val As QWord
96/*
97 Function llVal() As Int64
98 Return val As Int64
99 End Function
100
101 Sub llVal(v As Int64)
102 val = v As QWord
103 End Sub
104
105 Function lVal() As Long
106 Return val As DWord As Long
107 End Function
108
109 Sub lVal(v As Long)
110 val = v As DWord
111 End Sub
112
113 Function bVal() As Byte
114 Return val As Byte
115 End Function
116
117 Sub bVal(v As Byte)
118 val = v
119 End Sub
120
121 Function iVal() As Integer
122 Return val As Word As Integer
123 End Function
124
125 Sub iVal(v As Integer)
126 val = v As Word
127 End Sub
128
129 Function fltVal() As Single
130 Return GetSingle(VarPtr(val) As *Single)
131 End Function
132
133 Sub fltVal(v As Single)
134 SetSingle(VarPtr(val) As *Single, v)
135 End Sub
136
137 Function dblVal() As Double
138 Return GetDouble(VarPtr(val) As *Double)
139 End Function
140
141 Sub dblVal(v As Double)
142 SetDouble(VarPtr(val) As *Double, v)
143 End Sub
144
145 ' SizeOf (VARIANT_BOOL) = 2
146 Function boolVal() As VARIANT_BOOL
147 Return val As Word As VARIANT_BOOL
148 End Function
149
150 Sub boolVal(v As VARIANT_BOOL)
151 val = v As Word
152 End Sub
153
154 ' SizeOf (SCODE) = 4
155 Function scode() As SCODE
156 Return val As DWord As SCODE
157 End Function
158
159 Sub scode(v As SCODE)
160 val = v As DWord
161 End Sub
162
163 ' SizeOf (CY) = 8
164 Function cyVal() As CY
165 SetQWord(VarPtr(cyVal), val)
166 End Function
167
168 Sub cyVal(v As CY)
169 SetQWord(VarPtr(val), GetQWord(VarPtr(v)))
170 End Sub
171
172 ' SizeOf (DATE) = 8
173 Function date() As DATE
174 SetQWord(VarPtr(date), val)
175 End Function
176
177 Sub date(v As DATE)
178 SetQWord(VarPtr(val), GetQWord(VarPtr(v)))
179 End Sub
180
181 Function bstrVal() As BSTR
182 Return val As ULONG_PTR As BSTR
183 End Function
184
185 Sub bstrVal(v As BSTR)
186 val = v As ULONG_PTR
187 End Sub
188
189 Function punkVal() As *IUnknown
190 Return val As ULONG_PTR As *IUnknown
191 End Function
192
193 Sub punkVal(v As *IUnknown)
194 val = v As ULONG_PTR
195 End Sub
196
197 Function pdispVal() As *IDispatch
198 Return val As ULONG_PTR As *IDispatch
199 End Function
200
201 Sub pdispVal(v As *IDispatch)
202 val = v As ULONG_PTR
203 End Sub
204
205 Function parray() As *SAFEARRAY
206 Return val As ULONG_PTR As *SAFEARRAY
207 End Function
208
209 Sub parray(v As *SAFEARRAY)
210 val = v As ULONG_PTR
211 End Sub
212
213 Function pbVal() As *Byte
214 Return val As ULONG_PTR As *Byte
215 End Function
216
217 Sub pbVal(v As *Byte)
218 val = v As ULONG_PTR
219 End Sub
220
221 Function piVal() As *Integer
222 Return val As ULONG_PTR As *Integer
223 End Function
224
225 Sub piVal(v As *Integer)
226 val = v As ULONG_PTR
227 End Sub
228
229 Function plVal() As *Long
230 Return val As ULONG_PTR As *Long
231 End Function
232
233 Sub plVal(v As *Long)
234 val = v As ULONG_PTR
235 End Sub
236
237 Function pllVal() As *Int64
238 Return val As ULONG_PTR As *Int64
239 End Function
240
241 Sub pllVal(v As *Int64)
242 val = v As ULONG_PTR
243 End Sub
244
245 Function pfltVal() As *Single
246 Return val As ULONG_PTR As *Single
247 End Function
248
249 Sub pfltVal(v As *Single)
250 val = v As ULONG_PTR
251 End Sub
252
253 Function pdblVal() As *Double
254 Return val As ULONG_PTR As *Double
255 End Function
256
257 Sub pdblVal(v As *Double)
258 val = v As ULONG_PTR
259 End Sub
260
261 Function pboolVal() As *VARIANT_BOOL
262 Return val As ULONG_PTR As *VARIANT_BOOL
263 End Function
264
265 Sub pboolVal(v As *VARIANT_BOOL)
266 val = v As ULONG_PTR
267 End Sub
268
269 Function pscode() As *SCODE
270 Return val As ULONG_PTR As *SCODE
271 End Function
272
273 Sub pscode(v As *SCODE)
274 val = v As ULONG_PTR
275 End Sub
276
277 Function pcyVal() As *CY
278 Return val As ULONG_PTR As *CY
279 End Function
280
281 Sub pcyVal(v As *CY)
282 val = v As ULONG_PTR
283 End Sub
284
285 Function pdate() As *DATE
286 Return val As ULONG_PTR As *DATE
287 End Function
288
289 Sub pdate(v As *DATE)
290 val = v As ULONG_PTR
291 End Sub
292
293 Function pbstrVal() As *BSTR
294 Return val As ULONG_PTR As *BSTR
295 End Function
296
297 Sub pbstrVal(v As *BSTR)
298 val = v As ULONG_PTR
299 End Sub
300
301 Function ppunkVal() As **IUnknown
302 Return val As ULONG_PTR As **IUnknown
303 End Function
304
305 Sub ppunkVal(v As **IUnknown)
306 val = v As ULONG_PTR
307 End Sub
308
309 Function ppdispVal() As **IDispatch
310 Return val As ULONG_PTR As **IDispatch
311 End Function
312
313 Sub ppdispVal(v As **IDispatch)
314 val = v As ULONG_PTR
315 End Sub
316
317 Function pparray() As **SAFEARRAY
318 Return val As ULONG_PTR As **SAFEARRAY
319 End Function
320
321 Sub pparray(v As **SAFEARRAY)
322 val = v As ULONG_PTR
323 End Sub
324
325 Function pvarVal() As *VARIANT
326 Return val As ULONG_PTR As *VARIANT
327 End Function
328
329 Sub pvarVal(v As *VARIANT)
330 val = v As ULONG_PTR
331 End Sub
332
333' Function byref() As VoidPtr
334' Return val As ULONG_PTR As VoidPtr
335' End Function
336
337' Sub byref(v As VoidPtr)
338' val = v As ULONG_PTR
339' End Sub
340
341 Function cVal() As Char
342 Return val As Byte As Char
343 End Function
344
345 Sub cVal(v As Char)
346 val = v As Byte
347 End Sub
348
349 Function uiVal() As Word
350 Return val As Word
351 End Function
352
353 Sub uiVal(v As Word)
354 val = v
355 End Sub
356
357 Function ulVal() As DWord
358 Return val As DWord
359 End Function
360
361 Sub ulVal(v As DWord)
362 val = v
363 End Sub
364
365 Function ullVal() As QWord
366 Return val
367 End Function
368
369 Sub ullVal(v As QWord)
370 val = v
371 End Sub
372
373 Function intVal() As Long
374 Return val As DWord As Long
375 End Function
376
377 Sub intVal(v As Long)
378 val = v As DWord
379 End Sub
380
381 Function uintVal() As DWord
382 Return val As DWord
383 End Function
384
385 Sub uintVal(v As DWord)
386 val = v
387 End Sub
388
389 Function pdecVal() As *DECIMAL
390 Return val As ULONG_PTR As *DECIMAL
391 End Function
392
393 Sub pdecVal(v As *DECIMAL)
394 val = v As ULONG_PTR
395 End Sub
396
397 Function pcVal() As *Char
398 Return val As ULONG_PTR As *Char
399 End Function
400
401 Sub pcVal(v As *Char)
402 val = v As ULONG_PTR
403 End Sub
404
405 Function puiVal() As *Word
406 Return val As ULONG_PTR As *Word
407 End Function
408
409 Sub puiVal(v As *Word)
410 val = v As ULONG_PTR
411 End Sub
412
413 Function pulVal() As *DWord
414 Return val As ULONG_PTR As *DWord
415 End Function
416
417 Sub pulVal(v As *DWord)
418 val = v As ULONG_PTR
419 End Sub
420
421 Function pullVal() As *QWord
422 Return val As ULONG_PTR As *QWord
423 End Function
424
425 Sub pullVal(v As *QWord)
426 val = v As ULONG_PTR
427 End Sub
428
429 Function pintVal() As *Long
430 Return val As ULONG_PTR As *Long
431 End Function
432
433 Sub pintVal(v As *Long)
434 val = v As ULONG_PTR
435 End Sub
436
437 Function puintVal() As *DWord
438 Return val As ULONG_PTR As *DWord
439 End Function
440
441 Sub puintVal(v As *DWord)
442 val = v As ULONG_PTR
443 End Sub
444
445 Function pvRecord() As VoidPtr
446 Return val As ULONG_PTR As VoidPtr
447 End Function
448
449 Sub pvRecord(v As VoidPtr)
450 val = v As ULONG_PTR
451 End Sub
452
453 Function pRecInfo() As *IRecordInfo
454 Return (val As ULONG_PTR + SizeOf (VoidPtr)) As *IRecordInfo
455 End Function
456
457 Sub pRecInfo(v As *IRecordInfo)
458 Set_LONG_PTR((VarPtr(val) As ULONG_PTR + SizeOf (VoidPtr)) As VoidPtr, v As LONG_PTR)
459 End Sub
460
461 Function decVal() As DECIMAL
462 Dim p As *DECIMAL
463 p = VarPtr(This) As *DECIMAL
464 Return p[0]
465 End Function
466
467 Sub decVal(v As DECIMAL)
468 Dim p As *DECIMAL
469 p = VarPtr(This) As *DECIMAL
470 p[0] = v
471 End Sub
472*/
473End Type 'Class
474
475TypeDef LPVARIANT = *VARIANT
476TypeDef VARIANTARG = VARIANT
477TypeDef LPVARIANTARG =* VARIANT
478
479' Type _wireBRECORD
480' Type _wireVARIANT
481
482TypeDef DISPID = Long
483
484TypeDef MEMBERID = DISPID
485
486TypeDef HREFTYPE = DWord
487
488/* [v1_enum] */
489Const Enum TYPEKIND
490 TKIND_ENUM ' = 0
491 TKIND_RECORD ' = TKIND_ENUM + 1
492 TKIND_MODULE ' = TKIND_RECORD + 1
493 TKIND_INTERFACE ' = TKIND_MODULE + 1
494 TKIND_DISPATCH ' = TKIND_INTERFACE + 1
495 TKIND_COCLASS ' = TKIND_DISPATCH + 1
496 TKIND_ALIAS ' = TKIND_COCLASS + 1
497 TKIND_UNION ' = TKIND_ALIAS + 1
498 TKIND_MAX ' = TKIND_UNION + 1
499End Enum
500
501Type /*Class*/ TYPEDESC
502' Private
503 p As VoidPtr
504' /* [switch_is][switch_type] */ Union
505' /* [case()] */ lptdesc As *TYPEDESC
506' /* [case()] */ lpadesc As *ARRAYDESC
507' /* [case()] */ hreftype As HREFTYPE
508' /* [default] */ /* Empty union arm */
509' End Union
510'Public
511 vt As VARTYPE
512/*
513 Function lptdesc() As *TYPEDESC
514 Return p
515 End Function
516
517 Sub lptdesc(ptd As *TYPEDESC)
518 p = ptd
519 End Sub
520
521 Function lpadesc() As *ARRAYDESC
522 Return p
523 End Function
524
525 Sub lpadesc(pad As *ARRAYDESC)
526 p = pad
527 End Sub
528
529 Function hreftype() As *HREFTYPE
530 Return p
531 End Function
532
533 Sub hreftype(prd As *HREFTYPE)
534 p = prd
535 End Sub
536*/
537End Type 'Class
538
539Type ARRAYDESC
540 tdescElem As TYPEDESC
541 cDims As Word
542 /* [size_is] */ rgbounds[ELM(1)] As SAFEARRAYBOUND
543End Type
544
545Type PARAMDESCEX
546 cBytes As DWord
547 varDefaultValue As VARIANTARG
548End Type
549
550Typedef LPPARAMDESCEX = *PARAMDESCEX
551
552Type PARAMDESC
553 pparamdescex As LPPARAMDESCEX
554 USHORT wParamFlags As Word
555End Type
556
557TypeDef LPPARAMDESC = *PARAMDESC
558
559Const PARAMFLAG_NONE = 0
560Const PARAMFLAG_FIN = &h1
561Const PARAMFLAG_FOUT = &h2
562Const PARAMFLAG_FLCID = &h4
563Const PARAMFLAG_FRETVAL = &h8
564Const PARAMFLAG_FOPT = &h10
565Const PARAMFLAG_FHASDEFAULT = &h20
566Const PARAMFLAG_FHASCUSTDATA = &h40
567
568Type IDLDESC
569 dwReserved As ULONG_PTR
570 wIDLFlags As Word
571End Type
572
573TypeDef LPIDLDESC = *IDLDESC
574
575Const IDLFLAG_NONE = PARAMFLAG_NONE
576Const IDLFLAG_FIN = PARAMFLAG_FIN
577Const IDLFLAG_FOUT = PARAMFLAG_FOUT
578Const IDLFLAG_FLCID = PARAMFLAG_FLCID
579Const IDLFLAG_FRETVAL = PARAMFLAG_FRETVAL
580
581Type /*Class*/ ELEMDESC
582'Public
583 tdesc As TYPEDESC
584 idldesc As IDLDESC
585/*
586 Function paramdesc() As PARAMDESC
587 Dim p As *PARAMDESC
588 p = VarPtr(idldesc) As *PARAMDESC
589 Return p[0]
590 End Function
591
592 Sub paramdesc(pd As PARAMDESC)
593 Dim p As *PARAMDESC
594 p = VarPtr(idldesc) As *PARAMDESC
595 p[0] = pd
596 End Sub
597*/
598End Type 'Class
599
600Type TYPEATTR
601 guid As GUID
602 lcid As LCID
603 dwReserved As DWord
604 memidConstructor As MEMBERID
605 memidDestructor As MEMBERID
606 lpstrSchema As LPOLESTR
607 cbSizeInstance As DWord
608 typekind As TYPEKIND
609 cFuncs As Word
610 cVars As Word
611 cImplTypes As Word
612 cbSizeVft As Word
613 cbAlignment As Word
614 wTypeFlags As Word
615 wMajorVerNum As Word
616 wMinorVerNum As Word
617 tdescAlias As TYPEDESC
618 idldescType As IDLDESC
619End Type
620
621TypeDef LPTYPEATTR = *TYPEATTR
622
623Type DISPPARAMS
624 /* [size_is] */ rgvarg As *VARIANTARG
625 /* [size_is] */ rgdispidNamedArgs As *DISPID
626 cArgs As DWord
627 cNamedArgs As DWord
628End Type
629
630Type EXCEPINFO
631 wCode As Word
632 wReserved As Word
633 bstrSource As BSTR
634 bstrDescription As BSTR
635 bstrHelpFile As BSTR
636 dwHelpContext As DWord
637 pvReserved As VoidPtr
638 pfnDeferredFillIn As *Function(p As *EXCEPINFO) As HRESULT
639 scode As SCODE
640End Type
641
642TypeDef LPEXCEPINFO = *EXCEPINFO
643
644/* [v1_enum] */
645Const Enum CALLCONV
646 CC_FASTCALL = 0
647 CC_CDECL = 1
648 CC_MSCPASCAL = CC_CDECL + 1
649 CC_PASCAL = CC_MSCPASCAL
650 CC_MACPASCAL = CC_PASCAL + 1
651 CC_STDCALL = CC_MACPASCAL + 1
652 CC_FPFASTCALL = CC_STDCALL + 1
653 CC_SYSCALL = CC_FPFASTCALL + 1
654 CC_MPWCDECL = CC_SYSCALL + 1
655 CC_MPWPASCAL = CC_MPWCDECL + 1
656 CC_MAX = CC_MPWPASCAL + 1
657End Enum
658
659/* [v1_enum] */
660Const Enum FUNCKIND
661 FUNC_VIRTUAL = 0
662 FUNC_PUREVIRTUAL = FUNC_VIRTUAL + 1
663 FUNC_NONVIRTUAL = FUNC_PUREVIRTUAL + 1
664 FUNC_STATIC = FUNC_NONVIRTUAL + 1
665 FUNC_DISPATCH = FUNC_STATIC + 1
666End Enum
667
668/* [v1_enum] */
669Const Enum INVOKEKIND
670 INVOKE_FUNC = 1
671 INVOKE_PROPERTYGET = 2
672 INVOKE_PROPERTYPUT = 4
673 INVOKE_PROPERTYPUTREF = 8
674End Enum
675
676Type FUNCDESC
677 memid As MEMBERID
678 /* [size_is] */ lprgscode As *SCODE
679 /* [size_is] */ lprgelemdescParam As *ELEMDESC
680 funckind As FUNCKIND
681 invkind As INVOKEKIND
682 callconv As CALLCONV
683 cParams As Integer
684 cParamsOpt As Integer
685 oVft As Integer
686 cScodes As Integer
687 elemdescFunc As ELEMDESC
688 wFuncFlags As Word
689End Type
690
691TypeDef LPFUNCDESC = *FUNCDESC
692
693/* [v1_enum] */
694Const Enum VARKIND
695 VAR_PERINSTANCE = 0
696 VAR_STATIC = VAR_PERINSTANCE + 1
697 VAR_CONST = VAR_STATIC + 1
698 VAR_DISPATCH = VAR_CONST + 1
699End Enum
700
701Const IMPLTYPEFLAG_FDEFAULT = &h1
702Const IMPLTYPEFLAG_FSOURCE = &h2
703Const IMPLTYPEFLAG_FRESTRICTED = &h4
704Const IMPLTYPEFLAG_FDEFAULTVTABLE = &h8
705
706Type /*Class*/ VARDESC
707'Public
708 memid As MEMBERID
709 lpstrSchema As LPOLESTR
710' /* [switch_is][switch_type] */ Union
711' /* [case()] */ oInst As DWord
712 /* [case()] */ lpvarValue As *VARIANT
713' End Union
714 elemdescVar As ELEMDESC
715 wVarFlags As Word
716 varkind As VARKIND
717/*
718 Function oInst() As DWord
719 Return lpvarValue As ULONG_PTR As DWord
720 End Function
721
722 Sub oInst(o As DWord)
723 lpvarValue = o As ULONG_PTR As *VARIANT
724 End Sub
725*/
726End Type 'Class
727
728TypeDef LPVARDESC = VARDESC
729
730Const Enum TYPEFLAGS
731 TYPEFLAG_FAPPOBJECT = &h1
732 TYPEFLAG_FCANCREATE = &h2
733 TYPEFLAG_FLICENSED = &h4
734 TYPEFLAG_FPREDECLID = &h8
735 TYPEFLAG_FHIDDEN = &h10
736 TYPEFLAG_FCONTROL = &h20
737 TYPEFLAG_FDUAL = &h40
738 TYPEFLAG_FNONEXTENSIBLE = &h80
739 TYPEFLAG_FOLEAUTOMATION = &h100
740 TYPEFLAG_FRESTRICTED = &h200
741 TYPEFLAG_FAGGREGATABLE = &h400
742 TYPEFLAG_FREPLACEABLE = &h800
743 TYPEFLAG_FDISPATCHABLE = &h1000
744 TYPEFLAG_FREVERSEBIND = &h2000
745 TYPEFLAG_FPROXY = &h4000
746End Enum
747
748Enum FUNCFLAGS
749 FUNCFLAG_FRESTRICTED = &h1
750 FUNCFLAG_FSOURCE = &h2
751 FUNCFLAG_FBINDABLE = &h4
752 FUNCFLAG_FREQUESTEDIT = &h8
753 FUNCFLAG_FDISPLAYBIND = &h10
754 FUNCFLAG_FDEFAULTBIND = &h20
755 FUNCFLAG_FHIDDEN = &h40
756 FUNCFLAG_FUSESGETLASTERROR = &h80
757 FUNCFLAG_FDEFAULTCOLLELEM = &h100
758 FUNCFLAG_FUIDEFAULT = &h200
759 FUNCFLAG_FNONBROWSABLE = &h400
760 FUNCFLAG_FREPLACEABLE = &h800
761 FUNCFLAG_FIMMEDIATEBIND = &h1000
762End Enum
763
764Const Enum VARFLAGS
765 VARFLAG_FREADONLY = &h1
766 VARFLAG_FSOURCE = &h2
767 VARFLAG_FBINDABLE = &h4
768 VARFLAG_FREQUESTEDIT = &h8
769 VARFLAG_FDISPLAYBIND = &h10
770 VARFLAG_FDEFAULTBIND = &h20
771 VARFLAG_FHIDDEN = &h40
772 VARFLAG_FRESTRICTED = &h80
773 VARFLAG_FDEFAULTCOLLELEM = &h100
774 VARFLAG_FUIDEFAULT = &h200
775 VARFLAG_FNONBROWSABLE = &h400
776 VARFLAG_FREPLACEABLE = &h800
777 VARFLAG_FIMMEDIATEBIND = &h1000
778End Enum
779
780Type /* [wire_marshal] */ CLEANLOCALSTORAGE
781 pInterface As *IUnknown
782 pStorage As VoidPtr
783 flags As DWord
784End Type
785
786Type CUSTDATAITEM
787 guid As GUID
788 varValue As VARIANTARG
789End Type
790
791TypeDef LPCUSTDATAITEM = *CUSTDATAITEM
792
793Type CUSTDATA
794 cCustData As DWord
795 /* [size_is] */ prgCustData As *CUSTDATAITEM
796End Type
797
798TypeDef LPCUSTDATA = *CUSTDATA
799
800#endif /* __IOleAutomationTypes_INTERFACE_DEFINED__ */
801
802#ifndef __ICreateTypeInfo_INTERFACE_DEFINED__
803#define __ICreateTypeInfo_INTERFACE_DEFINED__
804
805/* interface ICreateTypeInfo */
806/* [local][unique][uuid][object] */
807
808TypeDef LPCREATETYPEINFO = * /* [unique] */ ICreateTypeInfo
809
810Dim IID_ICreateTypeInfo = [&h00020405, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID
811
812Interface ICreateTypeInfo
813 Inherits IUnknown
814
815 Function SetGuid(
816 /* [in] */ ByRef guid As GUID) As HRESULT
817 Function SetTypeFlags(
818 /* [in] */ uTypeFlags As DWord) As HRESULT
819 Function SetDocString(
820 /* [in] */ pStrDoc As LPOLESTR) As HRESULT
821 Function SetHelpContext(
822 /* [in] */ dwHelpContext As DWord) As HRESULT
823 Function SetVersion(
824 /* [in] */ wMajorVerNum As Word,
825 /* [in] */ wMinorVerNum As Word) As HRESULT
826 Function AddRefTypeInfo(
827 /* [in] */ pTInfo As *ITypeInfo,
828 /* [in] */ByRef hRefType As HREFTYPE) As HRESULT
829 Function AddFuncDesc(
830 /* [in] */ index As DWord,
831 /* [in] */ ByRef FuncDesc As FUNCDESC) As HRESULT
832 Function AddImplType(
833 /* [in] */ index As DWord,
834 /* [in] */ hRefType As HREFTYPE) As HRESULT
835 Function SetImplTypeFlags(
836 /* [in] */ index As DWord,
837 /* [in] */ implTypeFlags As Long) As HRESULT
838 Function SetAlignment(
839 /* [in] */ cbAlignment As Long) As HRESULT
840 Function SetSchema(
841 /* [in] */ pStrSchema As LPOLESTR) As HRESULT
842 Function AddVarDesc(
843 /* [in] */ index As DWord,
844 /* [in] */ ByRef VarDesc As VARDESC) As HRESULT
845 Function SetFuncAndParamNames(
846 /* [in] */ index As DWord,
847 /* [in][size_is][in] */ rgszNames As *LPOLESTR,
848 /* [in] */ cNames As DWord) As HRESULT
849 Function SetVarName(
850 /* [in] */ index As DWord,
851 /* [in] */ szName As LPOLESTR) As HRESULT
852 Function SetTypeDescAlias(
853 /* [in] */ ByRef TDescAlias As TYPEDESC) As HRESULT
854 Function DefineFuncAsDllEntry(
855 /* [in] */ index As DWord,
856 /* [in] */ szDllName As LPOLESTR,
857 /* [in] */ zProcName As LPOLESTR) As HRESULT
858 Function SetFuncDocString(
859 /* [in] */ index As DWord,
860 /* [in] */ szDocString As LPOLESTR) As HRESULT
861 Function SetVarDocString(
862 /* [in] */ index As DWord,
863 /* [in] */ szDocString As LPOLESTR) As HRESULT
864 Function SetFuncHelpContext(
865 /* [in] */ index As DWord,
866 /* [in] */ dwHelpContext As DWord) As HRESULT
867 Function SetVarHelpContext(
868 /* [in] */ index As DWord,
869 /* [in] */ dwHelpContext As DWord) As HRESULT
870 Function SetMops(
871 /* [in] */ index As DWord,
872 /* [in] */ bstrMops As BSTR) As HRESULT
873 Function SetTypeIdldesc(
874 /* [in] */ ByRef IdlDesc As IDLDESC) As HRESULT
875 Function LayOut() As HRESULT
876End Interface
877
878#endif /* __ICreateTypeInfo_INTERFACE_DEFINED__ */
879
880#ifndef __ICreateTypeInfo2_INTERFACE_DEFINED__
881#define __ICreateTypeInfo2_INTERFACE_DEFINED__
882
883/* interface ICreateTypeInfo2 */
884/* [local][unique][uuid][object] */
885
886TypeDef LPCREATETYPEINFO2 = /* [unique] */ *ICreateTypeInfo2
887
888Dim IID_ICreateTypeInfo2 = [&h0002040E, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID
889
890Interface ICreateTypeInfo2
891 Inherits ICreateTypeInfo
892
893 Function DeleteFuncDesc(
894 /* [in] */ index As DWord) As HRESULT
895
896 Function DeleteFuncDescByMemId(
897 /* [in] */ memid As *MEMBERID,
898 /* [in] */ invKind As *INVOKEKIND) As HRESULT
899
900 Function DeleteVarDesc(
901 /* [in] */ index As DWord) As HRESULT
902
903 Function DeleteVarDescByMemId(
904 /* [in] */ memid As *MEMBERID) As HRESULT
905
906 Function DeleteImplType(
907 /* [in] */ index As DWord) As HRESULT
908
909 Function SetCustData(
910 /* [in] */ ByRef guid As GUID,
911 /* [in] */ ByRef VarVal As VARIANT) As HRESULT
912
913 Function SetFuncCustData(
914 /* [in] */ index As DWord,
915 /* [in] */ ByRef guid As GUID,
916 /* [in] */ ByRef VarVal As VARIANT) As HRESULT
917
918 Function SetParamCustData(
919 /* [in] */ indexFunc As DWord,
920 /* [in] */ indexParam As DWord,
921 /* [in] */ ByRef guid As GUID,
922 /* [in] */ ByRef VarVal As VARIANT) As HRESULT
923
924 Function SetVarCustData(
925 /* [in] */ index As DWord,
926 /* [in] */ ByRef guid As GUID,
927 /* [in] */ ByRef VarVal As VARIANT) As HRESULT
928
929 Function SetImplTypeCustData(
930 /* [in] */ index As DWord,
931 /* [in] */ ByRef guid As GUID,
932 /* [in] */ ByRef VarVal As VARIANT) As HRESULT
933
934 Function SetHelpStringContext(
935 /* [in] */ dwHelpStringContext As DWord) As HRESULT
936
937 Function SetFuncHelpStringContext(
938 /* [in] */ index As DWord,
939 /* [in] */ dwHelpStringContext As DWord) As HRESULT
940
941 Function SetVarHelpStringContext(
942 /* [in] */ index As DWord,
943 /* [in] */ dwHelpStringContext As DWord) As HRESULT
944
945 Function Invalidate() As HRESULT
946
947 Function SetName(
948 /* [in] */ szName As LPOLESTR) As HRESULT
949End Interface
950
951#endif /* __ICreateTypeInfo2_INTERFACE_DEFINED__ */
952
953
954#ifndef __ICreateTypeLib_INTERFACE_DEFINED__
955#define __ICreateTypeLib_INTERFACE_DEFINED__
956
957/* interface ICreateTypeLib */
958/* [local][unique][uuid][object] */
959
960TypeDef LPCREATETYPELIB = /* [unique] */ *ICreateTypeLib
961
962
963Dim IID_ICreateTypeLib = [&h00020406, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID
964Interface ICreateTypeLib
965 Inherits IUnknown
966
967 Function CreateTypeInfo(
968 /* [in] */ szName As LPOLESTR,
969 /* [in] */ tkind As *TYPEKIND,
970 /* [out] */ ByRef pCTInfo As *ICreateTypeInfo) As HRESULT
971
972 Function SetName(
973 /* [in] */ szName As LPOLESTR) As HRESULT
974
975 Function SetVersion(
976 /* [in] */ wMajorVerNum As Word,
977 /* [in] */ wMinorVerNum As Word) As HRESULT
978
979 Function SetGuid(
980 /* [in] */ ByRef guid As GUID) As HRESULT
981
982 Function SetDocString(
983 /* [in] */ szDoc As LPOLESTR) As HRESULT
984
985 Function SetHelpFileName(
986 /* [in] */ szHelpFileName As LPOLESTR) As HRESULT
987
988 Function SetHelpContext(
989 /* [in] */ dwHelpContext As DWord) As HRESULT
990
991 Function SetLcid(
992 /* [in] */ lcid As LCID) As HRESULT
993
994 Function SetLibFlags(
995 /* [in] */ uLibFlags As DWord) As HRESULT
996
997 Function SaveAllChanges() As HRESULT
998End Interface
999
1000
1001#endif /* __ICreateTypeLib_INTERFACE_DEFINED__ */
1002
1003#ifndef __ICreateTypeLib2_INTERFACE_DEFINED__
1004#define __ICreateTypeLib2_INTERFACE_DEFINED__
1005
1006/* interface ICreateTypeLib2 */
1007/* [local][unique][uuid][object] */
1008
1009TypeDef LPCREATETYPELIB2 = /* [unique] */ *ICreateTypeLib2
1010
1011
1012Dim IID_ICreateTypeLib2 = [&h0002040F, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID
1013
1014Interface ICreateTypeLib2
1015 Inherits ICreateTypeLib
1016
1017 Function DeleteTypeInfo(
1018 /* [in] */ szName As LPOLESTR) As HRESULT
1019
1020 Function SetCustData(
1021 /* [in] */ ByRef guid As GUID,
1022 /* [in] */ ByRef VarVal As VARIANT) As HRESULT
1023
1024 Function SetHelpStringContext(
1025 /* [in] */ dwHelpStringContext As DWord) As HRESULT
1026
1027 Function SetHelpStringDll(
1028 /* [in] */ szFileName As LPOLESTR) As HRESULT
1029
1030End Interface
1031
1032
1033#endif /* __ICreateTypeLib2_INTERFACE_DEFINED__ */
1034
1035#ifndef __IDispatch_INTERFACE_DEFINED__
1036#define __IDispatch_INTERFACE_DEFINED__
1037
1038/* interface IDispatch */
1039/* [unique][uuid][object] */
1040
1041Typedef LPDISPATCH = /* [unique] */ *IDispatch
1042
1043Const DISPID_UNKNOWN = -1
1044Const DISPID_VALUE = 0
1045Const DISPID_PROPERTYPUT = -3
1046Const DISPID_NEWENUM = -4
1047Const DISPID_EVALUATE = -5
1048Const DISPID_CONSTRUCTOR = -6
1049Const DISPID_DESTRUCTOR = -7
1050Const DISPID_COLLECT = -8
1051
1052/* The range -500 through -999 is reserved for Controls */
1053/* The range 0x80010000 through 0x8001FFFF is reserved for Controls */
1054/* The range -5000 through -5499 is reserved for ActiveX Accessability */
1055/* The range -2000 through -2499 is reserved for VB5 */
1056/* The range -3900 through -3999 is reserved for Forms */
1057/* The range -5500 through -5550 is reserved for Forms */
1058/* The remainder of the negative DISPIDs are reserved for future use */
1059
1060Dim IID_IDispatch = [&h00020400, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID
1061
1062Interface IDispatch
1063 Inherits IUnknown
1064
1065 Function GetTypeInfoCount(
1066 /* [out] */ ByRef pctinfo As DWord) As HRESULT
1067 Function GetTypeInfo(
1068 /* [in] */ iTInfo As DWord,
1069 /* [in] */ lcid As LCID,
1070 /* [out] */ ByRef pTInfo As *ITypeInfo) As HRESULT
1071 Function GetIDsOfNames(
1072 /* [in] */ ByRef riid As IID,
1073 /* [size_is][in] */ rgszNames As *LPOLESTR,
1074 /* [in] */ cNames As DWord,
1075 /* [in] */ lcid As LCID,
1076 /* [size_is][out] */ rgDispId As *DISPID) As HRESULT
1077 Function /* [local] */ Invoke(
1078 /* [in] */ dispIdMember As DISPID,
1079 /* [in] */ ByRef riid As IID,
1080 /* [in] */ lcid As LCID,
1081 /* [in] */ wFlags As Word,
1082 /* [out][in] */ ByRef pDispParams As DISPPARAMS,
1083 /* [out] */ ByRef pVarResult As VARIANT,
1084 /* [out] */ ByRef pExcepInfo As EXCEPINFO,
1085 /* [out] */ ByRef puArgErr As DWord) As HRESULT
1086End Interface
1087
1088#endif /* __IDispatch_INTERFACE_DEFINED__ */
1089
1090#ifndef __IEnumVARIANT_INTERFACE_DEFINED__
1091#define __IEnumVARIANT_INTERFACE_DEFINED__
1092
1093/* interface IEnumVARIANT */
1094/* [unique][uuid][object] */
1095
1096Typedef LPENUMVARIANT = /* [unique] */ *IEnumVARIANT
1097
1098Dim IID_IEnumVARIANT = [&h00020404, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID
1099
1100Interface IEnumVARIANT
1101 Inherits IUnknown
1102
1103 /* [local] */ Function Next(
1104 /* [in] */ celt As DWord,
1105 /* [length_is][size_is][out] */ rgVar As *VARIANT,
1106 /* [out] */ pCeltFetched As *DWord) As HRESULT
1107 Function Skip(
1108 /* [in] */ celt As DWord) As HRESULT
1109 Function Reset() As HRESULT
1110 Function Clone(
1111 /* [out] */ ByRef pEnum As *IEnumVARIANT) As HRESULT
1112
1113End Interface
1114
1115#endif /* __IEnumVARIANT_INTERFACE_DEFINED__ */
1116
1117#ifndef __ITypeComp_INTERFACE_DEFINED__
1118#define __ITypeComp_INTERFACE_DEFINED__
1119
1120/* interface ITypeComp */
1121/* [unique][uuid][object] */
1122
1123TypeDef LPTYPECOMP = /* [unique] */ *ITypeComp
1124
1125/* [v1_enum] */
1126Const Enum DESCKIND
1127 DESCKIND_NONE
1128 DESCKIND_FUNCDESC = DESCKIND_NONE
1129 DESCKIND_VARDESC = DESCKIND_FUNCDESC
1130 DESCKIND_TYPECOMP = DESCKIND_VARDESC
1131 DESCKIND_IMPLICITAPPOBJ = DESCKIND_TYPECOMP
1132 DESCKIND_MAX = DESCKIND_IMPLICITAPPOBJ
1133End Enum
1134/*
1135Union BINDPTR
1136 lpfuncdesc As *FUNCDESC
1137 lpvardesc As *VARDESC
1138 lptcomp As *ITypeComp
1139End Union
1140*/
1141Type BINDPTR
1142 p As VoidPtr '暫定
1143End Type
1144
1145TypeDef LPBINDPTR = *BINDPTR
1146
1147Dim IID_ITypeComp = [&h00020403, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID
1148
1149Interface ITypeComp
1150 Inherits IUnknown
1151
1152 Function /* [local] */ Bind(
1153 /* [in] */ szName As LPOLESTR,
1154 /* [in] */ HashVal As DWord,
1155 /* [in] */ wFlags As Word,
1156 /* [out] */ ByRef pTInfo As *ITypeInfo,
1157 /* [out] */ ByRef DescKind As DESCKIND,
1158 /* [out] */ ByRef BindPtr As BINDPTR) As HRESULT
1159
1160 Function /* [local] */ BindType(
1161 /* [in] */ szName As LPOLESTR,
1162 /* [in] */ HashVal As DWord,
1163 /* [out] */ ByRef pTInfo As *ITypeInfo,
1164 /* [out] */ ByRef pTComp As *ITypeComp) As HRESULT
1165End Interface
1166
1167#endif /* __ITypeComp_INTERFACE_DEFINED__ */
1168
1169#ifndef __ITypeInfo_INTERFACE_DEFINED__
1170#define __ITypeInfo_INTERFACE_DEFINED__
1171
1172/* interface ITypeInfo */
1173/* [unique][uuid][object] */
1174
1175TypeDef LPTYPEINFO = /* [unique] */ *ITypeInfo
1176
1177Dim IID_ITypeInfo = [&h00020401, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID
1178
1179Interface ITypeInfo
1180 Inherits IUnknown
1181
1182 Function /* [local] */ GetTypeAttr(
1183 /* [out] */ ByRef pTypeAttr As *TYPEATTR) As HRESULT
1184
1185 Function GetTypeComp(
1186 /* [out] */ ByRef pTComp As *ITypeComp) As HRESULT
1187
1188 Function /* [local] */ GetFuncDesc(
1189 /* [in] */ index As DWord,
1190 /* [out] */ ByRef pFuncDesc As *FUNCDESC) As HRESULT
1191
1192 Function /* [local] */ GetVarDesc(
1193 /* [in] */ index As DWord,
1194 /* [out] */ ByRef pVarDesc As *VARDESC) As HRESULT
1195
1196 Function /* [local] */ GetNames(
1197 /* [in] */ memid As MEMBERID,
1198 /* [length_is][size_is][out] */ rgBstrNames As *BSTR,
1199 /* [in] */ cMaxNames As DWord,
1200 /* [out] */ ByRef cNames As DWord) As HRESULT
1201
1202 Function GetRefTypeOfImplType(
1203 /* [in] */ index As DWord,
1204 /* [out] */ ByRef RefType As HREFTYPE) As HRESULT
1205
1206 Function GetImplTypeFlags(
1207 /* [in] */ index As DWord,
1208 /* [out] */ ByRef ImplTypeFlags As Long) As HRESULT
1209
1210 Function /* [local] */ GetIDsOfNames(
1211 /* [size_is][in] */ rgszNames As *LPOLESTR,
1212 /* [in] */ cNames As DWord,
1213 /* [size_is][out] */ pMemId As *MEMBERID) As HRESULT
1214
1215 Function /* [local] */ Invoke(
1216 /* [in] */ pvInstance As VoidPtr,
1217 /* [in] */ memid As MEMBERID,
1218 /* [in] */ wFlags As Word,
1219 /* [out][in] */ ByRef DispParams As DISPPARAMS,
1220 /* [out] */ ByRef VarResult As VARIANT,
1221 /* [out] */ ByRef ExcepInfo As EXCEPINFO,
1222 /* [out] */ ByRef uArgErr As DWord) As HRESULT
1223
1224 Function /* [local] */ GetDocumentation(
1225 /* [in] */ memid As MEMBERID,
1226 /* [out] */ ByRef BstrName As BSTR,
1227 /* [out] */ ByRef BstrDocString As BSTR,
1228 /* [out] */ ByRef dwHelpContext As DWord,
1229 /* [out] */ ByRef BstrHelpFile As BSTR) As HRESULT
1230
1231 Function /* [local] */ GetDllEntry(
1232 /* [in] */ memid As MEMBERID,
1233 /* [in] */ invKind As INVOKEKIND,
1234 /* [out] */ ByRef BstrDllName As BSTR,
1235 /* [out] */ ByRef BstrName As BSTR,
1236 /* [out] */ ByRef wOrdinal As Word) As HRESULT
1237
1238 Function GetRefTypeInfo(
1239 /* [in] */ hRefType As HREFTYPE,
1240 /* [out] */ ByRef pTInfo As *ITypeInfo) As HRESULT
1241
1242 Function /* [local] */ AddressOfMember(
1243 /* [in] */ memid As MEMBERID,
1244 /* [in] */ invKind As INVOKEKIND,
1245 /* [out] */ ByRef pv As VoidPtr) As HRESULT
1246
1247 Function /* [local] */ CreateInstance(
1248 /* [in] */ pUnkOuter As *IUnknown,
1249 /* [in] */ ByRef riid As IID,
1250 /* [iid_is][out] */ ByRef pvObj As Any) As HRESULT
1251
1252 Function GetMops(
1253 /* [in] */ memid As MEMBERID,
1254 /* [out] */ ByRef BstrMops As BSTR) As HRESULT
1255
1256 Function /* [local] */ GetContainingTypeLib(
1257 /* [out] */ ByRef pTLib As *ITypeLib,
1258 /* [out] */ ByRef Index As DWord) As HRESULT
1259
1260 Sub /* [local] */ ReleaseTypeAttr(
1261 /* [in] */ pTypeAttr As *TYPEATTR)
1262
1263 Sub /* [local] */ ReleaseFuncDesc(
1264 /* [in] */ pFuncDesc As *FUNCDESC)
1265
1266 Sub /* [local] */ ReleaseVarDesc(
1267 /* [in] */ pVarDesc As *VARDESC)
1268End Interface
1269
1270#endif /* __ITypeInfo_INTERFACE_DEFINED__ */
1271
1272#ifndef __ITypeInfo2_INTERFACE_DEFINED__
1273#define __ITypeInfo2_INTERFACE_DEFINED__
1274
1275/* interface ITypeInfo2 */
1276/* [unique][uuid][object] */
1277
1278TypeDef LPTYPEINFO2 = /* [unique] */ *ITypeInfo2
1279
1280Dim IID_ITypeInfo2 = [&h00020412, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID
1281
1282Interface ITypeInfo2
1283 Inherits ITypeInfo
1284
1285 Function GetTypeKind(
1286 /* [out] */ ByRef TypeKind As TYPEKIND) As HRESULT
1287 Function GetTypeFlags(
1288 /* [out] */ ByRef TypeFlags As DWord) As HRESULT
1289 Function GetFuncIndexOfMemId(
1290 /* [in] */ memid As MEMBERID,
1291 /* [in] */ invKind As INVOKEKIND,
1292 /* [out] */ ByRef FuncIndex As DWord) As HRESULT
1293 Function GetVarIndexOfMemId(
1294 /* [in] */ memid As MEMBERID,
1295 /* [out] */ ByRef pVarIndex As DWord) As HRESULT
1296 Function GetCustData(
1297 /* [in] */ ByRef guid As GUID,
1298 /* [out] */ ByRef VarVal As VARIANT) As HRESULT
1299 Function GetFuncCustData(
1300 /* [in] */ index As DWord,
1301 /* [in] */ ByRef guid As GUID,
1302 /* [out] */ ByRef VarVal As VARIANT) As HRESULT
1303 Function GetParamCustData(
1304 /* [in] */ indexFunc As DWord,
1305 /* [in] */ indexParam As DWord,
1306 /* [in] */ ByRef guid As GUID,
1307 /* [out] */ ByRef VarVal As VARIANT) As HRESULT
1308 Function GetVarCustData(
1309 /* [in] */ index As DWord,
1310 /* [in] */ ByRef guid As GUID,
1311 /* [out] */ ByRef VarVal As VARIANT) As HRESULT
1312 Function GetImplTypeCustData(
1313 /* [in] */ index As DWord,
1314 /* [in] */ ByRef guid As GUID,
1315 /* [out] */ ByRef VarVal As VARIANT) As HRESULT
1316 Function /* [local] */ GetDocumentation2(
1317 /* [in] */ memid As MEMBERID,
1318 /* [in] */ lcid As LCID,
1319 /* [out] */ ByRef bstrHelpString As BSTR,
1320 /* [out] */ ByRef dwHelpStringContext As DWord,
1321 /* [out] */ ByRef bstrHelpStringDll As BSTR) As HRESULT
1322 Function GetAllCustData(
1323 /* [out] */ ByRef CustData As CUSTDATA) As HRESULT
1324 Function GetAllFuncCustData(
1325 /* [in] */ index As DWord,
1326 /* [out] */ ByRef CustData As CUSTDATA) As HRESULT
1327 Function GetAllParamCustData(
1328 /* [in] */ indexFunc As DWord,
1329 /* [in] */ indexParam As DWord,
1330 /* [out] */ ByRef CustData As CUSTDATA) As HRESULT
1331 Function GetAllVarCustData(
1332 /* [in] */ index As DWord,
1333 /* [out] */ ByRef CustData As CUSTDATA) As HRESULT
1334 Function GetAllImplTypeCustData(
1335 /* [in] */ index As DWord,
1336 /* [out] */ ByRef CustData As CUSTDATA) As HRESULT
1337End Interface
1338
1339#endif /* __ITypeInfo2_INTERFACE_DEFINED__ */
1340
1341#ifndef __ITypeLib_INTERFACE_DEFINED__
1342#define __ITypeLib_INTERFACE_DEFINED__
1343
1344/* interface ITypeLib */
1345/* [unique][uuid][object] */
1346
1347/* [v1_enum] */
1348Const Enum SYSKIND
1349 SYS_WIN16 = 0
1350 SYS_WIN32 = 1
1351 SYS_MAC = 2
1352 SYS_WIN64 = 3
1353End Enum
1354
1355/* [v1_enum] */
1356Const Enum LIBFLAGS
1357 LIBFLAG_FRESTRICTED = &h1
1358 LIBFLAG_FCONTROL = &h2
1359 LIBFLAG_FHIDDEN = &h4
1360 LIBFLAG_FHASDISKIMAGE = &h8
1361End Enum
1362
1363TypeDef LPTYPELIB = /* [unique] */ *ITypeLib
1364
1365Type TLIBATTR
1366 guid As GUID
1367 lcid As LCID
1368 syskind As SYSKIND
1369 wMajorVerNum As Word
1370 wMinorVerNum As Word
1371 wLibFlags As Word
1372End Type
1373
1374TypeDef LPTLIBATTR = TLIBATTR
1375
1376Dim ITypeLib = [&h00020402, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID
1377
1378Interface ITypeLib
1379 Inherits IUnknown
1380
1381 Function /* [local] */ GetTypeInfoCount() As DWord
1382 Function GetTypeInfo(
1383 /* [in] */ index As DWord,
1384 /* [out] */ ByRef pTInfo As *ITypeInfo) As HRESULT
1385 Function GetTypeInfoType(
1386 /* [in] */ index As DWord,
1387 /* [out] */ ByRef TKind As TYPEKIND) As HRESULT
1388 Function GetTypeInfoOfGuid(
1389 /* [in] */ ByRef guid As GUID,
1390 /* [out] */ ByRef pTInfo As *ITypeInfo) As HRESULT
1391 Function /* [local] */ GetLibAttr(
1392 /* [out] */ ByRef pTLibAttr As *TLIBATTR) As HRESULT
1393 Function GetTypeComp(
1394 /* [out] */ ByRef ppTComp As *ITypeComp) As HRESULT
1395 Function /* [local] */ GetDocumentation(
1396 /* [in] */ index As Long,
1397 /* [out] */ ByRef BstrName As BSTR,
1398 /* [out] */ ByRef BstrDocString As BSTR,
1399 /* [out] */ ByRef dwHelpContext As DWord,
1400 /* [out] */ ByRef BstrHelpFile As BSTR) As HRESULT
1401 Function /* [local] */ IsName(
1402 /* [out][in] */ szNameBuf As LPOLESTR,
1403 /* [in] */ lHashVal As DWord,
1404 /* [out] */ ByRef pfName As BOOL) As HRESULT
1405 Function /* [local] */ FindName(
1406 /* [out][in] */ szNameBuf As LPOLESTR,
1407 /* [in] */ lHashVal As DWord,
1408 /* [length_is][size_is][out] */ ppTInfo As **ITypeInfo,
1409 /* [length_is][size_is][out] */ rgMemId As *MEMBERID,
1410 /* [out][in] */ ByRef cFound As Word) As HRESULT
1411 Sub /* [local] */ ReleaseTLibAttr(
1412 /* [in] */ ByRef TLibAttr As TLIBATTR)
1413End Interface
1414
1415#endif /* __ITypeLib_INTERFACE_DEFINED__ */
1416
1417
1418#ifndef __ITypeLib2_INTERFACE_DEFINED__
1419#define __ITypeLib2_INTERFACE_DEFINED__
1420
1421/* interface ITypeLib2 */
1422/* [unique][uuid][object] */
1423
1424TypeDef LPTYPELIB2 = /* [unique] */ *ITypeLib2
1425
1426Dim IID_ITypeLib2 = [&h00020411, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID
1427
1428Interface ITypeLib2
1429 Inherits ITypeLib
1430
1431 Function GetCustData(
1432 /* [in] */ ByRef guid As GUID,
1433 /* [out] */ ByRef VarVal As VARIANT) As HRESULT
1434 /* [local] */ Function GetLibStatistics(
1435 /* [out] */ ByRef cUniqueNames As DWord,
1436 /* [out] */ ByRef chUniqueNames As DWord) As HRESULT
1437 /* [local] */ Function GetDocumentation2(
1438 /* [in] */ index As Long,
1439 /* [in] */ lcid As LCID,
1440 /* [out] */ ByRef bstrHelpString As BSTR,
1441 /* [out] */ ByRef dwHelpStringContext As DWord,
1442 /* [out] */ ByRef bstrHelpStringDll As BSTR) As HRESULT
1443 Function GetAllCustData(
1444 /* [out] */ ByRef CustData As CUSTDATA) As HRESULT
1445End Interface
1446
1447#endif /* __ITypeLib2_INTERFACE_DEFINED__ */
1448
1449
1450#ifndef __ITypeChangeEvents_INTERFACE_DEFINED__
1451#define __ITypeChangeEvents_INTERFACE_DEFINED__
1452
1453/* interface ITypeChangeEvents */
1454/* [local][unique][uuid][object] */
1455
1456TypeDef LPTYPECHANGEEVENTS = /* [unique] */ *ITypeChangeEvents
1457
1458Enum CHANGEKIND
1459 CHANGEKIND_ADDMEMBER = 0
1460 CHANGEKIND_DELETEMEMBER = 1
1461 CHANGEKIND_SETNAMES = 2
1462 CHANGEKIND_SETDOCUMENTATION = 3
1463 CHANGEKIND_GENERAL = 4
1464 CHANGEKIND_INVALIDATE = 5
1465 CHANGEKIND_CHANGEFAILED = 6
1466 CHANGEKIND_MAX = 7
1467End Enum
1468
1469Dim IID_ITypeChangeEvents = [&h00020410, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID
1470
1471Interface ITypeChangeEvents
1472 Inherits IUnknown
1473
1474 Function RequestTypeChange(
1475 /* [in] */ changeKind As CHANGEKIND,
1476 /* [in] */ pTInfoBefore As ITypeInfo,
1477 /* [in] */ pStrName As LPOLESTR,
1478 /* [out] */ ByRef fCancel As Long) As HRESULT
1479 Function AfterTypeChange(
1480 /* [in] */ changeKind As CHANGEKIND,
1481 /* [in] */ pTInfoAfter As *ITypeInfo,
1482 /* [in] */ pStrName As LPOLESTR) As HRESULT
1483End Interface
1484
1485#endif /* __ITypeChangeEvents_INTERFACE_DEFINED__ */
1486
1487
1488#ifndef __IErrorInfo_INTERFACE_DEFINED__
1489#define __IErrorInfo_INTERFACE_DEFINED__
1490
1491/* interface IErrorInfo */
1492/* [unique][uuid][object] */
1493
1494TypeDef LPERRORINFO = /* [unique] */ *IErrorInfo
1495
1496Dim IID_IErrorInfo = [&h1CF2B120, &h547D, &h101B, [&h8E, &h65, &h08, &h00, &h2B, &h2B, &hD1, &h19]] As IID
1497
1498Interface IErrorInfo
1499 Inherits IUnknown
1500
1501 Function GetGUID(
1502 /* [out] */ ByRef guid As GUID) As HRESULT
1503 Function GetSource(
1504 /* [out] */ ByRef BstrSource As BSTR) As HRESULT
1505 Function GetDescription(
1506 /* [out] */ ByRef BstrDescription As BSTR) As HRESULT
1507 Function GetHelpFile(
1508 /* [out] */ ByRef BstrHelpFile As BSTR) As HRESULT
1509 Function GetHelpContext(
1510 /* [out] */ ByRef dwHelpContext As DWord) As HRESULT
1511End Interface
1512
1513#endif /* __IErrorInfo_INTERFACE_DEFINED__ */
1514
1515
1516#ifndef __ICreateErrorInfo_INTERFACE_DEFINED__
1517#define __ICreateErrorInfo_INTERFACE_DEFINED__
1518
1519/* interface ICreateErrorInfo */
1520/* [unique][uuid][object] */
1521
1522TypeDef LPCREATEERRORINFO = /* [unique] */ *ICreateErrorInfo
1523
1524Dim IID_ICreateErrorInfo = [&h22F03340, &h547D, &h101B, [&h8E, &h65, &h08, &h00, &h2B, &h2B, &hD1, &h19]] As IID
1525
1526Interface ICreateErrorInfo
1527 Inherits IUnknown
1528
1529 Function SetGUID(
1530 /* [in] */ ByRef rguid As GUID) As HRESULT
1531 Function SetSource(
1532 /* [in] */ szSource As LPOLESTR) As HRESULT
1533 Function SetDescription(
1534 /* [in] */ szDescription As LPOLESTR) As HRESULT
1535 Function SetHelpFile(
1536 /* [in] */ szHelpFile As LPOLESTR) As HRESULT
1537 Function SetHelpContext(
1538 /* [in] */ dwHelpContext As DWord) As HRESULT
1539End Interface
1540
1541#endif /* __ICreateErrorInfo_INTERFACE_DEFINED__ */
1542
1543
1544#ifndef __ISupportErrorInfo_INTERFACE_DEFINED__
1545#define __ISupportErrorInfo_INTERFACE_DEFINED__
1546
1547/* interface ISupportErrorInfo */
1548/* [unique][uuid][object] */
1549
1550TypeDef LPSUPPORTERRORINFO = /* [unique] */ *ISupportErrorInfo
1551
1552Dim IID_ISupportErrorInfo = [&hDF0B3D60, &h548F, &h101B, [&h8E, &h65, &h08, &h00, &h2B, &h2B, &hD1, &h19]] As IID
1553
1554Interface ISupportErrorInfo
1555 Inherits IUnknown
1556
1557 Function InterfaceSupportsErrorInfo(
1558 /* [in] */ ByRef riid As IID) As HRESULT
1559End Interface
1560
1561#endif /* __ISupportErrorInfo_INTERFACE_DEFINED__ */
1562
1563
1564#ifndef __ITypeFactory_INTERFACE_DEFINED__
1565#define __ITypeFactory_INTERFACE_DEFINED__
1566
1567/* interface ITypeFactory */
1568/* [uuid][object] */
1569
1570Dim IID_ITypeFactory = [&h0000002E, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID
1571
1572Interface ITypeFactory
1573 Inherits IUnknown
1574
1575 Function CreateFromTypeInfo(
1576 /* [in] */ pTypeInfo As *ITypeInfo,
1577 /* [in] */ ByRef riid As IID,
1578 /* [iid_is][out] */ ByRef pv As *IUnknown) As HRESULT
1579End Interface
1580
1581#endif /* __ITypeFactory_INTERFACE_DEFINED__ */
1582
1583
1584#ifndef __ITypeMarshal_INTERFACE_DEFINED__
1585#define __ITypeMarshal_INTERFACE_DEFINED__
1586
1587/* interface ITypeMarshal */
1588/* [uuid][object][local] */
1589
1590Dim IID_ITypeMarshal = [&h0000002D, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID
1591
1592Interface ITypeMarshal
1593 Inherits IUnknown
1594
1595 Function Size(
1596 /* [in] */ pvType As VoidPtr,
1597 /* [in] */ dwDestContext As DWord,
1598 /* [in] */ pvDestContext As VoidPtr,
1599 /* [out] */ ByRef Size As DWord) As HRESULT
1600 Function Marshal(
1601 /* [in] */ pvType As VoidPtr,
1602 /* [in] */ dwDestContext As DWord,
1603 /* [in] */ pvDestContext As VoidPtr,
1604 /* [in] */ cbBufferLength As DWord,
1605 /* [out] */ pBuffer As *Byte,
1606 /* [out] */ ByRef cbWritten As DWord) As HRESULT
1607 Function Unmarshal(
1608 /* [out] */ pvType As VoidPtr,
1609 /* [in] */ dwFlags As DWord,
1610 /* [in] */ cbBufferLength As DWord,
1611 /* [in] */ pBuffer As *Byte,
1612 /* [out] */ ByRef cbRead As DWord) As HRESULT
1613 Function Free(
1614 /* [in] */ pvType As VoidPtr) As HRESULT
1615End Interface
1616
1617#endif /* __ITypeMarshal_INTERFACE_DEFINED__ */
1618
1619
1620#ifndef __IRecordInfo_INTERFACE_DEFINED__
1621#define __IRecordInfo_INTERFACE_DEFINED__
1622
1623/* interface IRecordInfo */
1624/* [uuid][object][local] */
1625
1626TypeDef LPRECORDINFO = /* [unique] */ *IRecordInfo
1627
1628Dim IID_IRecordInfo = [&h0000002F, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID
1629
1630Interface IRecordInfo
1631 Inherits IUnknown
1632
1633 Function RecordInit(
1634 /* [out] */ pvNew As VoidPtr) As HRESULT
1635 Function RecordClear(
1636 /* [in] */ pvExisting As VoidPtr) As HRESULT
1637 Function RecordCopy(
1638 /* [in] */ pvExisting As VoidPtr,
1639 /* [out] */ pvNew As VoidPtr) As HRESULT
1640 Function GetGuid(
1641 /* [out] */ ByRef guid As GUID) As HRESULT
1642 Function GetName(
1643 /* [out] */ ByRef bstrName As BSTR) As HRESULT
1644 Function GetSize(
1645 /* [out] */ ByRef cbSize As DWord) As HRESULT
1646 Function GetTypeInfo(
1647 /* [out] */ ByRef pTypeInfo As *ITypeInfo) As HRESULT
1648 Function GetField(
1649 /* [in] */ pvData As VoidPtr,
1650 /* [in] */ szFieldName As LPCOLESTR,
1651 /* [out] */ ByRef varField As VARIANT) As HRESULT
1652 Function GetFieldNoCopy(
1653 /* [in] */ pvData As VoidPtr,
1654 /* [in] */ szFieldName As LPCOLESTR,
1655 /* [out] */ ByRef varField As VARIANT,
1656 /* [out] */ ByRef pvDataCArray As VoidPtr) As HRESULT
1657 Function PutField(
1658 /* [in] */ wFlags As DWord,
1659 /* [out][in] */ pvData As VoidPtr,
1660 /* [in] */ szFieldName As LPCOLESTR,
1661 /* [in] */ ByRef varField As VARIANT) As HRESULT
1662 Function PutFieldNoCopy(
1663 /* [in] */ wFlags As DWord,
1664 /* [out][in] */ pvData As VoidPtr,
1665 /* [in] */ szFieldName As LPCOLESTR,
1666 /* [in] */ ByRef varField As VARIANT) As HRESULT
1667 Function GetFieldNames(
1668 /* [out][in] */ ByRef cNames As DWord,
1669 /* [length_is][size_is][out] */ rgBstrNames As *BSTR) As HRESULT
1670 Function IsMatchingType(
1671 /* [in] */ pRecordInfo As *IRecordInfo) As BOOL
1672 Function RecordCreate() As VoidPtr
1673 Function RecordCreateCopy(
1674 /* [in] */ pvSource As VoidPtr,
1675 /* [out] */ ByRef pvDest As VoidPtr) As HRESULT
1676 Function RecordDestroy(
1677 /* [in] */ pvRecord As VoidPtr) As HRESULT
1678End Interface
1679
1680#endif /* __IRecordInfo_INTERFACE_DEFINED__ */
1681
1682
1683#ifndef __IErrorLog_INTERFACE_DEFINED__
1684#define __IErrorLog_INTERFACE_DEFINED__
1685
1686/* interface IErrorLog */
1687/* [unique][uuid][object] */
1688
1689TypeDef LPERRORLOG = *IErrorLog
1690
1691Dim IID_IErrorLog = [&h3127CA40, &h446E, &h11CE, [&h81, &h35, &h00, &hAA, &h00, &h4B, &hB8, &h51]] As IID
1692
1693Interface IErrorLog
1694 Inherits IUnknown
1695
1696 Function AddError(
1697 /* [in] */ pszPropName As LPCOLESTR,
1698 /* [in] */ ByRef pExcepInfo As EXCEPINFO) As HRESULT
1699End Interface
1700
1701#endif /* __IErrorLog_INTERFACE_DEFINED__ */
1702
1703
1704#ifndef __IPropertyBag_INTERFACE_DEFINED__
1705#define __IPropertyBag_INTERFACE_DEFINED__
1706
1707/* interface IPropertyBag */
1708/* [unique][uuid][object] */
1709
1710TypeDef LPPROPERTYBAG = *IPropertyBag
1711
1712Dim IID_IPropertyBag = [&h55272A00, &h42CB, &h11CE, [&h81, &h35, &h00, &hAA, &h00, &h4B, &hB8, &h51]] As IID
1713
1714Interface IPropertyBag
1715 Inherits IUnknown
1716
1717 /* [local] */ Function Read(
1718 /* [in] */ pszPropName As LPCOLESTR,
1719 /* [out][in] */ ByRef Var As VARIANT,
1720 /* [in] */ pErrorLog As *IErrorLog) As HRESULT
1721
1722 Function Write(
1723 /* [in] */ pszPropName As LPCOLESTR,
1724 /* [in] */ ByRef Var As VARIANT) As HRESULT
1725End Interface
1726
1727#endif /* __IPropertyBag_INTERFACE_DEFINED__ */
1728
1729#endif '_INC_OAIDL_AB
Note: See TracBrowser for help on using the repository browser.