我使用的是VFW的函式去使webcam連接然後拍照存成bmp檔案
再透過Image物件將bmp檔案秀出並對檔案作處理
連接webcam 拍照都沒有問題
但是最後要利用 Image1->Picture->LoadFromFile("TEST.bmp")卻發生問題 (List Index Out of Bounds(0)
因為不知道如何用CALLBACK將stream資料即時秀在Image物件上 所以只好透過存檔讀檔方式
程式碼如下~ 希望能有前輩可以指導一下~
//---------------------------------------------------------------------------

1. #include
2. #pragma hdrstop
3. #include <math.h></li>
4. #include
5. #include
6. #include "Unit1.h"
7. //---------------------------------------------------------------------------
8. #pragma package(smart_init)
9. #pragma resource "*.dfm"
10. HWND hwndCapture;
11. LPVIDEOHDR VideoStr;
12. TForm1 *Form1;
13. //---------------------------------------------------------------------------
14. __fastcall TForm1::TForm1(TComponent* Owner)
15. : TForm(Owner)
16. {
17. }
18. //---------------------------------------------------------------------------
19. void __fastcall TForm1::Close1Click(TObject *Sender)
20. {
21. Close();// 程式結束
22. }
23. //---------------------------------------------------------------------------
24. void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
25. int X, int Y)
26. {
27. int R=0,G=0,B=0;
28. if(!Image1->Picture->Bitmap->Empty)
29. {
30. R=(Image1->Canvas->Pixels[X][Y] & 0x000000FF);
31. G=(Image1->Canvas->Pixels[X][Y] & 0x0000FF00) >> 8;
32. B=(Image1->Canvas->Pixels[X][Y] & 0x00FF0000) >> 16;
33. StatusBar1->Panels->Items[0]->Text="X=" IntToStr(X);
34. StatusBar1->Panels->Items[1]->Text="Y=" IntToStr(Y);
35. StatusBar1->Panels->Items[2]->Text="RGB=" IntToStr(R) IntToStr(G) IntToStr(B);
36. }//秀出影像中滑鼠位置所在座標與像素值
37. }
38. //---------------------------------------------------------------------------
39. void __fastcall TForm1::Button1Click(TObject *Sender)
40. {
42. 此處圖像運算求平均Hue值
43. }
44. //---------------------------------------------------------------------------
45. void __fastcall TForm1::Connect1Click(TObject *Sender)//此段為連接webcam
46. {
47. int device=0;
48. hwndCapture=capCreateCaptureWindow((LPSTR) "Camera",WS_VISIBLE,0,0,640,480,(HWND) Form1->Panel1->Handle,(int) 0);
50. for(device=0;device<10;device )
51. {
52. if(capDriverConnect(hwndCapture,device))
53. break;
54. }
55. if(device==10)
56. {
57. ShowMessage("No webcam device exist!");
58. exit(EXIT_FAILURE) ;
59. }
60. capOverlay(hwndCapture,true);
61. capPreviewRate(hwndCapture,66);
62. capPreview(hwndCapture,true);
63. }
64. //---------------------------------------------------------------------------
65. void __fastcall TForm1::Disconnect1Click(TObject *Sender)//此段為webcam離線
66. {
67. capCaptureStop(hwndCapture);
68. capPreview(hwndCapture,false);
70. if(capDriverDisconnect(hwndCapture))
71. {
72. DestroyWindow(hwndCapture);
73. ShowMessage("Webcam Disconnect !!");
74. }
75. else
76. {
77. ShowMessage("Webcam Disconnect Fail !!");
78. }
79. }
80. //---------------------------------------------------------------------------
81. void __fastcall TForm1::Capture1Click(TObject *Sender)
82. {
83. capFileSaveDIB(hwndCapture,"C:\\LED.bmp");//拍照存檔
84. capCaptureStop(hwndCapture);
85. capPreview(hwndCapture,false);
86. Sleep(1000);
87. Image1->Picture->LoadFromFile("C:\\LED.bmp");//讀取bmp影像
88. }
89. //---------------------------------------------------------------------------

嗯...把StatusBar1那段程式拿掉就沒問題了~
不知道是不是因為StatusBar1的Index有限 因此我超過範圍就出現 out of bounds(0)
搞了個烏龍...

只是現在還搞不太懂如何將即時影像show在Image物件上~ 爬了很多文章
但是對於CALLBACK 函數還是不大知道原理跟參數型態等~

不是很清楚你想問的問題是 statusbar 的錯誤, 還是想取得影像的方式?
取得影像, 用 VFW 應只有 capFileSaveDIB , 不過有在別的地方看到和你不同的用法, 你可參考看看


[code cpp]
CFileDialog fileopen(FALSE,_T("DIB"),NULL,OFN_HIDEREADONLY | OFN_OVERWRITEPROMPT,_T("*.dib|*.dib|*.jpeg|*.jpeg|*.PNG|*.png|"));
if ( IDOK == fileopen.DoModal() ) {
CString path("");
CString ext("");
path = fileopen.GetPathName();
ext = fileopen.GetFileExt();
capGrabFrameNoStop(m_caphwnd);

capFileSaveDIB(m_caphwnd,path.GetString());

if ( ext != CString("DIB") && ext != CString("dib") ) {
CImage myImage;
myImage.Load(path.GetString());
myImage.Save(path.GetString());
}
}
[/code]

------
水瓶男的blog: http://791909.blogspot.com

===================引 用 aquarius 文 章===================
不是很清楚你想問的問題是 statusbar 的錯誤, 還是想取得影像的方式?
取得影像, 用 VFW 應只有 capFileSaveDIB , 不過有在別的地方看到和你不同的用法, 你可參考看看


[code cpp]
?CFileDialog fileopen(FALSE,_T("DIB"),NULL,OFN_HIDEREADONLY | OFN_OVERWRITEPROMPT,_T("*.dib|*.dib|*.jpeg|*.jpeg|*.PNG|*.png|"));
?if ( IDOK == fileopen.DoModal() ) {
? CString path("");
? CString ext("");
? path = fileopen.GetPathName();
? ext = fileopen.GetFileExt();
? capGrabFrameNoStop(m_caphwnd);

? capFileSaveDIB(m_caphwnd,path.GetString());

? if ( ext != CString("DIB") && ext != CString("dib") ) {?
?? CImage myImage;
?? myImage.Load(path.GetString());
?? myImage.Save(path.GetString());
? }
?}
[/code]

那請問有用法是用指標來接Webcam中的即時影像資訊，然後再透過指標將資料送到Image1物件的方式嗎?

試試這個, 沒拿去 BCB下編譯, 不過應該沒寫錯... :)
可以把 Panel 上的影像存到 bmp 中.


[code cpp]
Graphics::TBitmap *bmp = new Graphics::TBitmap;
bmp->Width = Panel1->Width;
bmp->Height = Panel1->Height;
HDC hDC=GetDC(Panel1->Handle);

BitBlt(bmp->Canvas->Handle,0,0,bmp->Width,bmp->Height,hDC,0,0,0xCC0020); //SRCCOPY

bmp->SaveToFile("panel.bmp");
ReleaseDC(Panel1->Handle , hDC);
delete bmp;
[/code]

------
水瓶男的blog: http://791909.blogspot.com

編輯記錄