6 System.SysUtils, System.Types, System.UITypes, System.Classes,
8 FMX.Types, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.Ani, FMX.Layouts,
9 FMX.Gestures, FMX.Graphics, FMX.Surfaces,
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 LinkControlToField1: TLinkControlToField;
32 OpenDialog1: TOpenDialog;
34 LinkPropertyToFieldText: TLinkPropertyToField;
35 FDTable1id: TFDAutoIncField;
36 FDTable1name: TWideStringField;
37 FDTable1source: TBlobField;
38 LinkPropertyToFieldBitmap: TLinkPropertyToField;
39 procedure Button1Click(Sender: TObject);
40 procedure FDTable1AfterInsert(DataSet: TDataSet);
41 procedure FormCreate(Sender: TObject);
42 procedure FDTable1AfterPost(DataSet: TDataSet);
56 procedure TForm2.Button1Click(Sender: TObject);
60 pm: TBitmapCodecSaveParams;
62 if OpenDialog1.Execute = true then
65 bmp := TBitmapSurface.Create;
67 s := FDTable1.CreateBlobStream(FDTable1.FieldByName('source'), bmWrite);
68 Image1.Bitmap.LoadFromFile(OpenDialog1.FileName);
69 bmp.Assign(Image1.Bitmap);
71 TBitmapCodecManager.SaveToStream(s, bmp, '.jpg', @pm);
80 procedure TForm2.FDTable1AfterInsert(DataSet: TDataSet);
82 FDTable1.FieldByName('name').AsString := 'slide' + FDTable1.FieldByName('id')
86 procedure TForm2.FDTable1AfterPost(DataSet: TDataSet);
91 procedure TForm2.FormCreate(Sender: TObject);
93 if FDTable1.Exists = false then