像擷取卡的影像如何才可以讓影像顯示在BCB中啊? |
|
答題得分者是：Roach
|
|
lanfanra
一般會員   發表：48 回覆：51 積分：19 註冊：2003-08-06 發送簡訊給我 |
|
|
Roach
中階會員  發表：61 回覆：104 積分：98 註冊：2002-11-05 發送簡訊給我 |
這部分的討論記錄很豐富
我也是查舊文章才會的 void __fastcall TForm1::FormCreate(TObject *Sender)
{ hCapWnd = capCreateCaptureWindow("My Capture Window", WS_CHILD | WS_VISIBLE,
0, 0, 640, 480,Form1->Panel1->Handle, 0 ); capDriverConnect(hCapWnd, 0 ); capPreview(hCapWnd,true); //顯示於視窗
capPreviewRate(hCapWnd, 1000/30);
capPreviewScale(hCapWnd,true);
capOverlay(hCapWnd, true);
BITMAPINFO bmi;
capGetVideoFormat(hCapWnd, &bmi, sizeof(BITMAPINFO));
SetWindowPos(hCapWnd, 0, 0, 0, bmi.bmiHeader.biWidth,bmi.bmiHeader.biHeight,0); Form1->Panel1->ClientHeight=bmi.bmiHeader.biHeight;
Form1->Panel1->ClientWidth=bmi.bmiHeader.biWidth; } 記得要include "vfw.h" ㄛ
如果要存成 file 就加上一個button如下 {
AnsiString FN_Temp="C:\\Test_001.BMP";
AnsiString FN ="C:\\Test_001.JPG";
if(capFileSaveDIB(hCapWnd,FN_Temp.c_str())==0)
{
ShowMessage("無法儲存站存檔");
return;
} Graphics::TBitmap *bmp;
TJPEGImage *jpg; bmp = new Graphics::TBitmap();
jpg = new TJPEGImage(); bmp->LoadFromFile(FN_Temp);
jpg->Assign(bmp);
jpg->CompressionQuality=90;
jpg->SaveToFile(FN); delete jpg;
delete bmp;
} 這部分有使用到JPG檔所要要 #include "jpeg.hpp" 試車總是問題多
|
|
lanfanra
一般會員 發表：48 回覆：51 積分：19 註冊：2003-08-06 發送簡訊給我 |
|
|
JerryKuo
版主 發表：42 回覆：571 積分：322 註冊：2003-03-10 發送簡訊給我 |
你好: 也可以參考這篇http://delphi.ktop.com.tw/topic.php?TOPIC_ID=34539
我是看這篇學滴,很容易實作,這方面的文章在這個版有很多,請善用搜尋資源
如果有什麼不懂的，請繼續發問。
|
發表時間：2003-08-19 13:35:30
IP:61.66.xxx.xxx 未訂閱
系統時間：2024-04-29 16:05:06
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |