<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>
<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>
object DataModule1: TDataModule1
OldCreateOrder = False
- Height = 279
+ Height = 226
Width = 302
object FDTable1: TFDTable
IndexFieldNames = 'DBNUM'
Left = 48
Top = 320
end
- object FDQuery1: TFDQuery
- Left = 200
- Top = 176
- end
end
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;
end;
function TWebModule1.isInfo: Boolean;
-var
- s: string;
begin
result := DataModule1.FDTable1.FieldByName('dbnum')
.AsInteger = DataModule1.FDTable3.FieldByName('info').AsInteger;
procedure TWebModule1.setLastArticle;
begin
- {
- if isInfo(false) = true then
- DataModule1.FDTable2.First
- else
- }
DataModule1.FDTable2.Last;
end;
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
-program Project3;
+program newbbs;
{$APPTYPE GUI}
<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>
<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>
<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>
-program Project4;
+program yourBBS;
{$APPTYPE CONSOLE}
<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>
<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>
<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>
<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>
--- /dev/null
+PngImage_1 RCDATA "sprites.png"