德爾福攝像頭簡單的程序

任何人都可以幫助我創建一個簡單的查看凸輪只使用一個簡單的TVIDEO組件在德爾福有一個160x120視頻大小隻有默認（不調整大小）。只是一個簡單的。請。我的新項目非常需要。德爾福攝像頭簡單的程序

謝謝。

2012-02-02 Tony

您正在使用什麼'TVideo'組件？到目前爲止，您嘗試了哪些操作無法正常工作，您的代碼遇到的具體問題是什麼？這不是一個「請寫我的代碼」網站 - 因爲你需要像[RentaCoder]（http://rentacoder.com）或類似的東西。我們都願意幫助解決您的問題，但您需要努力自己解決問題。 – 2012-02-02 03:45:37

有很多方法可以做到這一點，我不明白你是什麼TVideo組件的意思，但我的解決方案可以顯示在顏料盒圖像（任何的TCanvas）

使用

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

這是一個DirectX轉換帕斯卡由[email protected]做出

添加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;

來源

2012-02-02 04:38:56 VibeeshanRC

http://www.torry.net/vcl/mmedia/video/eavcap.zip – VibeeshanRC 2012-02-02 05:00:27

謝謝..這是我需要..非常感謝：D – Tony 2012-02-02 07:35:50

我可以有另一個問題嗎？我怎樣才能將我的視頻尺寸從默認的640x360設置爲160x120的視頻尺寸？請幫助 – Tony 2012-02-02 08:48:48

-2

我不知道什麼是TVideo，但是如果您可以使用另一個組件，對於非商業項目，Mitov視頻庫是免費。它適用於大多數（所有？）網絡攝像機使用的DirectX視頻。它配備了優秀的示例程序，其中包括播放視頻的程序。

你幾乎不用編程就能完成你的目標。您只需拖放組件並將其連接到IDE中的GUI組件編輯器（名爲OpenWire）。

我們已經使用了他們的組件很多年了，並且非常滿意他們。強烈推薦。

它們還具有很棒的實時繪圖和音頻處理工具，它們都可以與內置的線程一起使用，從而使其更快，更快，更快。

http://www.mitov.com/。

來源

2012-02-02 06:59:51 RobertFrank

德爾福攝像頭簡單的程序

回答

相關問題