← Back to branch summary

~ubuntu-branches/debian/lenny/fpc/lenny

« back to all changes in this revision

Viewing changes to fpcsrc/packages/base/winunits/jwawpapi.pas

  • Committer: Bazaar Package Importer
  • Author(s): Mazen Neifer, Torsten Werner, Mazen Neifer
  • Date: 2008-05-17 17:12:11 UTC
  • mfrom: (3.1.9 intrepid)
  • Revision ID: james.westby@ubuntu.com-20080517171211-9qi33xhd9evfa0kg
Tags: 2.2.0-dfsg1-9
http://bugs.debian.org/477743
[ Torsten Werner ]
* Add Mazen Neifer to Uploaders field.

[ Mazen Neifer ]
* Moved FPC sources into a version dependent directory from /usr/share/fpcsrc
  to /usr/share/fpcsrc/${FPCVERSION}. This allow installing more than on FPC
  release.
* Fixed far call issue in compiler preventing building huge binearies.
  (closes: #477743)
* Updated building dependencies, recomennded and suggested packages.
* Moved fppkg to fp-utils as it is just a helper tool and is not required by
  compiler.

Show diffs side-by-side

added added

removed removed

Lines of Context:
fpcsrc/packages/base/winunits/jwawpapi.pas
 
1
{******************************************************************************}
 
2
{                                                                              }
 
3
{ Web Publishing API interface Unit for Object Pascal                          }
 
4
{                                                                              }
 
5
{ Portions created by Microsoft are Copyright (C) 1995-2001 Microsoft          }
 
6
{ Corporation. All Rights Reserved.                                            }
 
7
{                                                                              }
 
8
{ The original file is: wpapi.h, released June 2000. The original Pascal       }
 
9
{ code is: WPApi.pas, released December 2000. The initial developer of the     }
 
10
{ Pascal code is Marcel van Brakel (brakelm att chello dott nl).               }
 
11
{                                                                              }
 
12
{ Portions created by Marcel van Brakel are Copyright (C) 1999-2001            }
 
13
{ Marcel van Brakel. All Rights Reserved.                                      }
 
14
{                                                                              }
 
15
{ Obtained through: Joint Endeavour of Delphi Innovators (Project JEDI)        }
 
16
{                                                                              }
 
17
{ You may retrieve the latest version of this file at the Project JEDI         }
 
18
{ APILIB home page, located at http://jedi-apilib.sourceforge.net              }
 
19
{                                                                              }
 
20
{ The contents of this file are used with permission, subject to the Mozilla   }
 
21
{ Public License Version 1.1 (the "License"); you may not use this file except }
 
22
{ in compliance with the License. You may obtain a copy of the License at      }
 
23
{ http://www.mozilla.org/MPL/MPL-1.1.html                                      }
 
24
{                                                                              }
 
25
{ Software distributed under the License is distributed on an "AS IS" basis,   }
 
26
{ WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for }
 
27
{ the specific language governing rights and limitations under the License.    }
 
28
{                                                                              }
 
29
{ Alternatively, the contents of this file may be used under the terms of the  }
 
30
{ GNU Lesser General Public License (the  "LGPL License"), in which case the   }
 
31
{ provisions of the LGPL License are applicable instead of those above.        }
 
32
{ If you wish to allow use of your version of this file only under the terms   }
 
33
{ of the LGPL License and not to allow others to use your version of this file }
 
34
{ under the MPL, indicate your decision by deleting  the provisions above and  }
 
35
{ replace  them with the notice and other provisions required by the LGPL      }
 
36
{ License.  If you do not delete the provisions above, a recipient may use     }
 
37
{ your version of this file under either the MPL or the LGPL License.          }
 
38
{                                                                              }
 
39
{ For more information about the LGPL: http://www.gnu.org/copyleft/lesser.html }
 
40
{                                                                              }
 
41
{******************************************************************************}
 
42
 
 
43
// $Id: JwaWPApi.pas,v 1.8 2005/09/06 16:36:50 marquardt Exp $
 
44
 
 
45
unit JwaWPApi;
 
46
 
 
47
{$WEAKPACKAGEUNIT}
 
48
 
 
49
{$HPPEMIT ''}
 
50
{$HPPEMIT '#include "wpapi.h"'}
 
51
{$HPPEMIT ''}
 
52
 
 
53
{$I jediapilib.inc}
 
54
 
 
55
interface
 
56
 
 
57
uses
 
58
  JwaWPTypes, JwaWindows;
 
59
 
 
60
//
 
61
// Flags
 
62
//
 
63
 
 
64
const
 
65
  WPF_NO_RECURSIVE_POST     = $00000001; // WpPost
 
66
  {$EXTERNALSYM WPF_NO_RECURSIVE_POST}
 
67
  WPF_NO_WIZARD             = $00000002; // WpPost
 
68
  {$EXTERNALSYM WPF_NO_WIZARD}
 
69
  WPF_MINIMAL_UI            = $00000004; // WpPost - OBSOLETE
 
70
  {$EXTERNALSYM WPF_MINIMAL_UI}
 
71
  WPF_FIRST_FILE_AS_DEFAULT = $00000008; // WpPost/PostFiles
 
72
  {$EXTERNALSYM WPF_FIRST_FILE_AS_DEFAULT}
 
73
  WPF_NO_DIRECT_LOOKUP      = $00000010; // WpBindToSite
 
74
  {$EXTERNALSYM WPF_NO_DIRECT_LOOKUP}
 
75
  WPF_NO_URL_LOOKUP         = $00000020; // WpBindToSite
 
76
  {$EXTERNALSYM WPF_NO_URL_LOOKUP}
 
77
  WPF_USE_PROVIDER_PASSED   = $00000040; // WpCreateSite
 
78
  {$EXTERNALSYM WPF_USE_PROVIDER_PASSED}
 
79
  WPF_NO_VERIFY_POST        = $00000080; // WpPost
 
80
  {$EXTERNALSYM WPF_NO_VERIFY_POST}
 
81
  WPF_NO_PROGRESS_DLGS      = $00000200; // WpPost
 
82
  {$EXTERNALSYM WPF_NO_PROGRESS_DLGS}
 
83
  WPF_SHOWPAGE_WELCOME      = $00010000; // WpPost/Wizard
 
84
  {$EXTERNALSYM WPF_SHOWPAGE_WELCOME}
 
85
  WPF_SHOWPAGE_SRCFILE      = $00020000; // WpPost/Wizard
 
86
  {$EXTERNALSYM WPF_SHOWPAGE_SRCFILE}
 
87
  WPF_SHOWPAGE_DESTSITE     = $00040000; // WpPost/Wizard
 
88
  {$EXTERNALSYM WPF_SHOWPAGE_DESTSITE}
 
89
  WPF_SHOWPAGE_PROVIDER     = $00080000; // WpPost/Wizard/AddWizardPages
 
90
  {$EXTERNALSYM WPF_SHOWPAGE_PROVIDER}
 
91
  WPF_ENABLE_LOCAL_BASE_DIR = $00100000; // WpPost/Wizard
 
92
  {$EXTERNALSYM WPF_ENABLE_LOCAL_BASE_DIR}
 
93
 
 
94
  WPF_NO_UI = WPF_NO_WIZARD or WPF_NO_PROGRESS_DLGS;
 
95
  {$EXTERNALSYM WPF_NO_UI}
 
96
 
 
97
  WPF_SHOWPAGE_ALL = WPF_SHOWPAGE_WELCOME or WPF_SHOWPAGE_SRCFILE or WPF_SHOWPAGE_DESTSITE or WPF_SHOWPAGE_PROVIDER;
 
98
  {$EXTERNALSYM WPF_SHOWPAGE_ALL}
 
99
 
 
100
//
 
101
// Miscellaneous
 
102
//
 
103
 
 
104
  MAX_SITENAME_LEN = 128;
 
105
  {$EXTERNALSYM MAX_SITENAME_LEN}
 
106
 
 
107
//
 
108
// Unicode APIs
 
109
//
 
110
 
 
111
function WpPostW(hwnd: HWND; dwNumLocalPaths: DWORD; pwsLocalPaths: LPWSTR;
 
112
  var pdwSiteNameBufLen: DWORD; wsSiteName: LPWSTR; var pdwDestURLBufLen: DWORD;
 
113
  wsDestURL: LPWSTR; dwFlag: DWORD): DWORD; stdcall;
 
114
{$EXTERNALSYM WpPostW}
 
115
function WpListSitesW(var pdwSitesBufLen: DWORD; pSitesBuffer: LPWPSITEINFOW;
 
116
  var pdwNumSites: DWORD): DWORD; stdcall;
 
117
{$EXTERNALSYM WpListSitesW}
 
118
function WpDoesSiteExistW(wsSiteName: LPCWSTR; var pfSiteExists: BOOL): DWORD; stdcall;
 
119
{$EXTERNALSYM WpDoesSiteExistW}
 
120
function WpDeleteSiteW(wsSiteName: LPCWSTR): DWORD; stdcall;
 
121
{$EXTERNALSYM WpDeleteSiteW}
 
122
function WpBindToSiteW(hwnd: HWND; wsSiteName, wsSitePostingURL: LPCWSTR;
 
123
  dwFlag, dwReserved: DWORD; out ppvUnk: IUnknown): DWORD; stdcall;
 
124
{$EXTERNALSYM WpBindToSiteW}
 
125
function WpCreateSiteW(wsSiteName, wsSiteLocalBaseDir, wsSitePostingURL,
 
126
  wsProviderCLSID: LPCWSTR; dwFlags: DWORD): DWORD; stdcall;
 
127
{$EXTERNALSYM WpCreateSiteW}
 
128
function WpEnumProvidersW(var pdwProvidersBufLen: DWORD; pProvidersBuffer: LPWPPROVINFOW;
 
129
  var pdwNumProviders: DWORD): DWORD; stdcall;
 
130
{$EXTERNALSYM WpEnumProvidersW}
 
131
function WpGetErrorStringW(uErrCode: UINT; wsOutputBuf: LPWSTR; var pdwBufLen: DWORD): DWORD; stdcall;
 
132
{$EXTERNALSYM WpGetErrorStringW}
 
133
 
 
134
//
 
135
// ANSI APIs
 
136
//
 
137
 
 
138
function WpPostA(hwnd: HWND; dwNumLocalPaths: DWORD; pwsLocalPaths: LPSTR;
 
139
  var pdwSiteNameBufLen: DWORD; wsSiteName: LPSTR; var pdwDestURLBufLen: DWORD;
 
140
  wsDestURL: LPSTR; dwFlag: DWORD): DWORD; stdcall;
 
141
{$EXTERNALSYM WpPostA}
 
142
function WpListSitesA(var pdwSitesBufLen: DWORD; pSitesBuffer: LPWPSITEINFOA;
 
143
  var pdwNumSites: DWORD): DWORD; stdcall;
 
144
{$EXTERNALSYM WpListSitesA}
 
145
function WpDoesSiteExistA(wsSiteName: LPCSTR; var pfSiteExists: BOOL): DWORD; stdcall;
 
146
{$EXTERNALSYM WpDoesSiteExistA}
 
147
function WpDeleteSiteA(wsSiteName: LPCSTR): DWORD; stdcall;
 
148
{$EXTERNALSYM WpDeleteSiteA}
 
149
function WpBindToSiteA(hwnd: HWND; wsSiteName, wsSitePostingURL: LPCSTR;
 
150
  dwFlag, dwReserved: DWORD; out ppvUnk: IUnknown): DWORD; stdcall;
 
151
{$EXTERNALSYM WpBindToSiteA}
 
152
function WpCreateSiteA(wsSiteName, wsSiteLocalBaseDir, wsSitePostingURL,
 
153
  wsProviderCLSID: LPCSTR; dwFlags: DWORD): DWORD; stdcall;
 
154
{$EXTERNALSYM WpCreateSiteA}
 
155
function WpEnumProvidersA(var pdwProvidersBufLen: DWORD; pProvidersBuffer: LPWPPROVINFOA;
 
156
  var pdwNumProviders: DWORD): DWORD; stdcall;
 
157
{$EXTERNALSYM WpEnumProvidersA}
 
158
function WpGetErrorStringA(uErrCode: UINT; wsOutputBuf: LPSTR; var pdwBufLen: DWORD): DWORD; stdcall;
 
159
{$EXTERNALSYM WpGetErrorStringA}
 
160
 
 
161
function WpPost(hwnd: HWND; dwNumLocalPaths: DWORD; pwsLocalPaths: LPTSTR;
 
162
  var pdwSiteNameBufLen: DWORD; wsSiteName: LPTSTR; var pdwDestURLBufLen: DWORD;
 
163
  wsDestURL: LPTSTR; dwFlag: DWORD): DWORD; stdcall;
 
164
{$EXTERNALSYM WpPost}
 
165
function WpListSites(var pdwSitesBufLen: DWORD; pSitesBuffer: LPWPSITEINFO;
 
166
  var pdwNumSites: DWORD): DWORD; stdcall;
 
167
{$EXTERNALSYM WpListSites}
 
168
function WpDoesSiteExist(wsSiteName: LPCTSTR; var pfSiteExists: BOOL): DWORD; stdcall;
 
169
{$EXTERNALSYM WpDoesSiteExist}
 
170
function WpDeleteSite(wsSiteName: LPCTSTR): DWORD; stdcall;
 
171
{$EXTERNALSYM WpDeleteSite}
 
172
function WpBindToSite(hwnd: HWND; wsSiteName, wsSitePostingURL: LPCTSTR;
 
173
  dwFlag, dwReserved: DWORD; out ppvUnk: IUnknown): DWORD; stdcall;
 
174
{$EXTERNALSYM WpBindToSite}
 
175
function WpCreateSite(wsSiteName, wsSiteLocalBaseDir, wsSitePostingURL, wsProviderCLSID: LPCTSTR; dwFlags: DWORD): DWORD; stdcall;
 
176
{$EXTERNALSYM WpCreateSite}
 
177
function WpEnumProviders(var pdwProvidersBufLen: DWORD; pProvidersBuffer: LPWPPROVINFO;
 
178
  var pdwNumProviders: DWORD): DWORD; stdcall;
 
179
{$EXTERNALSYM WpEnumProviders}
 
180
function WpGetErrorString(uErrCode: UINT; wsOutputBuf: LPTSTR; var pdwBufLen: DWORD): DWORD; stdcall;
 
181
{$EXTERNALSYM WpGetErrorString}
 
182
 
 
183
implementation
 
184
 
 
185
uses
 
186
  JwaWinDLLNames;
 
187
 
 
188
{$IFDEF DYNAMIC_LINK}
 
189
 
 
190
var
 
191
  _WpPostA: Pointer;
 
192
 
 
193
function WpPostA;
 
194
begin
 
195
  GetProcedureAddress(_WpPostA, wpapilib, 'WpPostA');
 
196
  asm
 
197
        MOV     ESP, EBP
 
198
        POP     EBP
 
199
        JMP     [_WpPostA]
 
200
  end;
 
201
end;
 
202
 
 
203
var
 
204
  _WpListSitesA: Pointer;
 
205
 
 
206
function WpListSitesA;
 
207
begin
 
208
  GetProcedureAddress(_WpListSitesA, wpapilib, 'WpListSitesA');
 
209
  asm
 
210
        MOV     ESP, EBP
 
211
        POP     EBP
 
212
        JMP     [_WpListSitesA]
 
213
  end;
 
214
end;
 
215
 
 
216
var
 
217
  _WpDoesSiteExistA: Pointer;
 
218
 
 
219
function WpDoesSiteExistA;
 
220
begin
 
221
  GetProcedureAddress(_WpDoesSiteExistA, wpapilib, 'WpDoesSiteExistA');
 
222
  asm
 
223
        MOV     ESP, EBP
 
224
        POP     EBP
 
225
        JMP     [_WpDoesSiteExistA]
 
226
  end;
 
227
end;
 
228
 
 
229
var
 
230
  _WpDeleteSiteA: Pointer;
 
231
 
 
232
function WpDeleteSiteA;
 
233
begin
 
234
  GetProcedureAddress(_WpDeleteSiteA, wpapilib, 'WpDeleteSiteA');
 
235
  asm
 
236
        MOV     ESP, EBP
 
237
        POP     EBP
 
238
        JMP     [_WpDeleteSiteA]
 
239
  end;
 
240
end;
 
241
 
 
242
var
 
243
  _WpBindToSiteA: Pointer;
 
244
 
 
245
function WpBindToSiteA;
 
246
begin
 
247
  GetProcedureAddress(_WpBindToSiteA, wpapilib, 'WpBindToSiteA');
 
248
  asm
 
249
        MOV     ESP, EBP
 
250
        POP     EBP
 
251
        JMP     [_WpBindToSiteA]
 
252
  end;
 
253
end;
 
254
 
 
255
var
 
256
  _WpCreateSiteA: Pointer;
 
257
 
 
258
function WpCreateSiteA;
 
259
begin
 
260
  GetProcedureAddress(_WpCreateSiteA, wpapilib, 'WpCreateSiteA');
 
261
  asm
 
262
        MOV     ESP, EBP
 
263
        POP     EBP
 
264
        JMP     [_WpCreateSiteA]
 
265
  end;
 
266
end;
 
267
 
 
268
var
 
269
  _WpEnumProvidersA: Pointer;
 
270
 
 
271
function WpEnumProvidersA;
 
272
begin
 
273
  GetProcedureAddress(_WpEnumProvidersA, wpapilib, 'WpEnumProvidersA');
 
274
  asm
 
275
        MOV     ESP, EBP
 
276
        POP     EBP
 
277
        JMP     [_WpEnumProvidersA]
 
278
  end;
 
279
end;
 
280
 
 
281
var
 
282
  _WpGetErrorStringA: Pointer;
 
283
 
 
284
function WpGetErrorStringA;
 
285
begin
 
286
  GetProcedureAddress(_WpGetErrorStringA, wpapilib, 'WpGetErrorStringA');
 
287
  asm
 
288
        MOV     ESP, EBP
 
289
        POP     EBP
 
290
        JMP     [_WpGetErrorStringA]
 
291
  end;
 
292
end;
 
293
 
 
294
var
 
295
  _WpPostW: Pointer;
 
296
 
 
297
function WpPostW;
 
298
begin
 
299
  GetProcedureAddress(_WpPostW, wpapilib, 'WpPostW');
 
300
  asm
 
301
        MOV     ESP, EBP
 
302
        POP     EBP
 
303
        JMP     [_WpPostW]
 
304
  end;
 
305
end;
 
306
 
 
307
var
 
308
  _WpListSitesW: Pointer;
 
309
 
 
310
function WpListSitesW;
 
311
begin
 
312
  GetProcedureAddress(_WpListSitesW, wpapilib, 'WpListSitesW');
 
313
  asm
 
314
        MOV     ESP, EBP
 
315
        POP     EBP
 
316
        JMP     [_WpListSitesW]
 
317
  end;
 
318
end;
 
319
 
 
320
var
 
321
  _WpDoesSiteExistW: Pointer;
 
322
 
 
323
function WpDoesSiteExistW;
 
324
begin
 
325
  GetProcedureAddress(_WpDoesSiteExistW, wpapilib, 'WpDoesSiteExistW');
 
326
  asm
 
327
        MOV     ESP, EBP
 
328
        POP     EBP
 
329
        JMP     [_WpDoesSiteExistW]
 
330
  end;
 
331
end;
 
332
 
 
333
var
 
334
  _WpDeleteSiteW: Pointer;
 
335
 
 
336
function WpDeleteSiteW;
 
337
begin
 
338
  GetProcedureAddress(_WpDeleteSiteW, wpapilib, 'WpDeleteSiteW');
 
339
  asm
 
340
        MOV     ESP, EBP
 
341
        POP     EBP
 
342
        JMP     [_WpDeleteSiteW]
 
343
  end;
 
344
end;
 
345
 
 
346
var
 
347
  _WpBindToSiteW: Pointer;
 
348
 
 
349
function WpBindToSiteW;
 
350
begin
 
351
  GetProcedureAddress(_WpBindToSiteW, wpapilib, 'WpBindToSiteW');
 
352
  asm
 
353
        MOV     ESP, EBP
 
354
        POP     EBP
 
355
        JMP     [_WpBindToSiteW]
 
356
  end;
 
357
end;
 
358
 
 
359
var
 
360
  _WpCreateSiteW: Pointer;
 
361
 
 
362
function WpCreateSiteW;
 
363
begin
 
364
  GetProcedureAddress(_WpCreateSiteW, wpapilib, 'WpCreateSiteW');
 
365
  asm
 
366
        MOV     ESP, EBP
 
367
        POP     EBP
 
368
        JMP     [_WpCreateSiteW]
 
369
  end;
 
370
end;
 
371
 
 
372
var
 
373
  _WpEnumProvidersW: Pointer;
 
374
 
 
375
function WpEnumProvidersW;
 
376
begin
 
377
  GetProcedureAddress(_WpEnumProvidersW, wpapilib, 'WpEnumProvidersW');
 
378
  asm
 
379
        MOV     ESP, EBP
 
380
        POP     EBP
 
381
        JMP     [_WpEnumProvidersW]
 
382
  end;
 
383
end;
 
384
 
 
385
var
 
386
  _WpGetErrorStringW: Pointer;
 
387
 
 
388
function WpGetErrorStringW;
 
389
begin
 
390
  GetProcedureAddress(_WpGetErrorStringW, wpapilib, 'WpGetErrorStringW');
 
391
  asm
 
392
        MOV     ESP, EBP
 
393
        POP     EBP
 
394
        JMP     [_WpGetErrorStringW]
 
395
  end;
 
396
end;
 
397
 
 
398
var
 
399
  _WpPost: Pointer;
 
400
 
 
401
function WpPost;
 
402
begin
 
403
  GetProcedureAddress(_WpPost, wpapilib, 'WpPost' + AWSuffix);
 
404
  asm
 
405
        MOV     ESP, EBP
 
406
        POP     EBP
 
407
        JMP     [_WpPost]
 
408
  end;
 
409
end;
 
410
 
 
411
var
 
412
  _WpListSites: Pointer;
 
413
 
 
414
function WpListSites;
 
415
begin
 
416
  GetProcedureAddress(_WpListSites, wpapilib, 'WpListSites' + AWSuffix);
 
417
  asm
 
418
        MOV     ESP, EBP
 
419
        POP     EBP
 
420
        JMP     [_WpListSites]
 
421
  end;
 
422
end;
 
423
 
 
424
var
 
425
  _WpDoesSiteExist: Pointer;
 
426
 
 
427
function WpDoesSiteExist;
 
428
begin
 
429
  GetProcedureAddress(_WpDoesSiteExist, wpapilib, 'WpDoesSiteExist' + AWSuffix);
 
430
  asm
 
431
        MOV     ESP, EBP
 
432
        POP     EBP
 
433
        JMP     [_WpDoesSiteExist]
 
434
  end;
 
435
end;
 
436
 
 
437
var
 
438
  _WpDeleteSite: Pointer;
 
439
 
 
440
function WpDeleteSite;
 
441
begin
 
442
  GetProcedureAddress(_WpDeleteSite, wpapilib, 'WpDeleteSite' + AWSuffix);
 
443
  asm
 
444
        MOV     ESP, EBP
 
445
        POP     EBP
 
446
        JMP     [_WpDeleteSite]
 
447
  end;
 
448
end;
 
449
 
 
450
var
 
451
  _WpBindToSite: Pointer;
 
452
 
 
453
function WpBindToSite;
 
454
begin
 
455
  GetProcedureAddress(_WpBindToSite, wpapilib, 'WpBindToSite' + AWSuffix);
 
456
  asm
 
457
        MOV     ESP, EBP
 
458
        POP     EBP
 
459
        JMP     [_WpBindToSite]
 
460
  end;
 
461
end;
 
462
 
 
463
var
 
464
  _WpCreateSite: Pointer;
 
465
 
 
466
function WpCreateSite;
 
467
begin
 
468
  GetProcedureAddress(_WpCreateSite, wpapilib, 'WpCreateSite' + AWSuffix);
 
469
  asm
 
470
        MOV     ESP, EBP
 
471
        POP     EBP
 
472
        JMP     [_WpCreateSite]
 
473
  end;
 
474
end;
 
475
 
 
476
var
 
477
  _WpEnumProviders: Pointer;
 
478
 
 
479
function WpEnumProviders;
 
480
begin
 
481
  GetProcedureAddress(_WpEnumProviders, wpapilib, 'WpEnumProviders' + AWSuffix);
 
482
  asm
 
483
        MOV     ESP, EBP
 
484
        POP     EBP
 
485
        JMP     [_WpEnumProviders]
 
486
  end;
 
487
end;
 
488
 
 
489
var
 
490
  _WpGetErrorString: Pointer;
 
491
 
 
492
function WpGetErrorString;
 
493
begin
 
494
  GetProcedureAddress(_WpGetErrorString, wpapilib, 'WpGetErrorString' + AWSuffix);
 
495
  asm
 
496
        MOV     ESP, EBP
 
497
        POP     EBP
 
498
        JMP     [_WpGetErrorString]
 
499
  end;
 
500
end;
 
501
 
 
502
{$ELSE}
 
503
 
 
504
function WpPostA; external wpapilib name 'WpPostA';
 
505
function WpListSitesA; external wpapilib name 'WpListSitesA';
 
506
function WpDoesSiteExistA; external wpapilib name 'WpDoesSiteExistA';
 
507
function WpDeleteSiteA; external wpapilib name 'WpDeleteSiteA';
 
508
function WpBindToSiteA; external wpapilib name 'WpBindToSiteA';
 
509
function WpCreateSiteA; external wpapilib name 'WpCreateSiteA';
 
510
function WpEnumProvidersA; external wpapilib name 'WpEnumProvidersA';
 
511
function WpGetErrorStringA; external wpapilib name 'WpGetErrorStringA';
 
512
function WpPostW; external wpapilib name 'WpPostW';
 
513
function WpListSitesW; external wpapilib name 'WpListSitesW';
 
514
function WpDoesSiteExistW; external wpapilib name 'WpDoesSiteExistW';
 
515
function WpDeleteSiteW; external wpapilib name 'WpDeleteSiteW';
 
516
function WpBindToSiteW; external wpapilib name 'WpBindToSiteW';
 
517
function WpCreateSiteW; external wpapilib name 'WpCreateSiteW';
 
518
function WpEnumProvidersW; external wpapilib name 'WpEnumProvidersW';
 
519
function WpGetErrorStringW; external wpapilib name 'WpGetErrorStringW';
 
520
function WpPost; external wpapilib name 'WpPost' + AWSuffix;
 
521
function WpListSites; external wpapilib name 'WpListSites' + AWSuffix;
 
522
function WpDoesSiteExist; external wpapilib name 'WpDoesSiteExist' + AWSuffix;
 
523
function WpDeleteSite; external wpapilib name 'WpDeleteSite' + AWSuffix;
 
524
function WpBindToSite; external wpapilib name 'WpBindToSite' + AWSuffix;
 
525
function WpCreateSite; external wpapilib name 'WpCreateSite' + AWSuffix;
 
526
function WpEnumProviders; external wpapilib name 'WpEnumProviders' + AWSuffix;
 
527
function WpGetErrorString; external wpapilib name 'WpGetErrorString' + AWSuffix;
 
528
 
 
529
{$ENDIF DYNAMIC_LINK}
 
530
 
 
531
end.