mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-28 10:02:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Viewer - crash with unreadable file

Browse source
This commit is contained in:
Alexander Koblov 2025-03-30 01:59:54 +03:00
commit e701968cd1
1 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
components/viewer/viewercontrol.pas
View file

@ -1614,6 +1614,11 @@ function TViewerControl.MapFile(const sFileName: String): Boolean;
begin
FMappedFile := GetMem(FFileSize);
Result := (FileRead(FFileHandle, FMappedFile^, FFileSize) = FFileSize);
if not Result then
begin
FLastError := mbSysErrorMessage;
FreeMemAndNil(FMappedFile);
end;
FileClose(FFileHandle);
FFileHandle := 0;
end;