mmregs.pas

一套及时通讯的原码

      fwHeadMode   : Word;
      fwHeadModeExt: Word;
      wHeadEmphasis: Word;
      fwHeadFlags  : Word;
      dwPTSLow     : Longint;
      dwPTSHigh    : Longint;
    end;

const
    MPEGLAYER3_WFX_EXTRA_BYTES = 12;

type
    PMPEGLayer3WaveFormat = ^TMPEGLayer3WaveFormat;
    TMPEGLayer3WaveFormat = packed record
      wfx            : TWaveFormatEx;
      wID            : WORD;
      fdwFlags       : DWORD;
      nBlockSize     : WORD;
      nFramesPerBlock: WORD;
      nCodecDelay    : WORD;
    end;

{*************************************************************************}
{ Creative's ADPCM structure definitions                                  }
{ for WAVE_FORMAT_CREATIVE_ADPCM   (0x0200)                               }
{*************************************************************************}
type
    PCREATIVEADPCMWaveFormat = ^TCREATIVEADPCMWaveFormat;
    TCREATIVEADPCMWaveFormat = packed record
      wfx      : TWaveFormatEx;
      wRevision: Word;
    end;

{*************************************************************************}
{ Creative FASTSPEECH                                                     }
{ WAVEFORMAT_CREATIVE_FASTSPEECH8   (0x0202)                              }
{*************************************************************************}
type
    PCREATIVEFASTSPEECH8WaveFormat = ^TCREATIVEFASTSPEECH8WaveFormat;
    TCREATIVEFASTSPEECH8WaveFormat = packed record
      wfx      : TWaveFormatEx;
      wRevision: Word;
    end;

{*************************************************************************}
{ Creative FASTSPEECH                                                     }
{ WAVEFORMAT_CREATIVE_FASTSPEECH10   (0x0203)                             }
{*************************************************************************}
type
    PCREATIVEFASTSPEECH10WaveFormat = ^TCREATIVEFASTSPEECH10WaveFormat;
    TCREATIVEFASTSPEECH10WaveFormat = packed record
      wfx      : TWaveFormatEx;
      wRevision: Word;
    end;

{*************************************************************************}
{ Fujitsu FM Towns 'SND' structure                                        }
{ for WAVE_FORMAT_FMMTOWNS_SND   (0x0300)                                 }
{*************************************************************************}
type
    PFMTOWNS_SND_WaveFormat = ^TFMTOWNS_SND_WaveFormat;
    TFMTOWNS_SND_WaveFormat = packed record
      wfx      : TWaveFormatEx;
      wRevision: Word;
    end;

{*************************************************************************}
{ Olivetti structure                                                      }
{ for WAVE_FORMAT_OLIGSM   (0x1000)                                       }
{*************************************************************************}
type
    POLIGSMWaveFormat = ^TOLIGSMWaveFormat;
    TOLIGSMWaveFormat = packed record
      wfx : TWaveFormatEx;
    end;

{*************************************************************************}
{ Olivetti structure                                                      }
{ for WAVE_FORMAT_OLIADPCM   (0x1001)                                     }
{*************************************************************************}
type
    POLIADPCMWaveFormat = ^TOLIADPCMWaveFormat;
    TOLIADPCMWaveFormat = packed record
      wfx : TWaveFormatEx;
    end;

{*************************************************************************}
{ Olivetti structure                                                      }
{ for WAVE_FORMAT_OLICELP   (0x1002)                                      }
{*************************************************************************}
type
    POLICELPWaveFormat = ^TOLICELPWaveFormat;
    TOLICELPWaveFormat = packed record
      wfx : TWaveFormatEx;
    end;

{*************************************************************************}
{ Olivetti structure                                                      }
{ for WAVE_FORMAT_OLISBC   (0x1003)                                       }
{*************************************************************************}
type
    POLISBCWaveFormat = ^TOLISBCWaveFormat;
    TOLISBCWaveFormat = packed record
      wfx : TWaveFormatEx;
    end;

{*************************************************************************}
{ Olivetti structure                                                      }
{ for WAVE_FORMAT_OLIOPR   (0x1004)                                       }
{*************************************************************************}
type
    POLIOPRWaveFormat = ^TOLIOPRWaveFormat;
    TOLIOPRWaveFormat = packed record
      wfx : TWaveFormatEx;
    end;


{**************************************************************************}
{ ACM Wave Filters
{**************************************************************************}
{$IFNDEF ACM_WAVEFILTER} {$DEFINE ACM_WAVEFILTER}
const
     WAVE_FILTER_UNKNOWN     = $0000;
     WAVE_FILTER_DEVELOPMENT = $FFFF;

type
    PWaveFilter = ^TWaveFilter;
    TWaveFilter = packed record
      cbStruct   : Longint;        { Size of the filter in bytes        }
      dwFilterTag: Longint;        { fitler type                        }
      fdwFilter  : Longint;        { Flags for the filter (Universal Dfns)}
      dwReserved: array[0..4] of Longint;{ Reserved for system use      }
    end;
{$ENDIF}  { ACM_WAVEFILTER }

{**************************************************************************}
{$IFNDEF WAVE_FILTER_VOLUME}
const
     WAVE_FILTER_VOLUME = $0001;

type
    PVolumeWaveFilter  = ^TVolumeWaveFilter;
    TVolumeWaveFilter = packed record
      wfltr   : TWaveFilter;
      dwVolume: Longint;
    end;
{$ENDIF} { WAVE_FILTER_VOLUME }

{**************************************************************************}
{$IFNDEF WAVE_FILTER_ECHO}
const
     WAVE_FILTER_ECHO = $0002;

type
    PEchoWaveFilter = ^TEchoWaveFilter;
    TEchoWaveFilter = packed record
      wfltr   : TWaveFilter;
      dwVolume: Longint;
      dwDelay : Longint;
    end;
{$ENDIF} { WAVEFILTER_ECHO }

{**************************************************************************}
{ New RIFF WAVE Chunks                                                     }
{**************************************************************************}
const
     RIFFWAVE_inst = $74736E69; { 'inst' }

type
    TRIFFWave_inst = packed record
      bUnshiftedNote: Byte;
      chFineTune    : Char;
      chGain        : Char;
      bLowNote      : Byte;
      bHighNote     : Byte;
      bLowVelocity  : Byte;
      bHighVelocity : Byte;
    end;

{$ENDIF} { NONEWWAVE }

{**************************************************************************}
{ New RIFF Forms                                                           }
{**************************************************************************}
{$IFNDEF NONEWRIFF}

const
     { RIFF AVI }
     { AVI file format is specified in a seperate file (AVIFMT.H), }
     { which is available in the VfW and Chicago SDK               }

     { RIFF CPPO }
     RIFFCPPO       = $4F505043; {'CPPO'}

     RIFFCPPO_objr  = $726A626F; {'objr'}
     RIFFCPPO_obji  = $696A626F; {'obji'}

     RIFFCPPO_clsr  = $72736C63; {'clsr'}
     RIFFCPPO_clsi  = $69736C63; {'clsi'}

     RIFFCPPO_mbr   = $2072626D; {'mbr '}

     RIFFCPPO_char  = $72616863; {'char'}

     RIFFCPPO_byte  = $63747962; {'byte'}
     RIFFCPPO_int   = $20746E69; {'int '}
     RIFFCPPO_word  = $64726F77; {'word'}
     RIFFCPPO_long  = $676F6E6C; {'long'}
     RIFFCPPO_dwrd  = $64727764; {'dwrd'}
     RIFFCPPO_flt   = $20746C66; {'flt '}
     RIFFCPPO_dbl   = $206C6264; {'dbl '}
     RIFFCPPO_str   = $20727473; {'str '}
{$ENDIF} { NONEWRIFF }


{**************************************************************************}
{ DIB Compression Defines                                                  }
{**************************************************************************}
{$IFNDEF NOBITMAP}

{$IFNDEF BI_BITFIELDS}
const
     BI_BITFIELDS = 3;
{$ENDIF}

{$IFNDEF QUERYDIBSUPPORT}
const
     QUERYDIBSUPPORT = $3073;
     QDI_SETDIBITS   = $0001;
     QDI_GETDIBITS   = $0002;
     QDI_DIBTOSCREEN = $0004;
     QDI_STRETCHDIB  = $0008;
{$ENDIF}

{ Structure definitions }
type
    TEXBMINFOHEADER = packed record
       bmi: 	TBitmapInfoHeader;
       { extended BITMAPINFOHEADER fields }
       biExtDataOffset: Longint;
       { Other stuff will go here }
       { ... }
       { Format-specific information }
       { biExtDataOffset points here }
    end;

{ New DIB Compression Defines }
const
     BICOMP_IBMULTIMOTION  = $49544C55; {'ULTI'}
     BICOMP_IBMPHOTOMOTION = $4F4D4850; {'PHMO'}
     BICOMP_CREATIVEYUV    = $72757963; {'cyuv'}
{$ENDIF} { NOBITMAP }

{$IFNDEF NOJPEGDIB}

{ New DIB Compression Defines }
const
     JPEG_DIB = $4745504A; {'JPEG'}  { Still image JPEG DIB biCompression }
     MJPG_DIB = $47504A4D; {'MJPG'}  { Motion JPEG DIB biCompression      }

{ JPEGProcess Definitions }
const
     JPEG_PROCESS_BASELINE = 0;      { Baseline DCT }

     { AVI File format extensions }
     AVIIF_CONTROLFRAME = $00000200; { This is a control frame }

     { JIF Marker byte pairs in JPEG Interchange Format sequence }
     JIFMK_SOF0  = $FFC0;   { SOF Huff  - Baseline DCT                    }
     JIFMK_SOF1  = $FFC1;   { SOF Huff  - Extended sequential DCT         }
     JIFMK_SOF2  = $FFC2;   { SOF Huff  - Pro