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 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |