视频预览

今天解决录像相关事宜。

需求

首先来说一下使用需求，在使用过程中，有以下几种状态：

视频预览状态：使用前，用户可以进行录像工作、播放视频文件工作

正常录像状态：录像过程中，用户可以暂停录像、停止录像

暂停录像状态：在暂停状态下，用户可以继续录像、停止录像

其次，状态切换操作：

起始状态	用户操作	结束状态
视频预览状态	录像操作	正常录像状态
正常录像状态	暂停操作	暂停录像状态
正常录像状态	停止操作	视频预览状态
暂停录像状态	继续操作	正常录像状态
暂停录像状态	停止操作	视频预览状态

设计
1. 状态处理

先设计状态类型：

enum TRecordingStatus { // 视频录制状态

rsNormal, // 视频预览状态

rsRecord, //正常录像状态

rsPause //暂停录像状态

};

TRecordingStatus FRecordingStatus;

__property TRecordingStatus RecordingStatus = {

read = FRecordingStatus, write = SetRecordingStatus

};

void __fastcall SetRecordingStatus(TRecordingStatus value);

void __fastcall TMainForm::SetRecordingStatus(TRecordingStatus value) {

FRecordingStatus = value;

if (FRecordingStatus == rsRecord) { // 录制状态

Button_Record->LargeImageIndex = 72;

Button_Record->ImageIndex = 84;

Button_Record->Caption = "暂停";

Button_Play->LargeImageIndex = 73;

Button_Play->ImageIndex = 85;

Button_Play->Caption = "停止";

}

else if (FRecordingStatus == rsPause) {

Button_Record->LargeImageIndex = 71;

Button_Record->ImageIndex = 78;

Button_Record->Caption = "继续";

Button_Play->LargeImageIndex = 73;

Button_Play->ImageIndex = 85;

Button_Play->Caption = "停止";

}

else if (FRecordingStatus == rsNormal) {

Button_Record->LargeImageIndex = 70;

Button_Record->ImageIndex = 77;

Button_Record->Caption = "录像";

Button_Play->LargeImageIndex = 71;

Button_Play->ImageIndex = 78;

Button_Play->Caption = "播放";

}

在实现过程中，发现图标下标确实太乱，大图标与小图标不对应，还需要逐个去找，悲催。有时间整理一下。

大图标：

小图标：

大小图标主要是用于窗口缩放导致主工具栏宽度不一样时，Ribbon会自动缩放按钮进行匹配。

则Button_RecordClick单击按钮事件处理：

if (FRecordingStatus == rsNormal || FRecordingStatus == rsPause)

RecordingStatus = rsRecord;

else if (FRecordingStatus == rsRecord)

RecordingStatus = rsPause;

Button_PlayClick按钮事件处理：

if (FRecordingStatus != rsNormal) // 非正常状态，即为录像相关状态，停止

VideoGrabber->Stop();

else // 播放视频文件

…

录像

录像首先确定目标文件名

UnicodeString path = OptionForm->Edit_SavePath->Text;

if (!THelper::IsEndWith(path, "\\"))

path += "\\";

TFrameCaptureDest destFormat = OptionForm->ComboBox_Format->ItemIndex == 0 ? fc_BmpFile : fc_JpegFile;

UnicodeString destFileName = "";

int index = 0;

do {

++index;

destFileName = THelper::FormatString("%svideo%d.asf", path.w_str(), index);

}

while (FileExists(destFileName));

发现该代码段用过多次，干脆设计为一个函数：

UnicodeString __fastcall THelper::NextExpectedFileName(UnicodeString path, UnicodeString baseFileName, UnicodeString extName) {

// 得到指定路径下的期望文件名称

if (!THelper::IsEndWith(path, "\\"))

path += "\\";

if(!THelper::IsStartWith(extName, "."))

extName = "." + extName;

UnicodeString destFileName = "";

int index = 0;

do {

++index;

destFileName = THelper::FormatString("%s%s%d%s", path.w_str(), baseFileName.w_str(), index, extName.w_str());

}

while (FileExists(destFileName));

return destFileName;

}

这样，只需要调用一个函数即可：

UnicodeString destFileName = THelper::NextExpectedFileName(OptionForm->Edit_SavePath->Text, L"video", L"asf");

录像的代码很简单，暂停、停止的功能也很好实现

缩放

上次在一所学校演示时，那时的老师提出了一个需求：能否在录像的同时，可以拖动、缩放。

这话说起来很简单，得实现哈。

花了整整一上午实现了这个功能的一半，汗！

翻来覆去地组合控件的各个属性：AdjustPixelAspectRatio、Display_AutoSize、Display_AspectRatio、Cropping_Zoom、Cropping_X、Cropping_Y、ZoomCoeff。最后靠把Inspector放在程序里进行手动调整达到预期效果。

设计使用方法：

之前，鼠标左键按下可拖动