home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 24 / CD_ASCQ_24_0995.iso / vrac / apdtr.zip / ADEXCEPT.INT < prev    next >
Text File  |  1995-05-26  |  5KB  |  153 lines
  1. {$G+,X+,F+}
  2.  
  3. {Conditional defines that may affect this unit}
  4. {$I AWDEFINE.INC}
  5.  
  6. {*********************************************************}
  7. {*                  ADEXCEPT.PAS 1.00                    *}
  8. {*        Copyright (c) TurboPower Software 1995         *}
  9. {*                 All rights reserved.                  *}
  10. {*********************************************************}
  11.  
  12. unit AdExcept;
  13.   {-APD exceptions}
  14.  
  15. interface
  16.  
  17. uses
  18.   {-----RTL}
  19.   SysUtils,
  20.   Classes,
  21.   Messages,
  22.   WinTypes,
  23.   {-----APD}
  24.   OoMisc;
  25.  
  26. type
  27.   {General APD exception class}
  28.   EAPDException = class(Exception);
  29.  
  30.   {APD exception groups}
  31.   EDos          = class(EAPDException);
  32.   EGeneral      = class(EAPDException);
  33.   EOpenComm     = class(EAPDException);
  34.   ESerialIO     = class(EAPDException);
  35.   EModem        = class(EAPDException);
  36.   ETrigger      = class(EAPDException);
  37.   EProtocol     = class(EAPDException);
  38.   EINI          = class(EAPDException);
  39.   EFax          = class(EAPDException);
  40.  
  41.   {Specific DOS exceptions}
  42.   EFileNotFound         = class(EDos);
  43.   EPathNotFound         = class(EDos);
  44.   ETooManyFiles         = class(EDos);
  45.   EAccessDenied         = class(EDos);
  46.   EInvalidHandle        = class(EDos);
  47.   EOutOfMemory          = class(EDos);
  48.   EInvalidDrive         = class(EDos);
  49.   ENoMoreFiles          = class(EDos);
  50.   EDiskRead             = class(EDos);
  51.   EDiskFull             = class(EDos);
  52.   ENotAssigned          = class(EDos);
  53.   ENotOpen              = class(EDos);
  54.   ENotOpenInput         = class(EDos);
  55.   ENotOpenOutput        = class(EDos);
  56.   EWriteProtected       = class(EDos);
  57.   EUnknownUnit          = class(EDos);
  58.   EDriveNotReady        = class(EDos);
  59.   EUnknownCommand       = class(EDos);
  60.   ECrcError             = class(EDos);
  61.   EBadStructLen         = class(EDos);
  62.   ESeekError            = class(EDos);
  63.   EUnknownMedia         = class(EDos);
  64.   ESectorNotFound       = class(EDos);
  65.   EOutOfPaper           = class(EDos);
  66.   EDeviceWrite          = class(EDos);
  67.   EDeviceRead           = class(EDos);
  68.   EHardwareFailure      = class(EDos);
  69.  
  70.   {Specific general exceptions}
  71.   EBadHandle            = class(EGeneral);
  72.   EBadArgument          = class(EGeneral);
  73.   EGotQuitMsg           = class(EGeneral);
  74.   EBufferTooBig         = class(EGeneral);   {!! no error code}
  75.   EPortNotAssigned      = class(EGeneral);   {!! no error code}
  76.   EInternal             = class(EGeneral);   {!! no error code}
  77.  
  78.   {Specific OpenComm exceptions}
  79.   EBadId                = class(EOpenComm);
  80.   EBaudRate             = class(EOpenComm);
  81.   EByteSize             = class(EOpenComm);
  82.   EDefault              = class(EOpenComm);
  83.   EHardware             = class(EOpenComm);
  84.   EMemory               = class(EOpenComm);
  85.   ECommNotOpen          = class(EOpenComm);
  86.   EAlreadyOpen          = class(EOpenComm);
  87.   ENoHandles            = class(EOpenComm);
  88.   ENoTimers             = class(EOpenComm);
  89.  
  90.   {Specific serial I/O exceptions}
  91.   ENullApi              = class(ESerialIO);
  92.   ENotSupported         = class(ESerialIO);
  93.   ERegisterHandlerFailed= class(ESerialIO);
  94.   EPutBlockFail         = class(ESerialIO);
  95.   EGetBlockFail         = class(ESerialIO);
  96.   EOutputBufferTooSmall = class(ESerialIO);
  97.   EBufferIsEmpty        = class(ESerialIO);
  98.   ETracingNotEnabled    = class(ESerialIO);
  99.   ELoggingNotEnabled    = class(ESerialIO);
  100.  
  101.   {Specific modem exceptions}
  102.   EModemNotStarted      = class(EModem);
  103.   EModemBusy            = class(EModem);
  104.   EModemNotDialing      = class(EModem);
  105.  
  106.   {Specific trigger exceptions}
  107.   ENoMoreTriggers       = class(ETrigger);
  108.   ETriggerTooLong       = class(ETrigger);
  109.   EBadTriggerHandle     = class(ETrigger);
  110.  
  111.   {Specific protocol exceptions}
  112.   EBadFileList          = class(EProtocol);
  113.   ENoSearchMask         = class(EProtocol);
  114.   ENoMatchingFiles      = class(EProtocol);
  115.   EDirNotFound          = class(EProtocol);
  116.   ECancelRequested      = class(EProtocol);
  117.   ETimeout              = class(EProtocol);
  118.   EProtocolError        = class(EProtocol);
  119.   ETooManyErrors        = class(EProtocol);
  120.   ESequenceError        = class(EProtocol);
  121.   ENoFilename           = class(EProtocol);
  122.   EFileRejected         = class(EProtocol);
  123.   ECantWriteFile        = class(EProtocol);
  124.   ETableFull            = class(EProtocol);
  125.   EAbortNoCarrier       = class(EProtocol);
  126.   EBadProtocolFunction  = class(EProtocol);
  127.  
  128.   {Specific INI database exceptions}
  129.   EKeyTooLong           = class(EINI);
  130.   EDataTooLarge         = class(EINI);
  131.   ENoFieldsDefined      = class(EINI);
  132.   EIniWrite             = class(EINI);
  133.   EIniRead              = class(EINI);
  134.   ENoIndexKey           = class(EINI);
  135.   ERecordExists         = class(EINI);
  136.   ERecordNotFound       = class(EINI);
  137.   EMustHaveIdxVal       = class(EINI);
  138.   EDatabaseFull         = class(EINI);
  139.   EDatabaseEmpty        = class(EINI);
  140.   EDatabaseNotPrepared  = class(EINI);
  141.   EBadFieldList         = class(EINI); {!! no error code}
  142.   EDatabaseNotOpen      = class(EINI); {!! no error code}
  143.   EBadFieldForIndex     = class(EINI); {!! no error code}
  144.  
  145.   {Specific FAX exceptions}
  146.   EFaxBadFormat         = class(EFax);
  147.   EBadGraphicsFormat    = class(EFax);
  148.   EUnpackAbort          = class(EFax);
  149.   ECantMakeBitmap       = class(EFax);
  150.  
  151.   function CheckException(Ctl : TComponent; Res : Integer) : Integer;
  152.  
  153.