擷取影像，想從BitBlt轉到Image物件中 |
|
尚未結案
|
|
ylvs531
一般會員   發表：3 回覆：1 積分：0 註冊：2006-07-23 發送簡訊給我 |
如題所示：
我使用的擷取卡是Adlink RTV-24 可以將四隻CCD個別顯示在Form上 但是在存檔的方面與往後對四隻個別影像做個別的影像處理 該卡的範例程式中，似乎都把影像都丟至Form中 請教各位前輩，要如何顯示在Image上。 在啟動攝影機的事件觸發裡， [code cpp] formdc2 = GetDC(Camera1->Handle); formdc3 = GetDC(Camera2->Handle); formdc4 = GetDC(Camera3->Handle); formdc5 = GetDC(Camera4->Handle); ghdc =CreateCompatibleDC(formdc2); hbitbap = CreateDIBSection(ghdc,&bmpinfo,DIB_RGB_COLORS,&Temp,NULL,0); SelectObject(ghdc,hbitbap); memset(Temp,255,gWidth*gHeight*Byte_Pixel); pTarget = (U8*)Temp; BitBlt(formdc2,0,0,gWidth,gHeight,ghdc,0,0,SRCCOPY); [/code] 另在個別分割畫面中 [code cpp] BufferAddress = (U8*)VideoBufferAddress; if(Temp) { if(VideoFormat==0) { hstart =640; vstart =480; } for(v=vstart;v memcpy(&pTarget[(gWidth*v hstart)*Byte_Pixel],&BufferAddress[width*(v-vstart)*Byte_Pixel],width*Byte_Pixel); } BitBlt(Camera1->Handle,hstart,vstart,640,480,ghdc,0,0,SRCCOPY); [/code] 我有參考站上的文章 如 http://delphi.ktop.com.tw/board.php?cid=168&fid=921&tid=25947 http://delphi.ktop.com.tw/board.php?cid=168&fid=921&tid=91252 但還是不太懂 請問改轉用Camera1～Camera4的Image1呢？ 煩請各位前輩解惑一下。 編輯記錄
ylvs531 重新編輯於 2008-02-23 21:53:44， 註解 無‧
|
|
wubelin
一般會員 發表：2 回覆：14 積分：18 註冊：2007-10-04 發送簡訊給我 |
|
|
aki0921
一般會員 發表：13 回覆：11 積分：14 註冊：2007-12-12 發送簡訊給我 |
你可以將CCD的影像輸出在Panel上,再由Image讀取Panel這樣應該會比較簡單
===================引 用 ylvs531 文 章=================== 如題所示： 我使用的擷取卡是Adlink RTV-24 可以將四隻CCD個別顯示在Form上 但是在存檔的方面與往後對四隻個別影像做個別的影像處理 該卡的範例程式中，似乎都把影像都丟至Form中 請教各位前輩，要如何顯示在Image上。 在啟動攝影機的事件觸發裡， [code cpp] formdc2 = GetDC(Camera1->Handle); formdc3 = GetDC(Camera2->Handle); formdc4 = GetDC(Camera3->Handle); formdc5 = GetDC(Camera4->Handle); ghdc =CreateCompatibleDC(formdc2); hbitbap = CreateDIBSection(ghdc,&bmpinfo,DIB_RGB_COLORS,&Temp,NULL,0); SelectObject(ghdc,hbitbap); memset(Temp,255,gWidth*gHeight*Byte_Pixel); pTarget = (U8*)Temp; BitBlt(formdc2,0,0,gWidth,gHeight,ghdc,0,0,SRCCOPY); [/code] 另在個別分割畫面中 [code cpp] BufferAddress = (U8*)VideoBufferAddress; if(Temp) { if(VideoFormat==0) { hstart =640; vstart =480; } for(v=vstart;v { memcpy(&pTarget[(gWidth*v hstart)*Byte_Pixel],&BufferAddress[width*(v-vstart)*Byte_Pixel],width*Byte_Pixel); } BitBlt(Camera1->Handle,hstart,vstart,640,480,ghdc,0,0,SRCCOPY); [/code] 我有參考站上的文章 如 http://delphi.ktop.com.tw/board.php?cid=168&fid=921&tid=25947 http://delphi.ktop.com.tw/board.php?cid=168&fid=921&tid=91252 但還是不太懂 請問改轉用Camera1～Camera4的Image1呢？ 煩請各位前輩解惑一下。 |
發表時間：2008-02-23 21:38:49
IP:140.127.xxx.xxx 訂閱
附加檔案：系統時間：2024-12-05 3:52:18
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |