BSOne.SFC/EM.Lib/ImageEn_SRC/Demos/VideoCapture/DirectShow3/umain.pas

unit umain;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ieview, imageenview, Buttons, ieds, ComCtrls, ExtCtrls, Menus,
  iemview, iexBitmaps, hyieutils, hyiedefs, iesettings, iexLayers, iexRulers;

type
  Tfmain = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    ComboBox1: TComboBox;
    Button1: TButton;
    Button2: TButton;
    ListBox1: TListBox;
    Label5: TLabel;
    Label8: TLabel;
    ComboBox2: TComboBox;
    Button3: TButton;
    Edit4: TEdit;
    SpeedButton1: TSpeedButton;
    ImageEnMView1: TImageEnMView;
    ImageEnView1: TImageEnView;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    LabelCaptureInfo: TLabel;
    procedure FormActivate(Sender: TObject);
    procedure ImageEnView1DShowNewFrame(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure ComboBox2Change(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Saveframes1Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure Connect;
    procedure Disconnect;
    procedure ShowVideoFormats;
  end;

var
  fmain: Tfmain;

implementation

uses uadjframerect;

{$R *.DFM}
{$R WindowsTheme.res}

procedure Tfmain.FormActivate(Sender: TObject);
begin                                     
  ImageEnMView1.SetPresetThumbnailFrame(0,clGray,clGreen);

  // Fill video source combobox
  ComboBox1.Items.Assign(ImageEnView1.IO.DShowParams.VideoInputs);

  // Select first item
  ComboBox1.ItemIndex := 0;

  ShowVideoFormats;
end;

// We have got a new frame

procedure Tfmain.ImageEnView1DShowNewFrame(Sender: TObject);
begin
  // copy current sample to ImageEnView bitmap
  ImageEnView1.IO.DShowParams.GetSample(ImageEnView1.IEBitmap);

  // Adjust frame rect
  if fAdjustFrameRect.Visible then
  begin
    fAdjustFrameRect.ImageEnView1.IEBitmap.Assign( ImageEnView1.IEBitmap );
    fAdjustFrameRect.ImageEnView1.Update;
  end;
  if fAdjustFrameRect.ImageEnView1.Selected then
    ImageEnView1.Proc.Crop( fAdjustFrameRect.ImageEnView1.SelX1, fAdjustFrameRect.ImageEnView1.SelY1, fAdjustFrameRect.ImageEnView1.SelX2, fAdjustFrameRect.ImageEnView1.SelY2 );

  // refresh ImageEnView1
  ImageEnView1.Update;
end;

procedure Tfmain.Connect;
var
  w, h: integer;
  frmt: AnsiString;
  bRate: integer;
begin
  if (not ImageEnView1.IO.DShowParams.Connected) then
  begin
    // set video source as index of IO.DShowParams.VideoInputs
    w := 0;
    h := 0;
    frmt := '';
    bRate := 0;
    if ListBox1.ItemIndex > -1 then
      with ImageEnView1.IO.DShowParams.VideoFormats[ ListBox1.ItemIndex ] do
      begin
        w := BitmapWidth;
        h := BitmapHeight;
        frmt := Format;
        bRate := BitRate;
      end;
    ImageEnView1.IO.DShowParams.SetVideoInput(ComboBox1.ItemIndex,
                                              StrToIntDef(edit4.Text,0), // set this parameter if you have more than one camera with same name
                                              w,    // capture width
                                              h,    // capture height
                                              frmt,   // format
                                              bRate // bit rate
                                              );
    // enable frame grabbing
    ImageEnView1.IO.DShowParams.EnableSampleGrabber := true;
    // connect to the video input
    ImageEnView1.IO.DShowParams.Connect;

    ImageEnView1.IO.DShowParams.GetCurrentVideoFormat(w, h, frmt);
    LabelCaptureInfo.Caption := Format('Capturing at %d x %d x %s', [w, h, frmt]);
  end;
end;

procedure Tfmain.Disconnect;
begin
  // stop and disconnect
  ImageEnView1.IO.DShowParams.Disconnect;
end;

// Capture button

procedure Tfmain.SpeedButton1Click(Sender: TObject);
begin
  if SpeedButton1.Down then
  begin
    Connect;
    // start capture
    ImageEnView1.IO.DShowParams.Run;
  end
  else
  begin
    Disconnect;
  end;
end;

// video dialog

procedure Tfmain.Button1Click(Sender: TObject);
begin
  Connect;
  ImageEnView1.IO.DShowParams.ShowPropertyPages(iepVideoInput, ietFilter,false);
end;

// Video source dialog

procedure Tfmain.Button3Click(Sender: TObject);
begin
  Connect;
  ImageEnView1.IO.DShowParams.ShowPropertyPages(iepVideoInputSource, ietFilter,false);
end;

// format dialog

procedure Tfmain.Button2Click(Sender: TObject);
begin
  Connect;
  ImageEnView1.IO.DShowParams.ShowPropertyPages(iepVideoInput, ietOutput, false);
end;

procedure Tfmain.ShowVideoFormats;
var
  i: integer;
  s: string;
begin
  Connect;

  // fills video formats list box
  ListBox1.Clear;
  with ImageEnView1.IO.DShowParams do
    for i := 0 to VideoFormatsCount - 1 do
    begin
      with VideoFormats[i] do
        s := SysUtils.Format('%s %dx%d %.0f MB/s', [Format, BitmapWidth, BitmapHeight, BitRate / 1048576]);
      ListBox1.Items.Add(s);
    end;
  ListBox1.ItemIndex:=0;

  // fills video source inputs
  ComboBox2.Items.Assign(ImageEnView1.IO.DShowParams.VideoInputSources);
  // set current video source input
  ComboBox2.ItemIndex := ImageEnView1.IO.DShowParams.VideoInputSource;

  Disconnect;
end;

// changes video source

procedure Tfmain.ComboBox1Change(Sender: TObject);
begin
  ShowVideoFormats;
end;

// set video source input

procedure Tfmain.ComboBox2Change(Sender: TObject);
begin
  ImageEnView1.IO.DShowParams.VideoInputSource := ComboBox2.ItemIndex;
end;


// Get frame
procedure Tfmain.Button4Click(Sender: TObject);
var
  i:integer;
begin
  i:=ImageEnMView1.AppendImage;
  ImageEnMView1.SetIEBitmap(i, ImageEnView1.IEBitmap);
end;

procedure Tfmain.Saveframes1Click(Sender: TObject);
begin
end;

// Adjust frame rect
procedure Tfmain.Button5Click(Sender: TObject);
begin
  fAdjustFrameRect.Show;
end;
                  
// Save frames
procedure Tfmain.Button6Click(Sender: TObject);
begin
  with ImageEnMView1.MIO do
    ImageEnMView1.MIO.SaveToFile( ExecuteSaveDialog('','output.tif',false,0,'') );
end;

end.