blocks|key|1435106|text|Indy提供了计算多个散列的函数，MD5就是其中之一。从Delphi+2006开始，所有版本的Delphi都包含Indy，旧版本可以免费下载。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1435107|entityMap^0|0^^$0|@$1|2|3|4|5|6|7|D|8|@]|9|@]|A|$]]|$1|B|3|-4|5|6|7|E|8|@]|9|@]|A|$]]]|C|$]]

Indy comes with functions for calculating several hashes, MD5 is one of them. Indy is included in all versions of Delphi since at least Delphi 2006 and available as a free download for older versions.

blocks|key|1435133|text|看看Delphi语言中MD5SUM的this+implementation。它需要一个字符串作为输入，但我想您可以很容易地让它与流一起工作。|type|unstyled|depth|inlineStyleRanges|entityRanges|offset|length|data|1435134|entityMap|0|LINK|mutability|MUTABLE|url|http://irsoft.de/web/Delphi-MD5^0|I|J|0|0^^$0|@$1|2|3|4|5|6|7|L|8|@]|9|@$A|M|B|N|1|O]]|C|$]]|$1|D|3|-4|5|6|7|P|8|@]|9|@]|C|$]]]|E|$F|$5|G|H|I|C|$J|K]]]]

Take a look at <a href="http://irsoft.de/web/Delphi-MD5" rel="nofollow noreferrer">this implementation</a> of MD5SUM in Delphi. It requires a string for input, but I imagine you can easily make it work with a stream.

blocks|key|1435150|text|MessageDigest_5也可以做到这一点。|type|unstyled|depth|inlineStyleRanges|entityRanges|offset|length|data|1435151|entityMap|0|LINK|mutability|MUTABLE|url|https://stackoverflow.com/questions/392657/md5-hashing-in-delphi-2009#392745^0|0|F|0|0^^$0|@$1|2|3|4|5|6|7|L|8|@]|9|@$A|M|B|N|1|O]]|C|$]]|$1|D|3|-4|5|6|7|P|8|@]|9|@]|C|$]]]|E|$F|$5|G|H|I|C|$J|K]]]]

<a href="https://stackoverflow.com/questions/392657/md5-hashing-in-delphi-2009#392745">MessageDigest_5</a> would work for this as well.

blocks|key|1649850|text|基于@dummzeuch+answere，我写了这个函数：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1649851|function+getMD5checksum(s:+TStream):+string;
+var
++md5:+TIdHashMessageDigest5;
++hash+:+T4x4LongWordRecord;
+begin
++md5+:=+TIdHashMessageDigest5.Create;
++s.Seek(0,0);
++hash+:=+md5.HashValue(s);
++result+:=+IntToHex(Integer(hash[0]),+4)+%2B
++++++++++++IntToHex(Integer(hash[1]),+4)+%2B
++++++++++++IntToHex(Integer(hash[2]),+4)+%2B
++++++++++++IntToHex(Integer(hash[3]),+4);
+end;|code-block|syntax|javascript|1649852|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

Based on @dummzeuch answere I wrote this function:

<pre><code>function getMD5checksum(s: TStream): string;
 var
 md5: TIdHashMessageDigest5;
 hash : T4x4LongWordRecord;
 begin
 md5 := TIdHashMessageDigest5.Create;
 s.Seek(0,0);
 hash := md5.HashValue(s);
 result := IntToHex(Integer(hash[0]), 4) +
 IntToHex(Integer(hash[1]), 4) +
 IntToHex(Integer(hash[2]), 4) +
 IntToHex(Integer(hash[3]), 4);
 end;
</code></pre>

blocks|key|1435256|text|以下是Indy+10的工作代码：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1435257|function+MD5File(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;|code-block|syntax|javascript|1435258|致敬，OscaR1|1435259|entityMap^0|0|0|0^^$0|@$1|2|3|4|5|6|7|K|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|L|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|M|8|@]|9|@]|A|$]]|$1|I|3|-4|5|6|7|N|8|@]|9|@]|A|$]]]|J|$]]

Here is a working code for Indy 10:

<pre><code>function MD5File(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;
</code></pre>

Regards,
OscaR1

blocks|key|1435281|text|下面是什么：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1435282|function+GetFileMD5(const+Stream:+TStream):+String;+overload;
var+MD5:+TIdHashMessageDigest5;
begin
++++MD5+:=+TIdHashMessageDigest5.Create;
++++try
+++++++Result+:=+MD5.HashStreamAsHex(Stream);
++++finally
+++++++MD5.Free;
++++end;
end;

function+GetFileMD5(const+Filename:+String):+String;+overload;
var+FileStream:+TFileStream;
begin
++++FileStream+:=+TFileStream.Create(FileName,+fmOpenRead+or+fmShareDenyWrite);
++++try
++++++Result+:=+GetFileMD5(FileStream);
++++finally
++++++FileStream.Free;
++++end;
end;|code-block|syntax|javascript|1435283|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

What about:

<pre><code>function GetFileMD5(const Stream: TStream): String; overload;
var MD5: TIdHashMessageDigest5;
begin
 MD5 := TIdHashMessageDigest5.Create;
 try
 Result := MD5.HashStreamAsHex(Stream);
 finally
 MD5.Free;
 end;
end;

function GetFileMD5(const Filename: String): String; overload;
var FileStream: TFileStream;
begin
 FileStream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
 try
 Result := GetFileMD5(FileStream);
 finally
 FileStream.Free;
 end;
end;
</code></pre>

blocks|key|1649922|text|我在Delphi+7和Indy+10.1.5中使用了以下函数|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1649923|uses+IdHashMessageDigest,+idHash,+Classes;++

...

function+cc_MD5File(const+p_fileName+:+string)+:+string;
//returns+MD5+has+for+a+file
var
++v_idmd5+:+TIdHashMessageDigest5;
++v_fs+:+TFileStream;
++v_hash+:+T4x4LongWordRecord;
begin
++v_idmd5+:=+TIdHashMessageDigest5.Create;
++v_fs+:=+TFileStream.Create(p_fileName,+fmOpenRead+OR+fmShareDenyWrite)+;
++try
++++v_hash+:=+v_idmd5.HashValue(v_fs);
++++result+:=+v_idmd5.AsHex(v_hash);
++finally
++++v_fs.Free;
++++v_idmd5.Free;
++end;
end;|code-block|syntax|javascript|1649924|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

I use the following function in Delphi 7 with Indy 10.1.5

<pre><code>uses IdHashMessageDigest, idHash, Classes; 

...

function cc_MD5File(const p_fileName : string) : string;
//returns MD5 has for a file
var
 v_idmd5 : TIdHashMessageDigest5;
 v_fs : TFileStream;
 v_hash : T4x4LongWordRecord;
begin
 v_idmd5 := TIdHashMessageDigest5.Create;
 v_fs := TFileStream.Create(p_fileName, fmOpenRead OR fmShareDenyWrite) ;
 try
 v_hash := v_idmd5.HashValue(v_fs);
 result := v_idmd5.AsHex(v_hash);
 finally
 v_fs.Free;
 v_idmd5.Free;
 end;
end;
</code></pre>

blocks|key|1435366|text|如果您使用Overbyte+http://www.overbyte.eu/frame_index.html，只需添加单元并使用文件名调用函数FileMD5|type|unstyled|depth|inlineStyleRanges|entityRanges|offset|length|data|1435367|uses+OverbyteIcsMd5;
....
function+GetMd5File:String;+
begin
+Result+:=+FileMD5(FileName);
end;|code-block|syntax|javascript|1435368|entityMap|0|LINK|mutability|MUTABLE|url|http://www.overbyte.eu/frame_index.html^0|E|13|0|0|0^^$0|@$1|2|3|4|5|6|7|Q|8|@]|9|@$A|R|B|S|1|T]]|C|$]]|$1|D|3|E|5|F|7|U|8|@]|9|@]|C|$G|H]]|$1|I|3|-4|5|6|7|V|8|@]|9|@]|C|$]]]|J|$K|$5|L|M|N|C|$O|P]]]]

If you use Overbyte <a href="http://www.overbyte.eu/frame_index.html" rel="nofollow noreferrer">http://www.overbyte.eu/frame_index.html</a> just add unit and call function FileMD5 with name of file

<pre><code>uses OverbyteIcsMd5;
....
function GetMd5File:String; 
begin
 Result := FileMD5(FileName);
end;
</code></pre>

In <a href="https://stackoverflow.com/questions/392657/md5-hashing-in-delphi-2009">this question</a> is mentioned the wcrypt2.

What I need is simply calculate the MD5 of a file. It would be perfect if I could calculate it without having to save it because it is a downloaded file in stream format.

I would like to have the most straightforward way to do that.

Thanks!

File MD5 checksum

在中提到了wcrypt2。我需要的是简单地计算一个文件的MD5。如果我可以计算它而不必保存它，那就太完美了，因为它是以流格式下载的文件。我希望有最直接的方法来做到这一点。谢谢!

问文件MD5校验和
EN

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问文件MD5校验和EN

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问文件MD5校验和
EN