nao@rist.u-tokai.ac.jp
3 years ago
parent
3072c2525f
commit
0285f20848
10 changed files with 609 additions and 34 deletions
@ -0,0 +1,84 @@ |
||||
//---------------------------------------------------------------------------
|
||||
#include <math.h> |
||||
#include <tchar.h> |
||||
#include <windows.h> |
||||
#include <vfw.h> |
||||
|
||||
#pragma hdrstop |
||||
|
||||
#include "AVIWrite.h" |
||||
|
||||
//---------------------------------------------------------------------------
|
||||
|
||||
#pragma package(smart_init) |
||||
#define LENG 10 |
||||
#define PIXELS 100 |
||||
#define WIDTH 160 |
||||
#define HEIGHT 120 |
||||
#define LINE ((((WIDTH)*24+31)&~31)/8) |
||||
#define SIZEIMAGE (LINE*(HEIGHT)) |
||||
|
||||
AVISTREAMINFO si={streamtypeVIDEO,comptypeDIB,0,0,0,0, |
||||
1,10,0,LENG,0,0,(DWORD)-1,0,{0,0,WIDTH,HEIGHT},0,0,_T("Video #1")}; |
||||
BITMAPINFOHEADER bmih={sizeof(BITMAPINFOHEADER),WIDTH,HEIGHT,1,24,BI_RGB, |
||||
SIZEIMAGE,0,0,0,0}; |
||||
//BYTE bBit[SIZEIMAGE];
|
||||
PAVIFILE pavi; |
||||
PAVISTREAM pstm; |
||||
int line,sizeimage; |
||||
|
||||
int AVIWritePrepare(int width,int height,int length, char* filename) |
||||
{ |
||||
//memset(bBit,0,SIZEIMAGE);
|
||||
//AVIFileInit();
|
||||
|
||||
si.dwLength = length; |
||||
|
||||
si.rcFrame.left = 0; //{ 0,0,width,height};
|
||||
si.rcFrame.top = 0; |
||||
si.rcFrame.right = width; |
||||
si.rcFrame.bottom = height; |
||||
|
||||
bmih.biWidth = width; |
||||
bmih.biHeight = height; |
||||
line = ((width*24+31)&~31)/8; |
||||
sizeimage = line*height; |
||||
bmih.biSizeImage = sizeimage; // can be zero?
|
||||
|
||||
//AVIFileInit();
|
||||
|
||||
if (AVIFileOpen(&pavi,(LPCWSTR)filename, |
||||
OF_CREATE | OF_WRITE | OF_SHARE_DENY_NONE,NULL)!=0) |
||||
return 1; |
||||
if (AVIFileCreateStream(pavi,&pstm,&si)!=0) |
||||
return 1; |
||||
if (AVIStreamSetFormat(pstm,0,&bmih,sizeof(BITMAPINFOHEADER))!=0) |
||||
return 1; |
||||
return 0; |
||||
} |
||||
|
||||
int AVIWriteaFrame(int i,char *buffer) |
||||
{ |
||||
if( !buffer ){ |
||||
//ShowMessage("buffer is invalid");
|
||||
return 1; |
||||
} |
||||
if( AVIStreamWrite(pstm,i,1,buffer,sizeimage, |
||||
AVIIF_KEYFRAME,NULL,NULL)!=0) |
||||
return 1; |
||||
return 0; |
||||
|
||||
} |
||||
|
||||
|
||||
int AVIWriteFinish(void) |
||||
{ |
||||
AVIStreamRelease(pstm); |
||||
AVIFileRelease(pavi); |
||||
//AVIFileExit();
|
||||
return 0; |
||||
} |
||||
|
||||
|
||||
|
||||
|
||||
@ -0,0 +1,11 @@ |
||||
//---------------------------------------------------------------------------
|
||||
|
||||
#ifndef AVIWriteH |
||||
#define AVIWriteH |
||||
//---------------------------------------------------------------------------
|
||||
#endif |
||||
|
||||
int AVIWritePrepare(int width,int height,int length, char* filename); |
||||
int AVIWriteaFrame(int frame,char *buffer); |
||||
int AVIWriteFinish(void); |
||||
|
||||
@ -0,0 +1,118 @@ |
||||
//---------------------------------------------------------------------------
|
||||
|
||||
/*
|
||||
$Log: not supported by cvs2svn $ |
||||
Revision 1.3 2005/03/08 05:55:08 nao |
||||
same strategy as aviimage using AVIStreamOpenFromFile instead of |
||||
AVIFileOpen and AVIFileGetStream for suppress of FD access? |
||||
|
||||
|
||||
*/ |
||||
|
||||
|
||||
//#include <vcl.h>
|
||||
#include <stdio.h> |
||||
#include <tchar.h> |
||||
#include <vfw.h> |
||||
#include "aviimage.h" |
||||
|
||||
aviimage::aviimage() |
||||
{ |
||||
AVIFileInit(); |
||||
} |
||||
|
||||
aviimage::aviimage(wchar_t* fname) |
||||
{ |
||||
wVideo=~0; |
||||
AVIFileInit(); |
||||
AVIStreamOpenFromFile(&pstm,fname,streamtypeVIDEO,0,OF_READ,NULL); |
||||
// AVIFileOpen(&pavi,fname,OF_READ | OF_SHARE_DENY_NONE,NULL);
|
||||
// AVIFileOpen(&pavi,fname,OF_READ ,NULL);
|
||||
// if (AVIFileInfo(pavi,&fi,sizeof(AVIFILEINFO))!=0)
|
||||
// ShowMessage("AVIFileInfo error");
|
||||
// for (dwStream=0;dwStream<fi.dwStreams;dwStream++) {
|
||||
// if (AVIFileGetStream(pavi,&ptmp,0,dwStream)!=0)
|
||||
// ShowMessage("");
|
||||
// if (AVIStreamInfo(ptmp,&si,sizeof(AVISTREAMINFO))!=0)
|
||||
// ShowMessage("");
|
||||
// switch (si.fccType) {
|
||||
// case streamtypeVIDEO:
|
||||
// if (pstm==NULL || si.wPriority<wVideo) {
|
||||
// if (pstm!=NULL)
|
||||
// AVIStreamRelease(pstm);
|
||||
// pstm=ptmp;
|
||||
// wVideo=si.wPriority;
|
||||
// }
|
||||
// continue;
|
||||
// }
|
||||
// AVIStreamRelease(ptmp);
|
||||
// }
|
||||
// above code will not function in Windows XP
|
||||
// it works in 95 and/or 98se mode only
|
||||
//
|
||||
// if(AVIFileGetStream(pavi,&pstm,streamtypeVIDEO,0)!=0)
|
||||
// ShowMessage("AVIFileGetStream");
|
||||
|
||||
if (pstm==NULL) |
||||
ShowMessage("pstm NULL"); |
||||
if ((pfrm=AVIStreamGetFrameOpen(pstm,NULL))==NULL) |
||||
ShowMessage("GetFrameOpen"); |
||||
lStart=AVIStreamStart(pstm); |
||||
lEnd=AVIStreamLength(pstm)+lStart -1; // oops
|
||||
if ((pbmih=(LPBITMAPINFOHEADER)AVIStreamGetFrame(pfrm,0))==NULL) |
||||
ShowMessage("GetFrame error"); |
||||
frect.top = 0; |
||||
frect.left = 0; |
||||
frect.bottom = pbmih->biHeight-1; |
||||
frect.right = pbmih->biWidth-1; |
||||
|
||||
|
||||
} |
||||
|
||||
void aviimage::saveaframe(long fnum, TMemoryStream* out) |
||||
{ |
||||
BITMAPFILEHEADER bmfh; |
||||
|
||||
if ((pbmih=(LPBITMAPINFOHEADER)AVIStreamGetFrame(pfrm,fnum))==NULL) |
||||
ShowMessage("GetFrame error"); |
||||
|
||||
bmfh.bfType=0x4d42; |
||||
bmfh.bfReserved1=bmfh.bfReserved2=0; |
||||
if (pbmih->biClrUsed==0) |
||||
switch (pbmih->biBitCount) { |
||||
case 1:bmfh.bfOffBits=sizeof(RGBQUAD)*2;break; |
||||
case 4:bmfh.bfOffBits=sizeof(RGBQUAD)*16;break; |
||||
case 8:bmfh.bfOffBits=sizeof(RGBQUAD)*256;break; |
||||
case 24:bmfh.bfOffBits=0;break; |
||||
case 16: |
||||
case 32: |
||||
bmfh.bfOffBits=pbmih->biCompression==BI_RGB?0:sizeof(DWORD)*3; |
||||
} |
||||
else |
||||
bmfh.bfOffBits=pbmih->biClrUsed*sizeof(RGBQUAD); |
||||
bmfh.bfOffBits+=sizeof(BITMAPFILEHEADER)+sizeof(BITMAPINFOHEADER); |
||||
bmfh.bfSize=bmfh.bfOffBits+(pbmih->biSizeImage==0 |
||||
?((pbmih->biWidth*pbmih->biBitCount+31)&~31)/8*abs(pbmih->biHeight) |
||||
:pbmih->biSizeImage); |
||||
out->Write(&bmfh,sizeof(BITMAPFILEHEADER)); |
||||
out->Write(pbmih,bmfh.bfSize-sizeof(BITMAPFILEHEADER)); |
||||
out->Seek(0,soFromBeginning); |
||||
} |
||||
|
||||
|
||||
|
||||
//---------------------------------------------------------------------------
|
||||
|
||||
void aviimage::finish() |
||||
{ |
||||
if (AVIStreamGetFrameClose(pfrm)!=0) |
||||
ShowMessage(""); |
||||
AVIStreamRelease(pstm); |
||||
AVIFileRelease(pavi); |
||||
AVIFileExit(); |
||||
} |
||||
|
||||
|
||||
|
||||
|
||||
|
||||
@ -0,0 +1,36 @@ |
||||
#ifndef AVIIMAGEH |
||||
#define AVIIMAGEH |
||||
|
||||
//#include <vcl.h>
|
||||
#include <stdio.h> |
||||
#include <tchar.h> |
||||
#include <vfw.h> |
||||
|
||||
|
||||
class aviimage |
||||
{ |
||||
AVIFILEINFO fi; |
||||
AVISTREAMINFO si; |
||||
CHAR szFile[MAX_PATH]; |
||||
DWORD dwStream; |
||||
TRect frect; |
||||
LONG i,lStart,lEnd; |
||||
LPBITMAPINFOHEADER pbmih; |
||||
PAVIFILE pavi; |
||||
PAVISTREAM pstm,ptmp; |
||||
PGETFRAME pfrm; |
||||
WORD wVideo; |
||||
|
||||
public: |
||||
aviimage(); |
||||
aviimage(wchar_t* filename); |
||||
TRect getframerect() { return frect; } |
||||
long getfirst() { return lStart ; } |
||||
long getlast() { return lEnd; } |
||||
void saveaframe(long framenum, TMemoryStream* mem); |
||||
void finish(); |
||||
}; |
||||
|
||||
#endif |
||||
|
||||
|
||||
@ -0,0 +1,151 @@ |
||||
//---------------------------------------------------------------------------
|
||||
|
||||
#include <vcl.h> |
||||
#pragma hdrstop |
||||
#include "aviimage.h" |
||||
#include "AVIWrite.h" |
||||
|
||||
#include "Unit1.h" |
||||
//---------------------------------------------------------------------------
|
||||
#pragma package(smart_init) |
||||
#pragma resource "*.dfm" |
||||
TForm1 *Form1; |
||||
aviimage* work; |
||||
int iw,ih; |
||||
int start,fend; |
||||
|
||||
void playbackavi(aviimage*,int,int); |
||||
void dispaframe(aviimage*, int); |
||||
|
||||
//---------------------------------------------------------------------------
|
||||
void __fastcall TForm1::WMDROPFILES(TWMDropFiles Msg) |
||||
{ |
||||
|
||||
int i; |
||||
char buf[MAX_PATH]; |
||||
TRect f; |
||||
//int iw,ih;
|
||||
|
||||
|
||||
//ドラッグされたファイルの個数
|
||||
int cnt=::DragQueryFile((HDROP)Msg.Drop,0xFFFFFFFF,NULL,0); |
||||
|
||||
for(int i=0;i<cnt;i++){ |
||||
::DragQueryFile((HDROP)Msg.Drop, i,buf,sizeof(buf)); |
||||
// bufにファイル名が入っている
|
||||
Memo1->Lines->Add(AnsiString(buf)); |
||||
|
||||
if( ExtractFileExt(buf) == ".avi" ){ |
||||
work = new aviimage(buf); |
||||
|
||||
//f = AVIImage1->Frame;
|
||||
f = work->getframerect(); |
||||
iw = f.Width(); |
||||
ih = f.Height(); |
||||
start = work->getfirst(); |
||||
fend = work->getlast(); |
||||
Memo1->Lines->Add("Avi file: "+AnsiString(iw)+"x"+AnsiString(ih)); |
||||
Memo1->Lines->Add("start: " + IntToStr(start) + "to " + IntToStr(fend)); |
||||
|
||||
TrackBar1->Min = start; |
||||
TrackBar1->Max = fend; |
||||
dispaframe(work,start); |
||||
//playbackavi(work,start,fend);
|
||||
//playbackavi(work,start,end);
|
||||
//delete work;
|
||||
} |
||||
else if( ExtractFileExt(buf) == ".roi" ){ |
||||
Memo1->Lines->Add("Roi file"); |
||||
} |
||||
else if( ExtractFileExt(buf) == ".bmp" ){ |
||||
Image1->Picture->LoadFromFile(buf); |
||||
} |
||||
|
||||
} |
||||
} |
||||
|
||||
__fastcall TForm1::TForm1(TComponent* Owner) |
||||
: TForm(Owner) |
||||
{ |
||||
DragAcceptFiles(Handle,True); |
||||
Memo1->Lines->Clear(); |
||||
|
||||
} |
||||
//---------------------------------------------------------------------------
|
||||
|
||||
void dispaframe(aviimage* avi,int framenum) |
||||
{ |
||||
//TWICImage* twic = new TWICImage();
|
||||
TImage* targeti; |
||||
TMemoryStream* temp = new TMemoryStream(); |
||||
TBitmap* first = new TBitmap(); |
||||
|
||||
targeti = Form1->Image1; |
||||
targeti->Picture->Bitmap->PixelFormat=pf24bit; // should be 8bit
|
||||
targeti->Width = iw; |
||||
targeti->Picture->Bitmap->Width = iw; |
||||
targeti->Height=ih; |
||||
targeti->Picture->Bitmap->Height = ih; |
||||
|
||||
first->Width = iw; |
||||
first->Height = ih; |
||||
|
||||
Form1->Label1->Caption = IntToStr(framenum); |
||||
|
||||
avi->saveaframe(framenum,temp); |
||||
temp->Position = 0; |
||||
first->LoadFromStream(temp); |
||||
|
||||
//targeti->Picture->Bitmap->LoadFromStream(temp);
|
||||
Form1->Label2->Caption = IntToStr(first->Width); |
||||
Form1->Label3->Caption = IntToStr(first->Height); |
||||
Form1->Image1->Picture->Bitmap->Assign(first); |
||||
targeti->Refresh(); |
||||
|
||||
|
||||
} |
||||
void playbackavi(aviimage* avi,int start, int end) |
||||
{ |
||||
TWICImage* twic = new TWICImage(); |
||||
TImage* targeti; |
||||
TMemoryStream* temp = new TMemoryStream(); |
||||
|
||||
targeti = Form1->Image1; |
||||
targeti->Picture->Bitmap->PixelFormat=pf24bit; // should be 8bit
|
||||
targeti->Width = iw; |
||||
targeti->Picture->Bitmap->Width = iw; |
||||
targeti->Height=ih; |
||||
targeti->Picture->Bitmap->Height = ih; |
||||
|
||||
|
||||
for( int i = start ; i < end ; i++ ){ |
||||
Form1->Label1->Caption = IntToStr(i); |
||||
dispaframe(avi,i); |
||||
//Application->ProcessMessages();
|
||||
//targeti->Refresh();
|
||||
//Form1->Invalidate();
|
||||
} |
||||
|
||||
|
||||
} |
||||
void __fastcall TForm1::TrackBar1Change(TObject *Sender) |
||||
{ |
||||
Label1->Caption = IntToStr(TrackBar1->Position); |
||||
Edit1->Text = IntToStr(TrackBar1->Position); |
||||
dispaframe(work,TrackBar1->Position); |
||||
|
||||
} |
||||
//---------------------------------------------------------------------------
|
||||
|
||||
//---------------------------------------------------------------------------
|
||||
|
||||
|
||||
void __fastcall TForm1::Edit1Exit(TObject *Sender) |
||||
{ |
||||
Label1->Caption = Edit1->Text; |
||||
TrackBar1->Position = StrToInt(Edit1->Text); |
||||
if( StrToInt(Edit1->Text) < fend ) |
||||
dispaframe(work,StrToInt(Edit1->Text)); |
||||
} |
||||
//---------------------------------------------------------------------------
|
||||
|
||||
Loading…
Reference in new issue