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

我尝试为我上传到Azure的文件设置MD5哈希值。我得到这个错误：如何在delphi中为azure blob存储生成MD5？

(400, 'HTTP/1.1 400 The MD5 value specified in the request is a invalid. MD5 value must be 128 bits and base64 encoded.', $7230400)

这是我做的MD5的文件：

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);

现在，如何做到这一点，根据德尔福XE2蔚蓝的规格？

PD：这个答案How to resolve an InvalidMd5 error returned from the Windows Azure Blob Storage service?解决它为.NET：

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

但不知道如何向平移，德尔福..

来源

2012-04-20 mamcx

如果您要将数据转储到文件，然后使用其中一个免费的MD5计算器，您是否得到相同的答案？我会在尝试排除计算机故障之前从此开始，因为计算可能没有任何问题。即你假设Azure不喜欢你的MD5，但也许Azure不喜欢你的文件。 – 2012-04-20 17:48:22

我使用osx md5命令行对同一文件进行了相同的结果测试。 – mamcx 2012-04-20 19:04:08

有在XE2 Azure的代码，你应该知道的错误（这个链接也显示了如何创建并格式化MD5哈希值）：

EIPHTTPProtocolExceptionPeer exception using PutBlock with array of bytes all set to zero

编辑：

相关代码：

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

来源

2012-04-21 01:33:38 Mick

我不知道德尔福XE2的HashStreamAsHex（）函数，但在旧的Delphi版本中，您分两步完成：idmd5.AsHex（idmd5.HashValue（fs））以下是您可能可以使用的旧版Delphi版本的示例代码。 http://delphi.about.com/od/objectpascalide/a/delphi-md5-hash.htm

来源

2012-04-20 21:07:13

我根本不知道德尔福，但错误消息说你的MD5哈希应该是base64编码的，但它看起来是使用十六进制编码。

来源

2012-04-21 03:59:52 smarx

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

回答

相关问题