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