Video grabber component have function as video recorder, with the source of the video is web camera. Besides, this component have function as Audio recording, motion detection, text over lay, picture over lay, video rotation, and etc.
This article will tell you how to make video recorder application with Delphi through video grabber component.
Please Insert this Following Component to the design form
No | Component Name | Properties | Value |
1 | Button1 | Caption | Record |
2 | Button2 | Caption | Stop Record |
3 | Button3 | Caption | Preview |
4 | Button4 | Caption | Stop Preview |
5 | VideoGrabber1 | Name | VideoGrabberSrc1 |
6 | ComboBox1 | Text | Camera Device |
7 | Label1 | Choose Camera | |
8 | CheckBox1 | - | - |
9 | Edit1 | Text | FileName |
Then Arrange the application design like the picture bellow :
Video Recorder Or Video Capture With Borland Delphi design Form
Type this following source code:
No | Component | Event | Source Code |
1 | Form1 | OnCreate | cboVideoDevices1.items.add( VideoGrabberSrc1.VideoDevice); VideoGrabberSrc1.Display_AutoSize := False; |
2 | cboVideoDevices1 | OnChange | VideoGrabberSrc1.VideoDevice :=CboVideoDevices1.ItemIndex ; |
3 | Button1 | OnClick | if CheckBox1.Checked then begin VideoGrabberSrc1.RecordingFileName := Edit1.Text; end else begin VideoGrabberSrc1.RecordingFileName := ''; |
4 | Button2 | OnClick | VideoGrabberSrc1.StopRecording; |
5 | Button3 | OnClick | VideoGrabberSrc1.StartPreview; |
6 | Button4 | OnClick | VideoGrabberSrc1.StopPreview; |
This is the picture of Video Recorder Or Video Capture With Borland Delphi Application test
Note:
The video grabber component that is used in this application is shareware version so that it could not work properly (maximal), in limited random time, application will stopped working, besides that application will appear overlay text nagscreen the address of the website is www.datastead.com
I hope this writing can give benefit to the visitors, readers, developer and me. Thanks for visiting and availability for sharing this article by pressing
Share this on Facebook |