全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:2588
推到 Plurk!
推到 Facebook!

webcam 連續抓圖 儲存成bmp檔

尚未結案
realsunQ
一般會員


發表:7
回覆:0
積分:1
註冊:2008-03-18

發送簡訊給我
#1 引用回覆 回覆 發表時間:2008-03-18 16:46:09 IP:220.132.xxx.xxx 訂閱
目的 : 從webcam連續抓圖,將圖片(bmp檔)存在硬碟

有買了多媒體視訊程式設計-delphi 張銘華著一書,雖然作者說初學者適用,不過因為本人沒碰過delphi,研讀一段時間後,還是無法活用
想請教各位是如何尋找這類視訊相關的程式指令,網路上搜尋都是用那個關鍵字,以及是否有推薦的書籍可供參考
如果可以的話,麻煩留下e-mail,再詢問您一些在這討論區發問可能太過基本的問題,感激不盡


以下是手動抓圖,想要改成自動抓圖(指定路徑存檔)
例:C:\tmp1.bmp ,C:\tmp2.bmp,C:\tmp3.bmp....
我想應該是 SavePictureDialog1.FileName:= VideoViewForm.BMPFileName;這行須要修改

[code delphi]
procedure TForm1.SaveDIBMenuClick(Sender: TObject);
begin
if VideoViewForm.DriverOpen then
begin
SavePictureDialog1.FileName:= VideoViewForm.BMPFileName;
if not SavePictureDialog1.Execute then exit;

if FileExists(SavePictureDialog1.FileName) then
begin
if
MessageDlg(SavePictureDialog1.FileName ' 這個檔案以存在是否覆蓋?',
mtConfirmation, [mbYes, mbNo], 0) <> mrYes then exit;
end;

VideoViewForm.BMPFileName:=SavePictureDialog1.FileName;
if VideoViewForm.GrabFrameNoStop then
begin
if not VideoViewForm.SaveToBMP then
ShowMessage('儲存BMP圖形檔失敗!')
end
else ShowMessage('抓圖失敗!');
end
else BEEP;
[/code]
系統時間:2017-10-20 9:25:17
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!