Skip to content

Commit 9a6e457

Browse files
Horse 2.0 #3
1 parent 5dae4ee commit 9a6e457

4 files changed

Lines changed: 17 additions & 26 deletions

File tree

samples/Samples.dpr

Lines changed: 4 additions & 11 deletions
Original file line numberDiff line numberDiff line change
@@ -1,29 +1,22 @@
11
program Samples;
22

33
{$APPTYPE CONSOLE}
4-
54
{$R *.res}
65

7-
uses
8-
Horse, Horse.BasicAuthentication, System.SysUtils;
9-
10-
var
11-
App: THorse;
6+
uses Horse, Horse.BasicAuthentication, System.SysUtils;
127

138
begin
14-
App := THorse.Create(9000);
15-
16-
App.Use(HorseBasicAuthentication(
9+
THorse.Use(HorseBasicAuthentication(
1710
function(const AUsername, APassword: string): Boolean
1811
begin
1912
Result := AUsername.Equals('user') and APassword.Equals('password');
2013
end));
2114

22-
App.Get('ping',
15+
THorse.Get('/ping',
2316
procedure(Req: THorseRequest; Res: THorseResponse; Next: TProc)
2417
begin
2518
Res.Send('pong');
2619
end);
2720

28-
App.Start;
21+
THorse.Listen(9000);
2922
end.

samples/Samples.dproj

Lines changed: 9 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -49,8 +49,7 @@
4949
<DCC_K>false</DCC_K>
5050
<DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;$(DCC_Namespace)</DCC_Namespace>
5151
<SanitizedProjectName>Samples</SanitizedProjectName>
52-
<DCC_UnitSearchPath>modules\.dcp;modules\.dcu;modules;modules\horse\src;modules\horse-basic-auth\src;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
53-
</PropertyGroup>
52+
<DCC_UnitSearchPath>modules\.dcp;modules\.dcu;$(DCC_UnitSearchPath);modules;modules\horse\src</DCC_UnitSearchPath></PropertyGroup>
5453
<PropertyGroup Condition="'$(Base_Win32)'!=''">
5554
<DCC_UsePackage>DBXSqliteDriver;IndyIPCommon;RESTComponents;bindcompdbx;DBXInterBaseDriver;vcl;IndyIPServer;vclactnband;vclFireDAC;IndySystem;tethering;svnui;dsnapcon;FireDACADSDriver;FireDACMSAccDriver;fmxFireDAC;vclimg;FireDAC;vcltouch;vcldb;bindcompfmx;svn;FireDACSqliteDriver;FireDACPgDriver;inetdb;soaprtl;DbxCommonDriver;fmx;FireDACIBDriver;fmxdae;xmlrtl;soapmidas;fmxobj;vclwinx;rtl;DbxClientDriver;CustomIPTransport;vcldsnap;dbexpress;IndyCore;vclx;bindcomp;appanalytics;dsnap;FireDACCommon;IndyIPClient;bindcompvcl;RESTBackendComponents;VCLRESTComponents;soapserver;dbxcds;VclSmp;adortl;vclie;bindengine;DBXMySQLDriver;CloudService;dsnapxml;FireDACMySQLDriver;dbrtl;IndyProtocols;inetdbxpress;FireDACCommonODBC;FireDACCommonDriver;inet;fmxase;$(DCC_UsePackage)</DCC_UsePackage>
5655
<DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
@@ -77,6 +76,9 @@
7776
</PropertyGroup>
7877
<PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
7978
<DCC_RemoteDebug>false</DCC_RemoteDebug>
79+
<VerInfo_Locale>1033</VerInfo_Locale>
80+
<Manifest_File>(None)</Manifest_File>
81+
<DCC_UnitSearchPath>..\src;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
8082
</PropertyGroup>
8183
<PropertyGroup Condition="'$(Cfg_2)'!=''">
8284
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
@@ -108,6 +110,11 @@
108110
<Source>
109111
<Source Name="MainSource">Samples.dpr</Source>
110112
</Source>
113+
<Excluded_Packages>
114+
<Excluded_Packages Name="$(BDSBIN)\dclDataSnapNativeServer260.bpl">Embarcadero DBExpress DataSnap Native Server Components</Excluded_Packages>
115+
<Excluded_Packages Name="$(BDSBIN)\dcloffice2k260.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
116+
<Excluded_Packages Name="$(BDSBIN)\dclofficexp260.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
117+
</Excluded_Packages>
111118
</Delphi.Personality>
112119
<Deployment Version="3">
113120
<DeployFile LocalName="$(BDS)\Redist\osx32\libcgunwind.1.0.dylib" Class="DependencyModule">

samples/boss-lock.json

Lines changed: 3 additions & 11 deletions
Original file line numberDiff line numberDiff line change
@@ -1,19 +1,11 @@
11
{
22
"hash": "d41d8cd98f00b204e9800998ecf8427e",
3-
"updated": "2019-08-28T21:00:21.5732268-03:00",
3+
"updated": "2020-09-04T08:15:07.8334739-03:00",
44
"installedModules": {
55
"github.com/hashload/horse": {
66
"name": "horse",
7-
"version": "1.6.7",
8-
"hash": "f2d5c64f23435568e5b3e68b5fe927c4",
9-
"artifacts": {},
10-
"failed": false,
11-
"changed": false
12-
},
13-
"github.com/viniciussanchez/horse-basic-auth": {
14-
"name": "horse-basic-auth",
15-
"version": "v1.0.0",
16-
"hash": "b2f865b00bab97cc93f25be2a416d25f",
7+
"version": "v2.0.0",
8+
"hash": "e37b9706c16357ab94219cf12b67b036",
179
"artifacts": {},
1810
"failed": false,
1911
"changed": false

samples/boss.json

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -6,7 +6,6 @@
66
"mainsrc": "./",
77
"projects": [],
88
"dependencies": {
9-
"github.com/hashload/horse": "^1.6.7",
10-
"github.com/viniciussanchez/horse-basic-auth": "^v1.0.0"
9+
"github.com/hashload/horse": "^v2.0.0"
1110
}
1211
}

0 commit comments

Comments
 (0)