Delphi/delphimvcframework
1
0
Fork 0
mirror of https://github.com/danieleteti/delphimvcframework.git synced 2024-11-15 15:55:54 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Merge branch 'master' of https://github.com/danieleteti/delphimvcframework

Browse Source
This commit is contained in:
Daniele Teti 2020-10-10 14:10:52 +02:00
commit 40417c81a5
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
sources/MVCFramework.Middleware.ETag.pas
View File

@ -56,7 +56,7 @@ type
implementation
uses
{$IF defined(SEATTLEORBETTER)}
{$IF defined(TOKYOORBETTER)}
System.Hash,
{$ELSE}
IdHashMessageDigest,
@ -67,12 +67,12 @@ uses
{ TMVCETagMiddleware }
function TMVCETagMiddleware.GetHashMD5FromStream(AStream: TStream): string;
{$IF not defined(SEATTLEORBETTER)}
{$IF not defined(TOKYOORBETTER)}
var
lMD5Hash: TIdHashMessageDigest5;
{$ENDIF}
begin
{$IF defined(SEATTLEORBETTER)}
{$IF defined(TOKYOORBETTER)}
Result := THashMD5.GetHashString(AStream);
{$ELSE}
lMD5Hash := TIdHashMessageDigest5.Create;