德尔福网络摄像头简单程序 [英] Delphi Webcam Simple Program

问题描述

任何人都可以帮助我创建一个简单的观看cam，只需一个简单的电视视频组件在delphi中，只有一个大小为160x120的大小只有默认（没有调整大小）。只是一个简单的。请。我的新项目非常需要。

谢谢。

解决方案

有很多方法可以做到，我不明白你是什么意思的电视节目组件，但我的解决方案可以在油漆盒（任何TCanvas）上显示图像

使用

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

这是由[e-mail]制作的pascal的directX转换

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

 使用VFrames; 
 
程序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]）; //指定您的凸轮数量
 end; 
  

Can anyone help me to create a simple viewing of cam using just a simple TVideo component in delphi having a vid size of 160x120 only as default (no resize). Just a simple one. Please. Badly needed for my new project.

thanks.

解决方案

There are many ways to do it , I couldn't understand what do you mean by TVideo component but my solution can show image on a paintbox(any TCanvas)

use

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

this is a directX conversion to pascal made by [e-mail]

add VSample.pas and VFrames.pas to your project

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;

这篇关于德尔福网络摄像头简单程序的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！