120 lines
2.8 KiB
Plaintext
120 lines
2.8 KiB
Plaintext
unit Unit1;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
|
Buttons, ImageEnView, StdCtrls, ExtCtrls, ImageEnProc, hyiedefs,
|
|
ComCtrls, ieview, hvideocap, hyieutils;
|
|
|
|
type
|
|
TForm1 = class(TForm)
|
|
ImageEnVideoCap1: TImageEnVideoCap;
|
|
Panel1: TPanel;
|
|
SpeedButton1: TSpeedButton;
|
|
Button1: TButton;
|
|
ImageEnView1: TImageEnView;
|
|
ImageEnProc1: TImageEnProc;
|
|
Panel2: TPanel;
|
|
SpeedButton2: TSpeedButton;
|
|
Bevel1: TBevel;
|
|
SpeedButton3: TSpeedButton;
|
|
Label1: TLabel;
|
|
Label2: TLabel;
|
|
Label3: TLabel;
|
|
TrackBar1: TTrackBar;
|
|
TrackBar2: TTrackBar;
|
|
TrackBar3: TTrackBar;
|
|
Bevel2: TBevel;
|
|
SpeedButton4: TSpeedButton;
|
|
TrackBar4: TTrackBar;
|
|
TrackBar5: TTrackBar;
|
|
TrackBar6: TTrackBar;
|
|
Label4: TLabel;
|
|
Label5: TLabel;
|
|
Label6: TLabel;
|
|
Bevel3: TBevel;
|
|
Label7: TLabel;
|
|
ComboBox1: TComboBox;
|
|
Edit1: TEdit;
|
|
Label8: TLabel;
|
|
UpDown1: TUpDown;
|
|
SpeedButton5: TSpeedButton;
|
|
procedure SpeedButton1Click(Sender: TObject);
|
|
procedure ImageEnVideoCap1VideoFrame(Sender: TObject; Bitmap: TIEDibBitmap);
|
|
procedure Button1Click(Sender: TObject);
|
|
procedure Button3Click(Sender: TObject);
|
|
procedure SpeedButton5Click(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
Form1: TForm1;
|
|
|
|
implementation
|
|
|
|
{$R *.DFM}
|
|
{$R WindowsTheme.res}
|
|
|
|
procedure TForm1.ImageEnVideoCap1VideoFrame(Sender: TObject;
|
|
Bitmap: TIEDibBitmap);
|
|
begin
|
|
Bitmap.CopyToTBitmap(ImageEnView1.Bitmap);
|
|
ImageEnView1.Update;
|
|
if SpeedButton2.Down then
|
|
ImageEnProc1.Negative;
|
|
if SpeedButton3.Down then
|
|
ImageEnProc1.IntensityRGBall(trackbar1.Position, trackbar2.Position, trackbar3.Position);
|
|
if SpeedButton4.Down then
|
|
ImageEnProc1.HSVvar(trackbar4.Position, trackbar5.Position, trackbar6.Position);
|
|
if ComboBox1.ItemIndex > 0 then
|
|
ImageEnView1.ZoomFilter := TResampleFilter(ComboBox1.ItemIndex)
|
|
else
|
|
ImageEnView1.ZoomFilter := rfNone;
|
|
end;
|
|
|
|
procedure TForm1.Button1Click(Sender: TObject);
|
|
begin
|
|
ImageEnVideoCap1.DoConfigureFormat;
|
|
end;
|
|
|
|
procedure TForm1.SpeedButton1Click(Sender: TObject);
|
|
begin
|
|
if SpeedButton1.Down then
|
|
begin
|
|
ImageEnVideoCap1.VideoSource := UpDown1.Position;
|
|
ImageEnVideoCap1.Capture := true;
|
|
end
|
|
else
|
|
ImageEnVideoCap1.Capture := false;
|
|
end;
|
|
|
|
procedure TForm1.Button3Click(Sender: TObject);
|
|
begin
|
|
end;
|
|
|
|
// Record
|
|
procedure TForm1.SpeedButton5Click(Sender: TObject);
|
|
begin
|
|
if SpeedButton5.Down then
|
|
begin
|
|
if ImageEnVideoCap1.Capture then
|
|
begin
|
|
ShowMessage('Please press "Record" before "Capture"!');
|
|
SpeedButton5.Down:=false;
|
|
end
|
|
else
|
|
begin
|
|
ImageEnVideoCap1.RecFileName := 'Capture.avi';
|
|
ImageEnVideoCap1.StartRecord;
|
|
end;
|
|
end
|
|
else
|
|
ImageEnVideoCap1.StopRecord;
|
|
end;
|
|
|
|
end.
|