← Back to branch summary

~ubuntu-branches/ubuntu/feisty/fpc/feisty

« back to all changes in this revision

Viewing changes to packages/extra/winunits/jwawpspihlp.pas

  • Committer: Bazaar Package Importer
  • Author(s): Torsten Werner
  • Date: 2007-01-27 20:08:50 UTC
  • mfrom: (1.2.3 upstream)
  • Revision ID: james.westby@ubuntu.com-20070127200850-9mrptaqqjsx9nwa7
Tags: 2.0.4-5
* Fixed Build-Depends.
* Add myself to Uploaders in debian/control.
* Make sure that the sources are really patched before building them.
* Build unit 'libc' on powerpc too.

Show diffs side-by-side

added added

removed removed

Lines of Context:
packages/extra/winunits/jwawpspihlp.pas
1
 
{******************************************************************************}
2
 
{                                                                              }
3
 
{ Web Publishing SPI Helper 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: wpspihlp.h, released June 2000. The original Pascal    }
9
 
{ code is: WPSpiHlp.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: jwawpspihlp.pas,v 1.1 2005/04/04 07:56:11 marco Exp $
44
 
 
45
 
unit JwaWPSpiHlp;
46
 
 
47
 
{$WEAKPACKAGEUNIT}
48
 
 
49
 
{$HPPEMIT ''}
50
 
{$HPPEMIT '#include "wpspihlp.h"'}
51
 
{$HPPEMIT ''}
52
 
 
53
 
{$I jediapilib.inc}
54
 
 
55
 
interface
56
 
 
57
 
uses
58
 
  JwaWPTypes, JwaWinType;
59
 
 
60
 
//
61
 
// Flags
62
 
//
63
 
 
64
 
const
65
 
  WPF_FORCE_BIND  = $00000100; // WppBindToSite
66
 
 
67
 
//
68
 
// Helper function declarations and typedefs
69
 
//
70
 
 
71
 
//function WppBindToSiteA(hwnd: HWND; sSiteName, sURL: LPCSTR; const riid: TGUID;
72
 
//  dwFlag, dwReserved: DWORD; out ppvUnk): HRESULT; stdcall;
73
 
//{$EXTERNALSYM WppBindToSiteA}
74
 
 
75
 
type
76
 
  PFN_WPPBINDTOSITEA = function(hwnd: HWND; sSiteName, sURL: LPCSTR;
77
 
    const riid: TGUID; dwFlag, dwReserved: DWORD; out ppvUnk): HRESULT; stdcall;
78
 
  {$EXTERNALSYM PFN_WPPBINDTOSITEA}
79
 
 
80
 
//function WppListSitesA(var pdwSitesBufLen: DWORD; pSitesBuffer: LPWPSITEINFOA;
81
 
//  pdwNumSites: LPDWORD): HRESULT; stdcall;
82
 
//{$EXTERNALSYM WppListSitesA}
83
 
 
84
 
type
85
 
  PFN_WPPLISTSITESA = function(var pdwSitesBufLen: DWORD;
86
 
    pSitesBuffer: LPWPSITEINFOA; pdwNumSites: LPDWORD): HRESULT; stdcall;
87
 
  {$EXTERNALSYM PFN_WPPLISTSITESA}
88
 
 
89
 
//function WppDeleteSiteA(sSiteName: LPCSTR): HRESULT; stdcall;
90
 
//{$EXTERNALSYM WppDeleteSiteA}
91
 
 
92
 
type
93
 
  PFN_WPPDELETESITEA = function(sSiteName: LPCSTR): HRESULT; stdcall;
94
 
  {$EXTERNALSYM PFN_WPPDELETESITEA}
95
 
 
96
 
//function WppBindToSiteW(hwnd: HWND; sSiteName, sURL: LPCWSTR; const riid: TGUID;
97
 
//  dwFlag, dwReserved: DWORD; out ppvUnk): HRESULT; stdcall;
98
 
//{$EXTERNALSYM WppBindToSiteW}
99
 
 
100
 
type
101
 
  PFN_WPPBINDTOSITEW = function(hwnd: HWND; sSiteName, sURL: LPCWSTR;
102
 
    const riid: TGUID; dwFlag, dwReserved: DWORD; out ppvUnk): HRESULT; stdcall;
103
 
  {$EXTERNALSYM PFN_WPPBINDTOSITEW}
104
 
 
105
 
//function WppListSitesW(var pdwSitesBufLen: DWORD; pSitesBuffer: LPWPSITEINFOW;
106
 
//  pdwNumSites: LPDWORD): HRESULT; stdcall;
107
 
//{$EXTERNALSYM WppListSitesW}
108
 
 
109
 
type
110
 
  PFN_WPPLISTSITESW = function(var pdwSitesBufLen: DWORD;
111
 
    pSitesBuffer: LPWPSITEINFOW; pdwNumSites: LPDWORD): HRESULT; stdcall;
112
 
  {$EXTERNALSYM PFN_WPPLISTSITESW}
113
 
 
114
 
//function WppDeleteSiteW(sSiteName: LPCWSTR): HRESULT; stdcall;
115
 
//{$EXTERNALSYM WppDeleteSiteW}
116
 
 
117
 
type
118
 
  PFN_WPPDELETESITEW = function(sSiteName: LPCWSTR): HRESULT; stdcall;
119
 
  {$EXTERNALSYM PFN_WPPDELETESITEW}
120
 
 
121
 
//
122
 
// Entry Points
123
 
//
124
 
 
125
 
const
126
 
  EP_WPPBINDTOSITEW  = 'WppBindToSiteW';
127
 
  {$EXTERNALSYM EP_WPPBINDTOSITEW}
128
 
  EP_WPPLISTSITESW   = 'WppListSitesW';
129
 
  {$EXTERNALSYM EP_WPPLISTSITESW}
130
 
  EP_WPPDELETESITEW  = 'WppDeleteSiteW';
131
 
  {$EXTERNALSYM EP_WPPDELETESITEW}
132
 
 
133
 
  EP_WPPBINDTOSITEA  = 'WppBindToSiteA';
134
 
  {$EXTERNALSYM EP_WPPBINDTOSITEA}
135
 
  EP_WPPLISTSITESA   = 'WppListSitesA';
136
 
  {$EXTERNALSYM EP_WPPLISTSITESA}
137
 
  EP_WPPDELETESITEA  = 'WppDeleteSiteA';
138
 
  {$EXTERNALSYM EP_WPPDELETESITEA}
139
 
 
140
 
implementation
141
 
 
142
 
end.
 
1
{******************************************************************************}
 
2
{                                                                              }
 
3
{ Web Publishing SPI Helper 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: wpspihlp.h, released June 2000. The original Pascal    }
 
9
{ code is: WPSpiHlp.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
 
 
44
unit JwaWPSpiHlp;
 
45
 
 
46
{$WEAKPACKAGEUNIT}
 
47
 
 
48
{$HPPEMIT ''}
 
49
{$HPPEMIT '#include "wpspihlp.h"'}
 
50
{$HPPEMIT ''}
 
51
 
 
52
{$I jediapilib.inc}
 
53
 
 
54
interface
 
55
 
 
56
uses
 
57
  JwaWPTypes, JwaWinType;
 
58
 
 
59
//
 
60
// Flags
 
61
//
 
62
 
 
63
const
 
64
  WPF_FORCE_BIND  = $00000100; // WppBindToSite
 
65
 
 
66
//
 
67
// Helper function declarations and typedefs
 
68
//
 
69
 
 
70
//function WppBindToSiteA(hwnd: HWND; sSiteName, sURL: LPCSTR; const riid: TGUID;
 
71
//  dwFlag, dwReserved: DWORD; out ppvUnk): HRESULT; stdcall;
 
72
//{$EXTERNALSYM WppBindToSiteA}
 
73
 
 
74
type
 
75
  PFN_WPPBINDTOSITEA = function(hwnd: HWND; sSiteName, sURL: LPCSTR;
 
76
    const riid: TGUID; dwFlag, dwReserved: DWORD; out ppvUnk): HRESULT; stdcall;
 
77
  {$EXTERNALSYM PFN_WPPBINDTOSITEA}
 
78
 
 
79
//function WppListSitesA(var pdwSitesBufLen: DWORD; pSitesBuffer: LPWPSITEINFOA;
 
80
//  pdwNumSites: LPDWORD): HRESULT; stdcall;
 
81
//{$EXTERNALSYM WppListSitesA}
 
82
 
 
83
type
 
84
  PFN_WPPLISTSITESA = function(var pdwSitesBufLen: DWORD;
 
85
    pSitesBuffer: LPWPSITEINFOA; pdwNumSites: LPDWORD): HRESULT; stdcall;
 
86
  {$EXTERNALSYM PFN_WPPLISTSITESA}
 
87
 
 
88
//function WppDeleteSiteA(sSiteName: LPCSTR): HRESULT; stdcall;
 
89
//{$EXTERNALSYM WppDeleteSiteA}
 
90
 
 
91
type
 
92
  PFN_WPPDELETESITEA = function(sSiteName: LPCSTR): HRESULT; stdcall;
 
93
  {$EXTERNALSYM PFN_WPPDELETESITEA}
 
94
 
 
95
//function WppBindToSiteW(hwnd: HWND; sSiteName, sURL: LPCWSTR; const riid: TGUID;
 
96
//  dwFlag, dwReserved: DWORD; out ppvUnk): HRESULT; stdcall;
 
97
//{$EXTERNALSYM WppBindToSiteW}
 
98
 
 
99
type
 
100
  PFN_WPPBINDTOSITEW = function(hwnd: HWND; sSiteName, sURL: LPCWSTR;
 
101
    const riid: TGUID; dwFlag, dwReserved: DWORD; out ppvUnk): HRESULT; stdcall;
 
102
  {$EXTERNALSYM PFN_WPPBINDTOSITEW}
 
103
 
 
104
//function WppListSitesW(var pdwSitesBufLen: DWORD; pSitesBuffer: LPWPSITEINFOW;
 
105
//  pdwNumSites: LPDWORD): HRESULT; stdcall;
 
106
//{$EXTERNALSYM WppListSitesW}
 
107
 
 
108
type
 
109
  PFN_WPPLISTSITESW = function(var pdwSitesBufLen: DWORD;
 
110
    pSitesBuffer: LPWPSITEINFOW; pdwNumSites: LPDWORD): HRESULT; stdcall;
 
111
  {$EXTERNALSYM PFN_WPPLISTSITESW}
 
112
 
 
113
//function WppDeleteSiteW(sSiteName: LPCWSTR): HRESULT; stdcall;
 
114
//{$EXTERNALSYM WppDeleteSiteW}
 
115
 
 
116
type
 
117
  PFN_WPPDELETESITEW = function(sSiteName: LPCWSTR): HRESULT; stdcall;
 
118
  {$EXTERNALSYM PFN_WPPDELETESITEW}
 
119
 
 
120
//
 
121
// Entry Points
 
122
//
 
123
 
 
124
const
 
125
  EP_WPPBINDTOSITEW  = 'WppBindToSiteW';
 
126
  {$EXTERNALSYM EP_WPPBINDTOSITEW}
 
127
  EP_WPPLISTSITESW   = 'WppListSitesW';
 
128
  {$EXTERNALSYM EP_WPPLISTSITESW}
 
129
  EP_WPPDELETESITEW  = 'WppDeleteSiteW';
 
130
  {$EXTERNALSYM EP_WPPDELETESITEW}
 
131
 
 
132
  EP_WPPBINDTOSITEA  = 'WppBindToSiteA';
 
133
  {$EXTERNALSYM EP_WPPBINDTOSITEA}
 
134
  EP_WPPLISTSITESA   = 'WppListSitesA';
 
135
  {$EXTERNALSYM EP_WPPLISTSITESA}
 
136
  EP_WPPDELETESITEA  = 'WppDeleteSiteA';
 
137
  {$EXTERNALSYM EP_WPPDELETESITEA}
 
138
 
 
139
implementation
 
140
 
 
141
end.