Persona/tim2view
3
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fixed opening of paths with on Latin chars. Fixed All PNGs saving.

Browse Source
This commit is contained in:
meffi@lab313.ru
2014-04-16 23:44:19 +00:00
parent db601dcd85
commit 180cf642d6
8 changed files with 128 additions and 116 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
uscanthread.pas
View File

@@ -3,7 +3,7 @@ unit uscanthread;
interface
uses
ucommon, utim, uscanresult, classes, fgl;
ucommon, utim, uscanresult, classes, fgl, lazutf8classes;
type
TScanThread = class(TThread)
@@ -16,7 +16,7 @@ type
pClearBufferPosition: Integer;
pClearBufferSize: Integer;
pSectorBufferSize: Integer;
pSrcFileStream: TFileStream;
pSrcFileStream: TFileStreamUTF8;
pStopScan: boolean;
procedure SetStatusText;
procedure StartScan;
@@ -39,8 +39,7 @@ uses
umain, ucdimage, sysutils, FileUtil;
const
cClearBufferSize = ((cTIMMaxSize div cSectorDataSize) + 1) *
cSectorDataSize * 2;
cClearBufferSize = ((cTIMMaxSize div cSectorDataSize) + 1) * cSectorDataSize * 2;
cSectorBufferSize = (cClearBufferSize div cSectorDataSize) * cSectorSize;
{ TScanThread }
@@ -101,8 +100,7 @@ begin
SectorBuffer := GetMemory(pSectorBufferSize);
ClearBuffer := GetMemory(pClearBufferSize);
pSrcFileStream := TFileStream.Create(pScanResult.ScanFile, fmOpenRead or
fmShareDenyWrite);
pSrcFileStream := TFileStreamUTF8.Create(pScanResult.ScanFile, fmOpenRead or fmShareDenyWrite);
pSrcFileStream.Position := 0;