最低限これは必要でした。まだ保持ができておりません。

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

diff --git a/tool/Unit2.pas b/tool/Unit2.pas
index 4c1364c..273a2d5 100644 (file)
--- a/tool/Unit2.pas
+++ b/tool/Unit2.pas
@@ -109,7 +109,6 @@ var
 begin
   with FDTable1 do
   begin
-    t2 := TMemoryStream.Create;
     jpg := TJpegImage.Create;
     for i := 1 to 10 do
     begin
@@ -124,7 +123,6 @@ begin
       t.Free;
       t2.Free;
     end;
-    t2.Free;
     jpg.Free;
     ApplyUpdates;
     CommitUpdates;