投影笔源代码参考模板

1、投影笔源代码/本程由Borland C+ Builder6编写，在XP sp2+bcb6+PowerPoint 下运行通过/目前仅为测试版本，下一步将完成两个功能的融合，最终实现完美程序/Unit1.h#ifndef Unit1H#define Unit1H/-#include #include #include #include #include #include #include /-class TForm1 : public TForm_published:/ IDE-managed Components TButton *btnCChose; TButton *btnPBegin; T

2、Button *btnPEnd; TButton *btnFmt; TButton *btnIEnd; TTimer *Timer1; TButton *btnIBegin; TTimer *Timer2; TComboBox *ComboBox1; TPanel *Panel1; void _fastcall btnCChoseClick(TObject *Sender); void _fastcall btnPBeginClick(TObject *Sender); void _fastcall btnPEndClick(TObject *Sender); void _fastcall b

3、tnFmtClick(TObject *Sender); void _fastcall btnIEndClick(TObject *Sender); void _fastcall Timer1Timer(TObject *Sender); void _fastcall FormCreate(TObject *Sender); void _fastcall CamCreate(TObject *Sender); void _fastcall btnIBeginClick(TObject *Sender); void _fastcall Timer2Timer(TObject *Sender);p

4、rivate:/ User declarations Graphics:TBitmap *pBitmap;public:/ User declarations _fastcall TForm1(TComponent* Owner);/-extern PACKAGE TForm1 *Form1;1 / 9typedef struct Byte Blue; Byte Green; Byte Red; RGBCOLOR;/-#endif/Unit1.cpp#include #pragma hdrstop#include Unit1.h#include vfw.h#include #include #

5、include #include #define IMGHEIGHT 480#define IMGWIDTH 640#define BLKHEIGHT 38#define BLKWIDTH 38#define SQR 10/-#pragma package(smart_init)#pragma resource *.dfmTForm1 *Form1;int i,j,k,m;int tmpc=0;/Byte VarL,VarR,V=80; /全局变量 ，定义在此，防止覆盖int ImageHeight=480;int ImageWidth=640;RGBCOLOR* ptr1;RGBCOLOR*

6、 ptr2;RGBCOLOR dataImgIMGHEIGHTIMGWIDTH;RGBCOLOR* ptr3;/BYTE* ptr;/LPVIDEOHDR CaptureData;/int cmpcount;/RGBCOLOR dataLeftBLKHEIGHTBLKWIDTH;/RGBCOLOR dataRightBLKHEIGHTBLKWIDTH;/RGBCOLOR dataSqrSQRSQR;double R,dbMaxL,dbMaxR,dSL,dSR,dSS;Byte bPL,bPR;Byte bPT=255; /核像素取值double dST=(double)(BLKHEIGHT)*

7、(BLKWIDTH)*bPT*bPT;double dbMaxV=0.162;/阈值选取,0到1之间double dbErr=1e-3;/double型为零的下限，与dbMaxV的位数有关HWND hWndC;HWND hwndPPT=NULL;CAPDRIVERCAPS CapDrvCaps;CAPSTATUS CapStatus;int DFlag;/-_fastcall TForm1:TForm1(TComponent* Owner) : TForm(Owner) pBitmap=NULL; Timer1-Enabled=false; Timer2-Enabled=false;/-voi

8、d _fastcall TForm1:FormCreate(TObject *Sender) char szDeviceName100; char szDeviceVersion100; for (int wIndex = 0; wIndex Items-Add(szDeviceName); /combobox1 if(ComboBox1-Items-Count0) ComboBox1-ItemIndex=0; else ShowMessage(没有找到视频软件); Close(); CamCreate(NULL);/-void _fastcall TForm1:CamCreate(TObje

9、ct *Sender) hWndC = capCreateCaptureWindow ( (LPSTR) My Capture Window, WS_CHILD | WS_VISIBLE, / window style 0, 0, 640, 480, / window position and dimensions (HWND)Panel1-Handle,/(HWND)Application-Handle,/(HWND) hwndParent, ComboBox1-ItemIndex+1);/(int) nID /* child ID */); /连接设备： capDriverConnect(

10、hWndC,0); capPreviewRate(hWndC, 50); / rate, in milliseconds capPreview(hWndC, TRUE); / starts preview /获取视频驱动相关性能 capDriverGetCaps(hWndC, &CapDrvCaps, sizeof (CAPDRIVERCAPS); /获取捕获窗口状态 capGetStatus(hWndC, &CapStatus, sizeof (CAPSTATUS); SetWindowPos(hWndC, NULL, 0, 0, CapStatus.uiImageWidth, CapSta

11、tus.uiImageHeight, SWP_NOZORDER | SWP_NOMOVE); /capSetCallbackOnFrame(hWndC,&FrameCallBack);/-void _fastcall TForm1:btnCChoseClick(TObject *Sender) / Video source dialog box. if (CapDrvCaps.fHasDlgVideoSource) capDlgVideoSource(hWndC);/-void _fastcall TForm1:btnPBeginClick(TObject *Sender) hwndPPT=F

12、indWindow(screenClass,NULL); hwndPPT=FindWindowEx(hwndPPT,NULL,paneClassDC,NULL); DFlag=0; /if(SaveDialog2-Execute() AnsiString FileName=GetCurrentDir(); /capFileSaveDIB( hWndC, (SaveDialog2-FileName+.bmp).c_str() ); /截取当前帧 capGrabFrameNoStop(hWndC);/截取当前帧到缓存里 capFileSaveDIB( hWndC, (FileName+Captur

13、e.bmp).c_str() ); /截取当前帧 if(!pBitmap) pBitmap=new Graphics:TBitmap; try pBitmap-LoadFromFile(FileName+Capture.bmp); catch(.) ShowMessage(Could not load bmp); delete pBitmap; pBitmap=NULL; /开始识别图像 dbMaxL=0.0;for(i=ImageHeight-BLKHEIGHT;iScanLinei); for(j=0;jRed+(ptr1+j)-Green+(ptr1+j)-Blue)/3; dSL+=(

14、double)bPL*bPL; dSS+=(double)bPL*bPT; R=(double)(dSS/(sqrt(dSL)*sqrt(dST); if(RdbMaxL) dbMaxL=R;dbMaxR=0.0,R=0.0;for(i=ImageHeight-BLKHEIGHT;iScanLinei); for(j=ImageWidth-BLKWIDTH;jRed+(ptr2+j)-Green+(ptr2+j)-Blue)/3; dSR+=(double)bPR*bPR; dSS+=(double)bPR*bPT; R=(double)(dSS/(sqrt(dSR)*sqrt(double)

15、dST); if(RdbMaxR) dbMaxR=R;/开始识别区域if(dbMaxV-dbMaxLdbErr)&(dbMaxR-dbMaxLdbErr) DFlag=1; else if(dbMaxV-dbMaxRdbErr) DFlag=2; /图像识别结束，开始控制ppt if(hwndPPT&(DFlag=1) /前翻页 SetForegroundWindow(hwndPPT); keybd_event( VK_UP,0x45,KEYEVENTF_EXTENDEDKEY | 0,0); /Sleep(500); /SetForegroundWindow(Form1-Handle); i

16、f(hwndPPT&(DFlag=2) /后翻页 SetForegroundWindow(hwndPPT); keybd_event( VK_DOWN,0x45,KEYEVENTF_EXTENDEDKEY |0,0); /Sleep(500); /SetForegroundWindow(Form1-Handle); Timer1-Enabled=true;/-void _fastcall TForm1:btnPEndClick(TObject *Sender)Timer1-Enabled=false;/-void _fastcall TForm1:btnFmtClick(TObject *Se

17、nder) / Video format dialog box. if (CapDrvCaps.fHasDlgVideoFormat) capDlgVideoFormat(hWndC); / Are there new image dimensions? capGetStatus(hWndC, &CapStatus, sizeof (CAPSTATUS); SetWindowPos(hWndC, NULL, 0, 0, CapStatus.uiImageWidth, CapStatus.uiImageHeight, SWP_NOZORDER | SWP_NOMOVE); /-void _fas

18、tcall TForm1:Timer1Timer(TObject *Sender) /Timer1-Enabled=false; btnPBeginClick(this); /Timer1-Enabled=true;void _fastcall TForm1:btnIEndClick(TObject *Sender) Timer2-Enabled=false;/-void _fastcall TForm1:btnIBeginClick(TObject *Sender) hwndPPT=FindWindow(screenClass,NULL); hwndPPT=FindWindowEx(hwnd

19、PPT,NULL,paneClassDC,NULL); int redCount=0; char strText20; AnsiString FileName=GetCurrentDir(); capGrabFrameNoStop(hWndC); capFileSaveDIB( hWndC, (FileName+.bmp).c_str(); /截取当前帧 if(!pBitmap) pBitmap=new Graphics:TBitmap; try pBitmap-LoadFromFile(FileName+.bmp); catch(.) ShowMessage(Could not load bmp); delete pBitmap; pBitmap=NULL; /开始识别图像 区域识别 for(i=0;iScanLinei); for(j=0;jBlue; dataImgij.Green=(ptr3+j)-Green; dataImgij.Red=(ptr3+j)-Red; redCount=0; for(i=0;iImage