リネーム

diff --git a/ProjectGroup1.groupproj b/ProjectGroup1.groupproj
index d823d01..a9cf332 100644 (file)
--- a/ProjectGroup1.groupproj
+++ b/ProjectGroup1.groupproj
@@ -3,10 +3,10 @@
         <ProjectGuid>{5029D026-E4F4-4D5D-AB43-5D8A45F21C95}</ProjectGuid>
     </PropertyGroup>
     <ItemGroup>
-        <Projects Include="Project3.dproj">
+        <Projects Include="newbbs.dproj">
             <Dependencies/>
         </Projects>
-        <Projects Include="Project4.dproj">
+        <Projects Include="yourBBS.dproj">
             <Dependencies/>
         </Projects>
     </ItemGroup>
@@ -17,32 +17,32 @@
             <Default.Personality/>
         </BorlandProject>
     </ProjectExtensions>
-    <Target Name="Project3">
-        <MSBuild Projects="Project3.dproj"/>
+    <Target Name="newbbs">
+        <MSBuild Projects="newbbs.dproj"/>
     </Target>
-    <Target Name="Project3:Clean">
-        <MSBuild Projects="Project3.dproj" Targets="Clean"/>
+    <Target Name="newbbs:Clean">
+        <MSBuild Projects="newbbs.dproj" Targets="Clean"/>
     </Target>
-    <Target Name="Project3:Make">
-        <MSBuild Projects="Project3.dproj" Targets="Make"/>
+    <Target Name="newbbs:Make">
+        <MSBuild Projects="newbbs.dproj" Targets="Make"/>
     </Target>
-    <Target Name="Project4">
-        <MSBuild Projects="Project4.dproj"/>
+    <Target Name="yourBBS">
+        <MSBuild Projects="yourBBS.dproj"/>
     </Target>
-    <Target Name="Project4:Clean">
-        <MSBuild Projects="Project4.dproj" Targets="Clean"/>
+    <Target Name="yourBBS:Clean">
+        <MSBuild Projects="yourBBS.dproj" Targets="Clean"/>
     </Target>
-    <Target Name="Project4:Make">
-        <MSBuild Projects="Project4.dproj" Targets="Make"/>
+    <Target Name="yourBBS:Make">
+        <MSBuild Projects="yourBBS.dproj" Targets="Make"/>
     </Target>
     <Target Name="Build">
-        <CallTarget Targets="Project3;Project4"/>
+        <CallTarget Targets="newbbs;yourBBS"/>
     </Target>
     <Target Name="Clean">
-        <CallTarget Targets="Project3:Clean;Project4:Clean"/>
+        <CallTarget Targets="newbbs:Clean;yourBBS:Clean"/>
     </Target>
     <Target Name="Make">
-        <CallTarget Targets="Project3:Make;Project4:Make"/>
+        <CallTarget Targets="newbbs:Make;yourBBS:Make"/>
     </Target>
     <Import Project="$(BDS)\Bin\CodeGear.Group.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Group.Targets')"/>
 </Project>

diff --git a/Unit1.dfm b/Unit1.dfm
index 1d6f54b..7fca0d8 100644 (file)
--- a/Unit1.dfm
+++ b/Unit1.dfm
@@ -1,6 +1,6 @@
 object DataModule1: TDataModule1
   OldCreateOrder = False
-  Height = 279
+  Height = 226
   Width = 302
   object FDTable1: TFDTable
     IndexFieldNames = 'DBNUM'

diff --git a/WebModuleUnit1.dfm b/WebModuleUnit1.dfm
index 9597a17..20e47bf 100644 (file)
--- a/WebModuleUnit1.dfm
+++ b/WebModuleUnit1.dfm
@@ -1921,8 +1921,4 @@ object WebModule1: TWebModule1
     Left = 48
     Top = 320
   end
-  object FDQuery1: TFDQuery
-    Left = 200
-    Top = 176
-  end
 end

diff --git a/WebModuleUnit1.pas b/WebModuleUnit1.pas
index 5f388a7..163072a 100644 (file)
--- a/WebModuleUnit1.pas
+++ b/WebModuleUnit1.pas
@@ -36,7 +36,6 @@ type
     js5: TPageProducer;
     title: TPageProducer;
     ti: TDataSetPageProducer;
-    FDQuery1: TFDQuery;
     procedure indexHTMLTag(Sender: TObject; Tag: TTag; const TagString: string;
       TagParams: TStrings; var ReplaceText: string);
     procedure WebModule1indexpageAction(Sender: TObject; Request: TWebRequest;
@@ -343,8 +342,6 @@ begin
 end;
 
 function TWebModule1.isInfo: Boolean;
-var
-  s: string;
 begin
   result := DataModule1.FDTable1.FieldByName('dbnum')
     .AsInteger = DataModule1.FDTable3.FieldByName('info').AsInteger;
@@ -554,11 +551,6 @@ end;
 
 procedure TWebModule1.setLastArticle;
 begin
-  {
-    if isInfo(false) = true then
-    DataModule1.FDTable2.First
-    else
-  }
   DataModule1.FDTable2.Last;
 end;
 
@@ -613,7 +605,7 @@ begin
     begin
       FDQuery1.Open;
       FDTable1.First;
-      while FDQuery1.Eof = false do
+      while (FDQuery1.Eof = false)and(FDTable1.Eof = false) do
       begin
         if FDTable1.FieldByName('dbnum').AsInteger = FDQuery1.FieldByName
           ('dbnum').AsInteger then

diff --git a/Project3.dpr b/newbbs.dpr
similarity index 96%
rename from Project3.dpr
rename to newbbs.dpr
index 8f71544..24f2bbd 100644 (file)
--- a/Project3.dpr
+++ b/newbbs.dpr
@@ -1,4 +1,4 @@
-program Project3;
+program newbbs;
 {$APPTYPE GUI}
 
 

diff --git a/Project3.dproj b/newbbs.dproj
similarity index 97%
rename from Project3.dproj
rename to newbbs.dproj
index 521fa38..105f856 100644 (file)
--- a/Project3.dproj
+++ b/newbbs.dproj
@@ -3,7 +3,7 @@
         <ProjectGuid>{48FDE727-B792-4350-8984-F966A4A0D89F}</ProjectGuid>
         <ProjectVersion>16.1</ProjectVersion>
         <FrameworkType>VCL</FrameworkType>
-        <MainSource>Project3.dpr</MainSource>
+        <MainSource>newbbs.dpr</MainSource>
         <Base>True</Base>
         <Config Condition="'$(Config)'==''">Debug</Config>
         <Platform Condition="'$(Platform)'==''">Win32</Platform>
@@ -40,7 +40,7 @@
         <Base>true</Base>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Base)'!=''">
-        <SanitizedProjectName>Project3</SanitizedProjectName>
+        <SanitizedProjectName>newbbs</SanitizedProjectName>
         <DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace)</DCC_Namespace>
         <Icon_MainIcon>$(BDS)\bin\delphi_PROJECTICON.ico</Icon_MainIcon>
         <Icns_MainIcns>$(BDS)\bin\delphi_PROJECTICNS.icns</Icns_MainIcns>
@@ -125,25 +125,26 @@
         <BorlandProject>
             <Delphi.Personality>
                 <Source>
-                    <Source Name="MainSource">Project3.dpr</Source>
+                    <Source Name="MainSource">newbbs.dpr</Source>
                 </Source>
             </Delphi.Personality>
             <Deployment>
-                <DeployFile LocalName="Win32\Release\Project3.exe" Configuration="Release" Class="ProjectOutput">
+                <DeployFile LocalName="sprites.png" Configuration="Debug" Class="ProjectFile">
                     <Platform Name="Win32">
-                        <RemoteName>Project3.exe</RemoteName>
+                        <RemoteDir>.\</RemoteDir>
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>
-                <DeployFile LocalName="sprites.png" Configuration="Release" Class="ProjectFile">
+                <DeployFile LocalName="Win32\Release\newbbs.exe" Configuration="Release" Class="ProjectOutput">
                     <Platform Name="Win32">
-                        <RemoteDir>.\</RemoteDir>
+                        <RemoteName>newbbs.exe</RemoteName>
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>
-                <DeployFile LocalName="Win32\Debug\Project3.exe" Configuration="Debug" Class="ProjectOutput">
+                <DeployFile LocalName="sprites.png" Configuration="Release" Class="ProjectFile"/>
+                <DeployFile LocalName="Win32\Debug\newbbs.exe" Configuration="Debug" Class="ProjectOutput">
                     <Platform Name="Win32">
-                        <RemoteName>Project3.exe</RemoteName>
+                        <RemoteName>newbbs.exe</RemoteName>
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>

diff --git a/Project4.dpr b/yourBBS.dpr
similarity index 95%
rename from Project4.dpr
rename to yourBBS.dpr
index 045cf2b..5782cfd 100644 (file)
--- a/Project4.dpr
+++ b/yourBBS.dpr
@@ -1,4 +1,4 @@
-program Project4;
+program yourBBS;
 
 {$APPTYPE CONSOLE}
 

diff --git a/Project4.dproj b/yourBBS.dproj
similarity index 90%
rename from Project4.dproj
rename to yourBBS.dproj
index 9834d86..f9370b7 100644 (file)
--- a/Project4.dproj
+++ b/yourBBS.dproj
@@ -3,7 +3,7 @@
         <ProjectGuid>{BA84953A-0D8C-4FD1-B739-3AE1EE5F9E4A}</ProjectGuid>
         <ProjectVersion>16.1</ProjectVersion>
         <FrameworkType>VCL</FrameworkType>
-        <MainSource>Project4.dpr</MainSource>
+        <MainSource>yourBBS.dpr</MainSource>
         <Base>True</Base>
         <Config Condition="'$(Config)'==''">Release</Config>
         <Platform Condition="'$(Platform)'==''">Win32</Platform>
@@ -39,11 +39,17 @@
         <CfgParent>Base</CfgParent>
         <Base>true</Base>
     </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
+        <Cfg_2_Win32>true</Cfg_2_Win32>
+        <CfgParent>Cfg_2</CfgParent>
+        <Cfg_2>true</Cfg_2>
+        <Base>true</Base>
+    </PropertyGroup>
     <PropertyGroup Condition="'$(Base)'!=''">
         <Icns_MainIcns>$(BDS)\bin\delphi_PROJECTICNS.icns</Icns_MainIcns>
         <Icon_MainIcon>$(BDS)\bin\delphi_PROJECTICON.ico</Icon_MainIcon>
         <DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace)</DCC_Namespace>
-        <SanitizedProjectName>Project4</SanitizedProjectName>
+        <SanitizedProjectName>yourBBS</SanitizedProjectName>
         <DCC_DcuOutput>.\$(Platform)\$(Config)</DCC_DcuOutput>
         <DCC_ExeOutput>.\$(Platform)\$(Config)</DCC_ExeOutput>
         <DCC_E>false</DCC_E>
@@ -85,6 +91,11 @@
         <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
         <DCC_DebugInformation>0</DCC_DebugInformation>
     </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
+        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
+        <OutputExt>cgi</OutputExt>
+        <VerInfo_Locale>1033</VerInfo_Locale>
+    </PropertyGroup>
     <ItemGroup>
         <DelphiCompile Include="$(MainSource)">
             <MainSource>MainSource</MainSource>
@@ -121,25 +132,38 @@
         <BorlandProject>
             <Delphi.Personality>
                 <Source>
-                    <Source Name="MainSource">Project4.dpr</Source>
+                    <Source Name="MainSource">yourBBS.dpr</Source>
                 </Source>
+                <Excluded_Packages>
+                    <Excluded_Packages Name="$(BDSBIN)\dcloffice2k210.bpl">Microsoft Office 2000 オートメーション サーバー ラッパー コンポーネントのサンプル</Excluded_Packages>
+                    <Excluded_Packages Name="$(BDSBIN)\dclofficexp210.bpl">Microsoft Office XP オートメーション サーバー ラッパー コンポーネントのサンプル</Excluded_Packages>
+                    <Excluded_Packages Name="$(BDSBIN)\bcboffice2k210.bpl">Embarcadero C++Builder Office 2000 サーバー パッケージ</Excluded_Packages>
+                    <Excluded_Packages Name="$(BDSBIN)\bcbofficexp210.bpl">Embarcadero C++Builder Office XP サーバー パッケージ</Excluded_Packages>
+                </Excluded_Packages>
             </Delphi.Personality>
             <Deployment>
-                <DeployFile LocalName="Win32\Debug\Project4.exe" Configuration="Debug" Class="ProjectOutput">
+                <DeployFile LocalName="sprites.png" Configuration="Release" Class="ProjectFile"/>
+                <DeployFile LocalName="Win32\Release\yourBBS.exe" Configuration="Release" Class="ProjectOutput">
                     <Platform Name="Win32">
-                        <RemoteName>Project4.exe</RemoteName>
+                        <RemoteName>yourBBS.exe</RemoteName>
                         <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">
-                        <RemoteDir>.\</RemoteDir>
+                        <RemoteName>yourBBS.exe</RemoteName>
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>
-                <DeployFile LocalName="Win64\Release\Project4.exe" Configuration="Release" Class="ProjectOutput">
-                    <Platform Name="Win64">
-                        <RemoteName>Project4.exe</RemoteName>
+                <DeployFile LocalName="Win32\Debug\yourBBS.exe" Configuration="Debug" 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>
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>

diff --git a/yourBBS.res b/yourBBS.res
new file mode 100644 (file)
index 0000000..0f3facb
Binary files /dev/null and b/yourBBS.res differ

diff --git a/yourBBSResource.rc b/yourBBSResource.rc
new file mode 100644 (file)
index 0000000..a5f7fb6
--- /dev/null
+++ b/yourBBSResource.rc
@@ -0,0 +1 @@
+PngImage_1 RCDATA "sprites.png"