dxetable.pas

传奇源代码的delphi版本

    D3DERR_NOVIEWPORTS                  : Result := 'D3DERR_NOVIEWPORTS';
    D3DERR_VIEWPORTDATANOTSET           : Result := 'D3DERR_VIEWPORTDATANOTSET';
    D3DERR_VIEWPORTHASNODEVICE          : Result := 'D3DERR_VIEWPORTHASNODEVICE';

    D3DERR_NOCURRENTVIEWPORT            : Result := 'D3DERR_NOCURRENTVIEWPORT';
  else
    Result := WindowsErrorMsg(ErrorCode);                                                          
  end;
end;
{$IFDEF D3DRM}
function D3DRMErrorMsg(ErrorCode: HRESULT): string;
begin
  case ErrorCode of
    D3DRM_OK                            : Result := 'D3DRM_OK';
    D3DRMERR_BADALLOC                   : Result := 'D3DRMERR_BADALLOC';
    D3DRMERR_BADDEVICE                  : Result := 'D3DRMERR_BADDEVICE';
    D3DRMERR_BADFILE                    : Result := 'D3DRMERR_BADFILE';
    D3DRMERR_BADMAJORVERSION            : Result := 'D3DRMERR_BADMAJORVERSION';
    D3DRMERR_BADMINORVERSION            : Result := 'D3DRMERR_BADMINORVERSION';
    D3DRMERR_BADOBJECT                  : Result := 'D3DRMERR_BADOBJECT';
    D3DRMERR_BADTYPE                    : Result := 'D3DRMERR_BADTYPE';
    D3DRMERR_BADVALUE                   : Result := 'D3DRMERR_BADVALUE';
    D3DRMERR_FACEUSED                   : Result := 'D3DRMERR_FACEUSED';
    D3DRMERR_FILENOTFOUND               : Result := 'D3DRMERR_FILENOTFOUND';
    D3DRMERR_NOTDONEYET                 : Result := 'D3DRMERR_NOTDONEYET';
    D3DRMERR_NOTFOUND                   : Result := 'D3DRMERR_NOTFOUND';
    D3DRMERR_UNABLETOEXECUTE            : Result := 'D3DRMERR_UNABLETOEXECUTE';
  else
    Result := WindowsErrorMsg(ErrorCode);
  end;
end;
{$ENDIF}
function DSoundErrorMsg(ErrorCode: HRESULT): string;
begin
  case ErrorCode of
    DS_OK                               : Result := 'DS_OK';
    DSERR_ALLOCATED                     : Result := 'DSERR_ALLOCATED';
    DSERR_ALREADYINITIALIZED            : Result := 'DSERR_ALREADYINITIALIZED';
    DSERR_BADFORMAT                     : Result := 'DSERR_BADFORMAT';
    DSERR_BUFFERLOST                    : Result := 'DSERR_BUFFERLOST';
    DSERR_CONTROLUNAVAIL                : Result := 'DSERR_CONTROLUNAVAIL';
    DSERR_GENERIC                       : Result := 'DSERR_GENERIC';
    DSERR_INVALIDPARAM                  : Result := 'DSERR_INVALIDPARAM';
    DSERR_INVALIDCALL                   : Result := 'DSERR_INVALIDCALL';
    DSERR_NOAGGREGATION                 : Result := 'DSERR_NOAGGREGATION';
    DSERR_NODRIVER                      : Result := 'DSERR_NODRIVER';
    DSERR_OUTOFMEMORY                   : Result := 'DSERR_OUTOFMEMORY';
    DSERR_PRIOLEVELNEEDED               : Result := 'DSERR_PRIOLEVELNEEDED';
    DSERR_UNSUPPORTED                   : Result := 'DSERR_UNSUPPORTED';
  else
    Result := WindowsErrorMsg(ErrorCode);
  end;
end;

function DInputErrorMsg(ErrorCode: HRESULT): string;
begin
  case ErrorCode of
    DI_OK                               : Result := 'DI_OK';
    DI_NOTATTACHED                      : Result := 'DI_NOTATTACHED, DI_BUFFEROVERFLOW, DI_PROPNOEFFECT, DI_POLLEDDEVICE';
    DIERR_OLDDIRECTINPUTVERSION         : Result := 'DIERR_OLDDIRECTINPUTVERSION';
    DIERR_BETADIRECTINPUTVERSION        : Result := 'DIERR_BETADIRECTINPUTVERSION';
    DIERR_BADDRIVERVER                  : Result := 'DIERR_BADDRIVERVER';
    DIERR_DEVICENOTREG                  : Result := 'DIERR_DEVICENOTREG';
    DIERR_OBJECTNOTFOUND                : Result := 'DIERR_OBJECTNOTFOUND';
    DIERR_INVALIDPARAM                  : Result := 'DIERR_INVALIDPARAM';
    DIERR_NOINTERFACE                   : Result := 'DIERR_NOINTERFACE';
    DIERR_GENERIC                       : Result := 'DIERR_GENERIC';
    DIERR_OUTOFMEMORY                   : Result := 'DIERR_OUTOFMEMORY';
    DIERR_UNSUPPORTED                   : Result := 'DIERR_UNSUPPORTED';
    DIERR_NOTINITIALIZED                : Result := 'DIERR_NOTINITIALIZED';
    DIERR_ALREADYINITIALIZED            : Result := 'DIERR_ALREADYINITIALIZED';
    DIERR_NOAGGREGATION                 : Result := 'DIERR_NOAGGREGATION';
    DIERR_OTHERAPPHASPRIO               : Result := 'DIERR_OTHERAPPHASPRIO, DIERR_READONLY, DIERR_HANDLEEXISTS';
    DIERR_INPUTLOST                     : Result := 'DIERR_INPUTLOST';
    DIERR_ACQUIRED                      : Result := 'DIERR_ACQUIRED';
    DIERR_NOTACQUIRED                   : Result := 'DIERR_NOTACQUIRED';
    E_PENDING                           : Result := 'E_PENDING';
  else
    Result := WindowsErrorMsg(ErrorCode);
  end;
end;
{$IfDef DX9}
function DPlayErrorMsg(ErrorCode: HRESULT): string;
begin
  case ErrorCode of
    DPN_OK                               : Result := 'DPN_OK';
    DPNERR_ALREADYINITIALIZED            : Result := 'DPNERR_ALREADYINITIALIZED';
    //DPNERR_ACCESSDENIED                  : Result := 'DPNERR_ACCESSDENIED';
    //DPNERR_ACTIVEPLAYERS                 : Result := 'DPNERR_ACTIVEPLAYERS';
    DPNERR_BUFFERTOOSMALL                : Result := 'DPNERR_BUFFERTOOSMALL';
    //DPNERR_CANTADDPLAYER                 : Result := 'DPNERR_CANTADDPLAYER';
    DPNERR_CANTCREATEGROUP               : Result := 'DPNERR_CANTCREATEGROUP';
    DPNERR_CANTCREATEPLAYER              : Result := 'DPNERR_CANTCREATEPLAYER';
    //DPNERR_CANTCREATESESSION             : Result := 'DPNERR_CANTCREATESESSION';
    //DPNERR_CAPSNOTAVAILABLEYET           : Result := 'DPNERR_CAPSNOTAVAILABLEYET';
    DPNERR_EXCEPTION                     : Result := 'DPNERR_EXCEPTION';
    DPNERR_GENERIC                       : Result := 'DPNERR_GENERIC';
    DPNERR_INVALIDFLAGS                  : Result := 'DPNERR_INVALIDFLAGS';
    DPNERR_INVALIDOBJECT                 : Result := 'DPNERR_INVALIDOBJECT';
    DPNERR_INVALIDPARAM                  : Result := 'DPNERR_INVALIDPARAM, DPNERR_INVALIDPARAMS';
    DPNERR_INVALIDPLAYER                 : Result := 'DPNERR_INVALIDPLAYER';
    DPNERR_INVALIDGROUP                  : Result := 'DPNERR_INVALIDGROUP';
    DPNERR_NOCAPS                        : Result := 'DPNERR_NOCAPS';
    DPNERR_NOCONNECTION                  : Result := 'DPNERR_NOCONNECTION';
    //DPNERR_NOMEMORY                      : Result := 'DPNERR_NOMEMORY, DPNERR_OUTOFMEMORY';
    //DPNERR_NOMESSAGES                    : Result := 'DPNERR_NOMESSAGES';
    //DPNERR_NONAMESERVERFOUND             : Result := 'DPNERR_NONAMESERVERFOUND';
    //DPNERR_NOPLAYERS                     : Result := 'DPNERR_NOPLAYERS';
    //DPNERR_NOSESSIONS                    : Result := 'DPNERR_NOSESSIONS';
    DPNERR_PENDING                       : Result := 'DPNERR_PENDING';
    //DPNERR_SENDTOOBIG                    : Result := 'DPNERR_SENDTOOBIG';
    //DPNERR_TIMEOUT                       : Result := 'DPNERR_TIMEOUT';
    //DPNERR_UNAVAILABLE                   : Result := 'DPNERR_UNAVAILABLE';
    DPNERR_UNSUPPORTED                   : Result := 'DPNERR_UNSUPPORTED';
    //DPNERR_BUSY                          : Result := 'DPNERR_BUSY';
    DPNERR_USERCANCEL                    : Result := 'DPNERR_USERCANCEL';
    DPNERR_NOINTERFACE                   : Result := 'DPNERR_NOINTERFACE';
    //DPNERR_CANNOTCREATESERVER            : Result := 'DPNERR_CANNOTCREATESERVER';
    DPNERR_PLAYERLOST                    : Result := 'DPNERR_PLAYERLOST';
    //DPNERR_SESSIONLOST                   : Result := 'DPNERR_SESSIONLOST';
    DPNERR_UNINITIALIZED                 : Result := 'DPNERR_UNINITIALIZED';
    //DPNERR_NONEWPLAYERS                  : Result := 'DPNERR_NONEWPLAYERS';
    DPNERR_INVALIDPASSWORD               : Result := 'DPNERR_INVALIDPASSWORD';
    DPNERR_CONNECTING                    : Result := 'DPNERR_CONNECTING';
    //DPNERR_BUFFERTOOLARGE                : Result := 'DPNERR_BUFFERTOOLARGE';
    //DPNERR_CANTCREATEPROCESS             : Result := 'DPNERR_CANTCREATEPROCESS';
    //DPNERR_APPNOTSTARTED                 : Result := 'DPNERR_APPNOTSTARTED';
    DPNERR_INVALIDINTERFACE              : Result := 'DPNERR_INVALIDINTERFACE';
    //DPNERR_NOSERVICEPROVIDER             : Result := 'DPNERR_NOSERVICEPROVIDER';
    //DPNERR_UNKNOWNAPPLICATION            : Result := 'DPNERR_UNKNOWNAPPLICATION';
    //DPNERR_NOTLOBBIED                    : Result := 'DPNERR_NOTLOBBIED';
    //DPNERR_SERVICEPROVIDERLOADED         : Result := 'DPNERR_SERVICEPROVIDERLOADED';
    DPNERR_NOTREGISTERED                 : Result := 'DPNERR_NOTREGISTERED';
// Security related errors
    //DPNERR_AUTHENTICATIONFAILED          : Result := 'DPNERR_AUTHENTICATIONFAILED';
    //DPNERR_CANTLOADSSPI                  : Result := 'DPNERR_CANTLOADSSPI';
    //DPNERR_ENCRYPTIONFAILED              : Result := 'DPNERR_ENCRYPTIONFAILED';
    //DPNERR_SIGNFAILED                    : Result := 'DPNERR_SIGNFAILED';
    //DPNERR_CANTLOADSECURITYPACKAGE       : Result := 'DPNERR_CANTLOADSECURITYPACKAGE';
    //DPNERR_ENCRYPTIONNOTSUPPORTED        : Result := 'DPNERR_ENCRYPTIONNOTSUPPORTED';
    //DPNERR_CANTLOADCAPI                  : Result := 'DPNERR_CANTLOADCAPI';
    //DPNERR_NOTLOGGEDIN                   : Result := 'DPNERR_NOTLOGGEDIN';
    //DPNERR_LOGONDENIED                   : Result := 'DPNERR_LOGONDENIED';
  else
    Result := WindowsErrorMsg(ErrorCode);
  end;
end;
{$Else}
function DPlayErrorMsg(ErrorCode: HRESULT): string;
begin
  case ErrorCode of
    DP_OK                               : Result := 'DP_OK';
    DPERR_ALREADYINITIALIZED            : Result := 'DPERR_ALREADYINITIALIZED';
    DPERR_ACCESSDENIED                  : Result := 'DPERR_ACCESSDENIED';
    DPERR_ACTIVEPLAYERS                 : Result := 'DPERR_ACTIVEPLAYERS';
    DPERR_BUFFERTOOSMALL                : Result := 'DPERR_BUFFERTOOSMALL';
    DPERR_CANTADDPLAYER                 : Result := 'DPERR_CANTADDPLAYER';
    DPERR_CANTCREATEGROUP               : Result := 'DPERR_CANTCREATEGROUP';
    DPERR_CANTCREATEPLAYER              : Result := 'DPERR_CANTCREATEPLAYER';
    DPERR_CANTCREATESESSION             : Result := 'DPERR_CANTCREATESESSION';
    DPERR_CAPSNOTAVAILABLEYET           : Result := 'DPERR_CAPSNOTAVAILABLEYET';
    DPERR_EXCEPTION                     : Result := 'DPERR_EXCEPTION';
    DPERR_GENERIC                       : Result := 'DPERR_GENERIC';
    DPERR_INVALIDFLAGS                  : Result := 'DPERR_INVALIDFLAGS';
    DPERR_INVALIDOBJECT                 : Result := 'DPERR_INVALIDOBJECT';
    DPERR_INVALIDPARAM                  : Result := 'DPERR_INVALIDPARAM, DPERR_INVALIDPARAMS';
    DPERR_INVALIDPLAYER                 : Result := 'DPERR_INVALIDPLAYER';
    DPERR_INVALIDGROUP                  : Result := 'DPERR_INVALIDGROUP';
    DPERR_NOCAPS                        : Result := 'DPERR_NOCAPS';
    DPERR_NOCONNECTION                  : Result := 'DPERR_NOCONNECTION';
    DPERR_NOMEMORY                      : Result := 'DPERR_NOMEMORY, DPERR_OUTOFMEMORY';
    DPERR_NOMESSAGES                    : Result := 'DPERR_NOMESSAGES';
    DPERR_NONAMESERVERFOUND             : Result := 'DPERR_NONAMESERVERFOUND';
    DPERR_NOPLAYERS                     : Result := 'DPERR_NOPLAYERS';
    DPERR_NOSESSIONS                    : Result := 'DPERR_NOSESSIONS';
    DPERR_PENDING                       : Result := 'DPERR_PENDING';
    DPERR_SENDTOOBIG                    : Result := 'DPERR_SENDTOOBIG';
    DPERR_TIMEOUT                       : Result := 'DPERR_TIMEOUT';
    DPERR_UNAVAILABLE                   : Result := 'DPERR_UNAVAILABLE';
    DPERR_UNSUPPORTED                   : Result := 'DPERR_UNSUPPORTED';
    DPERR_BUSY                          : Result := 'DPERR_BUSY';
    DPERR_USERCANCEL                    : Result := 'DPERR_USERCANCEL';
    DPERR_NOINTERFACE                   : Result := 'DPERR_NOINTERFACE';
    DPERR_CANNOTCREATESERVER            : Result := 'DPERR_CANNOTCREATESERVER';
    DPERR_PLAYERLOST                    : Result := 'DPERR_PLAYERLOST';
    DPERR_SESSIONLOST                   : Result := 'DPERR_SESSIONLOST';
    DPERR_UNINITIALIZED                 : Result := 'DPERR_UNINITIALIZED';
    DPERR_NONEWPLAYERS                  : Result := 'DPERR_NONEWPLAYERS';
    DPERR_INVALIDPASSWORD               : Result := 'DPERR_INVALIDPASSWORD';
    DPERR_CONNECTING                    : Result := 'DPERR_CONNECTING';
    DPERR_BUFFERTOOLARGE                : Result := 'DPERR_BUFFERTOOLARGE';
    DPERR_CANTCREATEPROCESS             : Result := 'DPERR_CANTCREATEPROCESS';
    DPERR_APPNOTSTARTED                 : Result := 'DPERR_APPNOTSTARTED';
    DPERR_INVALIDINTERFACE              : Result := 'DPERR_INVALIDINTERFACE';
    DPERR_NOSERVICEPROVIDER             : Result := 'DPERR_NOSERVICEPROVIDER';
    DPERR_UNKNOWNAPPLICATION            : Result := 'DPERR_UNKNOWNAPPLICATION';
    DPERR_NOTLOBBIED                    : Result := 'DPERR_NOTLOBBIED';
    DPERR_SERVICEPROVIDERLOADED         : Result := 'DPERR_SERVICEPROVIDERLOADED';
    DPERR_NOTREGISTERED                 : Result := 'DPERR_NOTREGISTERED';
// Security related errors
    DPERR_AUTHENTICATIONFAILED          : Result := 'DPERR_AUTHENTICATIONFAILED';
    DPERR_CANTLOADSSPI                  : Result := 'DPERR_CANTLOADSSPI';
    DPERR_ENCRYPTIONFAILED              : Result := 'DPERR_ENCRYPTIONFAILED';
    DPERR_SIGNFAILED                    : Result := 'DPERR_SIGNFAILED';
    DPERR_CANTLOADSECURITYPACKAGE       : Result := 'DPERR_CANTLOADSECURITYPACKAGE';
    DPERR_ENCRYPTIONNOTSUPPORTED        : Result := 'DPERR_ENCRYPTIONNOTSUPPORTED';
    DPERR_CANTLOADCAPI                  : Result := 'DPERR_CANTLOADCAPI';
    DPERR_NOTLOGGEDIN                   : Result := 'DPERR_NOTLOGGEDIN';
    DPERR_LOGONDENIED                   : Result := 'DPERR_LOGONDENIED';
  else
    Result := WindowsErrorMsg(ErrorCode);
  end;
end;
{$EndIf}
end.