請教各位高手，如何使用vfw webcam 影像截取，並show在Image1上。 因為之前的範例有包裝好直接存檔。請指教一些範例，謝謝！ 新手～請多多包含～ ben huang

您好: 請多多利用[搜尋]功能 ex. http://delphi.ktop.com.tw/topic.php?TOPIC_ID=22263 順心

dear taishyang,   我是新手，所以上面網址的內容我還是看不太懂。請問您是否有範例檔。 當按下button鈕後即抓取一張webcam的影像到image1上。請指教謝謝！      (懷著感激的心)  ben huang 

您好:    再次利用[搜尋]功能可以看到這一篇文章 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=49509 順心

您好： 我的程式如下，但會以下發現錯誤~~   Unresolved external '_Form1' referenced from C:\Program files\borland......\project1.obj Unresolved external 'TForm1' referenced from C:\Program files\borland......\project1.obj    到底發生了什麼問題，請指教~~謝謝！    #include  #pragma hdrstop #include "Unit1.h" #include "vfw.h" LRESULT CALLBACK FrameCallBack( HWND, Longint ); LPVIDEOHDR VideoStr; HWND vc1; //建立callbackonframe函式,底下為未經壓縮模式24bit沒有調色盤資料 LRESULT CALLBACK FrameCallBack( HWND hwnd, Longint lpvhdr ) { static BITMAPINFOHEADER BitmapHead; static BITMAPINFO BitmapInfo; static BITMAPFILEHEADER BitmapFileHead; CAPSTATUS status; int BIHsize, byte; Byte *ptr; TMemoryStream *stream = new TMemoryStream; // 取得圖片資料 VideoStr=LPVIDEOHDR(lpvhdr); // 取得CAP訊息 capGetStatus( vc1, &status, sizeof(status) ) ; // 取得圖片格式容量大小 BIHsize=capGetVideoFormatSize( vc1 ); // 取得圖片格式 代入 bitmapinfohead 內 capGetVideoFormat( vc1, &BitmapHead, BIHsize); // 設定 BITMAPINFO BitmapInfo.bmiHeader=BitmapHead; // 取得圖檔總容量 stream->Size=sizeof(BitmapFileHead) sizeof(BitmapHead) BitmapHead.biSizeImage - 2; // 設定 BITMAPFILEHEAD BitmapFileHead.bfType=0x4D42; //總是 BM BitmapFileHead.bfSize=stream->Size; //該圖檔總大小 //BitmapFileHead.bfOffBits=sizeof(BitmapFileHead) sizeof(BitmapHead); // 偏移至imagedata大小 BitmapFileHead.bfOffBits=sizeof(BitmapFileHead) sizeof(BitmapHead)-2; // 偏移至imagedata大小 // 將資料存入 memorystream stream->Position=0; stream->WriteBuffer( &BitmapFileHead, sizeof(BitmapFileHead) ); stream->WriteBuffer( &BitmapInfo, sizeof(BitmapInfo) ); stream->WriteBuffer( &BitmapFileHead.bfReserved1, sizeof(BitmapFileHead.bfReserved1) ); stream->WriteBuffer( &BitmapFileHead.bfReserved2, sizeof(BitmapFileHead.bfReserved2) ); stream->WriteBuffer( &BitmapFileHead.bfOffBits, sizeof(BitmapFileHead.bfOffBits) ); stream->WriteBuffer( &BitmapInfo, sizeof(BitmapInfo) ); (void*)ptr=stream->Memory; ptr = BitmapFileHead.bfOffBits; Move( VideoStr->lpData, ptr, BitmapHead.biSizeImage); // 存入完成 stream->Position=0; // Form1->Image1->Picture->Bitmap->LoadFromStream( stream ); delete( stream ); capSetCallbackOnFrame (vc1, NULL); //停止callbackonframe return(0); } void __fastcall TForm1::Button1Click(TObject *Sender) { capSetCallbackOnFrame (vc1, &FrameCallBack); } //---------------------------------------------------------------------------

您好: 再上一次給的連結中已經有可以work的專案 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=49651 環境:WinXp BCB6.0 順心