pnresult.pas

Delphi源码REAlRMSDK.rar

  {$EXTERNALSYM PNR_RMT_DIFFERENT_VIDEO}
  PNR_RMT_PASTE_MISSING_STREAM = HRESULT((1 shl 31) or (FACILITY_ITF shl 16) or (FACILITY_ITF shl 6) or 9);
  {$EXTERNALSYM PNR_RMT_PASTE_MISSING_STREAM}
  PNR_RMT_END_OF_STREAM = HRESULT((1 shl 31) or (FACILITY_ITF shl 16) or (FACILITY_ITF shl 6) or 10);
  {$EXTERNALSYM PNR_RMT_END_OF_STREAM}
  PNR_RMT_IMAGE_MAP_PARSE_ERROR = HRESULT((1 shl 31) or (FACILITY_ITF shl 16) or (FACILITY_ITF shl 6) or 11);
  {$EXTERNALSYM PNR_RMT_IMAGE_MAP_PARSE_ERROR}
  PNR_RMT_INVALID_IMAGEMAP_FILE = HRESULT((1 shl 31) or (FACILITY_ITF shl 16) or (FACILITY_ITF shl 6) or 12);
  {$EXTERNALSYM PNR_RMT_INVALID_IMAGEMAP_FILE}
  PNR_RMT_EVENT_PARSE_ERROR = HRESULT((1 shl 31) or (FACILITY_ITF shl 16) or (FACILITY_ITF shl 6) or 13);
  {$EXTERNALSYM PNR_RMT_EVENT_PARSE_ERROR}
  PNR_RMT_INVALID_EVENT_FILE = HRESULT((1 shl 31) or (FACILITY_ITF shl 16) or (FACILITY_ITF shl 6) or 14);
  {$EXTERNALSYM PNR_RMT_INVALID_EVENT_FILE}
  PNR_RMT_INVALID_OUTPUT_FILE = HRESULT((1 shl 31) or (FACILITY_ITF shl 16) or (FACILITY_ITF shl 6) or 15);
  {$EXTERNALSYM PNR_RMT_INVALID_OUTPUT_FILE}
  PNR_RMT_INVALID_DURATION = HRESULT((1 shl 31) or (FACILITY_ITF shl 16) or (FACILITY_ITF shl 6) or 16);
  {$EXTERNALSYM PNR_RMT_INVALID_DURATION}
  PNR_RMT_NO_DUMP_FILES = HRESULT((1 shl 31) or (FACILITY_ITF shl 16) or (FACILITY_ITF shl 6) or 17);
  {$EXTERNALSYM PNR_RMT_NO_DUMP_FILES}
  PNR_RMT_NO_EVENT_DUMP_FILE = HRESULT((1 shl 31) or (FACILITY_ITF shl 16) or (FACILITY_ITF shl 6) or 18);
  {$EXTERNALSYM PNR_RMT_NO_EVENT_DUMP_FILE}
  PNR_RMT_NO_IMAP_DUMP_FILE = HRESULT((1 shl 31) or (FACILITY_ITF shl 16) or (FACILITY_ITF shl 6) or 19);
  {$EXTERNALSYM PNR_RMT_NO_IMAP_DUMP_FILE}
  PNR_RMT_NO_DATA = HRESULT((1 shl 31) or (FACILITY_ITF shl 16) or (FACILITY_ITF shl 6) or 20);
  {$EXTERNALSYM PNR_RMT_NO_DATA}
  PNR_RMT_EMPTY_STREAM = HRESULT((1 shl 31) or (FACILITY_ITF shl 16) or (FACILITY_ITF shl 6) or 21);
  {$EXTERNALSYM PNR_RMT_EMPTY_STREAM}
  PNR_RMT_READ_ONLY_FILE = HRESULT((1 shl 31) or (FACILITY_ITF shl 16) or (FACILITY_ITF shl 6) or 22);
  {$EXTERNALSYM PNR_RMT_READ_ONLY_FILE}
  PNR_RMT_PASTE_MISSING_AUDIO_STREAM = HRESULT((1 shl 31) or (FACILITY_ITF shl 16) or (FACILITY_ITF shl 6) or 23);
  {$EXTERNALSYM PNR_RMT_PASTE_MISSING_AUDIO_STREAM}
  PNR_RMT_PASTE_MISSING_VIDEO_STREAM = HRESULT((1 shl 31) or (FACILITY_ITF shl 16) or (FACILITY_ITF shl 6) or 24);
  {$EXTERNALSYM PNR_RMT_PASTE_MISSING_VIDEO_STREAM}


  PNR_PROP_NOT_FOUND = HRESULT((1 shl 31) or (FACILITY_ITF shl 16) or (FACILITY_ITF shl 6) or 1);
  {$EXTERNALSYM PNR_PROP_NOT_FOUND}
  PNR_PROP_NOT_COMPOSITE = HRESULT((1 shl 31) or (FACILITY_ITF shl 16) or (FACILITY_ITF shl 6) or 2);
  {$EXTERNALSYM PNR_PROP_NOT_COMPOSITE}
  PNR_PROP_DUPLICATE = HRESULT((1 shl 31) or (FACILITY_ITF shl 16) or (FACILITY_ITF shl 6) or 3);
  {$EXTERNALSYM PNR_PROP_DUPLICATE}
  PNR_PROP_TYPE_MISMATCH = HRESULT((1 shl 31) or (FACILITY_ITF shl 16) or (FACILITY_ITF shl 6) or 4);
  {$EXTERNALSYM PNR_PROP_TYPE_MISMATCH}
  PNR_PROP_ACTIVE = HRESULT((1 shl 31) or (FACILITY_ITF shl 16) or (FACILITY_ITF shl 6) or 5);
  {$EXTERNALSYM PNR_PROP_ACTIVE}
  PNR_PROP_INACTIVE = HRESULT((1 shl 31) or (FACILITY_ITF shl 16) or (FACILITY_ITF shl 6) or 6);
  {$EXTERNALSYM PNR_PROP_INACTIVE}

  PNR_COULDNOTINITCORE = HRESULT((1 shl 31) or (FACILITY_ITF shl 16) or (FACILITY_ITF shl 6) or 1);
  {$EXTERNALSYM PNR_COULDNOTINITCORE}
  PNR_PERFECTPLAY_NOT_SUPPORTED = HRESULT((1 shl 31) or (FACILITY_ITF shl 16) or (FACILITY_ITF shl 6) or 2);
  {$EXTERNALSYM PNR_PERFECTPLAY_NOT_SUPPORTED}
  PNR_NO_LIVE_PERFECTPLAY = HRESULT((1 shl 31) or (FACILITY_ITF shl 16) or (FACILITY_ITF shl 6) or 3);
  {$EXTERNALSYM PNR_NO_LIVE_PERFECTPLAY}
  PNR_PERFECTPLAY_NOT_ALLOWED = HRESULT((1 shl 31) or (FACILITY_ITF shl 16) or (FACILITY_ITF shl 6) or 4);
  {$EXTERNALSYM PNR_PERFECTPLAY_NOT_ALLOWED}
  PNR_NO_CODECS = HRESULT((1 shl 31) or (FACILITY_ITF shl 16) or (FACILITY_ITF shl 6) or 5);
  {$EXTERNALSYM PNR_NO_CODECS}
  PNR_SLOW_MACHINE = HRESULT((1 shl 31) or (FACILITY_ITF shl 16) or (FACILITY_ITF shl 6) or 6);
  {$EXTERNALSYM PNR_SLOW_MACHINE}
  PNR_FORCE_PERFECTPLAY = HRESULT((1 shl 31) or (FACILITY_ITF shl 16) or (FACILITY_ITF shl 6) or 7);
  {$EXTERNALSYM PNR_FORCE_PERFECTPLAY}
  PNR_INVALID_HTTP_PROXY_HOST = HRESULT((1 shl 31) or (FACILITY_ITF shl 16) or (FACILITY_ITF shl 6) or 8);
  {$EXTERNALSYM PNR_INVALID_HTTP_PROXY_HOST}
  PNR_INVALID_METAFILE = HRESULT((1 shl 31) or (FACILITY_ITF shl 16) or (FACILITY_ITF shl 6) or 9);
  {$EXTERNALSYM PNR_INVALID_METAFILE}
  PNR_BROWSER_LAUNCH = HRESULT((1 shl 31) or (FACILITY_ITF shl 16) or (FACILITY_ITF shl 6) or 10);
  {$EXTERNALSYM PNR_BROWSER_LAUNCH}
  PNR_VIEW_SOURCE_NOCLIP = HRESULT((1 shl 31) or (FACILITY_ITF shl 16) or (FACILITY_ITF shl 6) or 11);
  {$EXTERNALSYM PNR_VIEW_SOURCE_NOCLIP}
  PNR_VIEW_SOURCE_DISSABLED = HRESULT((1 shl 31) or (FACILITY_ITF shl 16) or (FACILITY_ITF shl 6) or 12);
  {$EXTERNALSYM PNR_VIEW_SOURCE_DISSABLED}

  PNR_RESOURCE_NOT_CACHED = HRESULT((1 shl 31) or (FACILITY_ITF shl 16) or (FACILITY_ITF shl 6) or 1);
  {$EXTERNALSYM PNR_RESOURCE_NOT_CACHED}
  PNR_RESOURCE_NOT_FOUND = HRESULT((1 shl 31) or (FACILITY_ITF shl 16) or (FACILITY_ITF shl 6) or 2);
  {$EXTERNALSYM PNR_RESOURCE_NOT_FOUND}
  PNR_RESOURCE_CLOSE_FILE_FIRST = HRESULT((1 shl 31) or (FACILITY_ITF shl 16) or (FACILITY_ITF shl 6) or 3);
  {$EXTERNALSYM PNR_RESOURCE_CLOSE_FILE_FIRST}
  PNR_RESOURCE_NODATA = HRESULT((1 shl 31) or (FACILITY_ITF shl 16) or (FACILITY_ITF shl 6) or 4);
  {$EXTERNALSYM PNR_RESOURCE_NODATA}
  PNR_RESOURCE_BADFILE = HRESULT((1 shl 31) or (FACILITY_ITF shl 16) or (FACILITY_ITF shl 6) or 5);
  {$EXTERNALSYM PNR_RESOURCE_BADFILE}
  PNR_RESOURCE_PARTIALCOPY = HRESULT((1 shl 31) or (FACILITY_ITF shl 16) or (FACILITY_ITF shl 6) or 6);
  {$EXTERNALSYM PNR_RESOURCE_PARTIALCOPY}

  PNR_PPV_NO_USER = HRESULT((1 shl 31) or (FACILITY_ITF shl 16) or (FACILITY_ITF shl 6) or 0);
  {$EXTERNALSYM PNR_PPV_NO_USER}
  PNR_PPV_GUID_READ_ONLY = HRESULT((1 shl 31) or (FACILITY_ITF shl 16) or (FACILITY_ITF shl 6) or 1);
  {$EXTERNALSYM PNR_PPV_GUID_READ_ONLY}
  PNR_PPV_GUID_COLLISION = HRESULT((1 shl 31) or (FACILITY_ITF shl 16) or (FACILITY_ITF shl 6) or 2);
  {$EXTERNALSYM PNR_PPV_GUID_COLLISION}
  PNR_REGISTER_GUID_EXISTS = HRESULT((1 shl 31) or (FACILITY_ITF shl 16) or (FACILITY_ITF shl 6) or 3);
  {$EXTERNALSYM PNR_REGISTER_GUID_EXISTS}
  PNR_PPV_AUTHORIZATION_FAILED = HRESULT((1 shl 31) or (FACILITY_ITF shl 16) or (FACILITY_ITF shl 6) or 4);
  {$EXTERNALSYM PNR_PPV_AUTHORIZATION_FAILED}
  PNR_PPV_OLD_PLAYER = HRESULT((1 shl 31) or (FACILITY_ITF shl 16) or (FACILITY_ITF shl 6) or 5);
  {$EXTERNALSYM PNR_PPV_OLD_PLAYER}
  PNR_PPV_ACCOUNT_LOCKED = HRESULT((1 shl 31) or (FACILITY_ITF shl 16) or (FACILITY_ITF shl 6) or 6);
  {$EXTERNALSYM PNR_PPV_ACCOUNT_LOCKED}
  PNR_PPV_DBACCESS_ERROR = HRESULT((1 shl 31) or (FACILITY_ITF shl 16) or (FACILITY_ITF shl 6) or 8);
  {$EXTERNALSYM PNR_PPV_DBACCESS_ERROR}
  PNR_PPV_USER_ALREADY_EXISTS = HRESULT((1 shl 31) or (FACILITY_ITF shl 16) or (FACILITY_ITF shl 6) or 9);
  {$EXTERNALSYM PNR_PPV_USER_ALREADY_EXISTS}

  PNR_UPG_AUTH_FAILED = HRESULT((1 shl 31) or (FACILITY_ITF shl 16) or (FACILITY_ITF shl 6) or 0);
  {$EXTERNALSYM PNR_UPG_AUTH_FAILED}
  PNR_UPG_CERT_AUTH_FAILED = HRESULT((1 shl 31) or (FACILITY_ITF shl 16) or (FACILITY_ITF shl 6) or 1);
  {$EXTERNALSYM PNR_UPG_CERT_AUTH_FAILED}
  PNR_UPG_CERT_EXPIRED = HRESULT((1 shl 31) or (FACILITY_ITF shl 16) or (FACILITY_ITF shl 6) or 2);
  {$EXTERNALSYM PNR_UPG_CERT_EXPIRED}
  PNR_UPG_CERT_REVOKED = HRESULT((1 shl 31) or (FACILITY_ITF shl 16) or (FACILITY_ITF shl 6) or 3);
  {$EXTERNALSYM PNR_UPG_CERT_REVOKED}
  PNR_UPG_RUP_BAD = HRESULT((1 shl 31) or (FACILITY_ITF shl 16) or (FACILITY_ITF shl 6) or 4);
  {$EXTERNALSYM PNR_UPG_RUP_BAD}

  PNR_AUTOCFG_SUCCESS = HRESULT((1 shl 31) or (FACILITY_ITF shl 16) or (FACILITY_ITF shl 6) or 0);
  {$EXTERNALSYM PNR_AUTOCFG_SUCCESS}
  PNR_AUTOCFG_FAILED = HRESULT((1 shl 31) or (FACILITY_ITF shl 16) or (FACILITY_ITF shl 6) or 1);
  {$EXTERNALSYM PNR_AUTOCFG_FAILED}
  PNR_AUTOCFG_ABORT = HRESULT((1 shl 31) or (FACILITY_ITF shl 16) or (FACILITY_ITF shl 6) or 2);
  {$EXTERNALSYM PNR_AUTOCFG_ABORT}

  PNR_FAILED = PNR_FAIL;
  {$EXTERNALSYM PNR_FAILED}

{$IFDEF _WIN16}

// typedef UINT			     	MMRESULT;

{$ELSE}

{$IFDEF _WIN32}

// #define _HRESULT_TYPEDEF_(_sc) ((HRESULT)_sc)

{$IFDEF _WINCE}

// #undef E_NOTIMPL
// #undef E_OUTOFMEMORY
// #undef E_INVALIDARG
// #undef E_NOINTERFACE
// #undef E_POINTER
// #undef E_HANDLE
// #undef E_ABORT
// #undef E_FAIL
// #undef E_ACCESSDENIED

{$ENDIF _WINCE}

  E_NOTIMPL      = HRESULT($80004001);
  {$EXTERNALSYM E_NOTIMPL}
  E_OUTOFMEMORY  = HRESULT($8007000E);
  {$EXTERNALSYM E_OUTOFMEMORY}
  E_INVALIDARG   = HRESULT($80070057);
  {$EXTERNALSYM E_INVALIDARG}
  E_NOINTERFACE  = HRESULT($80004002);
  {$EXTERNALSYM E_NOINTERFACE}
  E_POINTER      = HRESULT($80004003);
  {$EXTERNALSYM E_POINTER}
  E_HANDLE       = HRESULT($80070006);
  {$EXTERNALSYM E_HANDLE}
  E_ABORT        = HRESULT($80004004);
  {$EXTERNALSYM E_ABORT}
  E_FAIL         = HRESULT($80004005);
  {$EXTERNALSYM E_FAIL}
  E_ACCESSDENIED = HRESULT($80070005);
  {$EXTERNALSYM E_ACCESSDENIED}

{$ELSE}

  S_OK                   = PNR_OK;
  {$EXTERNALSYM S_OK}
  E_NOTIMPL              = PNR_NOTIMPL;
  {$EXTERNALSYM E_NOTIMPL}
  E_INVALIDARG           = PNR_INVALID_PARAMETER;
  {$EXTERNALSYM E_INVALIDARG}
  E_NOINTERFACE          = PNR_NOINTERFACE;
  {$EXTERNALSYM E_NOINTERFACE}
  E_POINTER              = PNR_POINTER;
  {$EXTERNALSYM E_POINTER}
  E_HANDLE               = PNR_HANDLE;
  {$EXTERNALSYM E_HANDLE}
  E_ABORT                = PNR_ABORT;
  {$EXTERNALSYM E_ABORT}
  E_FAIL                 = PNR_FAIL;
  {$EXTERNALSYM E_FAIL}
  E_ACCESSDENIES         = PNR_ACCESSDENIED;
  {$EXTERNALSYM E_ACCESSDENIES}

{$ENDIF _WIN32}
{$ENDIF _WIN16}

const
  PN_STATUS_OK = PNR_OK;
  {$EXTERNALSYM PN_STATUS_OK}
  PN_STATUS_FAILED = E_FAIL;
  {$EXTERNALSYM PN_STATUS_FAILED}

implementation

{$IFNDEF _WIN32}

function MAKE_HRESULT(sev, fac, code: Integer): HRESULT;
begin
  Result := HRESULT((sev shl 31) or (fac shl 16) or code);
end;

function SUCCEEDED(Status: HRESULT): BOOL;
begin
  Result := BOOL((Status shr 31) = 0);
end;

function FAILED(Status: HRESULT): BOOL;
begin
  Result := BOOL((Status shr 31) <> 0);
end;

{$ENDIF _WIN32}

function MAKE_PN_RESULT(sev, fac, code: Integer): HRESULT;
begin
  Result := MAKE_HRESULT(sev, FACILITY_ITF, ((fac shl 6) or (code)));
end;

end.