TIdHMACSHA256.TIdHMACSHA384.TIdHMACSHA512在Delphi中不起作用

爲什麼TIdHMACSHA256 +（Indy/delphi）的HashValue函數總是返回空？例如，下面的代碼不起作用。TIdHMACSHA256.TIdHMACSHA384.TIdHMACSHA512在Delphi中不起作用

var 
    Hash: TIdHMACSHA256 ; 
    HashValue: TBytes; 
begin 
    SetCurrentDir(ExtractFilePath(ParamStr(0))); 
    Hash := TIdHMACSHA256 .Create; 
    try 
    Hash.Key := TEncoding.ASCII.GetBytes('devaee2'); 
    HashValue := Hash.HashValue(TFile.ReadAllBytes('menu.xml')); 
    // HashValue is an empty array, why? 
    Tag := Length(HashValue); 
    TFile.WriteAllBytes('menu.xml.hash', HashValue); 

    finally 
    FreeAndNil(Hash); 
    end; 
end;

來源

2012-12-05 MajidTaheri