Delphi轉BCB程式碼DSPack Directshow |
|
答題得分者是：李國維
|
|
tai721014
一般會員   發表：19 回覆：12 積分：6 註冊：2008-07-02 發送簡訊給我 |
|
|
李國維
高階會員  發表：42 回覆：287 積分：235 註冊：2003-02-07 發送簡訊給我 |
memcpy(&BitmapInfo,&VideoInfoHeader.bmiHeader,sizeof(VideoInfoHeader.bmiHeader));
===================引 用 tai721014 文 章=================== 有人會把Delphi程式碼轉成VC的嗎? CopyMemory(@BitmapInfo,@VideoInfoHeader.bmiHeader,Sizeof (VideoInfoHeader.bmiHeader)); 宣告如下 BitmapInfo:TBitmapInfo; VideoInfoHeader:TVideoInfoHeader; 多謝 |
|
tai721014
一般會員 發表：19 回覆：12 積分：6 註冊：2008-07-02 發送簡訊給我 |
還是不行耶可能我太嫩了
我是看到這篇http://delphi.ktop.com.tw/board.php?cid=31&fid=77&tid=34955 以下是部分的 [code delphi] var MediaType: TAM_MEDIA_TYPE; ZeroMemory(@MediaType, SizeOf(TAM_MEDIA_TYPE)); MediaType.majortype := MEDIATYPE_Video;//視頻流 MediaType.subtype := MEDIASUBTYPE_RGB24;//24位圖像 MediaType.formattype := FORMAT_VideoInfo; SampleGrabber.SetMediaType(MediaType);//關聯介面 SampleGrabber.SetBufferSamples(True); 然後在抓圖按鈕事件中如下操作 var MediaType: TAM_MEDIA_TYPE; VideoInfoHeader: TVideoInfoHeader; BitmapInfo: TBitmapInfo; Bitmap: HBitmap; Buffer: Pointer; BufferSize: Integer; begin SampleGrabber.GetConnectedMediaType(MediaType); ZeroMemory(@VideoInfoHeader, SizeOf(TVideoInfoHeader)); CopyMemory(@VideoInfoHeader, MediaType.pbFormat, SizeOf(VideoInfoHeader)); ZeroMemory(@BitmapInfo, SizeOf(TBitmapInfo)); CopyMemory(@BitmapInfo, @VideoInfoHeader.bmiHeader, SizeOf(VideoInfoHeader.bmiHeader)); Bitmap:=CreateDIBSection(0, BitmapInfo, DIB_RGB_COLORS, Buffer, 0, 0); SampleGrabber.GetCurrentBuffer(BufferSize, Buffer); Image1.Picture.Bitmap.Handle:=Bitmap end; 即可。 [/code] 請問可以轉成BCB嗎?可以執行嗎? |
|
ikk
尊榮會員 發表：4 回覆：413 積分：768 註冊：2003-06-30 發送簡訊給我 |
|
|
tai721014
一般會員 發表：19 回覆：12 積分：6 註冊：2008-07-02 發送簡訊給我 |
發表時間：2009-03-27 23:44:02
IP:114.42.xxx.xxx 訂閱
系統時間：2024-04-26 14:39:15
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |