各位網兄大家好::        弟照著站上分享的資源"影音聊天室"一文內的敘述 與連結的範例寫出如下的程式,但卻一直無法正確壓縮成功,想請問看看使用這種方法成功壓縮的網兄可否分享您的寶貴經驗!!

//設定capture參數     hdd = DrawDibOpen();     hdc = GetDC(Form1->Handle);    hCapWnd=capCreateCaptureWindow("Form1", WS_CHILD ,330, 0, 320, 240,Form1->Handle, 0); //設定CaptureWindows
capDriverConnect (hCapWnd, 0); //與驅動程式連結    CAPTUREPARMS Captures;    capCaptureGetSetup(hCapWnd, &Captures, sizeof(Captures));            Captures.dwRequestMicroSecPerFrame = 100000;
        Captures.fYield = true;
        Captures.fCaptureAudio = false;
        Captures.fAbortLeftMouse = false;
        Captures.fAbortRightMouse = false;    capCaptureSetSetup(hCapWnd, &Captures, sizeof(Captures)) ;      inSize = capGetVideoFormatSize(hCapWnd);      capGetVideoFormat(hCapWnd, &bmpinfo, inSize);      bmpinfo.bmiHeader.biWidth = 320;
  bmpinfo.bmiHeader.biHeight = 240;
  bmpinfo.bmiHeader.biSizeImage =  bmpinfo.bmiHeader.biWidth  *      bmpinfo.bmiHeader.biHeight * 3;      if(capSetVideoFormat(hCapWnd,&bmpinfo,inSize)!=true){ Application->MessageBox("capSetVideoFormat Error!","Error",MB_OK);}      compvar.cbSize = sizeof(COMPVARS);       compvar.dwFlags = ICMF_COMPVARS_VALID;      ICCompressorChoose(Form1->Handle,      ICMF_CHOOSE_DATARATE|ICMF_CHOOSE_KEYFRAME  ,                               &compvar.lpbiIn,                               NULL,                               &compvar,                               "選擇壓縮格式");      Outbmpinfo =  bmpinfo;
  
  if(capSetCallbackOnVideoStream(hCapWnd,capVideoStreamCallback)!=true){Application->MessageBox("call back Error!","Error",MB_OK);}      if(capCaptureSequenceNoFile(hCapWnd)!=true){Application->MessageBox("capSequenceNoFile Error!","Error",MB_OK);}    //設定部分結束-------------------------------------------
//下面是我的call back function    LPVOID lpcompresseddata;//儲存壓縮好的資料    LPVOID decompresseddata;       if(ICCompressBegin(compvar.hic ,&compvar.lpbiIn ,&Outbmpinfo) == ICERR_OK)
  {
        Form1->ip->Text="ICCompressBEGIN WORK";
  }       if(ICCompress(compvar.hic, 0, &Outbmpinfo.bmiHeader,
           lpcompresseddata,&compvar.lpbiIn->bmiHeader,lpVHdr->lpData, NULL,&compvar.dwFlags,sss,0,50,NULL,NULL) == ICERR_OK)
  {           Form1->packetsize->Text="ICCompressAAAAA WORK";      }    //---------程式碼結束!!    

發表人 - hwhan 於 2005/05/18 10:42:02

您好:    PO程式碼的方式請參考版規說明,煩請修改謝謝您的配合 >

嗯...還是改寫成為傳圖片的形式了... 不過很可惜還是不曉得如何改才能work... 看來要等暑假再來研究了.. 若有進展再PO上來跟大家分享囉.....