adexcept.pas

测试用例

          {EOpenComm}
          ecBadId                 : raise EBadId.Create(Res, False);
          ecBaudRate              : raise EBaudRate.Create(Res, False);
          ecByteSize              : raise EByteSize.Create(Res, False);
          ecDefault               : raise EDefault.Create(Res, False);
          ecHardware              : raise EHardware.Create(Res, False);
          ecMemory                : raise EMemory.Create(Res, False);
          ecCommNotOpen           : raise ECommNotOpen.Create(Res, False);
          ecAlreadyOpen           : raise EAlreadyOpen.Create(Res, False);
          ecNoHandles             : raise ENoHandles.Create(Res, False);
          ecNoTimers              : raise ENoTimers.Create(Res, False);
          ecNoPortSelected        : raise ENoPortSelected.Create(Res, False);
          ecNotOpenedByTapi       : raise ENotOpenedByTapi.Create(Res, False);

          {ESerialIO}
          ecNullApi               : raise ENullApi.Create(Res, False);
          ecRegisterHandlerFailed : raise ERegisterHandlerFailed.Create(Res, False);
          ecPutBlockFail          : raise EPutBlockFail.Create(Res, False);
          ecGetBlockFail          : raise EGetBlockFail.Create(Res, False);
          ecOutputBufferTooSmall  : raise EOutputBufferTooSmall.Create(Res, False);
          ecBufferIsEmpty         : raise EBufferIsEmpty.Create(Res, False);
          ecTracingNotEnabled     : raise ETracingNotEnabled.Create(Res, False);
          ecLoggingNotEnabled     : raise ELoggingNotEnabled.Create(Res, False);
          ecBaseAddressNotSet     : raise EBaseAddressNotSet.Create(Res, False);

          {EModem}
          ecModemNotStarted       : raise EModemNotStarted.Create(Res, False);
          ecModemBusy             : raise EModemBusy.Create(Res, False);
          ecModemNotDialing       : raise EModemNotDialing.Create(Res, False);
          ecNotDialing            : raise ENotDialing.Create(Res, False);
          ecAlreadyDialing        : raise EAlreadyDialing.Create(Res, False);
          ecModemNotResponding    : raise EModemNotResponding.Create(Res, False);
          ecModemRejectedCommand  : raise EModemRejectedCommand.Create(Res, False);
          ecModemStatusMismatch   : raise EModemStatusMismatch.Create(Res, False);

          {ETrigger}
          ecNoMoreTriggers        : raise ENoMoreTriggers.Create(Res, False);
          ecTriggerTooLong        : raise ETriggerTooLong.Create(Res, False);
          ecBadTriggerHandle      : raise EBadTriggerHandle.Create(Res, False);

          {EProtocol}
          ecTimeout               : raise EProtocol.Create(Res, False);
          ecTooManyErrors         : raise EProtocol.Create(Res, False);
          ecSequenceError         : raise EProtocol.Create(Res, False);

          {EIni}
          ecKeyTooLong            : raise EKeyTooLong.Create(Res, False);
          ecDataTooLarge          : raise EDataTooLarge.Create(Res, False);
          ecIniWrite              : raise EIniWrite.Create(Res, False);
          ecIniRead               : raise EIniRead.Create(Res, False);
          ecRecordExists          : raise ERecordExists.Create(Res, False);
          ecRecordNotFound        : raise ERecordNotFound.Create(Res, False);
          ecDatabaseFull          : raise EDatabaseFull.Create(Res, False);
          ecDatabaseEmpty         : raise EDatabaseEmpty.Create(Res, False);
          ecBadFieldList          : raise EBadFieldList.Create(Res, False);
          ecBadFieldForIndex      : raise EBadFieldForIndex.Create(Res, False);

          {EFax}
          ecFaxBadFormat          : raise EFaxBadFormat.Create(Res, False);
          ecBadGraphicsFormat     : raise EBadGraphicsFormat.Create(Res, False);
          ecConvertAbort          : raise EConvertAbort.Create(Res, False);
          ecUnpackAbort           : raise EUnpackAbort.Create(Res, False);
          ecCantMakeBitmap        : raise ECantMakeBitmap.Create(Res, False);
          ecInvalidPageNumber     : raise EInvalidPageNumber.Create(Res, False);

          ecFaxBadMachine         : raise EFaxBadMachine.Create(Res, False);
          ecFaxBadModemResult     : raise EFaxBadModemResult.Create(Res, False);
          ecFaxTrainError         : raise EFaxTrainError.Create(Res, False);
          ecFaxInitError          : raise EFaxInitError.Create(Res, False);
          ecFaxBusy               : raise EFaxBusy.Create(Res, False);
          ecFaxVoiceCall          : raise EFaxVoiceCall.Create(Res, False);
          ecFaxDataCall           : raise EFaxDataCall.Create(Res, False);
          ecFaxNoDialTone         : raise EFaxNoDialTone.Create(Res, False);
          ecFaxNoCarrier          : raise EFaxNoCarrier.Create(Res, False);
          ecFaxSessionError       : raise EFaxSessionError.Create(Res, False);
          ecFaxPageError          : raise EFaxPageError.Create(Res, False);

          ecAllocated             : raise ETapiAllocated.Create(Res, False);
          ecBadDeviceID           : raise ETapiBadDeviceID.Create(Res, False);
          ecBearerModeUnavail     : raise ETapiBearerModeUnavail.Create(Res, False);
          ecCallUnavail           : raise ETapiCallUnavail.Create(Res, False);
          ecCompletionOverrun     : raise ETapiCompletionOverrun.Create(Res, False);
          ecConferenceFull        : raise ETapiConferenceFull.Create(Res, False);
          ecDialBilling           : raise ETapiDialBilling.Create(Res, False);
          ecDialDialtone          : raise ETapiDialDialtone.Create(Res, False);
          ecDialPrompt            : raise ETapiDialPrompt.Create(Res, False);
          ecDialQuiet             : raise ETapiDialQuiet.Create(Res, False);
          ecIncompatibleApiVersion: raise ETapiIncompatibleApiVersion.Create(Res, False);
          ecIncompatibleExtVersion: raise ETapiIncompatibleExtVersion.Create(Res, False);
          ecIniFileCorrupt        : raise ETapiIniFileCorrupt.Create(Res, False);
          ecInUse                 : raise ETapiInUse.Create(Res, False);
          ecInvalAddress          : raise ETapiInvalAddress.Create(Res, False);
          ecInvalAddressID        : raise ETapiInvalAddressID.Create(Res, False);
          ecInvalAddressMode      : raise ETapiInvalAddressMode.Create(Res, False);
          ecInvalAddressState     : raise ETapiInvalAddressState.Create(Res, False);
          ecInvalAppHandle        : raise ETapiInvalAppHandle.Create(Res, False);
          ecInvalAppName          : raise ETapiInvalAppName.Create(Res, False);
          ecInvalBearerMode       : raise ETapiInvalBearerMode.Create(Res, False);
          ecInvalCallComplMode    : raise ETapiInvalCallComplMode.Create(Res, False);
          ecInvalCallHandle       : raise ETapiInvalCallHandle.Create(Res, False);
          ecInvalCallParams       : raise ETapiInvalCallParams.Create(Res, False);
          ecInvalCallPrivilege    : raise ETapiInvalCallPrivilege.Create(Res, False);
          ecInvalCallSelect       : raise ETapiInvalCallSelect.Create(Res, False);
          ecInvalCallState        : raise ETapiInvalCallState.Create(Res, False);
          ecInvalCallStatelist    : raise ETapiInvalCallStatelist.Create(Res, False);
          ecInvalCard             : raise ETapiInvalCard.Create(Res, False);
          ecInvalCompletionID     : raise ETapiInvalCompletionID.Create(Res, False);
          ecInvalConfCallHandle   : raise ETapiInvalConfCallHandle.Create(Res, False);
          ecInvalConsultCallHandle: raise ETapiInvalConsultCallHandle.Create(Res, False);
          ecInvalCountryCode      : raise ETapiInvalCountryCode.Create(Res, False);
          ecInvalDeviceClass      : raise ETapiInvalDeviceClass.Create(Res, False);
          ecInvalDeviceHandle     : raise ETapiInvalDeviceHandle.Create(Res, False);
          ecInvalDialParams       : raise ETapiInvalDialParams.Create(Res, False);
          ecInvalDigitList        : raise ETapiInvalDigitList.Create(Res, False);
          ecInvalDigitMode        : raise ETapiInvalDigitMode.Create(Res, False);
          ecInvalDigits           : raise ETapiInvalDigits.Create(Res, False);
          ecInvalExtVersion       : raise ETapiInvalExtVersion.Create(Res, False);
          ecInvalGroupID          : raise ETapiInvalGroupID.Create(Res, False);
          ecInvalLineHandle       : raise ETapiInvalLineHandle.Create(Res, False);
          ecInvalLineState        : raise ETapiInvalLineState.Create(Res, False);
          ecInvalLocation         : raise ETapiInvalLocation.Create(Res, False);
          ecInvalMediaList        : raise ETapiInvalMediaList.Create(Res, False);
          ecInvalMediaMode        : raise ETapiInvalMediaMode.Create(Res, False);
          ecInvalMessageID        : raise ETapiInvalMessageID.Create(Res, False);
          ecInvalParam            : raise ETapiInvalParam.Create(Res, False);
          ecInvalParkID           : raise ETapiInvalParkID.Create(Res, False);
          ecInvalParkMode         : raise ETapiInvalParkMode.Create(Res, False);
          ecInvalPointer          : raise ETapiInvalPointer.Create(Res, False);
          ecInvalPrivSelect       : raise ETapiInvalPrivSelect.Create(Res, False);
          ecInvalRate             : raise ETapiInvalRate.Create(Res, False);
          ecInvalRequestMode      : raise ETapiInvalRequestMode.Create(Res, False);
          ecInvalTerminalID       : raise ETapiInvalTerminalID.Create(Res, False);
          ecInvalTerminalMode     : raise ETapiInvalTerminalMode.Create(Res, False);
          ecInvalTimeout          : raise ETapiInvalTimeout.Create(Res, False);
          ecInvalTone             : raise ETapiInvalTone.Create(Res, False);
          ecInvalToneList         : raise ETapiInvalToneList.Create(Res, False);
          ecInvalToneMode         : raise ETapiInvalToneMode.Create(Res, False);
          ecInvalTransferMode     : raise ETapiInvalTransferMode.Create(Res, False);
          ecLineMapperFailed      : raise ETapiLineMapperFailed.Create(Res, False);
          ecNoConference          : raise ETapiNoConference.Create(Res, False);
          ecNoDevice              : raise ETapiNoDevice.Create(Res, False);
          ecNoDriver              : raise ETapiNoDriver.Create(Res, False);
          ecNoMem                 : raise ETapiNoMem.Create(Res, False);
          ecNoRequest             : raise ETapiNoRequest.Create(Res, False);
          ecNotOwner              : raise ETapiNotOwner.Create(Res, False);
          ecNotRegistered         : raise ETapiNotRegistered.Create(Res, False);
          ecOperationFailed       : raise ETapiOperationFailed.Create(Res, False);
          ecOperationUnavail      : raise ETapiOperationUnavail.Create(Res, False);
          ecRateUnavail           : raise ETapiRateUnavail.Create(Res, False);
          ecResourceUnavail       : raise ETapiResourceUnavail.Create(Res, False);
          ecRequestOverrun        : raise ETapiRequestOverrun.Create(Res, False);
          ecStructureTooSmall     : raise ETapiStructureTooSmall.Create(Res, False);
          ecTargetNotFound        : raise ETapiTargetNotFound.Create(Res, False);
          ecTargetSelf            : raise ETapiTargetSelf.Create(Res, False);
          ecUninitialized         : raise ETapiUninitialized.Create(Res, False);
          ecUserUserInfoTooBig    : raise ETapiUserUserInfoTooBig.Create(Res, False);
          ecReinit                : raise ETapiReinit.Create(Res, False);
          ecAddressBlocked        : raise ETapiAddressBlocked.Create(Res, False);
          ecBillingRejected       : raise ETapiBillingRejected.Create(Res, False);
          ecInvalFeature          : raise ETapiInvalFeature.Create(Res, False);
          ecNoMultipleInstance    : raise ETapiNoMultipleInstance.Create(Res, False);
          ecTapiBusy              : raise ETapiBusy.Create(Res, False);
          ecTapiNotSet            : raise ETapiNotSet.Create(Res, False);
          ecTapiNoSelect          : raise ETapiNoSelect.Create(Res, False);
          ecTapiLoadFail          : raise ETapiLoadFail.Create(Res, False);
          ecTapiGetAddrFail       : raise ETapiGetAddrFail.Create(Res, False);
          ecTapiVoiceNotSupported : raise ETapiVoiceNotSupported.Create(Res, False);
          ecTapiWaveFail          : raise ETapiWaveFail.Create(Res, False);
          ecTapiTranslateFail     : raise ETapiTranslateFail.Create(Res, False);

          {ERas}
          ecRasLoadFail           : raise ERasLoadFail.Create(Res, False);

          {Couldn't find error message}
          else                      raise EAPDException.CreateUnknown('Apro exception', 0);
        end;
      end;
  end;

  function XlatException(const E : Exception) : Integer;
    {-Translate an exception into an error code}
  begin
    if (E is EApdException) then
      Result := EApdException(E).ErrorCode
    else if (E is EInOutError) then
      Result := -EInOutError(E).ErrorCode
    else if (E is EOutOfMemory) then
      Result := ecOutOfMemory
    else
      Result := -9999;
  end;

{$IFNDEF UseResourceStrings}
procedure FinalizeUnit; far;
begin
  AproStrRes.Free;
  AproStrRes := nil;
end;

procedure InitializeUnit;
begin
  {$IFDEF Windows}
  AddExitProc(FinalizeUnit);
  {$ENDIF}
  AproStrRes := TAdStringResource.Create(HInstance, 'APRO_ERROR_STRINGS_ENGLISH');
end;
{$ENDIF}

{ EAdStreamError }

constructor EAdStreamError.CreateError(const FilePos: Integer;
  const Reason: DOMString);
begin
  inherited CreateUnknown(Reason, 0);
  seFilePos := FilePos;
end;

{ EAdFilterError }

constructor EAdFilterError.CreateError(const FilePos, Line,
  LinePos: Integer; const Reason: DOMString);
begin
  inherited CreateError(FilePos, Reason);

  feLine := Line;
  feLinePos := LinePos;
  feReason := Reason;
end;

{ EAdParserError }

constructor EAdParserError.CreateError(Line, LinePos: Integer;
  const Reason: DOMString);
begin
  inherited CreateError(FilePos, Line, LinePos, Reason);
end;

{ EApdGSMPhoneException }

constructor EApdGSMPhoneException.Create(const ErrCode: Integer;
                                         const Msg: string);
begin
  inherited Create (Msg);

  FErrorCode := ErrCode;
end;

{ EApdPagerException }

constructor EApdPagerException.Create(const ErrCode: Integer;
                                      const Msg: string);
begin
  inherited Create (Msg);

  FErrorCode := ErrCode;
end;

{$IFNDEF UseResourceStrings}
{ only need these if we're using the string resource manager }
initialization
  InitializeUnit;

  {$IFDEF Win32}
  finalization
    FinalizeUnit;
  {$ENDIF}

{$ENDIF}

end.