如果正常的讀取.avi的frame然後去存檔成.bmp  每張圖的大小 720*480 (一張圖有1.3M) 讀取出的frame很多張 所以存成.bmp在硬碟 很佔空間 100張就0.13G了 =.=    我自己用應用軟體去把圖縮小成360*240 (就只剩下337K) 但是這樣很麻煩 因為讀取出來的frame很多 每張這樣改 =.= 會瘋掉    不知道在讀取之後怎樣把圖直接縮小成1半 然後再存檔呢?? 原本把.avi frame讀取出來以後 直接存檔的 CODE     

 
//---------------------------------------------------------------------------    #include 
#pragma hdrstop    #include "Unit1.h"
#include "vfw.h"        // for video            //    由 AVI 檔中取出影像串流    //---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
  : TForm(Owner)
{
}
//---------------------------------------------------------------------------
bool GetVideoStream(char *szFile,PAVISTREAM *gapavi,AVISTREAMINFO *avis)
{
        //1 Initial the AVI library
        AVIFileInit();               //2 Open an AVI-file            HRESULT hr;
  PAVIFILE pfile;        // 讀取avi檔案
  hr = AVIFileOpen(&pfile,szFile , 0, 0L);      if (hr != 0)
  {
    return false;
  }            //3 Getting an AVI stream
        //PAVISTREAM gapavi;  // for storage the frames of AVI
                int gcpavi;        AVIFileGetStream(pfile, gapavi, 0L, 0); // 把得到的 Stream interface放在gapavi中            //4. Get the stream information
                //AVISTREAMINFO avis;
                AVICOMPRESSOPTIONS  gaAVIOptions;
                LPAVICOMPRESSOPTIONS  galpAVIOptions;                                // Stream header的資訊放在 avis中
    AVIStreamInfo(*gapavi, avis, sizeof(*avis));
    galpAVIOptions = &gaAVIOptions;
                        // 把 gaAVIOptions的內容清為0
    _fmemset(galpAVIOptions, 0, sizeof(AVICOMPRESSOPTIONS));
                        // 取出該 stream 的多媒體型態放在相對應的gaAVIOptions陣列中
    galpAVIOptions->fccType = avis->fccType;                            switch(avis->fccType) {
                                case streamtypeVIDEO:
                                         galpAVIOptions->dwFlags = AVICOMPRESSF_VALID | AVICOMPRESSF_KEYFRAMES | AVICOMPRESSF_DATARATE;
                                         galpAVIOptions->fccHandler = 0;
                                           galpAVIOptions->dwQuality = (DWORD)ICQUALITY_DEFAULT;
                                         galpAVIOptions->dwKeyFrameEvery = (DWORD)-1; // Default
                                         galpAVIOptions->dwBytesPerSecond = 0;
                                         galpAVIOptions->dwInterleaveEvery = 1;                                    break;
                                default:
                                break;
                        }
            return true;
}
//----------------------------------------------------------------------------    //-----------------------------------------------------------------------------    bool Frame2File (PAVISTREAM *gapavi,AVISTREAMINFO *avis, AnsiString fPath)
{
    PGETFRAME            gapgf; // GetFrame物件            //5. 對指定的 gapavi video stream 進行解壓縮,傳回 GetFrame物件放在gapgf中
                        if (avis->fccType == streamtypeVIDEO) {
                            gapgf = AVIStreamGetFrameOpen(*gapavi, NULL);
                                if (gapgf == NULL)
                                        return false;
                        }
    //6. 對指定的時間(2th) 計算相對應的frame
                LONG lFrameStart=AVIStreamStart(*gapavi);
    LONG lFrameLength=AVIStreamLength(*gapavi);
    Form1->Caption = String(lFrameLength);        for(int i=lFrameStart ;iHandle=hBitmap;
      Bitmap1->SaveToFile(fPath i ".bmp");
      Form1->Image1->Picture->LoadFromFile(fPath i ".bmp");
      Application->ProcessMessages();
      delete Bitmap1;        }
      return true;
}
void __fastcall TForm1::Button2Click(TObject *Sender)
{
   PAVISTREAM gapavi;
    AVISTREAMINFO avis;
    AnsiString sPath,sName;
    if(OpenDialog1->Execute())
    {
    // 取出 Video Stream
      GetVideoStream(OpenDialog1->FileName.c_str(),&gapavi,&avis);
      LONG lFrameLength=AVIStreamLength(gapavi);
      sName =  ExtractFileName(OpenDialog1->FileName);
      sName = ChangeFileExt(sName,"");
      sPath = String("C:\\Image\\")   sName "("  String(lFrameLength) ")";
      if (!DirectoryExists(sPath))
        CreateDir(sPath);
      sPath=sPath   String("\\");
    // 把每張圖存到資料夾裡
      Frame2File(&gapavi,&avis,sPath);
    }
}
//---------------------------------------------------------------------------
 
 

發表人 - 1666362 於 2004/10/29 17:18:49 發表人 - 1666362 於 2004/10/29 17:19:58

已經把文章修正過了 我是新手 多多指教 ^^ 發表人 - 1666362 於 2004/10/29 17:21:31

會員代號: 1666362 真實姓名: 王 凱偉 所在地: Taiwan 年齡: 25 Message: 1666362@pchome.com.tw //////////////////////////////////////////////////////// 修碼不如修心 新手不等於 不知道 不會 不了解 1666362 兄的修正 再此是一面好的 借鏡 很好 哈哈 哈哈哈 你的修正我在KTOP看到的一位令我驚喜的一位 C 是 m 不是 如果是(IF) 知者知之 不知情者勿問之

能寄給我一份你的這支程式碼ㄇ 最近我也在研究這個東東 謝謝

也能寄給我一份你的這支程式碼ㄇ 我最近也都在搞這種東西~謝謝你ㄛ~ 我的信箱 dragonhippop@yahoo.com.tw

縮小圖有很多相關研究。 bilinear就是其中之一，不妨以此為關鍵字搜尋一下吧。

也能寄一份程式碼給我嗎? 最近也在研究這方面的東西。 信箱:hi.810200@yahoo.com.tw 多謝。