如何在delphi中为azure blob存储生成MD5？

Question

function MD5(const fileName : string) : string;
var
 idmd5 : TIdHashMessageDigest5;
 fs : TFileStream;
begin
 idmd5 := TIdHashMessageDigest5.Create;
 fs := TFileStream.Create(fileName, fmOpenRead OR fmShareDenyWrite) ;
 try
   result := idmd5.HashStreamAsHex(fs) ;
 finally
   fs.Free;
   idmd5.Free;
 end;
end;

......


Headers.Values['Content-MD5'] :=  MD5(LocalFile);

PD：如何解决从Windows Azure Blob存储服务返回的InvalidMd5错误？为.NET解决它：

MD5 md5 = new MD5CryptoServiceProvider();
byte[] blockHash = md5.ComputeHash(buff);
string convertedHash = Convert.ToBase64String(blockHash, 0, 16);

但不知道traslate怎么去Delphi..

Answer 1

您应该注意XE2中Azure代码中的bug（此链接还显示了如何创建和格式化MD5哈希值）：

使用字节数组全部设置为零的PutBlock的EIPHTTPProtocolExceptionPeer异常

编辑：

Hasher:=TIdHashMessageDigest5.Create;
MD5:=Data.Cloud.CloudAPI.EncodeBytes64(Hasher.HashBytes(Content));
Hasher.Free;