Delphi实现HDMI音视频采集和处理

今天来说说Delphi如何采集和处理HDMI数据，主角依旧还是某宝入手的那块pipivision的USB3.0的HDMI采集卡，USB3.0接口，支持HDMI环出和混音功能，本文的示例源码来自于

https://github.com/messicn/UVSMedia

网盘分享提取码n6sh

示例包括采集预览、OSD、音视频编码、录像等功能，使用Delphi10查看对应的源代码，这些功能都是通过类UVSDev实现的，因此使用前需要先声明成员

Dev: UVSDev;

然后指定索引号打开HDMI设备并启动预览即可

procedure TForm5.FormCreate(Sender: TObject);
var
  ret: boolean;
begin
  Dev := UVSDev.Create(0, -1, ret); { open device 0, no audio }
  if Dev.IsValid then
  begin
    Dev.DeviceStart; { device start }
  end;
end;

procedure TForm5.FormShow(Sender: TObject);
begin
  Dev.StartPreview(Video.Handle); { Video: TPanel }
end;

当然使用完请记得释放

procedure TForm5.FormClose(Sender: T