paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 16:36:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

turbopower: md5sumoffile: fixed utf8 filename

Browse Source 
git-svn-id: trunk@38616 -
This commit is contained in:
mattias 2012-09-11 12:42:21 +00:00
parent 3ba660c99f
commit fb69f5184b
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/turbopower_ipro/iputils.pas
View File

@ -41,7 +41,7 @@ uses
GraphType,
LCLIntf,
LMessages,
FileUtil,
FileUtil, lazutf8classes,
LCLProc,
{$ELSE}
Messages,
@ -789,9 +789,9 @@ end;
{ Calculates the MD5 Digest of a file }
function MD5SumOfFile(const FileName : string) : string;
var
FileSt : TFileStream;
FileSt : TFileStreamUTF8;
begin
FileSt := TFileStream.Create(UTF8ToSys(FileName), CrcFileMode);
FileSt := TFileStreamUTF8.Create(FileName, CrcFileMode);
try
Result := MD5SumOfStream(FileSt);
finally