From fb69f5184b4ce029cb10ce883811d12a9b95f4fe Mon Sep 17 00:00:00 2001 From: mattias Date: Tue, 11 Sep 2012 12:42:21 +0000 Subject: [PATCH] turbopower: md5sumoffile: fixed utf8 filename git-svn-id: trunk@38616 - --- components/turbopower_ipro/iputils.pas | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/components/turbopower_ipro/iputils.pas b/components/turbopower_ipro/iputils.pas index 488bc9eff6..cf226f1d0b 100644 --- a/components/turbopower_ipro/iputils.pas +++ b/components/turbopower_ipro/iputils.pas @@ -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