FIX: Viewer - crash with zero size virtual file (issue #2373)

(cherry picked from commit 66d9f04d01)
This commit is contained in:
Alexander Koblov 2025-09-04 20:47:38 +03:00
commit 6776fac0e4

View file

@ -1644,7 +1644,12 @@ begin
begin
FMappedFile := GetMem(MaxMemSize - 1);
FFileSize := FileRead(FFileHandle, FMappedFile^, MaxMemSize - 1);
Result := (FFileSize > 0);
Result := (FFileSize >= 0);
if not Result then
begin
FLastError := mbSysErrorMessage;
FreeMemAndNil(FMappedFile);
end;
FileClose(FFileHandle);
FFileHandle := 0;
Exit;