Простая программа Delphi Webcam

Question

Может ли кто-нибудь помочь мне создать простой просмотр камеры с помощью простого компонента TVideo в Delphi, имеющего размер видео 160x120 только по умолчанию (без изменения размера). Просто простой. Пожалуйста. Очень нужен для моего нового проекта.

спасибо.

Answer 1

Есть много способов сделать это, я не мог понять, что вы подразумеваете под компонентом TVideo, но мое решение может показывать изображение на коробке с красками (любой TCanvas)

использовать

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

это преобразование DirectX в паскаль, сделанное 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;

Answer 2

Я не знаю, что такое TVideo, но если вы можете использовать другой компонент, для некоммерческих проектов библиотека Mitov Video бесплатна .Он работает с видео DirectX, которое используют большинство (все?) Веб-камеры.Он поставляется с отличными примерами программ, в том числе и для воспроизведения видео.

Вы можете достичь своей цели практически без программирования.Вы просто перетаскиваете его компоненты и подключаете их в своем редакторе компонентов GUI (названном OpenWire) в IDE.

Мы использовали их компоненты в течение многих лет и очень довольны ими.Настоятельно рекомендуется.

У них также есть отличные инструменты для построения графиков и обработки аудио в реальном времени, которые работают вместе со встроенными потоками, что делает его быстрым, быстрым и быстрым.*