mirror of
https://github.com/danieleteti/delphimvcframework.git
synced 2024-11-15 07:45:54 +01:00
ADD ISAPI SAMPLE
Small refactoring
This commit is contained in:
daniele.teti
parent
49bbc1e9f9
commit
0f347fc567
47
samples/ISAPI/BO/BusinessObjectsU.pas
Normal file
47
samples/ISAPI/BO/BusinessObjectsU.pas
Normal file
@ -0,0 +1,47 @@
|
||||
unit BusinessObjectsU;
|
||||
|
||||
interface
|
||||
|
||||
type
|
||||
TPerson = class
|
||||
private
|
||||
FLastName: String;
|
||||
FDOB: TDate;
|
||||
FFirstName: String;
|
||||
FMarried: boolean;
|
||||
procedure SetDOB(const Value: TDate);
|
||||
procedure SetFirstName(const Value: String);
|
||||
procedure SetLastName(const Value: String);
|
||||
procedure SetMarried(const Value: boolean);
|
||||
public
|
||||
property FirstName: String read FFirstName write SetFirstName;
|
||||
property LastName: String read FLastName write SetLastName;
|
||||
property DOB: TDate read FDOB write SetDOB;
|
||||
property Married: boolean read FMarried write SetMarried;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{ TPerson }
|
||||
|
||||
procedure TPerson.SetDOB(const Value: TDate);
|
||||
begin
|
||||
FDOB := Value;
|
||||
end;
|
||||
|
||||
procedure TPerson.SetFirstName(const Value: String);
|
||||
begin
|
||||
FFirstName := Value;
|
||||
end;
|
||||
|
||||
procedure TPerson.SetLastName(const Value: String);
|
||||
begin
|
||||
FLastName := Value;
|
||||
end;
|
||||
|
||||
procedure TPerson.SetMarried(const Value: boolean);
|
||||
begin
|
||||
FMarried := Value;
|
||||
end;
|
||||
|
||||
end.
|
||||
77
samples/ISAPI/Controllers/RoutingSampleControllerU.pas
Normal file
77
samples/ISAPI/Controllers/RoutingSampleControllerU.pas
Normal file
@ -0,0 +1,77 @@
|
||||
unit RoutingSampleControllerU;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
MVCFramework, MVCFramework.Commons, ObjectsMappers;
|
||||
|
||||
type
|
||||
|
||||
[MVCPath('/')]
|
||||
TRoutingSampleController = class(TMVCController)
|
||||
public
|
||||
[MVCPath('/')]
|
||||
procedure Index(CTX: TWebContext);
|
||||
|
||||
[MVCHTTPMethod([httpGet])]
|
||||
[MVCPath('/search/($searchtext)/($page)')]
|
||||
[MVCProduces('text/plain', 'UTF-8')]
|
||||
[MVCConsumes('text/html')]
|
||||
procedure SearchCustomers(CTX: TWebContext);
|
||||
|
||||
[MVCHTTPMethod([httpGet])]
|
||||
[MVCPath('/people/($id)')]
|
||||
[MVCProduces('application/json')]
|
||||
procedure GetPerson(CTX: TWebContext);
|
||||
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
System.SysUtils, BusinessObjectsU, Data.DBXJSON;
|
||||
|
||||
{ TRoutingSampleController }
|
||||
|
||||
procedure TRoutingSampleController.GetPerson(CTX: TWebContext);
|
||||
var
|
||||
P: TPerson;
|
||||
IDPerson: Integer;
|
||||
begin
|
||||
IDPerson := CTX.Request.ParamsAsInteger['id'];
|
||||
{
|
||||
Use IDPerson to load the person from a database...
|
||||
In this example, we're creating a fake person
|
||||
}
|
||||
P := TPerson.Create;
|
||||
P.FirstName := 'Daniele';
|
||||
P.LastName := 'Teti';
|
||||
P.DOB := EncodeDate(1975, 5, 2);
|
||||
P.Married := True;
|
||||
Render(P);
|
||||
end;
|
||||
|
||||
procedure TRoutingSampleController.Index(CTX: TWebContext);
|
||||
begin
|
||||
Render('This is the root path');
|
||||
end;
|
||||
|
||||
procedure TRoutingSampleController.SearchCustomers(CTX: TWebContext);
|
||||
var
|
||||
search: string;
|
||||
P: Integer;
|
||||
orderby: string;
|
||||
begin
|
||||
search := CTX.Request.Params['searchtext'];
|
||||
P := CTX.Request.ParamsAsInteger['page'];
|
||||
orderby := '';
|
||||
if CTX.Request.QueryStringParamExists('order') then
|
||||
orderby := CTX.Request.QueryStringParam('order');
|
||||
Render(Format(
|
||||
'SEARCHTEXT: "%s"' + sLineBreak +
|
||||
'PAGE: %d' + sLineBreak +
|
||||
'ORDERBYFIELD: "%s"',
|
||||
[search, P, orderby]));
|
||||
end;
|
||||
|
||||
end.
|
||||
25
samples/ISAPI/ISAPI/isapiapp.dpr
Normal file
25
samples/ISAPI/ISAPI/isapiapp.dpr
Normal file
@ -0,0 +1,25 @@
|
||||
library isapiapp;
|
||||
|
||||
uses
|
||||
Winapi.ActiveX,
|
||||
System.Win.ComObj,
|
||||
Web.WebBroker,
|
||||
Web.Win.ISAPIApp,
|
||||
Web.Win.ISAPIThreadPool,
|
||||
WebModuleU in '..\WebModules\WebModuleU.pas' {WebModule1: TWebModule},
|
||||
BusinessObjectsU in '..\BO\BusinessObjectsU.pas',
|
||||
RoutingSampleControllerU in '..\Controllers\RoutingSampleControllerU.pas';
|
||||
|
||||
{$R *.res}
|
||||
|
||||
exports
|
||||
GetExtensionVersion,
|
||||
HttpExtensionProc,
|
||||
TerminateExtension;
|
||||
|
||||
begin
|
||||
CoInitFlags := COINIT_MULTITHREADED;
|
||||
Application.Initialize;
|
||||
Application.WebModuleClass := WebModuleClass;
|
||||
Application.Run;
|
||||
end.
|
||||
184
samples/ISAPI/ISAPI/isapiapp.dproj
Normal file
184
samples/ISAPI/ISAPI/isapiapp.dproj
Normal file
@ -0,0 +1,184 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{848C41EB-8EF5-472E-8C10-A70151A657B3}</ProjectGuid>
|
||||
<ProjectVersion>15.3</ProjectVersion>
|
||||
<FrameworkType>VCL</FrameworkType>
|
||||
<MainSource>isapiapp.dpr</MainSource>
|
||||
<Base>True</Base>
|
||||
<Config Condition="'$(Config)'==''">Debug</Config>
|
||||
<Platform Condition="'$(Platform)'==''">Win32</Platform>
|
||||
<TargetedPlatforms>1</TargetedPlatforms>
|
||||
<AppType>Library</AppType>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
|
||||
<Base_Win32>true</Base_Win32>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
|
||||
<Base_Win64>true</Base_Win64>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_1)'!=''">
|
||||
<Cfg_1>true</Cfg_1>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win32)'!=''">
|
||||
<Cfg_1_Win32>true</Cfg_1_Win32>
|
||||
<CfgParent>Cfg_1</CfgParent>
|
||||
<Cfg_1>true</Cfg_1>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_2)'!=''">
|
||||
<Cfg_2>true</Cfg_2>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<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>
|
||||
<DCC_DcuOutput>.\$(Platform)\$(Config)</DCC_DcuOutput>
|
||||
<DCC_ExeOutput>.\$(Platform)\$(Config)</DCC_ExeOutput>
|
||||
<DCC_E>false</DCC_E>
|
||||
<DCC_N>false</DCC_N>
|
||||
<DCC_S>false</DCC_S>
|
||||
<DCC_F>false</DCC_F>
|
||||
<DCC_K>false</DCC_K>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_Win32)'!=''">
|
||||
<DCC_ExeOutput>..\bin</DCC_ExeOutput>
|
||||
<Manifest_File>None</Manifest_File>
|
||||
<DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
|
||||
<VerInfo_Locale>1033</VerInfo_Locale>
|
||||
<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>
|
||||
<DCC_UsePackage>FireDACSqliteDriver;TsiLang_XE5r;DBXSqliteDriver;FireDACPgDriver;fmx;TreeViewPresenter;IndySystem;i18n;TeeDB;frx19;vclib;inetdbbde;DBXInterBaseDriver;DataSnapClient;DataSnapCommon;DataSnapServer;DataSnapProviderClient;DPFAndroidPackagesXE5;DBXSybaseASEDriver;DbxCommonDriver;vclimg;dbxcds;DatasnapConnectorsFreePascal;MetropolisUILiveTile;vcldb;vcldsnap;fmxFireDAC;DBXDb2Driver;DBXOracleDriver;CustomIPTransport;vclribbon;dsnap;IndyIPServer;i18nDB;fmxase;vcl;IndyCore;IndyIPCommon;CloudService;DBXMSSQLDriver;FmxTeeUI;FireDACIBDriver;CodeSiteExpressPkg;DataSnapFireDAC;FireDACDBXDriver;inetdbxpress;FireDACDb2Driver;adortl;CustomAdaptersMDPackage;DataBindingsVCL;FireDACASADriver;bindcompfmx;vcldbx;FireDACODBCDriver;rtl;dbrtl;DbxClientDriver;FireDACCommon;bindcomp;inetdb;Tee;DataBindings;DBXOdbcDriver;vclFireDAC;CPortLibDXE;xmlrtl;svnui;ibxpress;IndyProtocols;DBXMySQLDriver;FireDACCommonDriver;bindengine;vclactnband;soaprtl;bindcompdbx;FMXTee;TeeUI;bindcompvcl;vclie;FireDACADSDriver;vcltouch;fmxinfopower;VclSmp;FireDACMSSQLDriver;FireDAC;VCLRESTComponents;Intraweb;DBXInformixDriver;DataSnapConnectors;FireDACDataSnapDriver;dsnapcon;DBXFirebirdDriver;inet;fmxobj;FireDACMySQLDriver;vclx;svn;DBXSybaseASADriver;FireDACOracleDriver;fmxdae;RESTComponents;bdertl;VirtualTreesR;FireDACMSAccDriver;DataSnapIndy10ServerTransport;dbexpress;IndyIPClient;$(DCC_UsePackage)</DCC_UsePackage>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_Win64)'!=''">
|
||||
<DCC_UsePackage>FireDACSqliteDriver;DBXSqliteDriver;FireDACPgDriver;fmx;TreeViewPresenter;IndySystem;TeeDB;vclib;DBXInterBaseDriver;DataSnapClient;DataSnapCommon;DataSnapServer;DataSnapProviderClient;DBXSybaseASEDriver;DbxCommonDriver;vclimg;dbxcds;DatasnapConnectorsFreePascal;MetropolisUILiveTile;vcldb;vcldsnap;fmxFireDAC;DBXDb2Driver;DBXOracleDriver;CustomIPTransport;vclribbon;dsnap;IndyIPServer;fmxase;vcl;IndyCore;IndyIPCommon;CloudService;DBXMSSQLDriver;FmxTeeUI;FireDACIBDriver;DataSnapFireDAC;FireDACDBXDriver;inetdbxpress;FireDACDb2Driver;adortl;DataBindingsVCL;FireDACASADriver;bindcompfmx;FireDACODBCDriver;rtl;dbrtl;DbxClientDriver;FireDACCommon;bindcomp;inetdb;Tee;DataBindings;DBXOdbcDriver;vclFireDAC;xmlrtl;ibxpress;IndyProtocols;DBXMySQLDriver;FireDACCommonDriver;bindengine;vclactnband;soaprtl;bindcompdbx;FMXTee;TeeUI;bindcompvcl;vclie;FireDACADSDriver;vcltouch;fmxinfopower;VclSmp;FireDACMSSQLDriver;FireDAC;VCLRESTComponents;Intraweb;DBXInformixDriver;DataSnapConnectors;FireDACDataSnapDriver;dsnapcon;DBXFirebirdDriver;inet;fmxobj;FireDACMySQLDriver;vclx;DBXSybaseASADriver;FireDACOracleDriver;fmxdae;RESTComponents;VirtualTreesR;FireDACMSAccDriver;DataSnapIndy10ServerTransport;dbexpress;IndyIPClient;$(DCC_UsePackage)</DCC_UsePackage>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_1)'!=''">
|
||||
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
|
||||
<DCC_DebugDCUs>true</DCC_DebugDCUs>
|
||||
<DCC_Optimize>false</DCC_Optimize>
|
||||
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
|
||||
<DCC_DebugInfoInExe>true</DCC_DebugInfoInExe>
|
||||
<DCC_RemoteDebug>true</DCC_RemoteDebug>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
|
||||
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
|
||||
<Manifest_File>None</Manifest_File>
|
||||
<VerInfo_Locale>1033</VerInfo_Locale>
|
||||
<DCC_RemoteDebug>false</DCC_RemoteDebug>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_2)'!=''">
|
||||
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
|
||||
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_DebugInformation>0</DCC_DebugInformation>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="$(MainSource)">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\WebModules\WebModuleU.pas">
|
||||
<Form>WebModule1</Form>
|
||||
<FormType>dfm</FormType>
|
||||
<DesignClass>TWebModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\BO\BusinessObjectsU.pas"/>
|
||||
<DCCReference Include="..\Controllers\RoutingSampleControllerU.pas"/>
|
||||
<BuildConfiguration Include="Release">
|
||||
<Key>Cfg_2</Key>
|
||||
<CfgParent>Base</CfgParent>
|
||||
</BuildConfiguration>
|
||||
<BuildConfiguration Include="Base">
|
||||
<Key>Base</Key>
|
||||
</BuildConfiguration>
|
||||
<BuildConfiguration Include="Debug">
|
||||
<Key>Cfg_1</Key>
|
||||
<CfgParent>Base</CfgParent>
|
||||
</BuildConfiguration>
|
||||
</ItemGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
|
||||
<Borland.ProjectType/>
|
||||
<BorlandProject>
|
||||
<Delphi.Personality>
|
||||
<VersionInfo>
|
||||
<VersionInfo Name="IncludeVerInfo">False</VersionInfo>
|
||||
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
||||
<VersionInfo Name="MajorVer">1</VersionInfo>
|
||||
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||
<VersionInfo Name="Release">0</VersionInfo>
|
||||
<VersionInfo Name="Build">0</VersionInfo>
|
||||
<VersionInfo Name="Debug">False</VersionInfo>
|
||||
<VersionInfo Name="PreRelease">False</VersionInfo>
|
||||
<VersionInfo Name="Special">False</VersionInfo>
|
||||
<VersionInfo Name="Private">False</VersionInfo>
|
||||
<VersionInfo Name="DLL">False</VersionInfo>
|
||||
<VersionInfo Name="Locale">1040</VersionInfo>
|
||||
<VersionInfo Name="CodePage">1252</VersionInfo>
|
||||
</VersionInfo>
|
||||
<VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompanyName"/>
|
||||
<VersionInfoKeys Name="FileDescription"/>
|
||||
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="InternalName"/>
|
||||
<VersionInfoKeys Name="LegalCopyright"/>
|
||||
<VersionInfoKeys Name="LegalTrademarks"/>
|
||||
<VersionInfoKeys Name="OriginalFilename"/>
|
||||
<VersionInfoKeys Name="ProductName"/>
|
||||
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="Comments"/>
|
||||
<VersionInfoKeys Name="CFBundleName"/>
|
||||
<VersionInfoKeys Name="CFBundleDisplayName"/>
|
||||
<VersionInfoKeys Name="UIDeviceFamily"/>
|
||||
<VersionInfoKeys Name="CFBundleIdentifier"/>
|
||||
<VersionInfoKeys Name="CFBundleVersion"/>
|
||||
<VersionInfoKeys Name="CFBundlePackageType"/>
|
||||
<VersionInfoKeys Name="CFBundleSignature"/>
|
||||
<VersionInfoKeys Name="CFBundleAllowMixedLocalizations"/>
|
||||
<VersionInfoKeys Name="UISupportedInterfaceOrientations"/>
|
||||
<VersionInfoKeys Name="CFBundleExecutable"/>
|
||||
<VersionInfoKeys Name="CFBundleResourceSpecification"/>
|
||||
<VersionInfoKeys Name="LSRequiresIPhoneOS"/>
|
||||
<VersionInfoKeys Name="CFBundleInfoDictionaryVersion"/>
|
||||
<VersionInfoKeys Name="CFBundleDevelopmentRegion"/>
|
||||
<VersionInfoKeys Name="package"/>
|
||||
<VersionInfoKeys Name="label"/>
|
||||
<VersionInfoKeys Name="versionCode"/>
|
||||
<VersionInfoKeys Name="versionName"/>
|
||||
<VersionInfoKeys Name="persistent"/>
|
||||
<VersionInfoKeys Name="restoreAnyVersion"/>
|
||||
<VersionInfoKeys Name="installLocation"/>
|
||||
<VersionInfoKeys Name="largeHeap"/>
|
||||
<VersionInfoKeys Name="theme"/>
|
||||
</VersionInfoKeys>
|
||||
<Source>
|
||||
<Source Name="MainSource">isapiapp.dpr</Source>
|
||||
</Source>
|
||||
<Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDSBIN)\bcboffice2k190.bpl">Embarcadero C++Builder Office 2000 Servers Package</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDSBIN)\bcbofficexp190.bpl">Embarcadero C++Builder Office XP Servers Package</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDSBIN)\dcloffice2k190.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDSBIN)\dclofficexp190.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
</Excluded_Packages>
|
||||
</Delphi.Personality>
|
||||
<Deployment/>
|
||||
<Platforms>
|
||||
<Platform value="Win32">True</Platform>
|
||||
<Platform value="Win64">False</Platform>
|
||||
</Platforms>
|
||||
</BorlandProject>
|
||||
<ProjectFileVersion>12</ProjectFileVersion>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
|
||||
<Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
|
||||
</Project>
|
||||
48
samples/ISAPI/ProjectGroup.groupproj
Normal file
48
samples/ISAPI/ProjectGroup.groupproj
Normal file
@ -0,0 +1,48 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{C8F2ABF8-B8A8-4590-B169-A43EAFA5A161}</ProjectGuid>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<Projects Include="StandAlone\StandAloneServer.dproj">
|
||||
<Dependencies/>
|
||||
</Projects>
|
||||
<Projects Include="ISAPI\isapiapp.dproj">
|
||||
<Dependencies/>
|
||||
</Projects>
|
||||
</ItemGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Default.Personality.12</Borland.Personality>
|
||||
<Borland.ProjectType/>
|
||||
<BorlandProject>
|
||||
<Default.Personality/>
|
||||
</BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Target Name="StandAloneServer">
|
||||
<MSBuild Projects="StandAlone\StandAloneServer.dproj"/>
|
||||
</Target>
|
||||
<Target Name="StandAloneServer:Clean">
|
||||
<MSBuild Projects="StandAlone\StandAloneServer.dproj" Targets="Clean"/>
|
||||
</Target>
|
||||
<Target Name="StandAloneServer:Make">
|
||||
<MSBuild Projects="StandAlone\StandAloneServer.dproj" Targets="Make"/>
|
||||
</Target>
|
||||
<Target Name="isapiapp">
|
||||
<MSBuild Projects="ISAPI\isapiapp.dproj"/>
|
||||
</Target>
|
||||
<Target Name="isapiapp:Clean">
|
||||
<MSBuild Projects="ISAPI\isapiapp.dproj" Targets="Clean"/>
|
||||
</Target>
|
||||
<Target Name="isapiapp:Make">
|
||||
<MSBuild Projects="ISAPI\isapiapp.dproj" Targets="Make"/>
|
||||
</Target>
|
||||
<Target Name="Build">
|
||||
<CallTarget Targets="StandAloneServer;isapiapp"/>
|
||||
</Target>
|
||||
<Target Name="Clean">
|
||||
<CallTarget Targets="StandAloneServer:Clean;isapiapp:Clean"/>
|
||||
</Target>
|
||||
<Target Name="Make">
|
||||
<CallTarget Targets="StandAloneServer:Make;isapiapp:Make"/>
|
||||
</Target>
|
||||
<Import Project="$(BDS)\Bin\CodeGear.Group.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Group.Targets')"/>
|
||||
</Project>
|
||||
55
samples/ISAPI/StandAlone/StandAloneServer.dpr
Normal file
55
samples/ISAPI/StandAlone/StandAloneServer.dpr
Normal file
@ -0,0 +1,55 @@
|
||||
program StandAloneServer;
|
||||
{$APPTYPE CONSOLE}
|
||||
|
||||
|
||||
uses
|
||||
System.SysUtils,
|
||||
Winapi.Windows,
|
||||
IdHTTPWebBrokerBridge,
|
||||
Web.WebReq,
|
||||
Web.WebBroker,
|
||||
WebModuleU in '..\WebModules\WebModuleU.pas' {WebModule1: TWebModule} ,
|
||||
RoutingSampleControllerU in '..\Controllers\RoutingSampleControllerU.pas',
|
||||
BusinessObjectsU in '..\BO\BusinessObjectsU.pas';
|
||||
|
||||
{$R *.res}
|
||||
|
||||
|
||||
procedure RunServer(APort: Integer);
|
||||
var
|
||||
LInputRecord: TInputRecord;
|
||||
LEvent: DWord;
|
||||
LHandle: THandle;
|
||||
LServer: TIdHTTPWebBrokerBridge;
|
||||
begin
|
||||
Writeln(Format('Starting HTTP Server or port %d', [APort]));
|
||||
LServer := TIdHTTPWebBrokerBridge.Create(nil);
|
||||
try
|
||||
LServer.DefaultPort := APort;
|
||||
LServer.Active := True;
|
||||
Writeln('Press ESC to stop the server');
|
||||
LHandle := GetStdHandle(STD_INPUT_HANDLE);
|
||||
while True do
|
||||
begin
|
||||
Win32Check(ReadConsoleInput(LHandle, LInputRecord, 1, LEvent));
|
||||
if (LInputRecord.EventType = KEY_EVENT) and
|
||||
LInputRecord.Event.KeyEvent.bKeyDown and
|
||||
(LInputRecord.Event.KeyEvent.wVirtualKeyCode = VK_ESCAPE) then
|
||||
break;
|
||||
end;
|
||||
finally
|
||||
LServer.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
begin
|
||||
try
|
||||
if WebRequestHandler <> nil then
|
||||
WebRequestHandler.WebModuleClass := WebModuleClass;
|
||||
RunServer(8080);
|
||||
except
|
||||
on E: Exception do
|
||||
Writeln(E.ClassName, ': ', E.Message);
|
||||
end
|
||||
|
||||
end.
|
||||
181
samples/ISAPI/StandAlone/StandAloneServer.dproj
Normal file
181
samples/ISAPI/StandAlone/StandAloneServer.dproj
Normal file
@ -0,0 +1,181 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{89FED123-CDD0-460A-9CC6-5810B281BF84}</ProjectGuid>
|
||||
<ProjectVersion>15.3</ProjectVersion>
|
||||
<FrameworkType>VCL</FrameworkType>
|
||||
<MainSource>StandAloneServer.dpr</MainSource>
|
||||
<Base>True</Base>
|
||||
<Config Condition="'$(Config)'==''">Debug</Config>
|
||||
<Platform Condition="'$(Platform)'==''">Win32</Platform>
|
||||
<TargetedPlatforms>1</TargetedPlatforms>
|
||||
<AppType>Console</AppType>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
|
||||
<Base_Win32>true</Base_Win32>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
|
||||
<Base_Win64>true</Base_Win64>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_1)'!=''">
|
||||
<Cfg_1>true</Cfg_1>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win32)'!=''">
|
||||
<Cfg_1_Win32>true</Cfg_1_Win32>
|
||||
<CfgParent>Cfg_1</CfgParent>
|
||||
<Cfg_1>true</Cfg_1>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_2)'!=''">
|
||||
<Cfg_2>true</Cfg_2>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base)'!=''">
|
||||
<Icns_MainIcns>$(BDS)\bin\delphi_PROJECTICNS.icns</Icns_MainIcns>
|
||||
<DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace)</DCC_Namespace>
|
||||
<DCC_DcuOutput>.\$(Platform)\$(Config)</DCC_DcuOutput>
|
||||
<DCC_ExeOutput>.\$(Platform)\$(Config)</DCC_ExeOutput>
|
||||
<DCC_E>false</DCC_E>
|
||||
<DCC_N>false</DCC_N>
|
||||
<DCC_S>false</DCC_S>
|
||||
<DCC_F>false</DCC_F>
|
||||
<DCC_K>false</DCC_K>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_Win32)'!=''">
|
||||
<Manifest_File>None</Manifest_File>
|
||||
<DCC_ExeOutput>..\bin</DCC_ExeOutput>
|
||||
<DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
|
||||
<VerInfo_Locale>1033</VerInfo_Locale>
|
||||
<DCC_UsePackage>FireDACSqliteDriver;TsiLang_XE5r;DBXSqliteDriver;FireDACPgDriver;fmx;TreeViewPresenter;IndySystem;i18n;TeeDB;frx19;vclib;inetdbbde;DBXInterBaseDriver;DataSnapClient;DataSnapCommon;DataSnapServer;DataSnapProviderClient;DPFAndroidPackagesXE5;DBXSybaseASEDriver;DbxCommonDriver;vclimg;dbxcds;DatasnapConnectorsFreePascal;MetropolisUILiveTile;vcldb;vcldsnap;fmxFireDAC;DBXDb2Driver;DBXOracleDriver;CustomIPTransport;vclribbon;dsnap;IndyIPServer;i18nDB;fmxase;vcl;IndyCore;IndyIPCommon;CloudService;DBXMSSQLDriver;FmxTeeUI;FireDACIBDriver;CodeSiteExpressPkg;DataSnapFireDAC;FireDACDBXDriver;inetdbxpress;FireDACDb2Driver;adortl;CustomAdaptersMDPackage;DataBindingsVCL;FireDACASADriver;bindcompfmx;vcldbx;FireDACODBCDriver;rtl;dbrtl;DbxClientDriver;FireDACCommon;bindcomp;inetdb;Tee;DataBindings;DBXOdbcDriver;vclFireDAC;CPortLibDXE;xmlrtl;svnui;ibxpress;IndyProtocols;DBXMySQLDriver;FireDACCommonDriver;bindengine;vclactnband;soaprtl;bindcompdbx;FMXTee;TeeUI;bindcompvcl;vclie;FireDACADSDriver;vcltouch;fmxinfopower;VclSmp;FireDACMSSQLDriver;FireDAC;VCLRESTComponents;Intraweb;DBXInformixDriver;DataSnapConnectors;FireDACDataSnapDriver;dsnapcon;DBXFirebirdDriver;inet;fmxobj;FireDACMySQLDriver;vclx;svn;DBXSybaseASADriver;FireDACOracleDriver;fmxdae;RESTComponents;bdertl;VirtualTreesR;FireDACMSAccDriver;DataSnapIndy10ServerTransport;dbexpress;IndyIPClient;$(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>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_Win64)'!=''">
|
||||
<DCC_UsePackage>FireDACSqliteDriver;DBXSqliteDriver;FireDACPgDriver;fmx;TreeViewPresenter;IndySystem;TeeDB;vclib;DBXInterBaseDriver;DataSnapClient;DataSnapCommon;DataSnapServer;DataSnapProviderClient;DBXSybaseASEDriver;DbxCommonDriver;vclimg;dbxcds;DatasnapConnectorsFreePascal;MetropolisUILiveTile;vcldb;vcldsnap;fmxFireDAC;DBXDb2Driver;DBXOracleDriver;CustomIPTransport;vclribbon;dsnap;IndyIPServer;fmxase;vcl;IndyCore;IndyIPCommon;CloudService;DBXMSSQLDriver;FmxTeeUI;FireDACIBDriver;DataSnapFireDAC;FireDACDBXDriver;inetdbxpress;FireDACDb2Driver;adortl;DataBindingsVCL;FireDACASADriver;bindcompfmx;FireDACODBCDriver;rtl;dbrtl;DbxClientDriver;FireDACCommon;bindcomp;inetdb;Tee;DataBindings;DBXOdbcDriver;vclFireDAC;xmlrtl;ibxpress;IndyProtocols;DBXMySQLDriver;FireDACCommonDriver;bindengine;vclactnband;soaprtl;bindcompdbx;FMXTee;TeeUI;bindcompvcl;vclie;FireDACADSDriver;vcltouch;fmxinfopower;VclSmp;FireDACMSSQLDriver;FireDAC;VCLRESTComponents;Intraweb;DBXInformixDriver;DataSnapConnectors;FireDACDataSnapDriver;dsnapcon;DBXFirebirdDriver;inet;fmxobj;FireDACMySQLDriver;vclx;DBXSybaseASADriver;FireDACOracleDriver;fmxdae;RESTComponents;VirtualTreesR;FireDACMSAccDriver;DataSnapIndy10ServerTransport;dbexpress;IndyIPClient;$(DCC_UsePackage)</DCC_UsePackage>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_1)'!=''">
|
||||
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
|
||||
<DCC_DebugDCUs>true</DCC_DebugDCUs>
|
||||
<DCC_Optimize>false</DCC_Optimize>
|
||||
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
|
||||
<DCC_DebugInfoInExe>true</DCC_DebugInfoInExe>
|
||||
<DCC_RemoteDebug>true</DCC_RemoteDebug>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
|
||||
<Manifest_File>None</Manifest_File>
|
||||
<VerInfo_Locale>1033</VerInfo_Locale>
|
||||
<DCC_RemoteDebug>false</DCC_RemoteDebug>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_2)'!=''">
|
||||
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
|
||||
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_DebugInformation>0</DCC_DebugInformation>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="$(MainSource)">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\WebModules\WebModuleU.pas">
|
||||
<Form>WebModule1</Form>
|
||||
<FormType>dfm</FormType>
|
||||
<DesignClass>TWebModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Controllers\RoutingSampleControllerU.pas"/>
|
||||
<DCCReference Include="..\BO\BusinessObjectsU.pas"/>
|
||||
<BuildConfiguration Include="Release">
|
||||
<Key>Cfg_2</Key>
|
||||
<CfgParent>Base</CfgParent>
|
||||
</BuildConfiguration>
|
||||
<BuildConfiguration Include="Base">
|
||||
<Key>Base</Key>
|
||||
</BuildConfiguration>
|
||||
<BuildConfiguration Include="Debug">
|
||||
<Key>Cfg_1</Key>
|
||||
<CfgParent>Base</CfgParent>
|
||||
</BuildConfiguration>
|
||||
</ItemGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
|
||||
<Borland.ProjectType/>
|
||||
<BorlandProject>
|
||||
<Delphi.Personality>
|
||||
<VersionInfo>
|
||||
<VersionInfo Name="IncludeVerInfo">False</VersionInfo>
|
||||
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
||||
<VersionInfo Name="MajorVer">1</VersionInfo>
|
||||
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||
<VersionInfo Name="Release">0</VersionInfo>
|
||||
<VersionInfo Name="Build">0</VersionInfo>
|
||||
<VersionInfo Name="Debug">False</VersionInfo>
|
||||
<VersionInfo Name="PreRelease">False</VersionInfo>
|
||||
<VersionInfo Name="Special">False</VersionInfo>
|
||||
<VersionInfo Name="Private">False</VersionInfo>
|
||||
<VersionInfo Name="DLL">False</VersionInfo>
|
||||
<VersionInfo Name="Locale">1040</VersionInfo>
|
||||
<VersionInfo Name="CodePage">1252</VersionInfo>
|
||||
</VersionInfo>
|
||||
<VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompanyName"/>
|
||||
<VersionInfoKeys Name="FileDescription"/>
|
||||
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="InternalName"/>
|
||||
<VersionInfoKeys Name="LegalCopyright"/>
|
||||
<VersionInfoKeys Name="LegalTrademarks"/>
|
||||
<VersionInfoKeys Name="OriginalFilename"/>
|
||||
<VersionInfoKeys Name="ProductName"/>
|
||||
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="Comments"/>
|
||||
<VersionInfoKeys Name="CFBundleName"/>
|
||||
<VersionInfoKeys Name="CFBundleDisplayName"/>
|
||||
<VersionInfoKeys Name="UIDeviceFamily"/>
|
||||
<VersionInfoKeys Name="CFBundleIdentifier"/>
|
||||
<VersionInfoKeys Name="CFBundleVersion"/>
|
||||
<VersionInfoKeys Name="CFBundlePackageType"/>
|
||||
<VersionInfoKeys Name="CFBundleSignature"/>
|
||||
<VersionInfoKeys Name="CFBundleAllowMixedLocalizations"/>
|
||||
<VersionInfoKeys Name="UISupportedInterfaceOrientations"/>
|
||||
<VersionInfoKeys Name="CFBundleExecutable"/>
|
||||
<VersionInfoKeys Name="CFBundleResourceSpecification"/>
|
||||
<VersionInfoKeys Name="LSRequiresIPhoneOS"/>
|
||||
<VersionInfoKeys Name="CFBundleInfoDictionaryVersion"/>
|
||||
<VersionInfoKeys Name="CFBundleDevelopmentRegion"/>
|
||||
<VersionInfoKeys Name="package"/>
|
||||
<VersionInfoKeys Name="label"/>
|
||||
<VersionInfoKeys Name="versionCode"/>
|
||||
<VersionInfoKeys Name="versionName"/>
|
||||
<VersionInfoKeys Name="persistent"/>
|
||||
<VersionInfoKeys Name="restoreAnyVersion"/>
|
||||
<VersionInfoKeys Name="installLocation"/>
|
||||
<VersionInfoKeys Name="largeHeap"/>
|
||||
<VersionInfoKeys Name="theme"/>
|
||||
</VersionInfoKeys>
|
||||
<Source>
|
||||
<Source Name="MainSource">StandAloneServer.dpr</Source>
|
||||
</Source>
|
||||
<Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDSBIN)\bcboffice2k190.bpl">Embarcadero C++Builder Office 2000 Servers Package</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDSBIN)\bcbofficexp190.bpl">Embarcadero C++Builder Office XP Servers Package</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDSBIN)\dcloffice2k190.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDSBIN)\dclofficexp190.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
</Excluded_Packages>
|
||||
</Delphi.Personality>
|
||||
<Deployment/>
|
||||
<Platforms>
|
||||
<Platform value="Win32">True</Platform>
|
||||
<Platform value="Win64">False</Platform>
|
||||
</Platforms>
|
||||
</BorlandProject>
|
||||
<ProjectFileVersion>12</ProjectFileVersion>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
|
||||
<Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
|
||||
</Project>
|
||||
7
samples/ISAPI/WebModules/WebModuleU.dfm
Normal file
7
samples/ISAPI/WebModules/WebModuleU.dfm
Normal file
@ -0,0 +1,7 @@
|
||||
object WebModule1: TWebModule1
|
||||
OldCreateOrder = False
|
||||
OnCreate = WebModuleCreate
|
||||
Actions = <>
|
||||
Height = 230
|
||||
Width = 415
|
||||
end
|
||||
35
samples/ISAPI/WebModules/WebModuleU.pas
Normal file
35
samples/ISAPI/WebModules/WebModuleU.pas
Normal file
@ -0,0 +1,35 @@
|
||||
unit WebModuleU;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
System.SysUtils, System.Classes,
|
||||
Web.HTTPApp, MVCFramework;
|
||||
|
||||
type
|
||||
TWebModule1 = class(TWebModule)
|
||||
procedure WebModuleCreate(Sender: TObject);
|
||||
private
|
||||
DMVC: TMVCEngine;
|
||||
end;
|
||||
|
||||
var
|
||||
WebModuleClass: TComponentClass = TWebModule1;
|
||||
|
||||
implementation
|
||||
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
|
||||
uses RoutingSampleControllerU;
|
||||
|
||||
procedure TWebModule1.WebModuleCreate(Sender: TObject);
|
||||
begin
|
||||
DMVC := TMVCEngine.Create(self);
|
||||
DMVC.AddController(TRoutingSampleController);
|
||||
if IsConsole then
|
||||
DMVC.Config['ISAPI_PATH'] := '/sampleisapi/isapiapp.dll';
|
||||
end;
|
||||
|
||||
end.
|
||||
Binary file not shown.
@ -121,7 +121,7 @@ begin
|
||||
{ ISAPI CHANGE THE REQUEST PATH INFO START }
|
||||
if IsLibrary then
|
||||
begin
|
||||
AWebRequestPathInfo := String(AWebRequestPathInfo).Remove(0, FMVCConfig.Value['ISAPI_PATH'].Length);
|
||||
AWebRequestPathInfo := String(AWebRequestPathInfo).Remove(0, FMVCConfig.Value['isapi_path'].Length);
|
||||
if Length(AWebRequestPathInfo) = 0 then
|
||||
AWebRequestPathInfo := '/';
|
||||
end;
|
||||
|
||||
@ -389,10 +389,28 @@ type
|
||||
Config: TMVCConfig): boolean;
|
||||
end;
|
||||
|
||||
type
|
||||
TMVCConfigKey = class
|
||||
public
|
||||
const
|
||||
SessionTimeout = 'sessiontimeout';
|
||||
DocumentRoot = 'document_root';
|
||||
ViewPath = 'view_path';
|
||||
DefaultContentType = 'default_content_type';
|
||||
DefaultViewFileExtension = 'default_view_file_extension';
|
||||
ISAPIPath = 'isapi_path';
|
||||
StompServer = 'stompserver';
|
||||
StompServerPort = 'stompserverport';
|
||||
StompUsername = 'stompusername';
|
||||
StompPassword = 'stomppassword';
|
||||
Messaging = 'messaging';
|
||||
end;
|
||||
|
||||
function IsShuttingDown: boolean;
|
||||
procedure EnterInShutdownState;
|
||||
|
||||
procedure InternalRender(const Content: string; ContentType, ContentEncoding: String; Context: TWebContext); overload;
|
||||
procedure InternalRender(const Content: string; ContentType, ContentEncoding: String;
|
||||
Context: TWebContext); overload;
|
||||
procedure InternalRender(AJSONValue: TJSONValue; ContentType, ContentEncoding: String; Context: TWebContext;
|
||||
AInstanceOwner: boolean = true); overload;
|
||||
|
||||
@ -449,17 +467,31 @@ end;
|
||||
|
||||
procedure TMVCEngine.ConfigDefaultValues;
|
||||
begin
|
||||
Config['sessiontimeout'] := '30'; // 30 minutes
|
||||
Config['document_root'] := '..\..\..\www';
|
||||
Config['view_path'] := 'eLua';
|
||||
Config['default_content_type'] := TMVCMimeType.APPLICATION_JSON;
|
||||
Config['default_view_file_extension'] := 'elua';
|
||||
Config[TMVCConfigKey.SessionTimeout] := '30'; // 30 minutes
|
||||
Config[TMVCConfigKey.DocumentRoot] := '..\..\..\www';
|
||||
Config[TMVCConfigKey.ViewPath] := 'eLua';
|
||||
Config[TMVCConfigKey.DefaultContentType] := TMVCMimeType.APPLICATION_JSON;
|
||||
Config[TMVCConfigKey.DefaultViewFileExtension] := 'elua';
|
||||
Config[TMVCConfigKey.ISAPIPath] := '';
|
||||
|
||||
Config['stompserver'] := 'localhost';
|
||||
Config['stompserverport'] := '61613';
|
||||
Config['stompusername'] := 'guest';
|
||||
Config['stomppassword'] := 'guest';
|
||||
Config['messaging'] := 'true';
|
||||
Config[TMVCConfigKey.StompServer] := 'localhost';
|
||||
Config[TMVCConfigKey.StompServerPort] := '61613';
|
||||
Config[TMVCConfigKey.StompUsername] := 'guest';
|
||||
Config[TMVCConfigKey.StompPassword] := 'guest';
|
||||
Config[TMVCConfigKey.Messaging] := 'true';
|
||||
|
||||
// Config['sessiontimeout'] := '30'; // 30 minutes
|
||||
// Config['document_root'] := '..\..\..\www';
|
||||
// Config['view_path'] := 'eLua';
|
||||
// Config['default_content_type'] := TMVCMimeType.APPLICATION_JSON;
|
||||
// Config['default_view_file_extension'] := 'elua';
|
||||
// Config['isapi_path'] := '';
|
||||
//
|
||||
// Config['stompserver'] := 'localhost';
|
||||
// Config['stompserverport'] := '61613';
|
||||
// Config['stompusername'] := 'guest';
|
||||
// Config['stomppassword'] := 'guest';
|
||||
// Config['messaging'] := 'true';
|
||||
/// ///////
|
||||
FMimeTypes.Add('.html', TMVCMimeType.TEXT_HTML);
|
||||
FMimeTypes.Add('.htm', TMVCMimeType.TEXT_HTML);
|
||||
@ -518,7 +550,7 @@ begin
|
||||
try
|
||||
// Static file handling
|
||||
if TMVCStaticContents.IsStaticFile(TPath.Combine(AppPath,
|
||||
FMVCConfig['document_root']), Request.PathInfo, StaticFileName) then
|
||||
FMVCConfig[TMVCConfigKey.DocumentRoot]), Request.PathInfo, StaticFileName) then
|
||||
begin
|
||||
if TMVCStaticContents.IsScriptableFile(StaticFileName, FMVCConfig)
|
||||
then
|
||||
@ -552,6 +584,9 @@ begin
|
||||
Context.SetParams(ParamsTable);
|
||||
SelectedController.SetContext(Context);
|
||||
SelectedController.SetMVCEngine(Self);
|
||||
Log(TLogLevel.levNormal, Context.Request.HTTPMethodAsString + ':' + Request.RawPathInfo + ' -> ' +
|
||||
Router.MVCControllerClass.QualifiedClassName);
|
||||
|
||||
// exception?
|
||||
try
|
||||
SelectedController.MVCControllerAfterCreate;
|
||||
@ -668,7 +703,8 @@ begin
|
||||
raise Exception.Create('Not implemented');
|
||||
end;
|
||||
|
||||
class function TMVCEngine.GetCurrentSession(Config: TMVCConfig;
|
||||
class
|
||||
function TMVCEngine.GetCurrentSession(Config: TMVCConfig;
|
||||
const AWebRequest: TWebRequest; const AWebResponse: TWebResponse;
|
||||
const BindToThisSessionID: string; ARaiseExceptionIfExpired: boolean)
|
||||
: TWebSession;
|
||||
@ -1270,9 +1306,9 @@ end;
|
||||
|
||||
function TMVCController.GetNewStompClient(ClientID: string): IStompClient;
|
||||
begin
|
||||
Result := StompUtils.NewStomp(Config['stompserver'],
|
||||
StrToInt(Config['stompserverport']), GetClientID, Config['stompusername'],
|
||||
Config['stomppassword']);
|
||||
Result := StompUtils.NewStomp(Config[TMVCConfigKey.StompServer],
|
||||
StrToInt(Config[TMVCConfigKey.StompServerPort]), GetClientID, Config[TMVCConfigKey.StompUsername],
|
||||
Config[TMVCConfigKey.StompPassword]);
|
||||
end;
|
||||
|
||||
function TMVCController.GetWebSession: TWebSession;
|
||||
@ -1338,7 +1374,7 @@ procedure TMVCController.OnBeforeAction(Context: TWebContext;
|
||||
begin
|
||||
Handled := false;
|
||||
if ContentType.IsEmpty then
|
||||
ContentType := GetMVCConfig['default_content_type'];
|
||||
ContentType := GetMVCConfig[TMVCConfigKey.DefaultContentType];
|
||||
end;
|
||||
|
||||
procedure TMVCController.PushDataSetToView(const AModelName: string;
|
||||
@ -1486,7 +1522,7 @@ begin
|
||||
TMonitor.Enter(SessionList);
|
||||
try
|
||||
Sess := TMVCSessionFactory.GetInstance.CreateNewByType('memory',
|
||||
SessionID, StrToInt64(Config['sessiontimeout']));
|
||||
SessionID, StrToInt64(Config[TMVCConfigKey.SessionTimeout]));
|
||||
SessionList.Add(SessionID, Sess);
|
||||
FWebSession := Sess;
|
||||
Sess.MarkAsUsed;
|
||||
@ -1720,7 +1756,8 @@ begin
|
||||
end;
|
||||
|
||||
{ TMVCStaticContents }
|
||||
class procedure TMVCStaticContents.SendFile(AFileName, AMimeType: string;
|
||||
class
|
||||
procedure TMVCStaticContents.SendFile(AFileName, AMimeType: string;
|
||||
Context: TWebContext);
|
||||
var
|
||||
LFileDate: TDateTime;
|
||||
@ -1753,14 +1790,16 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
class function TMVCStaticContents.IsScriptableFile(StaticFileName: string;
|
||||
class
|
||||
function TMVCStaticContents.IsScriptableFile(StaticFileName: string;
|
||||
Config: TMVCConfig): boolean;
|
||||
begin
|
||||
Result := TPath.GetExtension(StaticFileName).ToLower = '.' +
|
||||
Config['default_view_file_extension'].ToLower;
|
||||
Config[TMVCConfigKey.DefaultViewFileExtension].ToLower;
|
||||
end;
|
||||
|
||||
class function TMVCStaticContents.IsStaticFile(AViewPath, AWebRequestPath
|
||||
class
|
||||
function TMVCStaticContents.IsStaticFile(AViewPath, AWebRequestPath
|
||||
: string; out ARealFileName: string): boolean;
|
||||
var
|
||||
FileName: string;
|
||||
@ -1793,7 +1832,8 @@ begin
|
||||
FMVCEngine := Value;
|
||||
end;
|
||||
|
||||
class function TMVCBase.GetApplicationFileName: string;
|
||||
class
|
||||
function TMVCBase.GetApplicationFileName: string;
|
||||
var
|
||||
fname: PChar;
|
||||
Size: Integer;
|
||||
@ -1809,7 +1849,8 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
class function TMVCBase.GetApplicationFileNamePath: string;
|
||||
class
|
||||
function TMVCBase.GetApplicationFileNamePath: string;
|
||||
begin
|
||||
Result := IncludeTrailingPathDelimiter
|
||||
(ExtractFilePath(GetApplicationFileName));
|
||||
|
||||
@ -32,10 +32,11 @@ begin
|
||||
.AddController(TTestServerController)
|
||||
.AddController(TTestServerControllerExceptionAfterCreate)
|
||||
.AddController(TTestServerControllerExceptionBeforeDestroy);
|
||||
MVCEngine.Config['stompserver'] := 'localhost';
|
||||
MVCEngine.Config['stompserverport'] := '61613';
|
||||
MVCEngine.Config['stompusername'] := 'guest';
|
||||
MVCEngine.Config['stomppassword'] := 'guest';
|
||||
MVCEngine.Config[TMVCConfigKey.StompServer] := 'localhost';
|
||||
MVCEngine.Config[TMVCConfigKey.StompServerPort] := '61613';
|
||||
MVCEngine.Config[TMVCConfigKey.StompUserName] := 'guest';
|
||||
MVCEngine.Config[TMVCConfigKey.StompPassword] := 'guest';
|
||||
MVCEngine.Config[TMVCConfigKey.Messaging] := 'false';
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
Loading…
Reference in New Issue
Block a user