mmregs.pas

一套及时通讯的原码

{*************************************************************************}
{ IMA endorsed ADPCM structure definitions--note that this is exactly     }
{ the same format as Intel's DVI ADPCM.                                   }
{                                                                         }
{ for WAVE_FORMAT_IMA_ADPCM   (0x0011)                                    }
{*************************************************************************}
type
    PIMAADPCMWaveFormat = ^TIMAADPCMWaveFormat;
    TIMAADPCMWaveFormat = packed record
      wfx             : TWaveFormatEx;
      wSamplesPerBlock: Word;
    end;

{*************************************************************************}
{ VideoLogic's Media Space ADPCM Structure definitions                    }
{ for  WAVE_FORMAT_MEDIASPACE_ADPCM    (0x0012)                           }
{*************************************************************************}
type
    PMEDIASPACEADPCMWaveFormat = ^TMEDIASPACEADPCMWaveFormat;
    TMEDIASPACEADPCMWaveFormat = packed record
      wfx      :  TWaveFormatEx;
      wRevision: Word;
    end;

{*************************************************************************}
{ Sierra Semiconductor                                                    }
{ for WAVE_FORMAT_SIERRA_ADPCM   (0x0013)                                 }
{*************************************************************************}
type
    PSIERRAADPCMWaveFormat = ^TSIERRAADPCMWaveFormat;
    TSIERRAADPCMWaveFormat = packed record
      wfx      : TWaveFormatEx;
      wRevision: Word;
    end;

{*************************************************************************}
{ Antex Electronics  structure definitions                                }
{ for WAVE_FORMAT_G723_ADPCM   (0x0014)                                   }
{*************************************************************************}
type
    PG723_ADPCMWaveFormat = ^TG723_ADPCMWaveFormat;
    TG723_ADPCMWaveFormat = packed record
      wfx          : TWaveFormatEx;
      cbExtraSize  : Word;
      nAuxBlockSize: Word;
    end;

{*************************************************************************}
{ DSP Solutions (formerly DIGISPEECH) structure definitions               }
{ for WAVE_FORMAT_DIGISTD   (0x0015)                                      }
{*************************************************************************}
type
    PDIGISTDWaveFormat = ^TDIGISTDWaveFormat;
    TDIGISTDWaveFormat = packed record
      wfx: TWaveFormatEx;
    end;

{*************************************************************************}
{ DSP Solutions (formerly DIGISPEECH) structure definitions               }
{ for WAVE_FORMAT_DIGIFIX   (0x0016)                                      }
{*************************************************************************}
type
    PDIGIFIXWaveFormat = ^TDIGIFIXWaveFormat;
    TDIGIFIXWaveFormat = packed record
      wfx: TWaveFormatEx;
    end;

{*************************************************************************}
{ Dialogic Corporation                                                    }
{ WAVEFORMAT_DIALOGIC_OKI_ADPCM   (0x0017)                                }
{*************************************************************************}
type
    PDIALOGICOKIADPCMWaveFormat = ^TDIALOGICOKIADPCMWaveFormat;
    TDIALOGICOKIADPCMWaveFormat = packed record
      ewf: TWaveFormatEx;
    end;

{*************************************************************************}
{ Yamaha Compression's ADPCM structure definitions                        }
{ for WAVE_FORMAT_YAMAHA_ADPCM   (0x0020)                                 }
{*************************************************************************}
type
    PYAMAHA_ADPCMWaveFormat = ^TYAMAHA_ADPCMWaveFormat;
    TYAMAHA_ADPCMWaveFormat = packed record
      wfx: TWaveFormatEx;
    end;

{*************************************************************************}
{ Speech Compression's Sonarc structure definitions                       }
{ for WAVE_FORMAT_SONARC   (0x0021)                                       }
{*************************************************************************}
type
    PSONARCWaveFormat = ^TSONARCWaveFormat;
    TSONARCWaveFormat = packed record
      wfx      : TWaveFormatEx;
      wCompType: Word;
    end;

{*************************************************************************}
{ DSP Groups's TRUESPEECH structure definitions                           }
{ for WAVE_FORMAT_DSPGROUP_TRUESPEECH   (0x0022)                          }
{*************************************************************************}
type
    PTRUESPEECHWaveFormat = ^TTRUESPEECHWaveFormat;
    TTRUESPEECHWaveFormat = packed record
      wfx              : TWaveFormatEx;
      wRevision        : Word;
      nSamplesPerBlock : Word;
      abReserved: array[0..27]of Byte;
    end;

{*************************************************************************}
{ Echo Speech Corp structure definitions                                  }
{ for WAVE_FORMAT_ECHOSC1   (0x0023)                                      }
{*************************************************************************}
type
    PECHOSC1WaveFormat = ^TECHOSC1WaveFormat;
    TECHOSC1WaveFormat = packed record
      wfx: TWaveFormatEx;
    end;

{*************************************************************************}
{ Audiofile Inc.structure definitions                                     }
{ for WAVE_FORMAT_AUDIOFILE_AF36   (0x0024)                               }
{*************************************************************************}
type
    PAUDIOFILE_AF36WaveFormat = ^TAUDIOFILE_AF36WaveFormat;
    TAUDIOFILE_AF36WaveFormat = packed record
      wfx: TWaveFormatEx;
    end;

{*************************************************************************}
{ Audio Processing Technology structure definitions                       }
{ for WAVE_FORMAT_APTX   (0x0025)                                         }
{*************************************************************************}
type
    PAPTXWaveFormatEx = ^TAPTXWaveFormatEx;
    TAPTXWaveFormatEx = packed record
      wfx: TWaveFormatEx;
    end;

{*************************************************************************}
{ Audiofile Inc.structure definitions                                     }
{ for WAVE_FORMAT_AUDIOFILE_AF10   (0x0026)                               }
{*************************************************************************}
type
    PAUDIOFILE_AF10WaveFormat = ^TAUDIOFILE_AF10WaveFormat;
    TAUDIOFILE_AF10WaveFormat = packed record
      wfx: TWaveFormatEx;
    end;

{*************************************************************************}
{ Dolby's AC-2 wave format structure definition                           }
{ for WAVE_FORMAT_DOLBY_AC2    (0x0030)                                   }
{*************************************************************************}
type
    PDOLBYAC2WaveFormat = ^TDOLBYAC2WaveFormat;
    TDOLBYAC2WaveFormat = packed record
      wfx         : TWaveFormatEx;
      nAuxBitsCode: Word;
    end;

{*************************************************************************}
{ Microsoft's WAVE_FORMAT_GSM 610	         0x0031                   }
{*************************************************************************}
type
    PGSM610WaveFormat = ^TGSM610WaveFormat;
    TGSM610WaveFormat = packed record
      wfx             : TWaveFormatEx;
      wSamplesPerBlock: Word;
    end;

{*************************************************************************}
{ Antex Electronics Corp                                                  }
{ for WAVE_FORMAT_ADPCME                  (0x0033)                        }
{*************************************************************************}
type
    PADPCMEWaveFormat = ^TADPCMEWaveFormat;
    TADPCMEWaveFormat = packed record
      wfx             : TWaveFormatEx;
      wSamplesPerBlock: Word;
    end;

{*************************************************************************}
{ Control Resources Limited                                               }
{ WAVE_FORMAT_CONTROL_RES_VQLPC	         0x0034                           }
{*************************************************************************}
type
    PCONTRESVQLPCWaveFormat = ^TCONTRESVQLPCWaveFormat;
    TCONTRESVQLPCWaveFormat = packed record
      wfx             : TWaveFormatEx;
      wSamplesPerBlock: Word;
    end;

{*************************************************************************}
{ for WAVE_FORMAT_DIGIREAL                   (0x0035)                     }
{*************************************************************************}
type
    PDIGIREALWaveFormat = ^TDIGIREALWaveFormat;
    TDIGIREALWaveFormat = packed record
      wfx             : TWaveFormatEx;
      wSamplesPerBlock: Word;
    end;

{*************************************************************************}
{ DSP Solutions                                                           }
{ for WAVE_FORMAT_DIGIADPCM   (0x0036)                                    }
{*************************************************************************}
type
    PDIGIADPCMWaveFormat = ^TDIGIADPCMWaveFormat;
    TDIGIADPCMWaveFormat = packed record
      wfx             : TWaveFormatEx;
      wSamplesPerBlock: Word;
    end;

{*************************************************************************}
{ Control Resources Limited                                               }
{ for WAVE_FORMAT_CONTROL_RES_CR10	         0x0037                   }
{*************************************************************************}
type
    PCONTRESCR10WaveFormat = ^TCONTRESCR10WaveFormat;
    TCONTRESCR10WaveFormat = packed record
      wfx             : TWaveFormatEx;
      wSamplesPerBlock: Word;
    end;

{*************************************************************************}
{ Natural Microsystems                                                    }
{ for WAVE_FORMAT_NMS_VBXADPCM   (0x0038)                                 }
{*************************************************************************}
type
    PNMS_VBXADPCMWaveFormat = ^TNMS_VBXADPCMWaveFormat;
    TNMS_VBXADPCMWaveFormat = packed record
      wfx             : TWaveFormatEx;
      wSamplesPerBlock: Word;
    end;

{*************************************************************************}
{ Antex Electronics  structure definitions                                }
{ for WAVE_FORMAT_G721_ADPCM   (0x0040)                                   }
{*************************************************************************}
type
    PG721_ADPCMWaveFormat = ^TG721_ADPCMWaveFormat;
    TG721_ADPCMWaveFormat = packed record
      wfx          : TWaveFormatEx;
      nAuxBlockSize: Word;
    end;

{*************************************************************************}
{ Microsoft MPEG audio WAV definition                                     }
{ MPEG-1 audio wave format (audio layer only).   (0x0050)                 }
{*************************************************************************}
const
     ACM_MPEG_LAYER1        = $0001;
     ACM_MPEG_LAYER2        = $0002;
     ACM_MPEG_LAYER3        = $0004;

     ACM_MPEG_STEREO        = $0001;
     ACM_MPEG_JOINTSTEREO   = $0002;
     ACM_MPEG_DUALCHANNEL   = $0004;
     ACM_MPEG_SINGLECHANNEL = $0008;

     ACM_MPEG_PRIVATEBIT    = $0001;
     ACM_MPEG_COPYRIGHT     = $0002;
     ACM_MPEG_ORIGINALHOME  = $0004;
     ACM_MPEG_PROTECTIONBIT = $0008;
     ACM_MPEG_ID_MPEG1      = $0010;

type
    PMPEG1WaveFormat = ^TMPEG1WaveFormat;
    TMPEG1WaveFormat = packed record
      wfx          : TWaveFormatEx;
      fwHeadLayer  : Word;
      dwHeadBitrate: Longint;