Delphi网络摄像头简单程序

谁能帮我创建一个简单的cam视图，只使用delphi中一个简单的TVideo组件，默认情况下视频大小为160x120（无调整大小）。就这么简单。请我的新项目急需它

---

谢谢。

有很多方法，我不明白你说的TVideo组件是什么意思，但我的解决方案可以在画框上显示图像（任何Tcanva）

使用

这是一个directX到pascal的转换，由michael@grizzlymotion.com

将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;

---

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

几乎不需要编程就可以实现目标。您只需拖放他的组件并在IDE的GUI组件编辑器（名为OpenWire）中连接它们

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

他们还拥有强大的实时绘图和音频处理工具，这些工具都与内置的线程一起工作，使其快速、快速、快速

---

.

您使用的是什么

TVideo

组件？到目前为止，您尝试了哪些不起作用的方法，以及您的代码存在的具体问题是什么？这不是一个“请为我写我的代码”的网站-为此，你需要类似或同等的东西。我们都愿意帮助你解决问题，但你需要自己付出一些努力来解决问题。谢谢你。。这就是我需要的。。非常感谢：我还有一个问题吗？如何在160x120视频大小中设置默认的640x360视频大小？？请help@Tony