C++Builder XE6开发海康设备控制软件--摄像头图像预览与云台控制

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Main.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfrmMain *frmMain;
//---------------------------------------------------------------------------
__fastcall TfrmMain::TfrmMain(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::FormCreate(TObject *Sender)
{
Dir = ExtractFilePath(Application->ExeName) ;
iLastErr = 0 ;
m_lUserID = -1 ;
m_lRealHandle = -1 ;
m_bInitSDK = false ;
m_bRecord = false ;
bAuto = false ;
CreateDirectory(String(Dir + "SdkLog").c_str(),NULL); //创建日志目录
CreateDirectory(String(Dir + "CapPic").c_str(),NULL); //创建抓图目录
CreateDirectory(String(Dir + "Record").c_str(),NULL); //创建录像目录
m_bInitSDK = NET_DVR_Init() ;
if (m_bInitSDK)
NET_DVR_SetLogToFile(3, AnsiString(Dir+ "SdkLog\\").c_str(), true) ;   //保存SDK日志
else
ShowMessage("NET_DVR_Init初始化失败!") ;
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::FormDestroy(TObject *Sender)
{
if(m_lRealHandle >= 0)
NET_DVR_StopRealPlay(m_lRealHandle);
if(m_lUserID >= 0)
NET_DVR_Logout(m_lUserID);
if(m_bInitSDK)
NET_DVR_Cleanup();
}
//---------------------------------------------------------------------------
//登录
void __fastcall TfrmMain::btnLoginClick(TObject *Sender)
{
if (edtIPAddress->Text==""||edtPortNumber->Text==""
||edtUserName->Text==""||edtPassword->Text=="")
{
ShowMessage("请输入设备地址、端口、用户名和密码！") ;
return ;
}
DVRIPAddress = edtIPAddress->Text ; 			//设备IP地址或者域名
DVRPortNumber = edtPortNumber->Text.ToInt() ;	//设备服务端口号
DVRUserName = edtUserName->Text ;				//设备登录用户名
DVRPassword = edtPassword->Text ;				//设备登录密码
NET_DVR_DEVICEINFO_V30 DeviceInfo ;
if (m_lUserID < 0)
{
//登录设备
m_lUserID = NET_DVR_Login_V30(DVRIPAddress.c_str(), DVRPortNumber, DVRUserName.c_str(), DVRPassword.c_str(), &DeviceInfo) ;
if (m_lUserID < 0)
{
iLastErr = NET_DVR_GetLastError() ;
//登录失败，输出错误号
ShowMessage("NET_DVR_Login_V30登录失败，错误代码" + String(iLastErr)) ;
}
else
{
//登录成功
ShowMessage(DVRIPAddress+"登录成功") ;
btnLogin->Caption = "注销" ;
}
}
else
{
//注销登录
if (m_lRealHandle >= 0)
{
ShowMessage("请首先停止在线预览！") ;
return ;
}
if (!NET_DVR_Logout(m_lUserID))
{
iLastErr = NET_DVR_GetLastError() ;
ShowMessage("NET_DVR_Logout注销失败，错误代码" + String(iLastErr)) ;
}
else
ShowMessage(DVRIPAddress+"注销成功") ;
m_lUserID = -1 ;
btnLogin->Caption = "登录" ;
}
}
//---------------------------------------------------------------------------
//预览
void __fastcall TfrmMain::btnPreviewClick(TObject *Sender)
{
if(m_lUserID < 0)
{
ShowMessage("请首先登录设备") ;
return ;
}
NET_DVR_PREVIEWINFO lpPreviewInfo ;
lpPreviewInfo.hPlayWnd = pnlPreview->Handle ;       //预览窗口
lpPreviewInfo.lChannel = edtChannel->Text.ToInt() ; //预te览的设备通道
lpPreviewInfo.dwStreamType = 0 ;                    //码流类型：0-主码流，1-子码流，2-码流3，3-码流4，以此类推
lpPreviewInfo.dwLinkMode = 0 ;                      //连接方式：0- TCP方式，1- UDP方式，2- 多播方式，3- RTP方式，4-RTP/RTSP，5-RSTP/HTTP
lpPreviewInfo.bBlocked = true ;                     //0- 非阻塞取流，1- 阻塞取流
lpPreviewInfo.dwDisplayBufNum = 15 ;                //播放库播放缓冲区最大缓冲帧数

if (m_lRealHandle < 0)
{
REALDATACALLBACK RealData ;//预览实时流回调函数
void* pUser = 0 ;//用户数据

//打开预览
m_lRealHandle = NET_DVR_RealPlay_V40(m_lUserID, &lpPreviewInfo, NULL, pUser) ;
if (m_lRealHandle < 0)
{
iLastErr = NET_DVR_GetLastError();
//预览失败，输出错误号
ShowMessage("NET_DVR_RealPlay_V40预览失败，错误代码" + String(iLastErr)) ;
return;
}
else
{
//预览成功
btnPreview->Caption = "停止预览" ;
ShowMessage("预览成功") ;
}
}
else
{
//停止预览
if (!NET_DVR_StopRealPlay(m_lRealHandle))
{
iLastErr = NET_DVR_GetLastError() ;
//停止预览失败，输出错误号
ShowMessage("NET_DVR_StopRealPlay停止预览失败，错误代码" + String(iLastErr)) ;
}
else
{
//pnlPreview->Assign(NULL) ;
//pnlPreview->Color = clBlack ; //  pnlPreview->Free() ;// Update() ;
ShowMessage("停止预览成功") ;
}
m_lRealHandle = -1 ;
btnPreview->Caption = "预览" ;
}
if(m_lRealHandle > -1)
chkPreview->Checked = true ;
else
chkPreview->Checked = false ;
}
//---------------------------------------------------------------------------
//BMP抓图
void __fastcall TfrmMain::btnBMPClick(TObject *Sender)
{
//图片保存路径和文件名
String sBmpPicFileName = "BMP" + Now().FormatString("yyyymmddhhnnss") + ".bmp" ;
//BMP抓图
if (!NET_DVR_CapturePicture(m_lRealHandle, (Dir + "CapPic\\" + sBmpPicFileName).c_str()))
{
iLastErr = NET_DVR_GetLastError();
ShowMessage("NET_DVR_CapturePicture BMP抓图失败，错误代码" + String(iLastErr)) ;
}
else
{
ShowMessage("BMP抓图成功，文件保存为" + sBmpPicFileName) ;
}
}
//---------------------------------------------------------------------------
//JPEG抓图
void __fastcall TfrmMain::btnJPEGClick(TObject *Sender)
{
//图片保存路径和文件名
String sJpegPicFileName = "JPEG" + Now().FormatString("yyyymmddhhnnss") + ".jpg" ;
int lChannel = edtChannel->Text.ToInt() ; //通道号

NET_DVR_JPEGPARA lpJpegPara ;
lpJpegPara.wPicQuality = 0 ; //图像质量
lpJpegPara.wPicSize = 0xff ; //抓图分辨率2- 4CIF，0xff- Auto(使用当前码流分辨率)，抓图分辨率需要设备支持，更多取值请参考SDK文档

//JPEG抓图
if (!NET_DVR_CaptureJPEGPicture(m_lUserID, lChannel, &lpJpegPara, (Dir + "CapPic\\" + sJpegPicFileName).c_str()))
{
iLastErr = NET_DVR_GetLastError();
ShowMessage("NET_DVR_CaptureJPEGPicture JPEG抓图失败，错误代码" + String(iLastErr)) ;
}
else
{
ShowMessage("JPEG抓图成功，文件保存为" + sJpegPicFileName) ;
}
}
//---------------------------------------------------------------------------
//客户端录像
void __fastcall TfrmMain::btnRecordClick(TObject *Sender)
{
//录像保存路径和文件名 the path and file name to save
String sVideoFileName = "Record" + Now().FormatString("yyyymmddhhnnss") + ".mp4" ;
if (m_bRecord == false)
{
//强制I帧
m_lChannel = edtChannel->Text.ToInt() ; //通道号
NET_DVR_MakeKeyFrame(m_lUserID, m_lChannel) ;

//开始录像
if (!NET_DVR_SaveRealData(m_lRealHandle, (Dir + "Record\\" + sVideoFileName).c_str()))
{
iLastErr = NET_DVR_GetLastError();
ShowMessage("NET_DVR_SaveRealData 录像失败，错误代码" + String(iLastErr)) ;
}
else
{
btnRecord->Caption = "客户端录像停止" ;
m_bRecord = true ;
}
}
else
{
//停止录像
if (!NET_DVR_StopSaveRealData(m_lRealHandle))
{
iLastErr = NET_DVR_GetLastError();
ShowMessage("NET_DVR_StopSaveRealData 停止录像失败，错误代码" + String(iLastErr)) ;
}
else
{
ShowMessage("客户端录像停止，文件保存为" + sVideoFileName) ;
btnRecord->Caption = "客户端录像" ;
m_bRecord = false;
}
}
}
//---------------------------------------------------------------------------
//摄像机云台-转动
void __fastcall TfrmMain::btnPTZMouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
TComponent *cpt = dynamic_cast<TComponent *>(Sender) ;
if(cpt == 0 || cpt->Tag < 0 || cpt->Tag > 10 )
return ;
DWORD dwPTZCommand[11] = {PAN_AUTO,TILT_UP,TILT_DOWN,PAN_LEFT,PAN_RIGHT,ZOOM_IN,ZOOM_OUT,FOCUS_NEAR,FOCUS_FAR,IRIS_OPEN,IRIS_CLOSE} ;
if(cpt->Tag == 0)
{
if (chkPreview->Checked)
{
if (!bAuto)
{
NET_DVR_PTZControlWithSpeed(m_lRealHandle, PAN_AUTO, 0, cbbSpeed->ItemIndex + 1) ;
bAuto = true;
}
else
{
NET_DVR_PTZControlWithSpeed(m_lRealHandle, PAN_AUTO, 1, cbbSpeed->ItemIndex + 1) ;
bAuto = false;
}
}
else
{
if (!bAuto)
{
NET_DVR_PTZControlWithSpeed_Other(m_lUserID, m_lChannel, PAN_AUTO, 0, cbbSpeed->ItemIndex + 1) ;
bAuto = true;
}
else
{
NET_DVR_PTZControlWithSpeed_Other(m_lUserID, m_lChannel, PAN_AUTO, 1, cbbSpeed->ItemIndex + 1) ;
bAuto = false;
}
}
}
else
{
if(chkPreview->Checked)
NET_DVR_PTZControlWithSpeed(m_lRealHandle,dwPTZCommand[cpt->Tag],0,cbbSpeed->ItemIndex+1) ;
else
NET_DVR_PTZControlWithSpeed_Other(m_lUserID,m_lChannel,dwPTZCommand[cpt->Tag],0,cbbSpeed->ItemIndex+1) ;
}
}
//---------------------------------------------------------------------------
//摄像机云台-停止
void __fastcall TfrmMain::btnPTZMouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
TComponent *cpt = dynamic_cast<TComponent *>(Sender) ;
if(cpt == 0 || cpt->Tag < 0 || cpt->Tag > 10 )
return ;
DWORD dwPTZCommand[11] = {PAN_AUTO,TILT_UP,TILT_DOWN,PAN_LEFT,PAN_RIGHT,ZOOM_IN,ZOOM_OUT,FOCUS_NEAR,FOCUS_FAR,IRIS_OPEN,IRIS_CLOSE} ;
if(chkPreview->Checked)
NET_DVR_PTZControlWithSpeed(m_lRealHandle,dwPTZCommand[cpt->Tag],1,cbbSpeed->ItemIndex+1) ;
else
NET_DVR_PTZControlWithSpeed_Other(m_lUserID,m_lChannel,dwPTZCommand[cpt->Tag],1,cbbSpeed->ItemIndex+1) ;
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------

#ifndef MainH
#define MainH
//---------------------------------------------------------------------------
#include "HCNetSDK.h"
#include "PreviewDemoPCH.h"
#include <System.Classes.hpp>
#include <Vcl.Buttons.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.ExtCtrls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.ComCtrls.hpp>
//---------------------------------------------------------------------------
class TfrmMain : public TForm
{
__published:	// IDE-managed Components
TPanel *pnlPreview;
TLabel *lblIP;
TEdit *edtIPAddress;
TEdit *edtPortNumber;
TLabel *lblPort;
TEdit *edtUserName;
TLabel *lblUser;
TEdit *edtPassword;
TLabel *lblPsw;
TButton *btnLogin;
TButton *btnPreview;
TLabel *lblChannel;
TEdit *edtChannel;
TButton *btnBMP;
TButton *btnJPEG;
TButton *btnRecord;
TSpeedButton *btnPTZUp;
TSpeedButton *btnPTZLeft;
TSpeedButton *btnPTZHome;
TSpeedButton *btnPTZRight;
TSpeedButton *btnPTZDown;
TCheckBox *chkPreview;
TLabel *lblSpeed;
TComboBox *cbbSpeed;
TSpeedButton *btnZoomAdd;
TSpeedButton *btnFocusAdd;
TSpeedButton *btnBrightAdd;
TSpeedButton *btnBrightDec;
TSpeedButton *btnFocusDec;
TSpeedButton *btnZoomDec;
TLabel *lblZoom;
TLabel *lblFocus;
TLabel *lblBright;
void __fastcall FormCreate(TObject *Sender);
void __fastcall FormDestroy(TObject *Sender);
void __fastcall btnLoginClick(TObject *Sender);
void __fastcall btnPreviewClick(TObject *Sender);
void __fastcall btnBMPClick(TObject *Sender);
void __fastcall btnJPEGClick(TObject *Sender);
void __fastcall btnRecordClick(TObject *Sender);
void __fastcall btnPTZMouseDown(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y);
void __fastcall btnPTZMouseUp(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y);
private:	// User declarations
public:		// User declarations
__fastcall TfrmMain(TComponent* Owner);
unsigned int iLastErr;
int m_lUserID,m_lRealHandle,m_lChannel,DVRPortNumber ;
bool m_bInitSDK,m_bRecord,bAuto;
AnsiString Dir,DVRIPAddress,DVRUserName,DVRPassword;
};
//---------------------------------------------------------------------------
extern PACKAGE TfrmMain *frmMain;
//---------------------------------------------------------------------------
#endif