images テーブルの作成に関して見落としがありました

diff --git a/ProjectGroup1.groupproj b/ProjectGroup1.groupproj
index a9cf332..909ec82 100644 (file)
--- a/ProjectGroup1.groupproj
+++ b/ProjectGroup1.groupproj
@@ -9,6 +9,9 @@
         <Projects Include="yourBBS.dproj">
             <Dependencies/>
         </Projects>
+        <Projects Include="tool\Project1.dproj">
+            <Dependencies/>
+        </Projects>
     </ItemGroup>
     <ProjectExtensions>
         <Borland.Personality>Default.Personality.12</Borland.Personality>
@@ -35,14 +38,23 @@
     <Target Name="yourBBS:Make">
         <MSBuild Projects="yourBBS.dproj" Targets="Make"/>
     </Target>
+    <Target Name="Project1">
+        <MSBuild Projects="tool\Project1.dproj"/>
+    </Target>
+    <Target Name="Project1:Clean">
+        <MSBuild Projects="tool\Project1.dproj" Targets="Clean"/>
+    </Target>
+    <Target Name="Project1:Make">
+        <MSBuild Projects="tool\Project1.dproj" Targets="Make"/>
+    </Target>
     <Target Name="Build">
-        <CallTarget Targets="newbbs;yourBBS"/>
+        <CallTarget Targets="newbbs;yourBBS;Project1"/>
     </Target>
     <Target Name="Clean">
-        <CallTarget Targets="newbbs:Clean;yourBBS:Clean"/>
+        <CallTarget Targets="newbbs:Clean;yourBBS:Clean;Project1:Clean"/>
     </Target>
     <Target Name="Make">
-        <CallTarget Targets="newbbs:Make;yourBBS:Make"/>
+        <CallTarget Targets="newbbs:Make;yourBBS:Make;Project1:Make"/>
     </Target>
     <Import Project="$(BDS)\Bin\CodeGear.Group.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Group.Targets')"/>
 </Project>

diff --git a/WebModuleUnit1.dfm b/WebModuleUnit1.dfm
index 06b0a60..5704d4d 100644 (file)
--- a/WebModuleUnit1.dfm
+++ b/WebModuleUnit1.dfm
@@ -1967,11 +1967,27 @@ object WebModule1: TWebModule1
     end
   end
   object FDTable5: TFDTable
+    IndexFieldNames = 'ID'
     Connection = FDConnection1
     UpdateOptions.UpdateTableName = 'IMAGES'
     TableName = 'IMAGES'
     Left = 712
     Top = 184
+    object FDTable5ID: TIntegerField
+      FieldName = 'ID'
+      Origin = 'ID'
+      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
+      Required = True
+    end
+    object FDTable5NAME: TWideStringField
+      FieldName = 'NAME'
+      Origin = 'NAME'
+      Size = 30
+    end
+    object FDTable5SOURCE: TBlobField
+      FieldName = 'SOURCE'
+      Origin = '"SOURCE"'
+    end
   end
   object FDQuery1: TFDQuery
     Connection = FDConnection1
@@ -2059,6 +2075,7 @@ object WebModule1: TWebModule1
     Params.Strings = (
       'Database=F:\web\cgi-bin\MYDATA.FDB'
       'ConnectionDef=test_server')
+    Connected = True
     Left = 632
     Top = 56
   end

diff --git a/WebModuleUnit1.pas b/WebModuleUnit1.pas
index 06be25f..5c42556 100644 (file)
--- a/WebModuleUnit1.pas
+++ b/WebModuleUnit1.pas
@@ -67,6 +67,9 @@ type
     FDTable1: TFDTable;
     FDTable1DBNUM: TIntegerField;
     FDTable1DATABASE: TWideStringField;
+    FDTable5ID: TIntegerField;
+    FDTable5NAME: TWideStringField;
+    FDTable5SOURCE: TBlobField;
     procedure indexHTMLTag(Sender: TObject; Tag: TTag; const TagString: string;
       TagParams: TStrings; var ReplaceText: string);
     procedure WebModule1indexpageAction(Sender: TObject; Request: TWebRequest;
@@ -1206,10 +1209,13 @@ begin
     FDTable3.CreateTable;
   if FDTable4.Exists = false then
     FDTable4.CreateTable;
+  if FDTable5.Exists = false then
+    FDTable5.CreateTable;
   FDTable1.Open;
   FDTable2.Open;
   FDTable3.Open;
   FDTable4.Open;
+  FDTable5.Open;
   if FDTable1.Bof and FDTable1.Eof then
   begin
     FDTable1.AppendRecord([0, 'info']);

diff --git a/tool/Unit2.dfm b/tool/Unit2.dfm
index 5feef14..a441753 100644 (file)
--- a/tool/Unit2.dfm
+++ b/tool/Unit2.dfm
@@ -86,6 +86,7 @@ object Form1: TForm1
   end
   object FDConnection1: TFDConnection
     Params.Strings = (
+      'Database=F:\web\cgi-bin\MYDATA.FDB'
       'ConnectionDef=test_server')
     Connected = True
     Transaction = FDTransaction1

diff --git a/tool/Unit2.pas b/tool/Unit2.pas
index 155f218..005d3a5 100644 (file)
--- a/tool/Unit2.pas
+++ b/tool/Unit2.pas
@@ -111,7 +111,11 @@ end;
 procedure TForm1.FormCreate(Sender: TObject);
 begin
   if FDTable1.Exists = false then
-    Button4Click(nil);
+  begin
+    FDTable1.Close;
+    FDTable1.CreateTable;
+    FDTable1.Open;
+  end;
 end;
 
 end.

diff --git a/yourBBS.dproj b/yourBBS.dproj
index 5ffd734..2752268 100644 (file)
--- a/yourBBS.dproj
+++ b/yourBBS.dproj
@@ -150,22 +150,22 @@
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>
-                <DeployFile LocalName="F:\web\cgi-bin\yourBBS.cgi" Configuration="Release" Class="ProjectOutput">
+                <DeployFile LocalName="sprites.png" Configuration="Release" Class="ProjectFile">
                     <Platform Name="Win32">
-                        <RemoteName>yourBBS.exe</RemoteName>
+                        <RemoteDir>.\</RemoteDir>
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>
                 <DeployFile LocalName="sprites.png" Configuration="Release" Class="ProjectFile"/>
-                <DeployFile LocalName="Win64\Release\yourBBS.exe" Configuration="Release" Class="ProjectOutput">
-                    <Platform Name="Win64">
+                <DeployFile LocalName="F:\web\cgi-bin\yourBBS.cgi" Configuration="Release" Class="ProjectOutput">
+                    <Platform Name="Win32">
                         <RemoteName>yourBBS.exe</RemoteName>
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>
-                <DeployFile LocalName="sprites.png" Configuration="Release" Class="ProjectFile">
-                    <Platform Name="Win32">
-                        <RemoteDir>.\</RemoteDir>
+                <DeployFile LocalName="Win64\Release\yourBBS.exe" Configuration="Release" Class="ProjectOutput">
+                    <Platform Name="Win64">
+                        <RemoteName>yourBBS.exe</RemoteName>
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>