レンタルサーバーに設置するならこちらですね。

diff --git a/Project4.dpr b/Project4.dpr
new file mode 100644 (file)
index 0000000..1a561ea
--- /dev/null
+++ b/Project4.dpr
@@ -0,0 +1,18 @@
+program Project4;
+
+{$APPTYPE CONSOLE}
+
+uses
+  Web.WebBroker,
+  CGIApp,
+  Unit1 in 'Unit1.pas' {DataModule1: TDataModule},
+  WebModuleUnit1 in 'WebModuleUnit1.pas' {TWebModule1: TWebModule};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.WebModuleClass := WebModuleClass;
+  Application.CreateForm(TDataModule1, DataModule1);
+  Application.Run;
+end.

diff --git a/mod_webbroker.dproj b/Project4.dproj
similarity index 92%
rename from mod_webbroker.dproj
rename to Project4.dproj
index a94f17f..1d675b2 100644 (file)
--- a/mod_webbroker.dproj
+++ b/Project4.dproj
@@ -1,14 +1,14 @@
 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
     <PropertyGroup>
-        <ProjectGuid>{5E30320E-7205-40F5-893E-8E0C7773DBEF}</ProjectGuid>
+        <ProjectGuid>{BA84953A-0D8C-4FD1-B739-3AE1EE5F9E4A}</ProjectGuid>
         <ProjectVersion>16.1</ProjectVersion>
         <FrameworkType>VCL</FrameworkType>
-        <MainSource>mod_webbroker.dpr</MainSource>
+        <MainSource>Project4.dpr</MainSource>
         <Base>True</Base>
         <Config Condition="'$(Config)'==''">Release</Config>
         <Platform Condition="'$(Platform)'==''">Win64</Platform>
         <TargetedPlatforms>3</TargetedPlatforms>
-        <AppType>Library</AppType>
+        <AppType>Application</AppType>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
         <Base>true</Base>
@@ -39,18 +39,11 @@
         <CfgParent>Base</CfgParent>
         <Base>true</Base>
     </PropertyGroup>
-    <PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win64)'!=''">
-        <Cfg_2_Win64>true</Cfg_2_Win64>
-        <CfgParent>Cfg_2</CfgParent>
-        <Cfg_2>true</Cfg_2>
-        <Base>true</Base>
-    </PropertyGroup>
     <PropertyGroup Condition="'$(Base)'!=''">
-        <DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace)</DCC_Namespace>
         <Icns_MainIcns>$(BDS)\bin\delphi_PROJECTICNS.icns</Icns_MainIcns>
-        <GenDll>true</GenDll>
         <Icon_MainIcon>$(BDS)\bin\delphi_PROJECTICON.ico</Icon_MainIcon>
-        <SanitizedProjectName>mod_webbroker</SanitizedProjectName>
+        <DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace)</DCC_Namespace>
+        <SanitizedProjectName>Project4</SanitizedProjectName>
         <DCC_DcuOutput>.\$(Platform)\$(Config)</DCC_DcuOutput>
         <DCC_ExeOutput>.\$(Platform)\$(Config)</DCC_ExeOutput>
         <DCC_E>false</DCC_E>
@@ -60,18 +53,20 @@
         <DCC_K>false</DCC_K>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Base_Win32)'!=''">
-        <VerInfo_Locale>1033</VerInfo_Locale>
-        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
         <DCC_UsePackage>IndyIPClient;FireDACASADriver;FireDACSqliteDriver;bindcompfmx;FireDACDSDriver;DBXSqliteDriver;FireDACPgDriver;FireDACODBCDriver;RESTBackendComponents;emsclientfiredac;fmx;rtl;dbrtl;DbxClientDriver;IndySystem;FireDACCommon;bindcomp;inetdb;tethering;vclib;DBXInterBaseDriver;DataSnapClient;DataSnapServer;DataSnapCommon;DBXOdbcDriver;vclFireDAC;DataSnapProviderClient;xmlrtl;DataSnapNativeClient;DBXSybaseASEDriver;DbxCommonDriver;svnui;vclimg;ibxpress;IndyProtocols;dbxcds;DBXMySQLDriver;DatasnapConnectorsFreePascal;FireDACCommonDriver;MetropolisUILiveTile;bindengine;vclactnband;vcldb;bindcompdbx;soaprtl;vcldsnap;bindcompvcl;vclie;fmxFireDAC;FireDACADSDriver;vcltouch;DBXDb2Driver;emsclient;CustomIPTransport;DBXOracleDriver;vclribbon;VCLRESTComponents;FireDACMSSQLDriver;FireDAC;VclSmp;dsnap;DBXInformixDriver;vcl;DataSnapConnectors;fmxase;DataSnapServerMidas;DBXMSSQLDriver;IndyIPCommon;IndyCore;dsnapcon;FireDACIBDriver;DBXFirebirdDriver;inet;IndyIPServer;DataSnapFireDAC;fmxobj;CloudService;FireDACDBXDriver;FireDACMySQLDriver;soapmidas;vclx;soapserver;inetdbxpress;CodeSiteExpressPkg;svn;DBXSybaseASADriver;dsnapxml;FireDACOracleDriver;FireDACInfxDriver;FireDACDb2Driver;RESTComponents;fmxdae;FireDACMSAccDriver;dbexpress;DataSnapIndy10ServerTransport;adortl;$(DCC_UsePackage)</DCC_UsePackage>
-        <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
+        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
+        <VerInfo_Locale>1033</VerInfo_Locale>
+        <Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
         <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
+        <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Base_Win64)'!=''">
-        <VerInfo_Locale>1033</VerInfo_Locale>
-        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
         <DCC_UsePackage>IndyIPClient;FireDACASADriver;FireDACSqliteDriver;bindcompfmx;FireDACDSDriver;DBXSqliteDriver;FireDACPgDriver;FireDACODBCDriver;RESTBackendComponents;emsclientfiredac;fmx;rtl;dbrtl;DbxClientDriver;IndySystem;FireDACCommon;bindcomp;inetdb;tethering;vclib;DBXInterBaseDriver;DataSnapClient;DataSnapServer;DataSnapCommon;DBXOdbcDriver;vclFireDAC;DataSnapProviderClient;xmlrtl;DataSnapNativeClient;DBXSybaseASEDriver;DbxCommonDriver;vclimg;ibxpress;IndyProtocols;dbxcds;DBXMySQLDriver;DatasnapConnectorsFreePascal;FireDACCommonDriver;MetropolisUILiveTile;bindengine;vclactnband;vcldb;bindcompdbx;soaprtl;vcldsnap;bindcompvcl;vclie;fmxFireDAC;FireDACADSDriver;vcltouch;DBXDb2Driver;emsclient;CustomIPTransport;DBXOracleDriver;vclribbon;VCLRESTComponents;FireDACMSSQLDriver;FireDAC;VclSmp;dsnap;DBXInformixDriver;vcl;DataSnapConnectors;fmxase;DataSnapServerMidas;DBXMSSQLDriver;IndyIPCommon;IndyCore;dsnapcon;FireDACIBDriver;DBXFirebirdDriver;inet;IndyIPServer;DataSnapFireDAC;fmxobj;CloudService;FireDACDBXDriver;FireDACMySQLDriver;soapmidas;vclx;soapserver;inetdbxpress;DBXSybaseASADriver;dsnapxml;FireDACOracleDriver;FireDACInfxDriver;FireDACDb2Driver;RESTComponents;fmxdae;FireDACMSAccDriver;dbexpress;DataSnapIndy10ServerTransport;adortl;$(DCC_UsePackage)</DCC_UsePackage>
-        <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
+        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
+        <VerInfo_Locale>1033</VerInfo_Locale>
+        <Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
         <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace)</DCC_Namespace>
+        <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Cfg_1)'!=''">
         <DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
@@ -82,10 +77,6 @@
         <DCC_RemoteDebug>true</DCC_RemoteDebug>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
-        <VerInfo_Locale>1033</VerInfo_Locale>
-        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
-        <OutputExt>cgi</OutputExt>
-        <Manifest_File>None</Manifest_File>
         <DCC_RemoteDebug>false</DCC_RemoteDebug>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Cfg_2)'!=''">
@@ -94,12 +85,6 @@
         <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
         <DCC_DebugInformation>0</DCC_DebugInformation>
     </PropertyGroup>
-    <PropertyGroup Condition="'$(Cfg_2_Win64)'!=''">
-        <VerInfo_Locale>1033</VerInfo_Locale>
-        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
-        <Manifest_File>None</Manifest_File>
-        <OutputExt>cgi</OutputExt>
-    </PropertyGroup>
     <ItemGroup>
         <DelphiCompile Include="$(MainSource)">
             <MainSource>MainSource</MainSource>
@@ -128,21 +113,17 @@
     </ItemGroup>
     <ProjectExtensions>
         <Borland.Personality>Delphi.Personality.12</Borland.Personality>
-        <Borland.ProjectType>Library</Borland.ProjectType>
+        <Borland.ProjectType>Console</Borland.ProjectType>
         <BorlandProject>
             <Delphi.Personality>
                 <Source>
-                    <Source Name="MainSource">mod_webbroker.dpr</Source>
+                    <Source Name="MainSource">Project4.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>
             </Delphi.Personality>
             <Deployment>
-                <DeployFile LocalName="Win32\Debug\mod_webbroker.dll" Configuration="Debug" Class="ProjectOutput">
+                <DeployFile LocalName="Win32\Debug\Project4.exe" Configuration="Debug" Class="ProjectOutput">
                     <Platform Name="Win32">
-                        <RemoteName>mod_webbroker.dll</RemoteName>
+                        <RemoteName>Project4.exe</RemoteName>
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>

diff --git a/mod_webbroker.res b/Project4.res
similarity index 98%
rename from mod_webbroker.res
rename to Project4.res
index c504357..0f3facb 100644 (file)
Binary files a/mod_webbroker.res and b/Project4.res differ

diff --git a/ProjectGroup1.groupproj b/ProjectGroup1.groupproj
index 75759ba..d823d01 100644 (file)
--- a/ProjectGroup1.groupproj
+++ b/ProjectGroup1.groupproj
@@ -6,7 +6,7 @@
         <Projects Include="Project3.dproj">
             <Dependencies/>
         </Projects>
-        <Projects Include="mod_webbroker.dproj">
+        <Projects Include="Project4.dproj">
             <Dependencies/>
         </Projects>
     </ItemGroup>
@@ -26,23 +26,23 @@
     <Target Name="Project3:Make">
         <MSBuild Projects="Project3.dproj" Targets="Make"/>
     </Target>
-    <Target Name="mod_webbroker">
-        <MSBuild Projects="mod_webbroker.dproj"/>
+    <Target Name="Project4">
+        <MSBuild Projects="Project4.dproj"/>
     </Target>
-    <Target Name="mod_webbroker:Clean">
-        <MSBuild Projects="mod_webbroker.dproj" Targets="Clean"/>
+    <Target Name="Project4:Clean">
+        <MSBuild Projects="Project4.dproj" Targets="Clean"/>
     </Target>
-    <Target Name="mod_webbroker:Make">
-        <MSBuild Projects="mod_webbroker.dproj" Targets="Make"/>
+    <Target Name="Project4:Make">
+        <MSBuild Projects="Project4.dproj" Targets="Make"/>
     </Target>
     <Target Name="Build">
-        <CallTarget Targets="Project3;mod_webbroker"/>
+        <CallTarget Targets="Project3;Project4"/>
     </Target>
     <Target Name="Clean">
-        <CallTarget Targets="Project3:Clean;mod_webbroker:Clean"/>
+        <CallTarget Targets="Project3:Clean;Project4:Clean"/>
     </Target>
     <Target Name="Make">
-        <CallTarget Targets="Project3:Make;mod_webbroker:Make"/>
+        <CallTarget Targets="Project3:Make;Project4:Make"/>
     </Target>
     <Import Project="$(BDS)\Bin\CodeGear.Group.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Group.Targets')"/>
 </Project>

diff --git a/WebModuleUnit1.pas b/WebModuleUnit1.pas
index 96e867a..1438fb8 100644 (file)
--- a/WebModuleUnit1.pas
+++ b/WebModuleUnit1.pas
@@ -268,7 +268,7 @@ begin
   begin
     i := DataModule1.FDTable3.FieldByName('count').AsInteger;
     if 10 * i < DataModule1.FDTable2.RecordCount then
-      ReplaceText := '\82±\82ê\88È\8fã\93\8a\8de\82Å\82«\82Ü\82¹\82ñ.'
+      ReplaceText := '<h1>\82±\82ê\88È\8fã\93\8a\8de\82Å\82«\82Ü\82¹\82ñ.</h1>'
     else
       ReplaceText := header.Content;
   end

diff --git a/mod_webbroker.dpr b/mod_webbroker.dpr
deleted file mode 100644 (file)
index 70e12bd..0000000
--- a/mod_webbroker.dpr
+++ /dev/null
@@ -1,45 +0,0 @@
-library mod_webbroker;
-
-uses
-  Winapi.ActiveX,
-  System.Win.ComObj,
-  Web.WebBroker,
-  Web.ApacheApp,
-  Web.HTTPD24Impl,
-  Unit1 in 'Unit1.pas' {DataModule1: TDataModule},
-  WebModuleUnit1 in 'WebModuleUnit1.pas' {TWebModule1: TWebModule};
-
-{$R *.res}
-
-// httpd.conf \83G\83\93\83g\83\8a:
-//
-(*
- LoadModule webbroker_module modules/mod_webbroker.dll
-
- <Location /xyz>
-    SetHandler mod_webbroker-handler
- </Location>
-*)
-//
-// \82±\82ê\82ç\82Ì\83G\83\93\83g\83\8a\82Å\82Í\81A\82±\82Ì\83v\83\8d\83W\83F\83N\83g\82Ì\8fo\97Í\83f\83B\83\8c\83N\83g\83\8a\82ª apache/modules \83f\83B\83\8c\83N\83g\83\8a\82Å\82 \82é\82Æ\89¼\92è\82µ\82Ä\82¢\82Ü\82·\81B
-//
-// \83v\83\8d\83W\83F\83N\83g\82ª\8e\9f\82Ì\82æ\82¤\82É\95Ï\8dX\82³\82ê\82½\8fê\8d\87\81Ahttpd.conf \83G\83\93\83g\83\8a\82Í\88Ù\82È\82é\82Í\82¸\82Å\82·\81B
-//   1. TApacheModuleData \95Ï\90\94\96¼\82ª\95Ï\8dX\82³\82ê\82é
-//   2. \83v\83\8d\83W\83F\83N\83g\96¼\82ª\95Ï\8dX\82³\82ê\82é
-//   3. \8fo\97Í\83f\83B\83\8c\83N\83g\83\8a\82ª apache/modules \83f\83B\83\8c\83N\83g\83\8a\82Å\82È\82¢
-//
-
-// Apache \82©\82ç\82±\82Ì\83\82\83W\83\85\81[\83\8b\82É\83A\83N\83Z\83X\82Å\82«\82é\82æ\82¤\82É\81A\83G\83N\83X\83|\81[\83g\82³\82ê\82½\95Ï\90\94\82ð\90é\8c¾\82µ\82Ü\82·\81B
-var
-  GModuleData: TApacheModuleData;
-exports
-  GModuleData name 'webbroker_module';
-
-begin
-  CoInitFlags := COINIT_MULTITHREADED;
-  Web.ApacheApp.InitApplication(@GModuleData);
-  Application.Initialize;
-  Application.WebModuleClass := WebModuleClass;
-  Application.CreateForm(TDataModule1, DataModule1);
-  Application.Run;
-end.