Smart之网络摄像头客户端

1. 说明

  本范例用于接收网络摄像头服务器端口的数据信息。可连接到网络摄像头服务器来查看视频，该功能需配合网络摄像头服务器来进行使用。

  通过本范例学习，可以掌握网络摄像头通信的方式，并搭建服务器和客户端进行视频监控的操作。

2. 设计明细

  开启Smart智慧控制平台，分别加入下插图之控件。

  ①：TButton组件，控件名称为Button1。

  ②：TVideoClient组件，控件名称为VideoClient1。

• Main窗体属性设置

  • BorderStyle：设置边界样式=bsDialog。
  • ClientHeight：设置客户区窗体的高度=438。
  • ClientWidth：设置窗体客户区的宽度=465。
  • Caption：设置窗体标题=网络摄像头客户端。

• ①Button1属性设置

  • Caption：设置显示的字幕内容=客户端开关。

• ②VideoClient1属性设置

  • Align：设置对齐方式，设置为alClient。

3. 程序设计

3.1. 程序初始设置

  该程序无初始设置。

3.2. 事件设置

• ①Button1-OnClick事件

  当点击按钮时触发该事件。用于开启或者关闭视频客户端。

procedure TMyHandler.Button1Click;
begin
  if FThis.VideoClient1.Active = False then
  begin
    FThis.VideoClient1.Url := 'http://127.0.0.1:8080/video';
    FThis.VideoClient1.Active := True;
  end
  else
    FThis.VideoClient1.Active := False;
end;

4. 运行结果

  通过工具栏保存，将程序保存为 sdb 项目文件。

  使用鼠标点击工具栏运行（Run），测试运行结果。程序启动时会加载网络摄像头服务器地址上的视频并显示。