blob: 8e5bf67458f240150c99e76a76616a7c9e6d70f6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
|
{
This file is part of the Free Pascal run time library.
Copyright (c) 2006-2008 Free Pascal development team.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
{ Declarations for oleaut32 WinCE API
}
{exported functions list = to do,
* please remove functions done *
Exports
E3 BstrFromVector
DD CreateErrorInfo
D7 CreateTypeLib2
CF DispCallFunc
1D DispGetIDsOfNames
1C DispGetParam
1E DispInvoke
DB GetErrorInfo
D5 LoadRegTypeLib
D4 LoadTypeLib
D8 OACreateTypeLib2
D6 RegisterTypeLib
17 SafeArrayAccessData
20 SafeArrayAllocData
1F SafeArrayAllocDescriptor
1B SafeArrayCopy
E1 SafeArrayCopyData
F SafeArrayCreate
E0 SafeArrayCreateVector
10 SafeArrayDestroy
22 SafeArrayDestroyData
21 SafeArrayDestroyDescriptor
11 SafeArrayGetDim
19 SafeArrayGetElement
12 SafeArrayGetElemsize
14 SafeArrayGetLBound
13 SafeArrayGetUBound
15 SafeArrayLock
D1 SafeArrayPtrOfIndex
1A SafeArrayPutElement
23 SafeArrayRedim
18 SafeArrayUnaccessData
16 SafeArrayUnlock
DC SetErrorInfo
D3 SysAllocStringByteLen
D2 SysStringByteLen
D9 SystemTimeToVariantTime
87 VarBoolFromCy
86 VarBoolFromDate
8D VarBoolFromDec
89 VarBoolFromDisp
8A VarBoolFromI1
82 VarBoolFromI2
83 VarBoolFromI4
84 VarBoolFromR4
85 VarBoolFromR8
88 VarBoolFromStr
81 VarBoolFromUI1
8B VarBoolFromUI2
8C VarBoolFromUI4
7C VarBstrFromBool
79 VarBstrFromCy
7A VarBstrFromDate
80 VarBstrFromDec
7B VarBstrFromDisp
7D VarBstrFromI1
75 VarBstrFromI2
76 VarBstrFromI4
77 VarBstrFromR4
78 VarBstrFromR8
74 VarBstrFromUI1
7E VarBstrFromUI2
7F VarBstrFromUI4
6F VarCyFromBool
6C VarCyFromDate
73 VarCyFromDec
6E VarCyFromDisp
70 VarCyFromI1
68 VarCyFromI2
69 VarCyFromI4
6A VarCyFromR4
6B VarCyFromR8
6D VarCyFromStr
67 VarCyFromUI1
71 VarCyFromUI2
72 VarCyFromUI4
62 VarDateFromBool
5F VarDateFromCy
66 VarDateFromDec
61 VarDateFromDisp
63 VarDateFromI1
5B VarDateFromI2
5C VarDateFromI4
5D VarDateFromR4
5E VarDateFromR8
60 VarDateFromStr
5A VarDateFromUI1
64 VarDateFromUI2
65 VarDateFromUI4
DE VarDateFromUdate
A4 VarDecFromBool
A1 VarDecFromCy
A0 VarDecFromDate
A3 VarDecFromDisp
A5 VarDecFromI1
9C VarDecFromI2
9D VarDecFromI4
9E VarDecFromR4
9F VarDecFromR8
A2 VarDecFromStr
9B VarDecFromUI1
A6 VarDecFromUI2
A7 VarDecFromUI4
B1 VarI1FromBool
AE VarI1FromCy
AD VarI1FromDate
B4 VarI1FromDec
B0 VarI1FromDisp
A9 VarI1FromI2
AA VarI1FromI4
AB VarI1FromR4
AC VarI1FromR8
AF VarI1FromStr
A8 VarI1FromUI1
B2 VarI1FromUI2
B3 VarI1FromUI4
2E VarI2FromBool
2A VarI2FromCy
2B VarI2FromDate
32 VarI2FromDec
2D VarI2FromDisp
2F VarI2FromI1
27 VarI2FromI4
28 VarI2FromR4
29 VarI2FromR8
2C VarI2FromStr
26 VarI2FromUI1
30 VarI2FromUI2
31 VarI2FromUI4
3B VarI4FromBool
37 VarI4FromCy
38 VarI4FromDate
3F VarI4FromDec
3A VarI4FromDisp
3C VarI4FromI1
34 VarI4FromI2
35 VarI4FromR4
36 VarI4FromR8
39 VarI4FromStr
33 VarI4FromUI1
3D VarI4FromUI2
3E VarI4FromUI4
25 VarNumFromParseNum
24 VarParseNumFromStr
48 VarR4FromBool
44 VarR4FromCy
45 VarR4FromDate
4C VarR4FromDec
47 VarR4FromDisp
49 VarR4FromI1
41 VarR4FromI2
42 VarR4FromI4
43 VarR4FromR8
46 VarR4FromStr
40 VarR4FromUI1
4A VarR4FromUI2
4B VarR4FromUI4
55 VarR8FromBool
51 VarR8FromCy
52 VarR8FromDate
59 VarR8FromDec
54 VarR8FromDisp
56 VarR8FromI1
4E VarR8FromI2
4F VarR8FromI4
50 VarR8FromR4
53 VarR8FromStr
4D VarR8FromUI1
57 VarR8FromUI2
58 VarR8FromUI4
96 VarUI1FromBool
92 VarUI1FromCy
93 VarUI1FromDate
9A VarUI1FromDec
95 VarUI1FromDisp
97 VarUI1FromI1
8E VarUI1FromI2
8F VarUI1FromI4
90 VarUI1FromR4
91 VarUI1FromR8
94 VarUI1FromStr
98 VarUI1FromUI2
99 VarUI1FromUI4
BE VarUI2FromBool
BB VarUI2FromCy
BA VarUI2FromDate
C1 VarUI2FromDec
BD VarUI2FromDisp
BF VarUI2FromI1
B6 VarUI2FromI2
B7 VarUI2FromI4
B8 VarUI2FromR4
B9 VarUI2FromR8
BC VarUI2FromStr
B5 VarUI2FromUI1
C0 VarUI2FromUI4
CB VarUI4FromBool
C8 VarUI4FromCy
C7 VarUI4FromDate
CE VarUI4FromDec
CA VarUI4FromDisp
CC VarUI4FromI1
C3 VarUI4FromI2
C4 VarUI4FromI4
C5 VarUI4FromR4
C6 VarUI4FromR8
C9 VarUI4FromStr
C2 VarUI4FromUI1
CD VarUI4FromUI2
DF VarUdateFromDate
E VariantChangeType
D0 VariantChangeTypeEx
B VariantClear
C VariantCopy
D VariantCopyInd
A VariantInit
DA VariantTimeToSystemTime
E2 VectorFromBstr
}
unit oleauto;
interface
uses windows;
{$calling cdecl}
//*****************************************************************************
// consts
//*****************************************************************************
const
oleaut32dll = 'oleaut32.dll';
//*****************************************************************************
// types
//*****************************************************************************
//*****************************************************************************
// functions
//*****************************************************************************
//BSTR API
function SysAllocString(psz: pointer): longint; external oleaut32dll name 'SysAllocString';
function SysAllocStringLen(psz: pointer; len:dword): longint; external oleaut32dll name 'SysAllocStringLen';
procedure SysFreeString(bstr:pointer); external oleaut32dll name 'SysFreeString';
function SysStringLen(bstr:pointer):UINT; external oleaut32dll name 'SysStringLen';
function SysReAllocString(var bstr:pointer;psz: pointer): longint; external oleaut32dll name 'SysReAllocString';
function SysReAllocStringLen(var bstr:pointer;psz: pointer; len:dword): longint; external oleaut32dll name 'SysReAllocStringLen';
implementation
end.
|
