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

Change SEATTLEORBETTER to TOKYOORBETTER

Browse Source
This commit is contained in:
João Pedro Hickmann 2020-10-01 07:36:34 -03:00
parent 7d1ab3d787
commit e98053958c
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;