JwaWPFtpMsg.pas
上传用户:davidchvip
上传日期:2009-07-28
资源大小:1749k
文件大小:5k
源码类别:

Windows编程

开发平台:

Delphi

  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@chello.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 home    }
  18. { page, located at http://delphi-jedi.org or my personal homepage located at   }
  19. { http://members.chello.nl/m.vanbrakel2                                        }
  20. {                }
  21. { The contents of this file are used with permission, subject to the Mozilla   }
  22. { Public License Version 1.1 (the "License"); you may not use this file except }
  23. { in compliance with the License. You may obtain a copy of the License at      }
  24. { http://www.mozilla.org/MPL/MPL-1.1.html                                      }
  25. {                                                                              }
  26. { Software distributed under the License is distributed on an "AS IS" basis,   }
  27. { WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for }
  28. { the specific language governing rights and limitations under the License.    }
  29. {                                                                              }
  30. { Alternatively, the contents of this file may be used under the terms of the  }
  31. { GNU Lesser General Public License (the  "LGPL License"), in which case the   }
  32. { provisions of the LGPL License are applicable instead of those above.        }
  33. { If you wish to allow use of your version of this file only under the terms   }
  34. { of the LGPL License and not to allow others to use your version of this file }
  35. { under the MPL, indicate your decision by deleting  the provisions above and  }
  36. { replace  them with the notice and other provisions required by the LGPL      }
  37. { License.  If you do not delete the provisions above, a recipient may use     }
  38. { your version of this file under either the MPL or the LGPL License.          }
  39. {                 }
  40. { For more information about the LGPL: http://www.gnu.org/copyleft/lesser.html }
  41. {                 }
  42. {******************************************************************************}
  43. unit JwaWPFtpMsg;
  44. {$WEAKPACKAGEUNIT}
  45. {$HPPEMIT ''}
  46. {$HPPEMIT '#include "wpftpmsg.h"'}
  47. {$HPPEMIT ''}
  48. {$I WINDEFINES.INC}
  49. interface
  50. uses
  51.   JwaWinType;
  52. //
  53. //  Values are 32 bit values layed out as follows:
  54. //
  55. //   3 3 2 2 2 2 2 2 2 2 2 2 1 1 1 1 1 1 1 1 1 1
  56. //   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
  57. //  +---+-+-+-----------------------+-------------------------------+
  58. //  |Sev|C|R|     Facility          |               Code            |
  59. //  +---+-+-+-----------------------+-------------------------------+
  60. //
  61. //  where
  62. //
  63. //      Sev - is the severity code
  64. //
  65. //          00 - Success
  66. //          01 - Informational
  67. //          10 - Warning
  68. //          11 - Error
  69. //
  70. //      C - is the Customer code flag
  71. //
  72. //      R - is a reserved bit
  73. //
  74. //      Facility - is the facility code
  75. //
  76. //      Code - is the facility's status code
  77. //
  78. //
  79. // Define the facility codes
  80. //
  81. //
  82. // Define the severity codes
  83. //
  84. //
  85. // MessageId: FTPWPP_ERROR_FIRST
  86. //
  87. // MessageText:
  88. //
  89. //  CFtpWpp's first error message.
  90. //
  91. const
  92.   FTPWPP_ERROR_FIRST = DWORD($40042300);
  93.   {$EXTERNALSYM FTPWPP_ERROR_FIRST}
  94. //
  95. // MessageId: FTPWPP_ERROR_INETOPEN_FAILED
  96. //
  97. // MessageText:
  98. //
  99. //  The FTP provider could not connect to the internet.
  100. //
  101.   FTPWPP_ERROR_INETOPEN_FAILED = DWORD($C0042301);
  102.   {$EXTERNALSYM FTPWPP_ERROR_INETOPEN_FAILED}
  103. //
  104. // MessageId: FTPWPP_ERROR_AUTHENTICATION_FAILED
  105. //
  106. // MessageText:
  107. //
  108. //  The FTP provider could not log in to the FTP server.
  109. //
  110.   FTPWPP_ERROR_AUTHENTICATION_FAILED = DWORD($C0042302);
  111.   {$EXTERNALSYM FTPWPP_ERROR_AUTHENTICATION_FAILED}
  112. //
  113. // MessageId: FTPWPP_ERROR_LAST
  114. //
  115. // MessageText:
  116. //
  117. //  CFtpWpp's last error message.
  118. //
  119.   FTPWPP_ERROR_LAST = DWORD($400423FF);
  120.   {$EXTERNALSYM FTPWPP_ERROR_LAST}
  121. implementation
  122. end.