diff options
| author | Tomas Bzatek <tbzatek@users.sourceforge.net> | 2009-10-05 20:57:10 +0200 |
|---|---|---|
| committer | Tomas Bzatek <tbzatek@users.sourceforge.net> | 2009-10-05 20:57:10 +0200 |
| commit | 58575911b488c1f57984e7220ec3d31b76a5b25c (patch) | |
| tree | 3ccfd96de7948cd1f7b5117e213f49998a693ec9 /UChecksum.pas | |
| parent | 5c0dbf642cdff078b3c33a565e3c44da8e3c4b56 (diff) | |
| download | tuxcmd-58575911b488c1f57984e7220ec3d31b76a5b25c.tar.xz | |
Don't leak fds on checksum check cancellation
Diffstat (limited to 'UChecksum.pas')
| -rw-r--r-- | UChecksum.pas | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/UChecksum.pas b/UChecksum.pas index 679d7ef..90eb029 100644 --- a/UChecksum.pas +++ b/UChecksum.pas @@ -436,8 +436,8 @@ begin ProgressBar.Text := Format('%d %%', [Trunc(ProgressBar.Fraction * 100)]); Application.ProcessMessages; until (Count < ChksumBlockSize) or Stop; - if Stop then Break; Engine.CloseFile(FD); + if Stop then Break; if not Data.IsMD5 then Data.Status := Ord(not (CRC = Data.CRC)) + 1 else begin MDFinal(MDContext, MDDigest); Data.Status := Ord(AnsiCompareText(Data.MD5, MDPrint(MDDigest)) <> 0) + 1; |