Question

任何人都可以帮我创建一个简单的凸轮视图，只使用delphi中的一个简单的TVideo组件，其视频大小仅为160x120默认值（无调整大小）。只是一个简单的。请。我的新项目非常需要。

感谢。

Answer 1

有很多方法可以做到这一点，我无法理解您对TVideo组件的意思，但我的解决方案可以在paintbox上显示图像（任何TCanvas）

使用

http://www.delphibasics.info/home/delphibasicsprojects/directxdelphiwebcamcaptureexample/DirectXDelphiWebcamCapture.rar

这是由michael@grizzlymotion.com制作的对pascal的directX转换

将VSample.pas和VFrames.pas添加到您的项目中

uses  VFrames;

procedure TForm6.Button1Click(Sender: TObject);

var
cam:TVideoImage;
strlst:TStringList;
begin

   strlst := TStringList.Create ;

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

   cam.SetDisplayCanvas(PaintBox1.Canvas);
   cam.VideoStart(strlst.Strings[0])    ;//specify your cam by number
end;

Answer 2

我不知道TVideo是什么，但如果您可以使用其他组件，对于非商业项目，Mitov视频库免费。它适用于DirectX视频，这是大多数（所有？）网络摄像头使用的视频。它附带了优秀的示例程序，包括播放视频的程序。

您几乎不需要编程即可实现目标。您只需拖放他的组件并将其连接到IDE中的GUI组件编辑器（名为OpenWire）即可。

我们已经使用了他们的组件多年，并对他们非常满意。强烈推荐。

它们还具有出色的实时绘图和音频处理工具，所有这些都与内置的线程协同工作，使其快速，快速，快速。

http://www.mitov.com/

Delphi网络摄像头简易程序

2 个答案: