This writing will discuss picture overlay technique by Delphi 7 using video grabber component.
The following component as follows,
No | Component Name | Properties | Value |
| 1 | Button1 | Caption | Start Picture Overlay 1 |
| 2 | Button2 | Caption | Preview Video |
| 3 | Button3 | Caption | Start Picture Overlay 2 |
| 4 | Label1 | Caption | Select Camera |
| 5 | ComboBox1 | Text | - |
| 6 | Image1 | Picture | Load from Folder and Chose the picture (File Type Jpg / Bmp) |
| 7 | Image2 | Picture | Load from Folder and Chose the picture (File Type Jpg / Bmp) |
| 8 | VideoGrabber1 | - | - |
arranges it until become like the picture below.
The source code for this Overlaying Picture in Delphi 7 Using Video Grabber Component describe bellow:
| No | Component | Event | Source Code |
| 1 | Form1 | OnCreate | combobox1.Items.Add(videograbber1.VideoDevices); |
| 2 | Button1 | OnClick | videograbber1.ImageOverlayEnabled:=true; videograbber1.ImageOverlay_LeftLocation:=0; videograbber1.ImageOverlay_TopLocation:=0 ; videograbber1.ImageOverlay_Height:=50; videograbber1.ImageOverlay_Width:=50; videograbber1.SetImageOverlayFromTImage(image1); |
| 3 | Button2 | Caption | videograbber1.StartPreview; |
| 4 | Button3 | Caption | videograbber1.ImageOverlayEnabled:=true; videograbber1.ImageOverlay_LeftLocation:=270; videograbber1.ImageOverlay_TopLocation:=0 ; videograbber1.ImageOverlay_Height:=50; videograbber1.ImageOverlay_Width:=50; videograbber1.SetImageOverlayFromTImage(image2); |
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, applicaton 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 |
