pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-06-12 22:07:39 +02:00
Code Issues Actions Releases Activity

Fixed #190: Lazarus : access violation creating a TCefBinaryValueRef in 64 bits

Browse Source 
Access violation was because of a memory overwrite. TStream.Read doesn't have a TBytes overload in FPC, so the stack was overwritten instead of the array's content.
This commit is contained in:
Andreas Hausladen
2019-11-11 17:33:16 +01:00
parent b9e22bd870
commit f33417ca73
2 changed files with 11 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
demos/Delphi_VCL/JavaScript/JSEval/uJSEval.pas
View File

@ -367,8 +367,9 @@ begin
try
try
TempOpenDialog := TOpenDialog.Create(nil);
TempOpenDialog.Filter := 'JPEG files (*.jpg)|*.JPG';
TempOpenDialog := TOpenDialog.Create(nil);
TempOpenDialog.Options := TempOpenDialog.Options + [ofFileMustExist];
TempOpenDialog.Filter := 'JPEG files (*.jpg)|*.JPG';
if TempOpenDialog.Execute then
begin
@ -378,7 +379,7 @@ begin
if (TempSize > 0) then
begin
SetLength(TempBuffer, TempSize);
TempSize := TempStream.Read(TempBuffer, TempSize);
TempSize := TempStream.Read(TempBuffer[0], TempSize);
if (TempSize > 0) then
begin