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;