source: Include/OleAuto.ab@ 59

Last change on this file since 59 was 42, checked in by イグトランス (egtra), 18 years ago

api_winerror.sbpとapi_winsock2.sbpとの間での定義の重複を除去など。

File size: 50.7 KB
Line 
1' OleAuto.ab
2
3#ifndef _INC_OLEAUTO_AB
4#define _INC_OLEAUTO_AB
5
6' EXTERN_C const IID IID_StdOle;
7
8Const STDOLE_MAJORVERNUM = &h1
9Const STDOLE_MINORVERNUM = &h0
10Const STDOLE_LCID = &h0000
11
12' Version # of stdole2.tlb
13Const STDOLE2_MAJORVERNUM = &h2
14Const STDOLE2_MINORVERNUM = &h0
15Const STDOLE2_LCID = &h0000
16
17/*
18#ifndef _LCID_DEFINED
19TypeDef LCID = DWord
20#define _LCID_DEFINED
21#endif
22*/
23
24#include <oaidl.ab>
25'Dummy
26Interface ITypeLib
27 Inherits IUnknown
28End Interface
29
30Interface ITypeInfo
31 Inherits IUnknown
32End Interface
33
34Interface IErrorInfo
35 Inherits IUnknown
36End Interface
37
38Interface ICreateErrorInfo
39 Inherits IUnknown
40End Interface
41
42Const Enum SYSKIND
43End Enum
44
45' BSTR API
46Declare Function SysAllocString Lib "oleaut32" (sz As /*Const*/ *OLECHAR) As BSTR
47Declare Function SysReAllocString Lib "oleaut32" (ByRef bstr As BSTR, psz As /*Const*/ *OLECHAR) As Long
48Declare Function SysAllocStringLen Lib "oleaut32" (pch As /*Const*/ *OLECHAR, cch As DWord) As BSTR
49Declare Function SysReAllocStringLen Lib "oleaut32" (ByRef bstr As BSTR, pch As /*Const*/ *OLECHAR, cch As DWord) As Long
50Declare Sub SysFreeString Lib "oleaut32" (bstr As BSTR)
51Declare Function SysStringLen Lib "oleaut32" (bstr As BSTR) As DWord
52
53'#if (defined (_WIN32) Or defined (_WIN64))
54Declare Function SysStringByteLen Lib "oleaut32" (bstr As BSTR) As DWord
55Declare Function SysAllocStringByteLen Lib "oleaut32" (pch As PCSTR, len As DWord) As BSTR
56'#endif
57
58' Time API
59Declare Function DosDateTimeToVariantTime Lib "oleaut32" (wDosDate As Word, wDosTime As Word, ByRef vtime As Double) As Long
60Declare Function VariantTimeToDosDateTime Lib "oleaut32" (vtime As Double, ByRef wDosDate As Word, ByRef wDosTime As Word) As Long
61
62'#if (defined (_WIN32) Or defined (_WIN64))
63Declare Function SystemTimeToVariantTime Lib "oleaut32" (ByRef SystemTime As SYSTEMTIME, ByRef vtime As Double) As Long
64Declare Function VariantTimeToSystemTime Lib "oleaut32" (vtime As Double, ByRef SystemTime As SYSTEMTIME) As Long
65'#endif
66
67' SafeArray API
68Declare Function SafeArrayAllocDescriptor Lib "oleaut32" (cDims As DWord, ByRef psaOut As *SAFEARRAY) As HRESULT
69Declare Function SafeArrayAllocDescriptorEx Lib "oleaut32" (vt As VARTYPE, cDims As DWord, ByRef psaOut As *SAFEARRAY) As HRESULT
70Declare Function SafeArrayAllocData Lib "oleaut32" (psa As *SAFEARRAY) As HRESULT
71Declare Function SafeArrayCreate Lib "oleaut32" (vt As VARTYPE, cDims As DWord, ByRef rgsabound As SAFEARRAYBOUND) As *SAFEARRAY
72Declare Function SafeArrayCreateEx Lib "oleaut32" (vt As VARTYPE, cDims As DWord, ByRef rgsabound As SAFEARRAYBOUND, pvExtra As VoidPtr) As *SAFEARRAY
73Declare Function SafeArrayCopyData Lib "oleaut32" (psaSource As *SAFEARRAY, psaTarget As *SAFEARRAY) As HRESULT
74Declare Function SafeArrayDestroyDescriptor Lib "oleaut32" (psa As *SAFEARRAY) As HRESULT
75Declare Function SafeArrayDestroyData Lib "oleaut32" (psa As *SAFEARRAY) As HRESULT
76Declare Function SafeArrayDestroy Lib "oleaut32" (psa As *SAFEARRAY) As HRESULT
77Declare Function SafeArrayRedim Lib "oleaut32" (psa As *SAFEARRAY, ByRef psaboundNew As SAFEARRAYBOUND) As HRESULT
78Declare Function SafeArrayGetDim Lib "oleaut32" (psa As *SAFEARRAY) As DWord
79Declare Function SafeArrayGetElemsize Lib "oleaut32" (psa As *SAFEARRAY) As DWord
80Declare Function SafeArrayGetUBound Lib "oleaut32" (psa As *SAFEARRAY, ByRef lUbound As Long) As HRESULT
81Declare Function SafeArrayGetLBound Lib "oleaut32" (psa As *SAFEARRAY, ByRef lLbound As Long) As HRESULT
82Declare Function SafeArrayLock Lib "oleaut32" (psa As *SAFEARRAY) As HRESULT
83Declare Function SafeArrayUnlock Lib "oleaut32" (psa As *SAFEARRAY) As HRESULT
84Declare Function SafeArrayAccessData Lib "oleaut32" (psa As *SAFEARRAY, ByRef pvData As VoidPtr) As HRESULT
85Declare Function SafeArrayUnaccessData Lib "oleaut32" (psa As *SAFEARRAY) As HRESULT
86Declare Function SafeArrayGetElement Lib "oleaut32" (psa As *SAFEARRAY, rgIndices As *Long, ByRef v As Any) As HRESULT
87Declare Function SafeArrayPutElement Lib "oleaut32" (psa As *SAFEARRAY, rgIndices As *Long, ByRef v As Any) As HRESULT
88Declare Function SafeArrayCopy Lib "oleaut32" (psa As *SAFEARRAY, ByRef ppsaOut As *SAFEARRAY) As HRESULT
89Declare Function SafeArrayPtrOfIndex Lib "oleaut32" (psa As *SAFEARRAY, rgIndices As *Long, ByRef pvData As VoidPtr) As HRESULT
90Declare Function SafeArraySetRecordInfo Lib "oleaut32" (psa As *SAFEARRAY, prinfo As *IRecordInfo) As HRESULT
91Declare Function SafeArrayGetRecordInfo Lib "oleaut32" (psa As *SAFEARRAY, ByRef prinfo As *IRecordInfo) As HRESULT
92Declare Function SafeArraySetIID Lib "oleaut32" (psa As *SAFEARRAY, ByRef guid As IID) As HRESULT
93Declare Function SafeArrayGetIID Lib "oleaut32" (psa As *SAFEARRAY, ByRef guid As IID) As HRESULT
94Declare Function SafeArrayGetVartype Lib "oleaut32" (psa As *SAFEARRAY, ByRef vt As VARTYPE) As HRESULT
95Declare Function SafeArrayCreateVector Lib "oleaut32" (psa As *SAFEARRAY, ByRef cElements As DWord) As *SAFEARRAY
96Declare Function SafeArrayCreateVectorEx Lib "oleaut32" (psa As *SAFEARRAY, ByRef cElements As DWord, pvExtra As VoidPtr) As *SAFEARRAY
97
98' VARIANT API
99Declare Sub VariantInit Lib "oleaut32" (ByRef varg As VARIANTARG)
100Declare Function VariantClear Lib "oleaut32" (ByRef varg As VARIANTARG) As HRESULT
101Declare Function VariantCopy Lib "oleaut32" (ByRef vargDest As VARIANTARG, ByRef vargSrc As VARIANTARG) As HRESULT
102Declare Function VariantCopyInd Lib "oleaut32" (ByRef varDest As VARIANT, ByRef vargSrc As VARIANTARG) As HRESULT
103Declare Function VariantChangeType Lib "oleaut32" (ByRef vargDest As VARIANT, ByRef varSrc As VARIANTARG, wFlags As Word, vt As VARTYPE) As HRESULT
104Declare Function VariantChangeTypeEx Lib "oleaut32" (ByRef vargDest As VARIANT, ByRef varSrc As VARIANTARG, lcid As LCID, wFlags As Word, vt As VARTYPE) As HRESULT
105
106' Flags for VariantChangeType/VariantChangeTypeEx
107Const VARIANT_NOVALUEPROP = &h01
108Const VARIANT_ALPHABOOLP = &h02
109Const VARIANT_NOUSEROVERRIDE = &h04
110Const VARIANT_CALENDAR_HIJRI = &h08
111Const VARIANT_LOCALBOOL = &h10
112Const VARIANT_CALENDAR_THAI = &h20
113Const VARIANT_CALENDAR_GREGORIAN = &h40
114Const VARIANT_USE_NLS = &h80
115
116' Vector <-> Bstr conversion APIs
117Declare Function VectorFromBstr Lib "oleaut32" (bstr As BSTR, ByRef psa As *SAFEARRAY) As HRESULT
118Declare Function BstrFromVector Lib "oleaut32" (psa As *SAFEARRAY, ByRef bstr As BSTR) As HRESULT
119
120' Variant API Flags
121Const VAR_TIMEVALUEONLY = &h00000001 As DWord
122Const VAR_DATEVALUEONLY = &h00000002 As DWord
123Const VAR_VALIDDATE = &h00000004 As DWord
124Const VAR_CALENDAR_HIJRI = &h00000008 As DWord
125Const VAR_LOCALBOOL = &h00000010 As DWord
126Const VAR_FORMAT_NOSUBSTITUTE = &h00000020 As DWord
127Const VAR_FOURDIGITYEARS = &h00000040 As DWord
128Const LOCALE_USE_NLS = &h10000000 As DWord
129Const VAR_CALENDAR_THAI = &h00000080 As DWord
130Const VAR_CALENDAR_GREGORIAN = &h00000100 As DWord
131
132Const VTDATEGRE_MAX = 2958465
133Const VTDATEGRE_MIN = -657434
134
135' VARTYPE Coercion API
136Declare Function VarUI1FromI2 Lib "oleaut32" (sIn As Integer, ByRef bOut As Byte) As HRESULT
137Declare Function VarUI1FromI4 Lib "oleaut32" (lIn As LONG, ByRef bOut As Byte) As HRESULT
138Declare Function VarUI1FromI8 Lib "oleaut32" (i64In As Int64, ByRef bOut As Byte) As HRESULT
139Declare Function VarUI1FromR4 Lib "oleaut32" (fltIn As Single, ByRef bOut As Byte) As HRESULT
140Declare Function VarUI1FromR8 Lib "oleaut32" (dblIn As Double, ByRef bOut As Byte) As HRESULT
141Declare Function VarUI1FromCy Lib "oleaut32" (cyIn As CY, ByRef bOut As Byte) As HRESULT
142Declare Function VarUI1FromDate Lib "oleaut32" (dateIn As DATE, ByRef bOut As Byte) As HRESULT
143Declare Function VarUI1FromStr Lib "oleaut32" (strIn As *OLECHAR, lcid As LCID, dwFlags As DWord, ByRef bOut As Byte) As HRESULT
144Declare Function VarUI1FromDisp Lib "oleaut32" (pdispIn As *IDispatch, lcid As LCID, ByRef bOut As Byte) As HRESULT
145Declare Function VarUI1FromBool Lib "oleaut32" (boolIn As VARIANT_BOOL, ByRef bOut As Byte) As HRESULT
146Declare Function VarUI1FromI1 Lib "oleaut32" (cIn As CHAR, ByRef bOut As Byte) As HRESULT
147Declare Function VarUI1FromUI2 Lib "oleaut32" (uiIn As Word, ByRef bOut As Byte) As HRESULT
148Declare Function VarUI1FromUI4 Lib "oleaut32" (ulIn As DWord, ByRef bOut As Byte) As HRESULT
149Declare Function VarUI1FromUI8 Lib "oleaut32" (ui64In As QWord, ByRef bOut As Byte) As HRESULT
150Declare Function VarUI1FromDec Lib "oleaut32" (ByRef decIn As DECIMAL, ByRef bOut As Byte) As HRESULT
151
152Declare Function VarI2FromUI1 Lib "oleaut32" (bIn As Byte, ByRef sOut As Integer) As HRESULT
153Declare Function VarI2FromI4 Lib "oleaut32" (lIn As LONG, ByRef sOut As Integer) As HRESULT
154Declare Function VarI2FromI8 Lib "oleaut32" (i64In As Int64, ByRef sOut As Integer) As HRESULT
155Declare Function VarI2FromR4 Lib "oleaut32" (fltIn As Single, ByRef sOut As Integer) As HRESULT
156Declare Function VarI2FromR8 Lib "oleaut32" (dblIn As Double, ByRef sOut As Integer) As HRESULT
157Declare Function VarI2FromCy Lib "oleaut32" (cyIn As CY, ByRef sOut As Integer) As HRESULT
158Declare Function VarI2FromDate Lib "oleaut32" (dateIn As DATE, ByRef sOut As Integer) As HRESULT
159Declare Function VarI2FromStr Lib "oleaut32" (strIn As *OLECHAR, lcid As LCID, dwFlags As DWord, ByRef sOut As Integer) As HRESULT
160Declare Function VarI2FromDisp Lib "oleaut32" (pdispIn As *IDispatch, lcid As LCID, ByRef sOut As Integer) As HRESULT
161Declare Function VarI2FromBool Lib "oleaut32" (boolIn As VARIANT_BOOL, ByRef sOut As Integer) As HRESULT
162Declare Function VarI2FromI1 Lib "oleaut32" (cIn As CHAR, ByRef sOut As Integer) As HRESULT
163Declare Function VarI2FromUI2 Lib "oleaut32" (uiIn As Word, ByRef sOut As Integer) As HRESULT
164Declare Function VarI2FromUI4 Lib "oleaut32" (ulIn As DWord, ByRef sOut As Integer) As HRESULT
165Declare Function VarI2FromUI8 Lib "oleaut32" (ui64In As QWord, ByRef sOut As Integer) As HRESULT
166Declare Function VarI2FromDec Lib "oleaut32" (ByRef decIn As DECIMAL, ByRef sOut As Integer) As HRESULT
167
168Declare Function VarI4FromUI1 Lib "oleaut32" (bIn As Byte, ByRef lOut As Long) As HRESULT
169Declare Function VarI4FromI2 Lib "oleaut32" (sIn As Integer, ByRef lOut As Long) As HRESULT
170Declare Function VarI4FromI8 Lib "oleaut32" (i64In As Int64, ByRef lOut As Long) As HRESULT
171Declare Function VarI4FromR4 Lib "oleaut32" (fltIn As Single, ByRef lOut As Long) As HRESULT
172Declare Function VarI4FromR8 Lib "oleaut32" (dblIn As Double, ByRef lOut As Long) As HRESULT
173Declare Function VarI4FromCy Lib "oleaut32" (cyIn As CY, ByRef lOut As Long) As HRESULT
174Declare Function VarI4FromDate Lib "oleaut32" (dateIn As DATE, ByRef lOut As Long) As HRESULT
175Declare Function VarI4FromStr Lib "oleaut32" (strIn As *OLECHAR, lcid As LCID, dwFlags As DWord, ByRef lOut As Long) As HRESULT
176Declare Function VarI4FromDisp Lib "oleaut32" (pdispIn As *IDispatch, lcid As LCID, ByRef lOut As Long) As HRESULT
177Declare Function VarI4FromBool Lib "oleaut32" (boolIn As VARIANT_BOOL, ByRef lOut As Long) As HRESULT
178Declare Function VarI4FromI1 Lib "oleaut32" (cIn As CHAR, ByRef lOut As Long) As HRESULT
179Declare Function VarI4FromUI2 Lib "oleaut32" (uiIn As Word, ByRef lOut As Long) As HRESULT
180Declare Function VarI4FromUI4 Lib "oleaut32" (ulIn As DWord, ByRef lOut As Long) As HRESULT
181Declare Function VarI4FromUI8 Lib "oleaut32" (ui64In As QWord, ByRef lOut As Long) As HRESULT
182Declare Function VarI4FromDec Lib "oleaut32" (ByRef decIn As DECIMAL, ByRef lOut As Long) As HRESULT
183
184Declare Function VarI8FromUI1 Lib "oleaut32" (bIn As Byte, ByRef i64Out As Int64) As HRESULT
185Declare Function VarI8FromI2 Lib "oleaut32" (sIn As Integer, ByRef i64Out As Int64) As HRESULT
186Declare Function VarI8FromI4 Lib "oleaut32" (lIn As LONG, ByRef i64Out As Int64) As HRESULT
187Declare Function VarI8FromR4 Lib "oleaut32" (fltIn As Single, ByRef i64Out As Int64) As HRESULT
188Declare Function VarI8FromR8 Lib "oleaut32" (dblIn As Double, ByRef i64Out As Int64) As HRESULT
189Declare Function VarI8FromCy Lib "oleaut32" (cyIn As CY, ByRef i64Out As Int64) As HRESULT
190Declare Function VarI8FromDate Lib "oleaut32" (dateIn As DATE, ByRef i64Out As Int64) As HRESULT
191Declare Function VarI8FromStr Lib "oleaut32" (strIn As *OLECHAR, lcid As LCID, dwFlags As DWord, ByRef i64Out As Int64) As HRESULT
192Declare Function VarI8FromDisp Lib "oleaut32" (pdispIn As *IDispatch, lcid As LCID, ByRef i64Out As Int64) As HRESULT
193Declare Function VarI8FromBool Lib "oleaut32" (boolIn As VARIANT_BOOL, ByRef i64Out As Int64) As HRESULT
194Declare Function VarI8FromI1 Lib "oleaut32" (cIn As CHAR, ByRef i64Out As Int64) As HRESULT
195Declare Function VarI8FromUI2 Lib "oleaut32" (uiIn As Word, ByRef i64Out As Int64) As HRESULT
196Declare Function VarI8FromUI4 Lib "oleaut32" (ulIn As DWord, ByRef i64Out As Int64) As HRESULT
197Declare Function VarI8FromUI8 Lib "oleaut32" (ui64In As QWord, ByRef i64Out As Int64) As HRESULT
198Declare Function VarI8FromDec Lib "oleaut32" (ByRef decIn As DECIMAL, ByRef i64Out As Int64) As HRESULT
199
200Declare Function VarR4FromUI1 Lib "oleaut32" (bIn As Byte, ByRef fltOut As Single) As HRESULT
201Declare Function VarR4FromI2 Lib "oleaut32" (sIn As Integer, ByRef fltOut As Single) As HRESULT
202Declare Function VarR4FromI4 Lib "oleaut32" (lIn As LONG, ByRef fltOut As Single) As HRESULT
203Declare Function VarR4FromI8 Lib "oleaut32" (i64In As Int64, ByRef fltOut As Single) As HRESULT
204Declare Function VarR4FromR8 Lib "oleaut32" (dblIn As Double, ByRef fltOut As Single) As HRESULT
205Declare Function VarR4FromCy Lib "oleaut32" (cyIn As CY, ByRef fltOut As Single) As HRESULT
206Declare Function VarR4FromDate Lib "oleaut32" (dateIn As DATE, ByRef fltOut As Single) As HRESULT
207Declare Function VarR4FromStr Lib "oleaut32" (strIn As *OLECHAR, lcid As LCID, dwFlags As DWord, ByRef fltOut As Single) As HRESULT
208Declare Function VarR4FromDisp Lib "oleaut32" (pdispIn As *IDispatch, lcid As LCID, ByRef fltOut As Single) As HRESULT
209Declare Function VarR4FromBool Lib "oleaut32" (boolIn As VARIANT_BOOL, ByRef fltOut As Single) As HRESULT
210Declare Function VarR4FromI1 Lib "oleaut32" (cIn As CHAR, ByRef fltOut As Single) As HRESULT
211Declare Function VarR4FromUI2 Lib "oleaut32" (uiIn As Word, ByRef fltOut As Single) As HRESULT
212Declare Function VarR4FromUI4 Lib "oleaut32" (ulIn As DWord, ByRef fltOut As Single) As HRESULT
213Declare Function VarR4FromUI8 Lib "oleaut32" (ui64In As QWord, ByRef fltOut As Single) As HRESULT
214Declare Function VarR4FromDec Lib "oleaut32" (ByRef decIn As DECIMAL, ByRef fltOut As Single) As HRESULT
215
216Declare Function VarR8FromUI1 Lib "oleaut32" (bIn As Byte, ByRef dblOut As Double) As HRESULT
217Declare Function VarR8FromI2 Lib "oleaut32" (sIn As Integer, ByRef dblOut As Double) As HRESULT
218Declare Function VarR8FromI4 Lib "oleaut32" (lIn As LONG, ByRef dblOut As Double) As HRESULT
219Declare Function VarR8FromI8 Lib "oleaut32" (i64In As Int64, ByRef dblOut As Double) As HRESULT
220Declare Function VarR8FromR4 Lib "oleaut32" (fltIn As Single, ByRef dblOut As Double) As HRESULT
221Declare Function VarR8FromCy Lib "oleaut32" (cyIn As CY, ByRef dblOut As Double) As HRESULT
222Declare Function VarR8FromDate Lib "oleaut32" (dateIn As DATE, ByRef dblOut As Double) As HRESULT
223Declare Function VarR8FromStr Lib "oleaut32" (strIn As *OLECHAR, lcid As LCID, dwFlags As DWord, ByRef dblOut As Double) As HRESULT
224Declare Function VarR8FromDisp Lib "oleaut32" (pdispIn As *IDispatch, lcid As LCID, ByRef dblOut As Double) As HRESULT
225Declare Function VarR8FromBool Lib "oleaut32" (boolIn As VARIANT_BOOL, ByRef dblOut As Double) As HRESULT
226Declare Function VarR8FromI1 Lib "oleaut32" (cIn As CHAR, ByRef dblOut As Double) As HRESULT
227Declare Function VarR8FromUI2 Lib "oleaut32" (uiIn As Word, ByRef dblOut As Double) As HRESULT
228Declare Function VarR8FromUI4 Lib "oleaut32" (ulIn As DWord, ByRef dblOut As Double) As HRESULT
229Declare Function VarR8FromUI8 Lib "oleaut32" (ui64In As QWord, ByRef dblOut As Double) As HRESULT
230Declare Function VarR8FromDec Lib "oleaut32" (ByRef decIn As DECIMAL, ByRef dblOut As Double) As HRESULT
231
232Declare Function VarDateFromUI1 Lib "oleaut32" (bIn As Byte, ByRef dateOut As DATE) As HRESULT
233Declare Function VarDateFromI2 Lib "oleaut32" (sIn As Integer, ByRef dateOut As DATE) As HRESULT
234Declare Function VarDateFromI4 Lib "oleaut32" (lIn As LONG, ByRef dateOut As DATE) As HRESULT
235Declare Function VarDateFromI8 Lib "oleaut32" (i64In As Int64, ByRef dateOut As DATE) As HRESULT
236Declare Function VarDateFromR4 Lib "oleaut32" (fltIn As Single, ByRef dateOut As DATE) As HRESULT
237Declare Function VarDateFromR8 Lib "oleaut32" (dblIn As Double, ByRef dateOut As DATE) As HRESULT
238Declare Function VarDateFromCy Lib "oleaut32" (cyIn As CY, ByRef dateOut As DATE) As HRESULT
239Declare Function VarDateFromStr Lib "oleaut32" (strIn As *OLECHAR, lcid As LCID, dwFlags As DWord, ByRef dateOut As DATE) As HRESULT
240Declare Function VarDateFromDisp Lib "oleaut32" (pdispIn As *IDispatch, lcid As LCID, ByRef dateOut As DATE) As HRESULT
241Declare Function VarDateFromBool Lib "oleaut32" (boolIn As VARIANT_BOOL, ByRef dateOut As DATE) As HRESULT
242Declare Function VarDateFromI1 Lib "oleaut32" (cIn As CHAR, ByRef dateOut As DATE) As HRESULT
243Declare Function VarDateFromUI2 Lib "oleaut32" (uiIn As Word, ByRef dateOut As DATE) As HRESULT
244Declare Function VarDateFromUI4 Lib "oleaut32" (ulIn As DWord, ByRef dateOut As DATE) As HRESULT
245Declare Function VarDateFromUI8 Lib "oleaut32" (ui64In As QWord, ByRef dateOut As DATE) As HRESULT
246Declare Function VarDateFromDec Lib "oleaut32" (ByRef decIn As DECIMAL, ByRef dateOut As DATE) As HRESULT
247
248Declare Function VarCyFromUI1 Lib "oleaut32" (bIn As Byte, ByRef cyOut As CY) As HRESULT
249Declare Function VarCyFromI2 Lib "oleaut32" (sIn As Integer, ByRef cyOut As CY) As HRESULT
250Declare Function VarCyFromI4 Lib "oleaut32" (lIn As LONG, ByRef cyOut As CY) As HRESULT
251Declare Function VarCyFromI8 Lib "oleaut32" (i64In As Int64, ByRef cyOut As CY) As HRESULT
252Declare Function VarCyFromR4 Lib "oleaut32" (fltIn As Single, ByRef cyOut As CY) As HRESULT
253Declare Function VarCyFromR8 Lib "oleaut32" (dblIn As Double, ByRef cyOut As CY) As HRESULT
254Declare Function VarCyFromDate Lib "oleaut32" (dateIn As DATE, ByRef cyOut As CY) As HRESULT
255Declare Function VarCyFromStr Lib "oleaut32" (strIn As *OLECHAR, lcid As LCID, dwFlags As DWord, ByRef cyOut As CY) As HRESULT
256Declare Function VarCyFromDisp Lib "oleaut32" (pdispIn As *IDispatch, lcid As LCID, ByRef cyOut As CY) As HRESULT
257Declare Function VarCyFromBool Lib "oleaut32" (boolIn As VARIANT_BOOL, ByRef cyOut As CY) As HRESULT
258Declare Function VarCyFromI1 Lib "oleaut32" (cIn As CHAR, ByRef cyOut As CY) As HRESULT
259Declare Function VarCyFromUI2 Lib "oleaut32" (uiIn As Word, ByRef cyOut As CY) As HRESULT
260Declare Function VarCyFromUI4 Lib "oleaut32" (ulIn As DWord, ByRef cyOut As CY) As HRESULT
261Declare Function VarCyFromUI8 Lib "oleaut32" (ui64In As QWord, ByRef cyOut As CY) As HRESULT
262Declare Function VarCyFromDec Lib "oleaut32" (ByRef decIn As DECIMAL, ByRef cyOut As CY) As HRESULT
263
264Declare Function VarBstrFromUI1 Lib "oleaut32" (bIn As Byte, lcid As LCID, dwFlags As DWord, ByRef bstrOut As BSTR) As HRESULT
265Declare Function VarBstrFromI2 Lib "oleaut32" (sIn As Integer, lcid As LCID, dwFlags As DWord, ByRef bstrOut As BSTR) As HRESULT
266Declare Function VarBstrFromI4 Lib "oleaut32" (lIn As LONG, lcid As LCID, dwFlags As DWord, ByRef bstrOut As BSTR) As HRESULT
267Declare Function VarBstrFromI8 Lib "oleaut32" (i64In As Int64, lcid As LCID, dwFlags As DWord, ByRef bstrOut As BSTR) As HRESULT
268Declare Function VarBstrFromR4 Lib "oleaut32" (fltIn As Single, lcid As LCID, dwFlags As DWord, ByRef bstrOut As BSTR) As HRESULT
269Declare Function VarBstrFromR8 Lib "oleaut32" (dblIn As Double, lcid As LCID, dwFlags As DWord, ByRef bstrOut As BSTR) As HRESULT
270Declare Function VarBstrFromCy Lib "oleaut32" (cyIn As CY, lcid As LCID, dwFlags As DWord, ByRef bstrOut As BSTR) As HRESULT
271Declare Function VarBstrFromDate Lib "oleaut32" (dateIn As DATE, lcid As LCID, dwFlags As DWord, ByRef bstrOut As BSTR) As HRESULT
272Declare Function VarBstrFromDisp Lib "oleaut32" (pdispIn As *IDispatch, lcid As LCID, dwFlags As DWord, ByRef bstrOut As BSTR) As HRESULT
273Declare Function VarBstrFromBool Lib "oleaut32" (boolIn As VARIANT_BOOL, lcid As LCID, dwFlags As DWord, ByRef bstrOut As BSTR) As HRESULT
274Declare Function VarBstrFromI1 Lib "oleaut32" (cIn As CHAR, lcid As LCID, dwFlags As DWord, ByRef bstrOut As BSTR) As HRESULT
275Declare Function VarBstrFromUI2 Lib "oleaut32" (uiIn As Word, lcid As LCID, dwFlags As DWord, ByRef bstrOut As BSTR) As HRESULT
276Declare Function VarBstrFromUI4 Lib "oleaut32" (ulIn As DWord, lcid As LCID, dwFlags As DWord, ByRef bstrOut As BSTR) As HRESULT
277Declare Function VarBstrFromUI8 Lib "oleaut32" (i64In As QWord, lcid As LCID, dwFlags As DWord, ByRef bstrOut As BSTR) As HRESULT
278Declare Function VarBstrFromDec Lib "oleaut32" (ByRef decIn As DECIMAL, lcid As LCID, dwFlags As DWord, ByRef bstrOut As BSTR) As HRESULT
279
280Declare Function VarBoolFromUI1 Lib "oleaut32" (bIn As Byte, ByRef boolOut As VARIANT_BOOL) As HRESULT
281Declare Function VarBoolFromI2 Lib "oleaut32" (sIn As Integer, ByRef boolOut As VARIANT_BOOL) As HRESULT
282Declare Function VarBoolFromI4 Lib "oleaut32" (lIn As LONG, ByRef boolOut As VARIANT_BOOL) As HRESULT
283Declare Function VarBoolFromI8 Lib "oleaut32" (i64In As Int64, ByRef boolOut As VARIANT_BOOL) As HRESULT
284Declare Function VarBoolFromR4 Lib "oleaut32" (fltIn As Single, ByRef boolOut As VARIANT_BOOL) As HRESULT
285Declare Function VarBoolFromR8 Lib "oleaut32" (dblIn As Double, ByRef boolOut As VARIANT_BOOL) As HRESULT
286Declare Function VarBoolFromDate Lib "oleaut32" (dateIn As DATE, ByRef boolOut As VARIANT_BOOL) As HRESULT
287Declare Function VarBoolFromCy Lib "oleaut32" (cyIn As CY, ByRef boolOut As VARIANT_BOOL) As HRESULT
288Declare Function VarBoolFromStr Lib "oleaut32" (strIn As *OLECHAR, lcid As LCID, dwFlags As DWord, ByRef boolOut As VARIANT_BOOL) As HRESULT
289Declare Function VarBoolFromDisp Lib "oleaut32" (pdispIn As *IDispatch, lcid As LCID, ByRef boolOut As VARIANT_BOOL) As HRESULT
290Declare Function VarBoolFromI1 Lib "oleaut32" (cIn As CHAR, ByRef boolOut As VARIANT_BOOL) As HRESULT
291Declare Function VarBoolFromUI2 Lib "oleaut32" (uiIn As Word, ByRef boolOut As VARIANT_BOOL) As HRESULT
292Declare Function VarBoolFromUI4 Lib "oleaut32" (ulIn As DWord, ByRef boolOut As VARIANT_BOOL) As HRESULT
293Declare Function VarBoolFromUI8 Lib "oleaut32" (i64In As QWord, ByRef boolOut As VARIANT_BOOL) As HRESULT
294Declare Function VarBoolFromDec Lib "oleaut32" (ByRef decIn As DECIMAL, ByRef boolOut As VARIANT_BOOL) As HRESULT
295
296Declare Function VarI1FromI2 Lib "oleaut32" (sIn As Integer, ByRef cOut As Char) As HRESULT
297Declare Function VarI1FromI4 Lib "oleaut32" (lIn As LONG, ByRef cOut As Char) As HRESULT
298Declare Function VarI1FromI8 Lib "oleaut32" (i64In As Int64, ByRef cOut As Char) As HRESULT
299Declare Function VarI1FromR4 Lib "oleaut32" (fltIn As Single, ByRef cOut As Char) As HRESULT
300Declare Function VarI1FromR8 Lib "oleaut32" (dblIn As Double, ByRef cOut As Char) As HRESULT
301Declare Function VarI1FromCy Lib "oleaut32" (cyIn As CY, ByRef cOut As Char) As HRESULT
302Declare Function VarI1FromDate Lib "oleaut32" (dateIn As DATE, ByRef cOut As Char) As HRESULT
303Declare Function VarI1FromStr Lib "oleaut32" (strIn As *OLECHAR, lcid As LCID, dwFlags As DWord, ByRef cOut As Char) As HRESULT
304Declare Function VarI1FromDisp Lib "oleaut32" (pdispIn As *IDispatch, lcid As LCID, ByRef cOut As Char) As HRESULT
305Declare Function VarI1FromBool Lib "oleaut32" (boolIn As VARIANT_BOOL, ByRef cOut As Char) As HRESULT
306Declare Function VarI1FromI1 Lib "oleaut32" (cIn As CHAR, ByRef cOut As Char) As HRESULT
307Declare Function VarI1FromUI2 Lib "oleaut32" (uiIn As Word, ByRef cOut As Char) As HRESULT
308Declare Function VarI1FromUI4 Lib "oleaut32" (ulIn As DWord, ByRef cOut As Char) As HRESULT
309Declare Function VarI1FromUI8 Lib "oleaut32" (ui64In As QWord, ByRef cOut As Char) As HRESULT
310Declare Function VarI1FromDec Lib "oleaut32" (ByRef decIn As DECIMAL, ByRef cOut As Char) As HRESULT
311
312Declare Function VarUI2FromUI1 Lib "oleaut32" (bIn As Byte, ByRef uiOut As Word) As HRESULT
313Declare Function VarUI2FromI2 Lib "oleaut32" (uiIn As Integer, ByRef uiOut As Word) As HRESULT
314Declare Function VarUI2FromI4 Lib "oleaut32" (lIn As LONG, ByRef uiOut As Word) As HRESULT
315Declare Function VarUI2FromI8 Lib "oleaut32" (i64In As Int64, ByRef uiOut As Word) As HRESULT
316Declare Function VarUI2FromR4 Lib "oleaut32" (fltIn As Single, ByRef uiOut As Word) As HRESULT
317Declare Function VarUI2FromR8 Lib "oleaut32" (dblIn As Double, ByRef uiOut As Word) As HRESULT
318Declare Function VarUI2FromDate Lib "oleaut32" (dateIn As DATE, ByRef uiOut As Word) As HRESULT
319Declare Function VarUI2FromCy Lib "oleaut32" (cyIn As CY, ByRef uiOut As Word) As HRESULT
320Declare Function VarUI2FromStr Lib "oleaut32" (strIn As *OLECHAR, lcid As LCID, dwFlags As DWord, ByRef uiOut As Word) As HRESULT
321Declare Function VarUI2FromDisp Lib "oleaut32" (pdispIn As *IDispatch, lcid As LCID, ByRef uiOut As Word) As HRESULT
322Declare Function VarUI2FromBool Lib "oleaut32" (boolIn As VARIANT_BOOL, ByRef uiOut As Word) As HRESULT
323Declare Function VarUI2FromI1 Lib "oleaut32" (cIn As CHAR, ByRef uiOut As Word) As HRESULT
324Declare Function VarUI2FromUI4 Lib "oleaut32" (ulIn As DWord, ByRef uiOut As Word) As HRESULT
325Declare Function VarUI2FromUI8 Lib "oleaut32" (i64In As QWord, ByRef uiOut As Word) As HRESULT
326Declare Function VarUI2FromDec Lib "oleaut32" (ByRef decIn As DECIMAL, ByRef uiOut As Word) As HRESULT
327
328Declare Function VarUI4FromUI1 Lib "oleaut32" (bIn As Byte, ByRef ulOut As DWord) As HRESULT
329Declare Function VarUI4FromI2 Lib "oleaut32" (uiIn As Integer, ByRef ulOut As DWord) As HRESULT
330Declare Function VarUI4FromI4 Lib "oleaut32" (lIn As LONG, ByRef ulOut As DWord) As HRESULT
331Declare Function VarUI4FromI8 Lib "oleaut32" (i64In As Int64, ByRef lOut As DWord) As HRESULT
332Declare Function VarUI4FromR4 Lib "oleaut32" (fltIn As Single, ByRef ulOut As DWord) As HRESULT
333Declare Function VarUI4FromR8 Lib "oleaut32" (dblIn As Double, ByRef ulOut As DWord) As HRESULT
334Declare Function VarUI4FromDate Lib "oleaut32" (dateIn As DATE, ByRef ulOut As DWord) As HRESULT
335Declare Function VarUI4FromCy Lib "oleaut32" (cyIn As CY, ByRef ulOut As DWord) As HRESULT
336Declare Function VarUI4FromStr Lib "oleaut32" (strIn As *OLECHAR, lcid As LCID, dwFlags As DWord, ByRef ulOut As DWord) As HRESULT
337Declare Function VarUI4FromDisp Lib "oleaut32" (pdispIn As *IDispatch, lcid As LCID, ByRef ulOut As DWord) As HRESULT
338Declare Function VarUI4FromBool Lib "oleaut32" (boolIn As VARIANT_BOOL, ByRef ulOut As DWord) As HRESULT
339Declare Function VarUI4FromI1 Lib "oleaut32" (cIn As CHAR, ByRef ulOut As DWord) As HRESULT
340Declare Function VarUI4FromUI2 Lib "oleaut32" (uiIn As Word, ByRef ulOut As DWord) As HRESULT
341Declare Function VarUI4FromUI8 Lib "oleaut32" (ui64In As QWord, ByRef lOut As DWord) As HRESULT
342Declare Function VarUI4FromDec Lib "oleaut32" (ByRef decIn As DECIMAL, ByRef ulOut As DWord) As HRESULT
343
344Declare Function VarUI8FromUI1 Lib "oleaut32" (bIn As Byte, ByRef i64Out As QWord) As HRESULT
345Declare Function VarUI8FromI2 Lib "oleaut32" (sIn As Integer, ByRef i64Out As QWord) As HRESULT
346Declare Function VarUI8FromI4 Lib "oleaut32" (lIn As LONG, ByRef i64Out As QWord) As HRESULT
347Declare Function VarUI8FromI8 Lib "oleaut32" (ui64In As Int64, ByRef i64Out As QWord) As HRESULT
348Declare Function VarUI8FromR4 Lib "oleaut32" (fltIn As Single, ByRef i64Out As QWord) As HRESULT
349Declare Function VarUI8FromR8 Lib "oleaut32" (dblIn As Double, ByRef i64Out As QWord) As HRESULT
350Declare Function VarUI8FromCy Lib "oleaut32" (cyIn As CY, ByRef i64Out As QWord) As HRESULT
351Declare Function VarUI8FromDate Lib "oleaut32" (dateIn As DATE, ByRef i64Out As QWord) As HRESULT
352Declare Function VarUI8FromStr Lib "oleaut32" (strIn As *OLECHAR, lcid As LCID, dwFlags As DWord, ByRef i64Out As QWord) As HRESULT
353Declare Function VarUI8FromDisp Lib "oleaut32" (pdispIn As *IDispatch, lcid As LCID, ByRef i64Out As QWord) As HRESULT
354Declare Function VarUI8FromBool Lib "oleaut32" (boolIn As VARIANT_BOOL, ByRef i64Out As QWord) As HRESULT
355Declare Function VarUI8FromI1 Lib "oleaut32" (cIn As CHAR, ByRef i64Out As QWord) As HRESULT
356Declare Function VarUI8FromUI2 Lib "oleaut32" (uiIn As Word, ByRef i64Out As QWord) As HRESULT
357Declare Function VarUI8FromUI4 Lib "oleaut32" (ulIn As DWord, ByRef i64Out As QWord) As HRESULT
358Declare Function VarUI8FromDec Lib "oleaut32" (ByRef decIn As DECIMAL, ByRef i64Out As QWord) As HRESULT
359
360Declare Function VarDecFromUI1 Lib "oleaut32" (bIn As Byte, ByRef decOut As DECIMAL) As HRESULT
361Declare Function VarDecFromI2 Lib "oleaut32" (uiIn As Integer, ByRef decOut As DECIMAL) As HRESULT
362Declare Function VarDecFromI4 Lib "oleaut32" (lIn As LONG, ByRef decOut As DECIMAL) As HRESULT
363Declare Function VarDecFromI8 Lib "oleaut32" (i64In As Int64, ByRef decOut As DECIMAL) As HRESULT
364Declare Function VarDecFromR4 Lib "oleaut32" (fltIn As Single, ByRef decOut As DECIMAL) As HRESULT
365Declare Function VarDecFromR8 Lib "oleaut32" (dblIn As Double, ByRef decOut As DECIMAL) As HRESULT
366Declare Function VarDecFromDate Lib "oleaut32" (dateIn As DATE, ByRef decOut As DECIMAL) As HRESULT
367Declare Function VarDecFromCy Lib "oleaut32" (cyIn As CY, ByRef decOut As DECIMAL) As HRESULT
368Declare Function VarDecFromStr Lib "oleaut32" (strIn As *OLECHAR, lcid As LCID, dwFlags As DWord, ByRef decOut As DECIMAL) As HRESULT
369Declare Function VarDecFromDisp Lib "oleaut32" (pdispIn As *IDispatch, lcid As LCID, ByRef decOut As DECIMAL) As HRESULT
370Declare Function VarDecFromBool Lib "oleaut32" (boolIn As VARIANT_BOOL, ByRef decOut As DECIMAL) As HRESULT
371Declare Function VarDecFromI1 Lib "oleaut32" (cIn As CHAR, ByRef decOut As DECIMAL) As HRESULT
372Declare Function VarDecFromUI2 Lib "oleaut32" (uiIn As Word, ByRef decOut As DECIMAL) As HRESULT
373Declare Function VarDecFromUI4 Lib "oleaut32" (ulIn As DWord, ByRef decOut As DECIMAL) As HRESULT
374Declare Function VarDecFromUI8 Lib "oleaut32" (ui64In As QWord, ByRef decOut As DECIMAL) As HRESULT
375
376Declare Function VarUI1FromInt Lib "oleaut32" Alias "VarUI1FromI4" (lIn As LONG, ByRef bOut As Byte) As HRESULT
377Declare Function VarUI1FromUint Lib "oleaut32" Alias "VarUI1FromUI4" (ulIn As DWord, ByRef bOut As Byte) As HRESULT
378Declare Function VarI2FromInt Lib "oleaut32" Alias "VarI2FromI4" (lIn As LONG, ByRef sOut As Integer) As HRESULT
379Declare Function VarI2FromUint Lib "oleaut32" Alias "VarI2FromUI4" (ulIn As DWord, ByRef sOut As Integer) As HRESULT
380Declare Function VarI4FromUint Lib "oleaut32" Alias "VarI4FromUI4" (ulIn As DWord, ByRef lOut As Long) As HRESULT
381Declare Function VarI8FromInt Lib "oleaut32" Alias "VarI8FromI4" (lIn As LONG, ByRef i64Out As Int64) As HRESULT
382Declare Function VarI8FromUint Lib "oleaut32" Alias "VarI8FromUI4" (ulIn As DWord, ByRef i64Out As Int64) As HRESULT
383Declare Function VarR4FromInt Lib "oleaut32" Alias "VarR4FromI4" (lIn As LONG, ByRef fltOut As Single) As HRESULT
384Declare Function VarR4FromUint Lib "oleaut32" Alias "VarR4FromUI4" (ulIn As DWord, ByRef fltOut As Single) As HRESULT
385Declare Function VarR8FromInt Lib "oleaut32" Alias "VarR8FromI4" (lIn As LONG, ByRef dblOut As Double) As HRESULT
386Declare Function VarR8FromUint Lib "oleaut32" Alias "VarR8FromUI4" (ulIn As DWord, ByRef dblOut As Double) As HRESULT
387Declare Function VarDateFromInt Lib "oleaut32" Alias "VarDateFromI4" (lIn As LONG, ByRef dateOut As DATE) As HRESULT
388Declare Function VarDateFromUint Lib "oleaut32" Alias "VarDateFromUI4" (ulIn As DWord, ByRef dateOut As DATE) As HRESULT
389Declare Function VarCyFromInt Lib "oleaut32" Alias "VarCyFromI4" (lIn As LONG, ByRef cyOut As CY) As HRESULT
390Declare Function VarCyFromUint Lib "oleaut32" Alias "VarCyFromUI4" (ulIn As DWord, ByRef cyOut As CY) As HRESULT
391Declare Function VarBstrFromInt Lib "oleaut32" Alias "VarBstrFromI4" (lIn As LONG, lcid As LCID, dwFlags As DWord, ByRef bstrOut As BSTR) As HRESULT
392Declare Function VarBstrFromUint Lib "oleaut32" Alias "VarBstrFromUI4" (ulIn As DWord, lcid As LCID, dwFlags As DWord, ByRef bstrOut As BSTR) As HRESULT
393Declare Function VarBoolFromInt Lib "oleaut32" Alias "VarBoolFromI4" (lIn As LONG, ByRef boolOut As VARIANT_BOOL) As HRESULT
394Declare Function VarBoolFromUint Lib "oleaut32" Alias "VarBoolFromUI4" (ulIn As DWord, ByRef boolOut As VARIANT_BOOL) As HRESULT
395Declare Function VarI1FromInt Lib "oleaut32" Alias "VarI1FromI4" (lIn As LONG, ByRef cOut As Char) As HRESULT
396Declare Function VarI1FromUint Lib "oleaut32" Alias "VarI1FromUI4" (ulIn As DWord, ByRef cOut As Char) As HRESULT
397Declare Function VarUI2FromInt Lib "oleaut32" Alias "VarUI2FromI4" (lIn As LONG, ByRef uiOut As Word) As HRESULT
398Declare Function VarUI2FromUint Lib "oleaut32" Alias "VarUI2FromUI4" (ulIn As DWord, ByRef uiOut As Word) As HRESULT
399Declare Function VarUI4FromInt Lib "oleaut32" Alias "VarUI4FromI4" (lIn As LONG, ByRef ulOut As DWord) As HRESULT
400Declare Function VarUI8FromInt Lib "oleaut32" Alias "VarUI8FromI4" (lIn As LONG, ByRef i64Out As QWord) As HRESULT
401Declare Function VarUI8FromUint Lib "oleaut32" Alias "VarUI8FromUI4" (ulIn As DWord, ByRef i64Out As QWord) As HRESULT
402Declare Function VarDecFromInt Lib "oleaut32" Alias "VarDecFromI4" (lIn As LONG, ByRef decOut As DECIMAL) As HRESULT
403
404Declare Function VarIntFromUI1 Lib "oleaut32" Alias "VarI4FromUI1" (bIn As Byte, ByRef lOut As Long) As HRESULT
405Declare Function VarIntFromI2 Lib "oleaut32" Alias "VarI4FromI2" (sIn As Integer, ByRef lOut As Long) As HRESULT
406Declare Function VarIntFromI8 Lib "oleaut32" Alias "VarI4FromI8" (i64In As Int64, ByRef lOut As Long) As HRESULT
407Declare Function VarIntFromR4 Lib "oleaut32" Alias "VarI4FromR4" (fltIn As Single, ByRef lOut As Long) As HRESULT
408Declare Function VarIntFromR8 Lib "oleaut32" Alias "VarI4FromR8" (dblIn As Double, ByRef lOut As Long) As HRESULT
409Declare Function VarIntFromCy Lib "oleaut32" Alias "VarI4FromCy" (cyIn As CY, ByRef lOut As Long) As HRESULT
410Declare Function VarIntFromDate Lib "oleaut32" Alias "VarI4FromDate" (dateIn As DATE, ByRef lOut As Long) As HRESULT
411Declare Function VarIntFromStr Lib "oleaut32" Alias "VarI4FromStr" (strIn As *OLECHAR, lcid As LCID, dwFlags As DWord, ByRef lOut As Long) As HRESULT
412Declare Function VarIntFromDisp Lib "oleaut32" Alias "VarI4FromDisp" (pdispIn As *IDispatch, lcid As LCID, ByRef lOut As Long) As HRESULT
413Declare Function VarIntFromBool Lib "oleaut32" Alias "VarI4FromBool" (boolIn As VARIANT_BOOL, ByRef lOut As Long) As HRESULT
414Declare Function VarIntFromI1 Lib "oleaut32" Alias "VarI4FromI1" (cIn As CHAR, ByRef lOut As Long) As HRESULT
415Declare Function VarIntFromUI2 Lib "oleaut32" Alias "VarI4FromUI2" (uiIn As Word, ByRef lOut As Long) As HRESULT
416Declare Function VarIntFromUI4 Lib "oleaut32" Alias "VarI4FromUI4" (ulIn As DWord, ByRef lOut As Long) As HRESULT
417Declare Function VarIntFromUI8 Lib "oleaut32" Alias "VarI4FromUI8" (ui64In As QWord, ByRef lOut As Long) As HRESULT
418Declare Function VarIntFromDec Lib "oleaut32" Alias "VarI4FromDec" (ByRef decIn As DECIMAL, ByRef lOut As Long) As HRESULT
419Declare Function VarUintFromUI1 Lib "oleaut32" Alias "VarUI4FromUI1" (bIn As Byte, ByRef ulOut As DWord) As HRESULT
420Declare Function VarIntFromUint Lib "oleaut32" Alias "VarI4FromUI4" (ulIn As DWord, ByRef lOut As Long) As HRESULT
421Declare Function VarUintFromI2 Lib "oleaut32" Alias "VarUI4FromI2" (uiIn As Integer, ByRef ulOut As DWord) As HRESULT
422Declare Function VarUintFromI4 Lib "oleaut32" Alias "VarUI4FromI4" (lIn As LONG, ByRef ulOut As DWord) As HRESULT
423Declare Function VarUintFromI8 Lib "oleaut32" Alias "VarUI4FromI8" (i64In As Int64, ByRef lOut As DWord) As HRESULT
424Declare Function VarUintFromR4 Lib "oleaut32" Alias "VarUI4FromR4" (fltIn As Single, ByRef ulOut As DWord) As HRESULT
425Declare Function VarUintFromR8 Lib "oleaut32" Alias "VarUI4FromR8" (dblIn As Double, ByRef ulOut As DWord) As HRESULT
426Declare Function VarUintFromDate Lib "oleaut32" Alias "VarUI4FromDate" (dateIn As DATE, ByRef ulOut As DWord) As HRESULT
427Declare Function VarUintFromCy Lib "oleaut32" Alias "VarUI4FromCy" (cyIn As CY, ByRef ulOut As DWord) As HRESULT
428Declare Function VarUintFromStr Lib "oleaut32" Alias "VarUI4FromStr" (strIn As *OLECHAR, lcid As LCID, dwFlags As DWord, ByRef ulOut As DWord) As HRESULT
429Declare Function VarUintFromDisp Lib "oleaut32" Alias "VarUI4FromDisp" (pdispIn As *IDispatch, lcid As LCID, ByRef ulOut As DWord) As HRESULT
430Declare Function VarUintFromBool Lib "oleaut32" Alias "VarUI4FromBool" (boolIn As VARIANT_BOOL, ByRef ulOut As DWord) As HRESULT
431Declare Function VarUintFromI1 Lib "oleaut32" Alias "VarUI4FromI1" (cIn As CHAR, ByRef ulOut As DWord) As HRESULT
432Declare Function VarUintFromUI2 Lib "oleaut32" Alias "VarUI4FromUI2" (uiIn As Word, ByRef ulOut As DWord) As HRESULT
433Declare Function VarUintFromUI8 Lib "oleaut32" Alias "VarUI4FromUI8" (ui64In As QWord, ByRef lOut As DWord) As HRESULT
434Declare Function VarUintFromDec Lib "oleaut32" Alias "VarUI4FromDec" (ByRef decIn As DECIMAL, ByRef ulOut As DWord) As HRESULT
435Declare Function VarUintFromInt Lib "oleaut32" Alias "VarUI4FromI4" (lIn As LONG, ByRef ulOut As DWord) As HRESULT
436
437Sub VarI4FromInt(iIn As Long, ByRef lOut As Long)
438 lOut = iIn
439End Sub
440
441Sub VarUI4FromUint(uiIn As DWord, ByRef ulOut As DWord)
442 ulOut = uiIn
443End Sub
444
445Sub VarIntFromI4(lIn As Long, ByRef iOut As Long)
446 iOut = lIn
447End Sub
448
449Sub VarUintFromUI4(ulIn As DWord, ByRef uiOut As DWord)
450 uiOut = ulIn
451End Sub
452
453' New VARIANT <-> string parsing functions
454Type NUMPARSE
455 cDig As Long
456 dwInFlags As DWord
457 dwOutFlags As DWord
458 cchUsed As Long
459 nBaseShift As Long
460 nPwr10 As Long
461End Type
462
463Const NUMPRS_LEADING_WHITE = &h0001
464Const NUMPRS_TRAILING_WHITE = &h0002
465Const NUMPRS_LEADING_PLUS = &h0004
466Const NUMPRS_TRAILING_PLUS = &h0008
467Const NUMPRS_LEADING_MINUS = &h0010
468Const NUMPRS_TRAILING_MINUS = &h0020
469Const NUMPRS_HEX_OCT = &h0040
470Const NUMPRS_PARENS = &h0080
471Const NUMPRS_DECIMAL = &h0100
472Const NUMPRS_THOUSANDS = &h0200
473Const NUMPRS_CURRENCY = &h0400
474Const NUMPRS_EXPONENT = &h0800
475Const NUMPRS_USE_ALL = &h1000
476Const NUMPRS_STD = &h1FFF
477
478Const NUMPRS_NEG = &h110000
479Const NUMPRS_INEXACT = &h20000
480
481Const VTBIT_I1 = (1 << VT_I1)
482Const VTBIT_UI1 = (1 << VT_UI1)
483Const VTBIT_I2 = (1 << VT_I2)
484Const VTBIT_UI2 = (1 << VT_UI2)
485Const VTBIT_I4 = (1 << VT_I4)
486Const VTBIT_UI4 = (1 << VT_UI4)
487Const VTBIT_I8 = (1 << VT_I8)
488Const VTBIT_UI8 = (1 << VT_UI8)
489Const VTBIT_R4 = (1 << VT_R4)
490Const VTBIT_R8 = (1 << VT_R8)
491Const VTBIT_CY = (1 << VT_CY)
492Const VTBIT_DECIMAL = (1 << VT_DECIMAL)
493
494Declare Function VarParseNumFromStr Lib "oleaut32" (strIn As *OLECHAR, lcid As LCID, dwFlags As DWord, ByRef numprs As NUMPARSE, rgbDig As *Byte) As HRESULT
495Declare Function VarNumFromParseNum Lib "oleaut32" (ByRef numprs As NUMPARSE, rgbDig As *Byte, dwVtBits As DWord, ByRef var As VARIANT) As HRESULT
496
497' VARTYPE Math API
498Declare Function VarAdd Lib "oleaut32" (ByRef lhs As VARIANT, ByRef rhs As VARIANT, ByRef result As VARIANT) As HRESULT
499Declare Function VarAnd Lib "oleaut32" (ByRef lhs As VARIANT, ByRef rhs As VARIANT, ByRef result As VARIANT) As HRESULT
500Declare Function VarCat Lib "oleaut32" (ByRef lhs As VARIANT, ByRef rhs As VARIANT, ByRef result As VARIANT) As HRESULT
501Declare Function VarDiv Lib "oleaut32.dll" (ByRef lhs As VARIANT, ByRef rhs As VARIANT, ByRef result As VARIANT) As HRESULT
502Declare Function VarEqv Lib "oleaut32" (ByRef lhs As VARIANT, ByRef rhs As VARIANT, ByRef result As VARIANT) As HRESULT
503Declare Function VarIdiv Lib "oleaut32" (ByRef lhs As VARIANT, ByRef rhs As VARIANT, ByRef result As VARIANT) As HRESULT
504Declare Function VarImp Lib "oleaut32" (ByRef lhs As VARIANT, ByRef rhs As VARIANT, ByRef result As VARIANT) As HRESULT
505Declare Function VarMod Lib "oleaut32" (ByRef lhs As VARIANT, ByRef rhs As VARIANT, ByRef result As VARIANT) As HRESULT
506Declare Function VarMul Lib "oleaut32" (ByRef lhs As VARIANT, ByRef rhs As VARIANT, ByRef result As VARIANT) As HRESULT
507Declare Function VarOr Lib "oleaut32" (ByRef lhs As VARIANT, ByRef rhs As VARIANT, ByRef result As VARIANT) As HRESULT
508Declare Function VarPow Lib "oleaut32" (ByRef lhs As VARIANT, ByRef rhs As VARIANT, ByRef result As VARIANT) As HRESULT
509Declare Function VarSub Lib "oleaut32" (ByRef lhs As VARIANT, ByRef rhs As VARIANT, ByRef result As VARIANT) As HRESULT
510Declare Function VarXor Lib "oleaut32" (ByRef lhs As VARIANT, ByRef rhs As VARIANT, ByRef result As VARIANT) As HRESULT
511
512Declare Function VarAbs Lib "oleaut32" (ByRef in As VARIANT, ByRef result As VARIANT) As HRESULT
513Declare Function VarFix Lib "oleaut32" (ByRef in As VARIANT, ByRef result As VARIANT) As HRESULT
514Declare Function VarInt Lib "oleaut32" (ByRef in As VARIANT, ByRef result As VARIANT) As HRESULT
515Declare Function VarNeg Lib "oleaut32" (ByRef in As VARIANT, ByRef result As VARIANT) As HRESULT
516Declare Function VarNot Lib "oleaut32" (ByRef in As VARIANT, ByRef result As VARIANT) As HRESULT
517
518Declare Function VarRound Lib "oleaut32" (ByRef in As VARIANT, cDecimals As Long, ByRef result As VARIANT) As HRESULT
519
520Declare Function VarCmp Lib "oleaut32" (ByRef lhs As VARIANT, ByRef rhs As VARIANT, lcid As LCID, ByRef dwFlags As DWord) As HRESULT
521
522Declare Function VarDecAdd Lib "oleaut32" (ByRef lhs As DECIMAL, ByRef rhs As DECIMAL, ByRef result As DECIMAL) As HRESULT
523Declare Function VarDecDiv Lib "oleaut32" (ByRef lhs As DECIMAL, ByRef rhs As DECIMAL, ByRef result As DECIMAL) As HRESULT
524Declare Function VarDecMul Lib "oleaut32" (ByRef lhs As DECIMAL, ByRef rhs As DECIMAL, ByRef result As DECIMAL) As HRESULT
525Declare Function VarDecSub Lib "oleaut32" (ByRef lhs As DECIMAL, ByRef rhs As DECIMAL, ByRef result As DECIMAL) As HRESULT
526
527Declare Function VarDecAbs Lib "oleaut32" (ByRef in As DECIMAL, ByRef result As DECIMAL) As HRESULT
528Declare Function VarDecFix Lib "oleaut32" (ByRef in As DECIMAL, ByRef result As DECIMAL) As HRESULT
529Declare Function VarDecInt Lib "oleaut32" (ByRef in As DECIMAL, ByRef result As DECIMAL) As HRESULT
530Declare Function VarDecNeg Lib "oleaut32" (ByRef in As DECIMAL, ByRef result As DECIMAL) As HRESULT
531
532Declare Function VarDecRound Lib "oleaut32" (ByRef in As DECIMAL, cDecimals As Long, ByRef result As DECIMAL) As HRESULT
533
534Declare Function VarDecCmp Lib "oleaut32" (ByRef lhs As DECIMAL, ByRef rhs As DECIMAL) As HRESULT
535Declare Function VarDecCmpR8 Lib "oleaut32" (ByRef lhs As DECIMAL, ByRef rhs As Double) As HRESULT
536
537Declare Function VarCyAdd Lib "oleaut32" (lhs As CY, rhs As CY, ByRef result As CY) As HRESULT
538Declare Function VarCyMul Lib "oleaut32" (lhs As CY, rhs As CY, ByRef result As CY) As HRESULT
539Declare Function VarCyMulI4 Lib "oleaut32" (lhs As CY, rhs As Long, ByRef result As CY) As HRESULT
540Declare Function VarCyMulI8 Lib "oleaut32" (lhs As CY, rhs As Int64, ByRef result As CY) As HRESULT
541Declare Function VarCySub Lib "oleaut32" (lhs As CY, rhs As CY, ByRef result As CY) As HRESULT
542
543Declare Function VarCyAbs Lib "oleaut32" (in As CY, ByRef result As CY) As HRESULT
544Declare Function VarCyFix Lib "oleaut32" (in As CY, ByRef result As CY) As HRESULT
545Declare Function VarCyInt Lib "oleaut32" (in As CY, ByRef result As CY) As HRESULT
546Declare Function VarCyNeg Lib "oleaut32" (in As CY, ByRef result As CY) As HRESULT
547
548Declare Function VarCyRound Lib "oleaut32" (in As CY, cDecimals As Long, ByRef result As CY) As HRESULT
549
550Declare Function VarCyCmp Lib "oleaut32" (ByRef lhs As CY, ByRef rhs As CY) As HRESULT
551Declare Function VarCyCmpR8 Lib "oleaut32" (ByRef lhs As CY, ByRef rhs As Double) As HRESULT
552
553Declare Function VarBstrCat Lib "oleaut32" (lhs As BSTR, rhs As BSTR, ByRef result As BSTR) As HRESULT
554Declare Function VarBstrCmp Lib "oleaut32" (lhs As BSTR, rhs As BSTR, lcid As LCID, dwFlags As DWord) As HRESULT
555Declare Function VarR8Pow Lib "oleaut32" (lhs As Double, rhs As Double, ByRef result As Double) As HRESULT
556Declare Function VarR4CmpR8 Lib "oleaut32" (lhs As Single, rhs As Double) As HRESULT
557Declare Function VarR8Round Lib "oleaut32" (in As Double, cDecimals As Long, ByRef result As Double) As HRESULT
558
559Const VARCMP_LT = 0
560Const VARCMP_EQ = 1
561Const VARCMP_GT = 2
562Const VARCMP_NULL = 3
563
564Const VT_HARDTYPE = VT_RESERVED
565
566' New date functions
567Type UDATE
568 st As SYSTEMTIME
569 wDayOfYear As Word
570End Type
571
572Declare Function VarDateFromUdate Lib "oleaut32" (udateIn As UDATE, dwFlags As DWord, ByRef dateOut As DATE) As HRESULT
573Declare Function VarDateFromUdateEx Lib "oleaut32" (udateIn As UDATE, lcid As LCID, dwFlags As DWord, ByRef dateOut As DATE) As HRESULT
574Declare Function VarUdateFromDate Lib "oleaut32" (dateIn As DATE, dwFlags As DWord, ByRef udateOut As UDATE) As HRESULT
575
576Declare Function GetAltMonthNames Lib "oleaut32" (lcid As LCID, ByRef rgp As LPOLESTR) As HRESULT
577
578' Format
579Declare Function VarFormat Lib "oleaut32" (ByRef in As VARIANT, pstrFormat As LPOLESTR, iFirstDay As Long, dwFlags As DWord, ByRef bstrOut As BSTR) As HRESULT
580Declare Function VarFormatDateTime Lib "oleaut32" (ByRef in As VARIANT, iNamedFormat As Long, dwFlags As DWord, ByRef bstrOut As BSTR) As HRESULT
581Declare Function VarFormatNumber Lib "oleaut32" (ByRef in As VARIANT, iNumDig As Long, iIncLead As Long, iUseParens As Long, iGroup As Long, dwFlags As DWord, ByRef bstrOut As BSTR) As HRESULT
582Declare Function VarFormatPercent Lib "oleaut32" (ByRef in As VARIANT, iNumDig As Long, iIncLead As Long, iUseParens As Long, iGroup As Long, dwFlags As DWord, ByRef bstrOut As BSTR) As HRESULT
583Declare Function VarFormatCurrency Lib "oleaut32" (ByRef in As VARIANT, iNumDig As Long, iIncLead As Long, iUseParens As Long, iGroup As Long, dwFlags As DWord, ByRef bstrOut As BSTR) As HRESULT
584
585Declare Function VarWeekdayName Lib "oleaut32" (iWeekday As Long, fAbbrev As Long, iFirstDay As Long, dwFlags As DWord, ByRef bstrOut As BSTR) As HRESULT
586Declare Function VarMonthName Lib "oleaut32" (iMonth As Long, fAbbrev As Long, dwFlags As DWord, ByRef bstrOut As BSTR) As HRESULT
587
588Declare Function VarFormatFromTokens Lib "oleaut32" (ByRef in As VARIANT, pstrFormat As LPOLESTR, pbTokCur As *Byte, dwFlags As DWord, ByRef bstrOut As BSTR, lcid As LCID) As HRESULT
589Declare Function VarTokenizeFormatString Lib "oleaut32" (pstrFormat As LPOLESTR, rgbTok As *Byte, cbTok As Long, iFirstDay As Long, iFirstWeek As Long, lcid As LCID, ByRef cbActual As Long) As HRESULT
590
591' ITypeLib
592TypeDef PTYPELIB = VoidPtr '*ITypeLib
593
594' ITypeInfo
595TypeDef DISPID = Long
596typedef MEMBERID = DISPID
597
598'Const MEMBERID_NIL = DISPID_UNKNOWN
599Const ID_DEFAULTINST = -2
600
601
602Const DISPATCH_METHOD = &h1
603Const DISPATCH_PROPERTYGET = &h2
604Const DISPATCH_PROPERTYPUT = &h4
605Const DISPATCH_PROPERTYPUTREF = &h8
606
607Typedef LPTYPEINFO = VoidPtr '*ITypeInfo
608
609' ITypeComp
610TypeDef LPTYPECOMP = VoidPtr '*ITypeComp
611
612' ICreateTypeLib
613TypeDef LPCREATETYPELIB = VoidPtr '*ICreateTypeLib
614typedef LPCREATETYPEINFO = VoidPtr '*ICreateTypeInfo
615
616' TypeInfo API
617'#if (defined (_WIN32) || defined (_WIN64))
618Declare Function LHashValOfNameSysA Lib "oleaut32" (syskind As SYSKIND, lcid As LCID, szName As PCSTR) As DWord
619'#endif
620
621Declare Function LHashValOfNameSys Lib "oleaut32" (syskind As SYSKIND, lcid As LCID, szName As /*Const*/ *OLECHAR) As DWord
622
623Const LHashValOfName(lcid, szName) = LHashValOfNameSys(SYS_WIN32, (lcid), (szName))
624Const WHashValOfLHashVal(lhashval) = (((lhashval) And &h0000ffff) As Word)
625Const IsHashValCompatible(lhashval1, lhashval2) = (((&h00ff0000 And (lhashval1)) = (&h00ff0000 And (lhashval2))) As BOOL)
626
627'Declare Function LoadTypeLib Lib "oleaut32" (szFile As /*Const*/ *OLECHAR, ByRef ptlib As *ITypeLib) As DWord
628
629Const Enum REGKIND
630 REGKIND_DEFAULT,
631 REGKIND_REGISTER,
632 REGKIND_NONE
633End Enum
634
635Const LOAD_TLB_AS_32BIT = &h20
636Const LOAD_TLB_AS_64BIT = &h40
637Const MASK_TO_RESET_TLB_BITS = (Not (LOAD_TLB_AS_32BIT Or LOAD_TLB_AS_64BIT))
638
639Declare Function LoadTypeLibEx Lib "oleaut32" (szFile As /*Const*/ *OLECHAR, regkind As REGKIND, ByRef ptlib As *ITypeLib) As HRESULT
640Declare Function LoadRegTypeLib Lib "oleaut32" (ByRef rguid As GUID, wVerMajor As Word, wVerMinor As Word, lcid As LCID, ByRef ptlib As *ITypeLib) As HRESULT
641Declare Function QueryPathOfRegTypeLib Lib "oleaut32" (ByRef rguid As GUID, wVerMajor As Word, wVerMinor As Word, lcid As LCID, ByRef bstrPathName As BSTR) As HRESULT
642Declare Function RegisterTypeLib Lib "oleaut32" (ptlib As *ITypeLib, szFullPath As *OLECHAR, szHelpDir As *OLECHAR) As HRESULT
643Declare Function CreateTypeLib Lib "oleaut32" (syskind As SYSKIND, szFile As /*Const*/ *OLECHAR, ByRef pctlib As *ICreateTypeLib) As HRESULT
644Declare Function CreateTypeLib2 Lib "oleaut32" (syskind As SYSKIND, szFile As LPCOLESTR, ByRef pctlib As *ICreateTypeLib) As HRESULT
645
646' IDispatch implementation support
647TypeDef LPDISPATCH = *IDispatch
648
649Type PARAMDATA
650 szName As *OLECHAR
651 vt As *VARTYPE
652End Type
653
654TypeDef LPPARAMDATA = *PARAMDATA
655
656Type METHODDATA
657 szName As *OLECHAR
658 ppdata As *PARAMDATA
659 dispid As DISPID
660 iMeth As DWord
661 cc As CALLCONV
662 cArgs As DWord
663 wFlags As Word
664 vtReturn As VARTYPE
665End Type
666
667TypeDef LPMETHODDATA = *METHODDATA
668
669Type INTERFACEDATA
670 pmethdata As *METHODDATA
671 cMembers As DWord
672End Type
673
674TypeDef LPINTERFACEDATA = *INTERFACEDATA
675
676Declare Function DispGetParam Lib "oleaut32" (pdispparams As *DISPPARAMS, position As DWord, vtTarg As VARTYPE, ByRef varResult As VARIANT, ByRef uArgErr As DWord) As HRESULT
677Declare Function DispGetIDsOfNames Lib "oleaut32" (ptinfo As *ITypeInfo, position As DWord, vtTarg As VARTYPE, ByRef varResult As VARIANT, ByRef uArgErr As DWord) As HRESULT
678Declare Function DispInvoke Lib "oleaut32" (_this As VoidPtr, ptinfo As *ITypeInfo, dispidMember As DISPID, wFlags As Word, pparams As *DISPPARAMS, ByRef varResult As VARIANT, ByRef excepinfo As EXCEPINFO, ByRef uArgErr As DWord) As HRESULT
679Declare Function CreateDispTypeInfo Lib "oleaut32" (ByRef pidata As INTERFACEDATA, lcid As LCID, ByRef ptinfo As *ITypeInfo) As HRESULT
680Declare Function CreateStdDispatch Lib "oleaut32" (punkOuter As *IUnknown, pvThis As VoidPtr, ptinfo As *ITypeInfo, ByRef punkStdDisp As *IUnknown) As HRESULT
681Declare Function DispCallFunc Lib "oleaut32" (pvInstance As VoidPtr, oVft As ULONG_PTR, cc As CALLCONV, vtReturn As VARTYPE, cActuals As DWord, ByRef rgvt As VARTYPE, ByRef rgpvarg As *VARIANTARG, ByRef vargResult As VARIANT) As HRESULT
682
683' Active Object Registration API
684Const ACTIVEOBJECT_STRONG = &h0
685Const ACTIVEOBJECT_WEAK = &h1
686
687Declare Function RegisterActiveObject Lib "oleaut32" (punk As *IUnknown, ByRef rclsid As CLSID, dwFlags As DWord, ByRef dwRegister As DWord) As HRESULT
688Declare Function RevokeActiveObject Lib "oleaut32" (dwRegister As DWord, pvReserved As VoidPtr) As HRESULT
689Declare Function GetActiveObject Lib "oleaut32" (ByRef rclsid As CLSID, pvReserved As VoidPtr, ByRef punk As *IUnknown) As HRESULT
690
691' ErrorInfo API
692Declare Function SetErrorInfo Lib "oleaut32" (dwReserved As DWord, perrinfo As *IErrorInfo) As HRESULT
693Declare Function GetErrorInfo Lib "oleaut32" (dwReserved As DWord, ByRef perrinfo As *IErrorInfo) As HRESULT
694Declare Function CreateErrorInfo Lib "oleaut32" (ByRef perrinfo As *ICreateErrorInfo) As HRESULT
695
696' User Defined Data types support
697Declare Function GetRecordInfoFromTypeInfo Lib "oleaut32" (pTypeInfo As *ITypeInfo, ByRef pRecInfo As *IRecordInfo) As HRESULT
698Declare Function GetRecordInfoFromGuids Lib "oleaut32" (ByRef rGuidTypeLib As GUID, uVerMajor As DWord, uVerMinor As DWord, lcid As LCID, ByRef rGuidTypeInfo As GUID, ByRef pRecInfo As *IRecordInfo) As HRESULT
699
700' MISC API
701Declare Function OaBuildVersion Lib "oleaut32" () As DWord
702Declare Sub ClearCustData Lib "oleaut32" (ByRef CustData As CUSTDATA)
703
704#endif '_INC_OLEAUTO_AB
Note: See TracBrowser for help on using the repository browser.