delphi - 使用 Delphi 程序更改网络摄像头视频的分辨率

Question

如何在 VFrames 中将网络摄像头的大小从 (640x360) 更改为默认值|转换为 (160x120) 作为新的默认值。

我正在使用 this component 在 this page 上找到.

Answer 1

VFrames 中有一个预定义的方法

var
  cam:TVideoImage;
  camlist:TStringList;
  reslist:TStringList;
  vp:TVideoProperty;
begin

   camlist := TStringList.Create ;
   reslist :=TStringList.Create;

   cam := TVideoImage.Create;
   cam.GetListOfDevices(camlist);

   cam.SetDisplayCanvas(PaintBox1.Canvas);

   cam.VideoStart(camlist.Strings[0])    ;

   // important 

   cam.GetListOfSupportedVideoSizes(reslist);
   ListBox1.Items := reslist;
   cam.SetResolutionByIndex(0);

   //specify your resolution by index using listbox index
   //this will not only lists resolutions but also other features available , so be careful when selecting the index
end;

确保 GetListOfSupportedVideoSizes和 SetResolutionByIndex在视频开始播放后执行