作者genovia (Trina)
看板Programming
标题Re: [问题] 请问要用BCB写视讯程式
时间Thu Aug 3 14:09:30 2006
※ 引述《[email protected] (南无阿弥陀佛)》之铭言：
: ※ 引述《[email protected] (又是一场恶梦)》之铭言：
: : 请问一下
: : 如果要用BCB写视讯程式
: : 比如说开启AVI档..并对其中的每张frame可以做即时处理
: : 想学这个要从哪里着手入门好呢?
: : 有什麽参考书籍有教学吗?
: : 希望能给我指点一下 谢谢罗
: : ps 目前的我的程度只会用BCB读取image作处理
: 有一本书 是Delphi 写视迅的
: 您可以参考一下
那你只要想办法从AVI读一张指定的frame出来处理就可以。
example:
//需要include vfw.h
PAVISTREAM gapavi;
AVISTREAMINFO avis;
// 取出 Video Stream
GetVideoStream("vg01.avi",&gapavi,&avis);
// 秀出指定的frame
Frame2TImage(&gapavi,&avis,这里填时间,Image14);
这样就可以在Image14上看到那张图片了....
bool TForm1::Frame2TImage (PAVISTREAM *gapavi,AVISTREAMINFO *avis,
long miniSecond,TImage *Image1)
{
PGETFRAME gapgf;
//对指定的 gapavi video stream 进行解压缩,传回 GetFrame物件放在gapgf中
if (avis->fccType == streamtypeVIDEO) {
gapgf = AVIStreamGetFrameOpen(*gapavi, NULL);
if (gapgf == NULL)
return false;
}
// 对指定的时间计算相对应的frame
LONG lFrame;
lFrame = AVIStreamTimeToSample(*gapavi, miniSecond);
// Get a video frame
BYTE abFormat[1024];
LPBITMAPINFOHEADER lpbi; //the frame data
lpbi = (LPBITMAPINFOHEADER)abFormat;
// 传回 Video frame的位址放在 lpbi
lpbi = (LPBITMAPINFOHEADER)AVIStreamGetFrame(gapgf,lFrame );
// Paint
HBITMAP hBitmap;
hBitmap=CreateDIBitmap( GetDC(NULL),lpbi,CBM_INIT,(BYTE *)lpbi+40,
(BITMAPINFO *)lpbi,DIB_RGB_COLORS);
HBITMAP2TImage(hBitmap,Image1);
return true;
}
bool TForm1::GetVideoStream(char *szFile,PAVISTREAM *gapavi,
AVISTREAMINFO *avis)
{
//Initial the AVI library
AVIFileInit();
HRESULT hr;
PAVIFILE pfile;
// 读取avi档案
hr = AVIFileOpen(&pfile,szFile , 0, 0L);
if (hr != 0)
{
return false;
}
//Getting an AVI stream
int gcpavi;
AVIFileGetStream(pfile, gapavi, 0L, 0);
// Get the stream information
AVICOMPRESSOPTIONS gaAVIOptions;
LPAVICOMPRESSOPTIONS galpAVIOptions;
// Stream header的资讯放在 avis中
AVIStreamInfo(*gapavi, avis, sizeof(*avis));
galpAVIOptions = &gaAVIOptions;
// 把 gaAVIOptions的内容清为0
_fmemset(galpAVIOptions, 0,
sizeof(AVICOMPRESSOPTIONS));
// 取出该 stream 的多媒体型态放在相对应
// 的gaAVIOptions阵列中
galpAVIOptions->fccType = avis->fccType;
switch(avis->fccType) {
case streamtypeVIDEO:
galpAVIOptions->dwFlags =
AVICOMPRESSF_VALID |
AVICOMPRESSF_KEYFRAMES |
AVICOMPRESSF_DATARATE;
galpAVIOptions->fccHandler = 0;
galpAVIOptions->dwQuality =
(DWORD)ICQUALITY_DEFAULT;
galpAVIOptions->dwKeyFrameEvery =
(DWORD)-1; // Default
galpAVIOptions->dwBytesPerSecond = 0;
galpAVIOptions->dwInterleaveEvery = 1;
break;
default:
break;
}
return true;
}
Ps.上面的程式码当初是剪人家的...没有留下来源！对不起原作者了>"<...
不过，想要即时是有点困难的.....一秒钟能够处理几张叫即时？
^^"....
--
http://www.wretch.cc/album/show.php?i=genovia&b=25&f=1808827553&p=0
一堆论文等着被re....
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 220.133.64.81
※ 编辑: genovia 来自: 220.133.64.81 (08/03 14:20)
※ 编辑: genovia 来自: 220.133.64.81 (08/03 14:27)