← Back to branch summary

~ubuntu-branches/ubuntu/dapper/fpc/dapper

« back to all changes in this revision

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

  • Committer: Bazaar Package Importer
  • Author(s): Carlos Laviola
  • Date: 2005-05-30 11:59:10 UTC
  • mfrom: (1.2.2 upstream)
  • Revision ID: james.westby@ubuntu.com-20050530115910-x5pbzm4qqta4i94h
Tags: 2.0.0-2
http://bugs.debian.org/310907
debian/fp-compiler.postinst.in: forgot to reapply the patch that
correctly creates the slave link to pc(1).  (Closes: #310907)

Show diffs side-by-side

added added

removed removed

Lines of Context:
packages/extra/winunits/jwawpftpmsg.pas
 
1
{******************************************************************************}
 
2
{                                                                              }
 
3
{ Web Publishing FTP Error Codes 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: wpftpmsg.h, released June 2000. The original Pascal    }
 
9
{ code is: WPFtpMsg.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: jwawpftpmsg.pas,v 1.1 2005/04/04 07:56:11 marco Exp $
 
44
 
 
45
unit JwaWPFtpMsg;
 
46
 
 
47
{$WEAKPACKAGEUNIT}
 
48
 
 
49
{$HPPEMIT ''}
 
50
{$HPPEMIT '#include "wpftpmsg.h"'}
 
51
{$HPPEMIT ''}
 
52
 
 
53
{$I jediapilib.inc}
 
54
 
 
55
interface
 
56
 
 
57
uses
 
58
  JwaWinType;
 
59
 
 
60
//
 
61
//  Values are 32 bit values layed out as follows:
 
62
//
 
63
//   3 3 2 2 2 2 2 2 2 2 2 2 1 1 1 1 1 1 1 1 1 1
 
64
//   1 0 9 8 7 6 5 4 3 2 1 0 9 8 7 6 5 4 3 2 1 0 9 8 7 6 5 4 3 2 1 0
 
65
//  +---+-+-+-----------------------+-------------------------------+
 
66
//  |Sev|C|R|     Facility          |               Code            |
 
67
//  +---+-+-+-----------------------+-------------------------------+
 
68
//
 
69
//  where
 
70
//
 
71
//      Sev - is the severity code
 
72
//
 
73
//          00 - Success
 
74
//          01 - Informational
 
75
//          10 - Warning
 
76
//          11 - Error
 
77
//
 
78
//      C - is the Customer code flag
 
79
//
 
80
//      R - is a reserved bit
 
81
//
 
82
//      Facility - is the facility code
 
83
//
 
84
//      Code - is the facility's status code
 
85
//
 
86
//
 
87
// Define the facility codes
 
88
//
 
89
 
 
90
//
 
91
// Define the severity codes
 
92
//
 
93
 
 
94
//
 
95
// MessageId: FTPWPP_ERROR_FIRST
 
96
//
 
97
// MessageText:
 
98
//
 
99
//  CFtpWpp's first error message.
 
100
//
 
101
 
 
102
const
 
103
  FTPWPP_ERROR_FIRST = DWORD($40042300);
 
104
  {$EXTERNALSYM FTPWPP_ERROR_FIRST}
 
105
 
 
106
//
 
107
// MessageId: FTPWPP_ERROR_INETOPEN_FAILED
 
108
//
 
109
// MessageText:
 
110
//
 
111
//  The FTP provider could not connect to the internet.
 
112
//
 
113
 
 
114
  FTPWPP_ERROR_INETOPEN_FAILED = DWORD($C0042301);
 
115
  {$EXTERNALSYM FTPWPP_ERROR_INETOPEN_FAILED}
 
116
 
 
117
//
 
118
// MessageId: FTPWPP_ERROR_AUTHENTICATION_FAILED
 
119
//
 
120
// MessageText:
 
121
//
 
122
//  The FTP provider could not log in to the FTP server.
 
123
//
 
124
 
 
125
  FTPWPP_ERROR_AUTHENTICATION_FAILED = DWORD($C0042302);
 
126
  {$EXTERNALSYM FTPWPP_ERROR_AUTHENTICATION_FAILED}
 
127
 
 
128
//
 
129
// MessageId: FTPWPP_ERROR_LAST
 
130
//
 
131
// MessageText:
 
132
//
 
133
//  CFtpWpp's last error message.
 
134
//
 
135
 
 
136
  FTPWPP_ERROR_LAST = DWORD($400423FF);
 
137
  {$EXTERNALSYM FTPWPP_ERROR_LAST}
 
138
 
 
139
implementation
 
140
 
 
141
end.