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