diff --git a/boss-lock.json b/boss-lock.json index 0a3e09d..65cdbe7 100644 --- a/boss-lock.json +++ b/boss-lock.json @@ -4,8 +4,8 @@ "installedModules": { "github.com/hashload/horse": { "name": "horse", - "version": "2.0.8", - "hash": "f0d9be7d8b5059a6e99397562d39306c", + "version": "2.0.13", + "hash": "32daa5a81f115ecc285cbbbbdbcddcea", "artifacts": {}, "failed": false, "changed": false diff --git a/samples/delphi/Samples.dproj b/samples/delphi/Samples.dproj index 0c1d99a..1b6b6bb 100644 --- a/samples/delphi/Samples.dproj +++ b/samples/delphi/Samples.dproj @@ -49,7 +49,7 @@ false System;Xml;Data;Datasnap;Web;Soap;$(DCC_Namespace) Samples - modules\.dcp;modules\.dcu;modules;modules\horse\src;$(DCC_UnitSearchPath) + $(DCC_UnitSearchPath);modules\.dcp;modules\.dcu;modules;modules\horse\src 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) diff --git a/samples/delphi/boss-lock.json b/samples/delphi/boss-lock.json index ce060cb..35a69a2 100644 --- a/samples/delphi/boss-lock.json +++ b/samples/delphi/boss-lock.json @@ -4,8 +4,8 @@ "installedModules": { "github.com/hashload/horse": { "name": "horse", - "version": "2.0.8", - "hash": "f0d9be7d8b5059a6e99397562d39306c", + "version": "2.0.13", + "hash": "985da2054d3c705bc211797c653e47ba", "artifacts": {}, "failed": false, "changed": false diff --git a/samples/lazarus/boss-lock.json b/samples/lazarus/boss-lock.json index 14b1a7c..1684919 100644 --- a/samples/lazarus/boss-lock.json +++ b/samples/lazarus/boss-lock.json @@ -4,8 +4,8 @@ "installedModules": { "github.com/hashload/horse": { "name": "horse", - "version": "2.0.8", - "hash": "f0d9be7d8b5059a6e99397562d39306c", + "version": "2.0.13", + "hash": "985da2054d3c705bc211797c653e47ba", "artifacts": {}, "failed": false, "changed": false diff --git a/src/Horse.Jhonson.pas b/src/Horse.Jhonson.pas index 1e4a341..61432ee 100644 --- a/src/Horse.Jhonson.pas +++ b/src/Horse.Jhonson.pas @@ -40,7 +40,7 @@ procedure Middleware(Req: THorseRequest; Res: THorseResponse; Next: {$IF DEFINED LJSON: {$IF DEFINED(FPC)}TJsonData{$ELSE}TJSONValue{$ENDIF}; begin if ({$IF DEFINED(FPC)} StringCommandToMethodType(Req.RawWebRequest.Method) - {$ELSE} Req.RawWebRequest.MethodType{$ENDIF} in [mtPost, mtPut]) and (Req.RawWebRequest.ContentType = 'application/json') then + {$ELSE} Req.RawWebRequest.MethodType{$ENDIF} in [mtPost, mtPut, mtPatch]) and (Req.RawWebRequest.ContentType = 'application/json') then begin LJSON := {$IF DEFINED(FPC)} GetJSON(Req.Body) {$ELSE}TJSONObject.ParseJSONValue(Req.Body){$ENDIF}; Req.Body(LJSON);