tool/Unit1.pas

   1 unit Unit1;
   2
   3 interface
   4
   5 uses
   6   System.SysUtils, System.Types, System.UITypes, System.Classes,
   7   System.Variants,
   8   FMX.Types, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.Ani, FMX.Layouts,
   9   FMX.Gestures,
  10   FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Param,
  11   FireDAC.Stan.Error, FireDAC.DatS, FireDAC.Phys.Intf, FireDAC.DApt.Intf,
  12   FireDAC.Stan.Async, FireDAC.DApt, FireDAC.UI.Intf, FireDAC.Stan.Def,
  13   FireDAC.Stan.Pool, FireDAC.Phys, FireDAC.Phys.MySQL, FireDAC.Phys.MySQLDef,
  14   Data.Bind.Controls, Data.Bind.EngExt, FMX.Bind.DBEngExt, System.Rtti,
  15   System.Bindings.Outputs, FMX.Bind.Editors, Data.Bind.Components, Data.DB,
  16   FMX.Controls.Presentation, FMX.Edit, FMX.Bind.Navigator, Data.Bind.DBScope,
  17   FireDAC.Comp.Client, FireDAC.Comp.DataSet, FMX.Objects, FMX.StdCtrls,
  18   FireDAC.FMXUI.Wait, FireDAC.Comp.UI;
  19
  20 type
  21   TForm2 = class(TForm)
  22     Image1: TImage;
  23     FDTable1: TFDTable;
  24     FDConnection1: TFDConnection;
  25     Edit1: TEdit;
  26     BindingsList1: TBindingsList;
  27     FDGUIxWaitCursor1: TFDGUIxWaitCursor;
  28     BindSourceDB1: TBindSourceDB;
  29     NavigatorBindSourceDB12: TBindNavigator;
  30     LinkPropertyToFieldBitmap: TLinkPropertyToField;
  31     LinkControlToField1: TLinkControlToField;
  32     Button1: TButton;
  33     OpenDialog1: TOpenDialog;
  34     Label1: TLabel;
  35     LinkPropertyToFieldText: TLinkPropertyToField;
  36     procedure Button1Click(Sender: TObject);
  37     procedure FDTable1BeforeInsert(DataSet: TDataSet);
  38     procedure FDTable1AfterInsert(DataSet: TDataSet);
  39     procedure FormCreate(Sender: TObject);
  40     procedure FDTable1AfterPost(DataSet: TDataSet);
  41   private
  42     pos: integer;
  43     { private \90é\8c¾ }
  44   public
  45     { public \90é\8c¾ }
  46   end;
  47
  48 var
  49   Form2: TForm2;
  50
  51 implementation
  52
  53 {$R *.fmx}
  54
  55 procedure TForm2.Button1Click(Sender: TObject);
  56 var
  57   s: TStream;
  58 begin
  59   case FDTable1.State of
  60     dsInsert, dsEdit:
  61       if OpenDialog1.Execute = true then
  62       begin
  63         Image1.Bitmap.LoadFromFile(OpenDialog1.FileName);
  64         s := FDTable1.CreateBlobStream(FDTable1.FieldByName('source'), bmWrite);
  65         try
  66           Image1.Bitmap.SaveToStream(s);
  67         finally
  68           s.Free;
  69         end;
  70       end;
  71   end;
  72 end;
  73
  74 procedure TForm2.FDTable1AfterInsert(DataSet: TDataSet);
  75 begin
  76   FDTable1.FieldByName('id').AsInteger := pos;
  77   FDTable1.FieldByName('name').AsString := 'slide' + pos.ToString + '.jpg';
  78 end;
  79
  80 procedure TForm2.FDTable1AfterPost(DataSet: TDataSet);
  81 begin
  82   FDTable1.Refresh;
  83 end;
  84
  85 procedure TForm2.FDTable1BeforeInsert(DataSet: TDataSet);
  86 begin
  87   FDTable1.Last;
  88   pos := FDTable1.FieldByName('id').AsInteger + 1;
  89 end;
  90
  91 procedure TForm2.FormCreate(Sender: TObject);
  92 begin
  93   FDTable1.Refresh;
  94 end;
  95
  96 end.