trunk/vobslideshow/Unit4.pas

unit Unit4;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes,
  System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,
  ocv.comp.Types, ocv.comp.VideoWriter, ocv.comp.Source,
  ocv.comp.ImageOperation, FMX.Effects, System.TypInfo, ocv.core.types_c,
  ocv.core_c,
  ocv.highgui_c, FMX.Controls.Presentation, FMX.Edit, FMX.EditBox, FMX.SpinBox;

type
  TForm4 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    SaveDialog1: TSaveDialog;
    Edit1: TEdit;
    Button3: TButton;
    Label1: TLabel;
    SpinBox1: TSpinBox;
    SpinBox2: TSpinBox;
    ProgressBar1: TProgressBar;
    ShadowEffect1: TShadowEffect;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { private éž }
  public
    { public éž }
  end;

var
  Form4: TForm4;

implementation

{$R *.fmx}

uses Unit1;

procedure TForm4.Button1Click(Sender: TObject);
var
  i: Integer;
  s: TEffect;
  j: Integer;
  Image: PIplImage;
  BD: TBitmapData;
  vw: pCvVideoWriter;
  cvs: TCvSize;
const
  fps: Integer = 30;
  procedure Map;
  begin
    with Form1.Image1 do
    begin
      Bitmap.Map(TMapAccess.Read, BD);
      Move(BD.data^, Image^.imageData^, Image^.imageSize);
      Bitmap.Unmap(BD);
    end;
  end;

begin
  if ProgressBar1.Value > 0 then
    Exit;
  if FileExists(Edit1.Text) = true then
    DeleteFile(Edit1.Text);
  Randomize;
  Caption := 'Ĺˇ.';
  Form1.Image1.Visible := false;
  Button1.Enabled:=false;
  cvs := cvSize(Form1.Image1.Bitmap.Width, Form1.Image1.Bitmap.Height);
  // cvSize(Round(SpinBox1.Value), Round(SpinBox2.Value));
  Image := cvCreateImage(cvs, IPL_DEPTH_8U, 3);
  vw := cvCreateVideoWriter(PAnsiChar(AnsiString(Edit1.Text)), 0, fps, cvs);
  try
    for j := 0 to Form1.ListView1.ItemCount - 2 do
    begin
      s := Form1.Image1.Children[Random(Form1.Image1.ChildrenCount)] as TEffect;
      SetPropValue(s, 'Progress', 0);
      SetObjectProp(s, 'target', Form1.ListView1.Items[j + 1].Bitmap);
      Form1.Image1.Bitmap.Assign(Form1.ListView1.Items[j].Bitmap);
      Map;
      for i := 1 to Round(fps * Form1.FloatAnimation1.Delay) do
        cvWriteFrame(vw, Image);
      for i := 1 to 100 do
      begin
        Form1.Image1.Bitmap.Assign(Form1.ListView1.Items[j].Bitmap);
        SetPropValue(s, 'Progress', i);
        s.ProcessEffect(Form1.Image1.Bitmap.Canvas, Form1.Image1.Bitmap, 1);
        Map;
        cvWriteFrame(vw, Image);
      end;
      ProgressBar1.Value := j;
      Application.ProcessMessages;
      if ModalResult = mrCancel then
      begin
        ProgressBar1.Value := 0;
        Abort;
      end;
      s.Enabled := false;
    end;
    for i := 1 to Round(fps * Form1.FloatAnimation1.Delay) do
      cvWriteFrame(vw, Image);
    ProgressBar1.Value := ProgressBar1.Max;
  finally
    cvRelease(Pointer(Image));
    cvReleaseVideoWriter(vw);
    Form1.Image1.Visible := true;
    Button1.Enabled:=true;
  end;
end;

procedure TForm4.Button3Click(Sender: TObject);
begin
  if SaveDialog1.Execute = true then
  begin
    Edit1.Text := SaveDialog1.FileName;
    ShadowEffect1.Enabled := true;
  end
  else
    ShadowEffect1.Enabled := false;
end;

procedure TForm4.FormShow(Sender: TObject);
begin
  ProgressBar1.Value := 0;
  ProgressBar1.Max := Form1.ListView1.ItemCount;
  Caption := 'ĹIÝč';
end;

end.