6 System.SysUtils, System.Types, System.UITypes, System.Classes,
8 FMX.Types, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.Ani, FMX.Layouts,
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;
24 FDConnection1: TFDConnection;
26 BindingsList1: TBindingsList;
27 FDGUIxWaitCursor1: TFDGUIxWaitCursor;
28 BindSourceDB1: TBindSourceDB;
29 NavigatorBindSourceDB12: TBindNavigator;
30 LinkPropertyToFieldBitmap: TLinkPropertyToField;
31 LinkControlToField1: TLinkControlToField;
33 OpenDialog1: TOpenDialog;
35 LinkPropertyToFieldText: TLinkPropertyToField;
36 FDTable1id: TFDAutoIncField;
37 FDTable1name: TWideStringField;
38 FDTable1source: TBlobField;
39 procedure Button1Click(Sender: TObject);
40 procedure FDTable1BeforeInsert(DataSet: TDataSet);
41 procedure FDTable1AfterInsert(DataSet: TDataSet);
42 procedure FormCreate(Sender: TObject);
43 procedure FDTable1AfterPost(DataSet: TDataSet);
58 procedure TForm2.Button1Click(Sender: TObject);
62 if OpenDialog1.Execute = true then
64 Image1.Bitmap.LoadFromFile(OpenDialog1.FileName);
65 s := FDTable1.CreateBlobStream(FDTable1.FieldByName('source'), bmWrite);
67 Image1.Bitmap.SaveToStream(s);
74 procedure TForm2.FDTable1AfterInsert(DataSet: TDataSet);
76 FDTable1.FieldByName('id').AsInteger := pos;
77 FDTable1.FieldByName('name').AsString := 'slide' + pos.ToString + '.jpg';
80 procedure TForm2.FDTable1AfterPost(DataSet: TDataSet);
85 procedure TForm2.FDTable1BeforeInsert(DataSet: TDataSet);
88 pos := FDTable1.FieldByName('id').AsInteger + 1;
91 procedure TForm2.FormCreate(Sender: TObject);
93 if FDTable1.Exists = false then