MySQLで不安定ながら画像を扱うことに成功しました。

FirebirdではMax()関数が利用できないのでだめでした。

diff --git a/WebModuleUnit1.dfm b/WebModuleUnit1.dfm
index 99d0a1d..6396ee9 100644 (file)
--- a/WebModuleUnit1.dfm
+++ b/WebModuleUnit1.dfm
@@ -1759,7 +1759,7 @@ object WebModule1: TWebModule1
   end
   object FDConnection1: TFDConnection
     Params.Strings = (
-      'ConnectionDef=first_sql')
+      'ConnectionDef=test_server')
     Left = 632
     Top = 56
   end

diff --git a/tool/Unit2.dfm b/tool/Unit2.dfm
index 3a22d8e..a83f648 100644 (file)
--- a/tool/Unit2.dfm
+++ b/tool/Unit2.dfm
@@ -65,6 +65,7 @@ object Form1: TForm1
     Height = 25
     Caption = 'Button2'
     TabOrder = 1
+    OnClick = Button2Click
   end
   object Button3: TButton
     Left = 206
@@ -288,8 +289,8 @@ object Form1: TForm1
     CachedUpdates = True
     Connection = FDConnection1
     SQL.Strings = (
-      'use kainushi;'
-      'create table images(id int primary key,'
+      'create table if not exists'
+      ' kainushi.images(id int primary key,'
       ' name varchar(30), source mediumblob);')
     Left = 440
     Top = 112

diff --git a/tool/Unit2.pas b/tool/Unit2.pas
index c32e667..4c1364c 100644 (file)
--- a/tool/Unit2.pas
+++ b/tool/Unit2.pas
@@ -13,10 +13,10 @@ uses
   FireDAC.Comp.DataSet, FireDAC.Comp.Client, System.Rtti,
   System.Bindings.Outputs, Vcl.Bind.Editors, Data.Bind.EngExt,
   Vcl.Bind.DBEngExt, Data.Bind.Components, Data.Bind.DBScope,
-  FireDAC.VCLUI.Wait, FireDAC.Comp.UI, Vcl.DBCtrls, Jpeg, Vcl.Grids,
+  FireDAC.VCLUI.Wait, FireDAC.Comp.UI, Vcl.DBCtrls, Vcl.Grids,
   Vcl.DBGrids,
   FireDAC.Phys.IB, FireDAC.Phys.IBDef, FireDAC.Phys.FB, FireDAC.Phys.FBDef,
-  Vcl.ComCtrls, Vcl.Buttons;
+  Vcl.ComCtrls, Vcl.Buttons, FireDAC.Stan.StorageBin, FireDAC.Stan.StorageXML;
 
 type
   TForm1 = class(TForm)
@@ -81,6 +81,7 @@ type
       State: TDragState; var Accept: Boolean);
     procedure ListBox1EndDrag(Sender, Target: TObject; X, Y: Integer);
     procedure ListBox1StartDrag(Sender: TObject; var DragObject: TDragObject);
+    procedure Button2Click(Sender: TObject);
   private
     { Private \90é\8c¾ }
     item: Integer;
@@ -96,32 +97,46 @@ var
 
 implementation
 
-uses System.NetEncoding, IdHashSHA, IdHashMessageDigest;
+uses System.NetEncoding, IdHashSHA, IdHashMessageDigest, Jpeg;
 
 {$R *.dfm}
 
 procedure TForm1.Button1Click(Sender: TObject);
 var
   i: Integer;
-  t: TStream;
+  t, t2: TStream;
+  jpg: TJpegImage;
 begin
   with FDTable1 do
   begin
+    t2 := TMemoryStream.Create;
+    jpg := TJpegImage.Create;
     for i := 1 to 10 do
     begin
       t := TResourceStream.Create(HInstance, 'Resource_' + i.ToString,
         RT_RCDATA);
+      jpg.LoadFromStream(t);
       AppendRecord([i, Format('slide%d.jpg', [i])]);
       Edit;
-      FDTable1SOURCE.LoadFromStream(t);
+      t2:=FDTable1.CreateBlobStream(FDTable1.FieldByName('source'),bmWrite);
+      jpg.SaveToStream(t2);
       Post;
       t.Free;
+      t2.Free;
     end;
+    t2.Free;
+    jpg.Free;
     ApplyUpdates;
     CommitUpdates;
   end;
 end;
 
+procedure TForm1.Button2Click(Sender: TObject);
+begin
+  FDQuery1.ExecSQL('drop table kainushi.images;');
+  FDQuery1.ExecSQL;
+end;
+
 procedure TForm1.Button3Click(Sender: TObject);
 var
   s: TStream;
@@ -139,9 +154,8 @@ procedure TForm1.Button4Click(Sender: TObject);
 begin
   with FDTable1 do
   begin
-    repeat
+    while not((Bof = true) and (Eof = true)) do
       Delete;
-    until (Bof = true) and (Eof = true);
     ApplyUpdates;
     Reconcile;
     CommitUpdates;
@@ -234,12 +248,8 @@ end;
 
 procedure TForm1.FormCreate(Sender: TObject);
 begin
-  if FDTable1.Exists = false then
-  begin
-    FDTable1.Close;
-    FDQuery1.ExecSQL;
-    FDTable1.Open;
-  end;
+  FDQuery1.ExecSQL;
+  FDTable1.Open;
   if FDTable2.Exists = false then
     FDTable2.CreateTable;
   FDTable2.Open;