avi wav bmp2avi 杂乱 （只是在这里放一下）

type
  TAVIStreamInfoA = record
    fccType, fccHandler, dwFlags,                          // Contains AVITF_* flags
    dwCaps: DWORD;

    wPriority, wLanguage: WORD;

    dwScale,
      dwRate,                                              // dwRate / dwScale == samples/second
    dwStart,
      dwLength,                                            // In units above...
    dwInitialFrames,
      dwSuggestedBufferSize,
      dwQuality,
      dwSampleSize: DWORD;

    rcFrame: TRect;
    dwEditCount,
      dwFormatChangeCount: DWORD;

    szName: array[0..63] of AnsiChar;
  end;

type
    AVI_COMPRESS_OPTIONS=Record  //      'avi 文件压缩选项avi_compress_options 结构  下面的opts
      fccType : integer;
      fccHandler : integer;
      dwKeyFrameEvery : integer;
      dwQuality : integer;
      dwBytesPerSecond : integer ;
      dwFlags : integer ;
      lpFormat : integer ;
      cbFormat : integer ;
      lpParms : integer  ;
      cbParms : integer  ;
      dwInterleaveEvery : integer ;
end;
  TAVIStreamInfo = TAVIStreamInfoA;
  PAVIStreamInfo = ^TAVIStreamInfo;
//  PAVIStreamInfow=^TaviStreamInfo;
  TWavFormat=Twaveformat;
  TAVISaveCallback = function(nPercent: integer): LONGint; stdcall;
function AVIFileOpen(var ppfile: pointer; szFile: PChar; uMode: UINT; lpHandler: pointer): HResult; stdcall;
procedure AVIFileInit; stdcall;
procedure AVIFileExit; stdcall;
function AVIFileCreateStream(pfile: pointer; var ppavi: pointer; var psi: TAVIStreamInfo): HResult; stdcall;
function AVIStreamSetFormat(pavi: pointer; lPos: LONGint; lpFormat: pointer; cbFormat: LONGint): HResult; stdcall;
function AVIStreamWrite(pavi: pointer; lStart, lSamples: LONGint; lpBuffer: pointer; cbBuffer: LONGint; dwFlags: DWORD; var plSampWritten: LONGint; var plBytesWritten: LONGint): HResult; stdcall;
function AVIStreamRelease(pavi: pointer): ULONG; stdcall;
function AVIFileRelease(pfile: pointer): ULONG; stdcall;
function CreateEditableStream(var ppsEditable: pointer; psSource: pointer): HResult; stdcall;
procedure InternalGetDIBSizes(Bitmap: HBITMAP; var InfoHeaderSize: Integer; var ImageSize: longInt; PixelFormat: TPixelFormat);
procedure InitializeBitmapInfoHeader(Bitmap: HBITMAP; var Info: TBitmapInfoHeader; PixelFormat: TPixelFormat);
function AlignBit(Bits, BitsPerPixel, Alignment: Cardinal): Cardinal;
function InternalGetDIB(Bitmap: HBITMAP; Palette: HPALETTE; var BitmapInfo; var Bits; PixelFormat: TPixelFormat): Boolean;
// {自定义 下}
Function AVISaveOptions(hwnd : integer; uiFlags : integer; nStreams : integer;var ppavi : pointer;var ppOptions : pointer) : HResult;stdcall;
Function AVISaveOptionsFree(nStreams : Integer;var ppOptions :pointer):integer;stdcall;
Function AVIMakeCompressedStream(var ppsCompressed :pointer;psSource : pointer;var lpOptions: AVI_COMPRESS_OPTIONS;pclsidHandler : Integer) : Integer;stdcall;


const
  streamtypeVIDEO                      = $73646976;        // DWORD( 'v', 'i', 'd', 's' )
  streamtypeAUDC                      = $63647561; // mmioFOURCC('a', 'u', 'd', 'c')  //可能有问题
  AVIIF_KEYFRAME                        = $10;
  ICMF_CHOOSE_KEYFRAME  = $1;
  ICMF_CHOOSE_DATARATE  = $2;
// {自定义 下}
  //鼠标样式
  //TMouseStyle=(HidMouse,CirMouse,ThrMouse,NorMouse);
  //

{自定义 上}
type
  TAvi = class(TObject)
  private
    // {自定义 下}
    pOpts,psCompressed:pointer;
    Opts:AVI_COMPRESS_OPTIONS;  //压缩格式
  // pStreamW,pWaveFormat:pointer;
    //  {自定义 上}
    pFile, pStream, BitmapBits: pointer;  //pStream ==ps
        pStreamW:pointer;
    StreamInfo: TAVIStreamInfo;
//  StreamInfoW:TAVIStreamInfo;
  // WaveFormat:TWavFormat;    //wavformat
    BitmapInfo: PBitmapInfoHeader;
    BitmapInfoSize: Integer;
    BitmapSize, Dummy: longInt;
    apxf: TPixelFormat;  //选择多少位的图片
    i: Integer;
  public
    constructor Create(as_avifile: string; bmp: TBitmap; fPxf: TPixelFormat = pf8bit; AviRate: integer = 1);
    destructor Destroy; override;
    procedure Add(bmp: TBitmap);
    procedure  CreateWav(channels{  1(单声)或者2(立体声)  },  resolution{  8或者16,代表8位或16位声音  }:  word;  rate{  声音频率,如11025,22050,  44100}:  Integer;
      fn{  对应的文件名称  }:  string);              //////////创建WAV文件
    function AddWave(var src:string):boolean;
  end;

//-------------------------------------------------------------------

 

//在指定文件夹下生产 wav文件
procedure  Tavi.CreateWav(channels{  1(单声)或者2(立体声)  },  resolution{  8或者16,代表8位或16位声音  }:  word;  rate{  声音频率,如11025,22050,  44100}:  Integer;
      fn{  对应的文件名称  }:  string);              //////////创建WAV文件
  var
      wf  :  file  of  TWavHeader;
      wh  :  TWavHeader;
  begin 
  wh.rId  :=  $46464952;   
  wh.rLen  :=  36;
  wh.wId  :=  $45564157;
  wh.fId  :=  $20746d66;
  wh.fLen  :=  16;
  wh.wFormatTag  :=  1;
  wh.nChannels  :=  channels;   
  wh.nSamplesPerSec  :=  rate;
  wh.nAvgBytesPerSec  :=  channels*rate*(resolution  div  8);
  wh.nBlockAlign  :=  channels*(resolution  div  8);
  wh.wBitsPerSample  :=  resolution;
  wh.dId  :=  $61746164;
  wh.wSampleLength  :=  0;

  system.assignfile(wf,fn);  {打开对应文件  }
  rewrite(wf);  {移动指针到文件头} 
  write(wf,wh);  {写进文件头  } 
  closefile(wf);  {关闭文件  }
  end;

constructor TAvi.Create(as_avifile: string; bmp: TBitmap; fPxf: TPixelFormat = pf8bit; AviRate: integer = 1);
begin
  inherited Create;
  apxf := fPxf;
  i := 0;
  AVIFileInit;

  if (AVIFileOpen(pFile, PChar(as_avifile), OF_WRITE or OF_CREATE or OF_SHARE_EXCLUSIVE, nil) <> 0) then
    raise Exception.Create('创建avi文件失败');

  InternalGetDIBSizes(bmp.Handle, BitmapInfoSize, BitmapSize, fPxf);
  FillChar(StreamInfo, sizeof(StreamInfo), 0);
  StreamInfo.fccType := streamtypeVIDEO;
  StreamInfo.fccHandler := 0;
  StreamInfo.dwFlags := 0;
  StreamInfo.dwSuggestedBufferSize := BitmapSize*3; //自定义*3
  StreamInfo.rcFrame.Right := bmp.Width-256;
  StreamInfo.rcFrame.Bottom := bmp.Height-32;
  StreamInfo.dwScale := 1;
  StreamInfo.dwRate := AviRate;

  if (AVIFileCreateStream(pFile, pStream, StreamInfo) <> 0) then
    raise Exception.Create('创建avi流失败');
    {自定义 下}
  popts:=@opts;
  if (aviSaveOptions(form1.Handle,ICMF_CHOOSE_KEYFRAME or ICMF_CHOOSE_DATARATE,1,pstream,popts) <>1) then
  begin
    AVISaveOptionsFree(0,popts);
    raise Exception.Create('压缩格式设置错误');
  end;

  if(AVIMakeCompressedStream(psCompressed,pstream,Opts,0) <>0) then //生成有压缩格式的流
    raise Exception.Create('请选择正确的压缩格式');

  {自定义 上}
  BitmapInfo := nil;
  BitmapBits := nil;
  // Get DIB header and pixel buffers
  GetMem(BitmapInfo, BitmapInfoSize);
  GetMem(BitmapBits, BitmapSize);
  InternalGetDIB(bmp.Handle, 0, BitmapInfo^, BitmapBits^, apxf);
//原  if (AVIStreamSetFormat(pStream, 0, BitmapInfo, BitmapInfoSize) <> 0) then
  if (AVIStreamSetFormat(psCompressed, 0, BitmapInfo, BitmapInfoSize) <> 0) then
    raise Exception.Create('设置avi流格式失败');
  showmessage('设置压缩格式成功');
end;

destructor TAvi.Destroy;
begin
  if (BitmapInfo <> nil) then
    FreeMem(BitmapInfo);
  if (BitmapBits <> nil) then
    FreeMem(BitmapBits);
  if (pStream <>nil)  then
    AVIStreamRelease(pStream);
  if(psCompressed <>nil)  then
    AVIStreamRelease(psCompressed);
    if (pstreamw <>nil) then
    AVIStreamRelease(pstreamw);
  AVIFileRelease(pFile);
  AVIFileExit;
  inherited Destroy;
end;

procedure TAvi.Add(bmp: TBitmap);
begin
  try
    InternalGetDIB(bmp.Handle, 0, BitmapInfo^, BitmapBits^, apxf);
  //原 if AVIStreamWrite(pStream, i, 1, BitmapBits, BitmapSize, AVIIF_KEYFRAME, Dummy, Dummy) <> 0 then
  if AVIStreamWrite(psCompressed, i, 1, BitmapBits, BitmapSize, AVIIF_KEYFRAME,Dummy, Dummy) <> 0 then
      raise Exception.Create('添加帧到avi文件失败');
    Inc(i);
  except
    Destroy;
  end;
end;