pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2024-11-24 08:02:15 +02:00
Code Issues Actions Releases Activity

Fixed wrong DevTools method result handling in MiniBrowser demo

Browse Source
This commit is contained in:
Salvador Diaz Fau 2021-01-07 11:12:20 +01:00
parent cfe43f040f
commit e19ecae2b5
2 changed files with 44 additions and 32 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

74
demos/Delphi_VCL/MiniBrowser/uMiniBrowser.pas
View File

@ -1138,13 +1138,20 @@ begin
if success then
begin
TempDict := result.GetDictionary;
TempValue := TempDict.GetValue('data');
TempResult := 1;
FDevToolsMsgValue := '';
if (TempValue <> nil) and (TempValue.GetType = VTYPE_STRING) then
if (result <> nil) then
begin
FDevToolsMsgValue := TempValue.GetString;
if (length(FDevToolsMsgValue) > 0) then TempResult := 1;
TempDict := result.GetDictionary;
if (TempDict <> nil) and (TempDict.GetSize > 0) then
begin
TempValue := TempDict.GetValue('data');
if (TempValue <> nil) and (TempValue.GetType = VTYPE_STRING) then
FDevToolsMsgValue := TempValue.GetString;
end;
end;
end
else
@ -1182,39 +1189,44 @@ var
begin
if (aMessage.WParam <> 0) then
begin
TempData := TNetEncoding.Base64.DecodeStringToBytes(FDevToolsMsgValue);
TempLen := length(TempData);
if (TempLen > 0) then
if (length(FDevToolsMsgValue) > 0) then
begin
TempFile := nil;
TempData := TNetEncoding.Base64.DecodeStringToBytes(FDevToolsMsgValue);
TempLen := length(TempData);
if (aMessage.LParam = FScreenshotMsgID) then
if (TempLen > 0) then
begin
SaveDialog1.DefaultExt := 'png';
SaveDialog1.Filter := 'PNG files (*.png)|*.PNG';
TempFile := nil;
if (aMessage.LParam = FScreenshotMsgID) then
begin
SaveDialog1.DefaultExt := 'png';
SaveDialog1.Filter := 'PNG files (*.png)|*.PNG';
end
else
begin
SaveDialog1.DefaultExt := '';
SaveDialog1.Filter := 'All files (*.*)|*.*';
end;
if SaveDialog1.Execute then
try
try
TempFile := TFileStream.Create(SaveDialog1.FileName, fmCreate);
TempFile.WriteBuffer(TempData[0], TempLen);
showmessage('File saved successfully');
except
showmessage('There was an error saving the file');
end;
finally
if (TempFile <> nil) then TempFile.Free;
end;
end
else
begin
SaveDialog1.DefaultExt := '';
SaveDialog1.Filter := 'All files (*.*)|*.*';
end;
if SaveDialog1.Execute then
try
try
TempFile := TFileStream.Create(SaveDialog1.FileName, fmCreate);
TempFile.WriteBuffer(TempData[0], TempLen);
showmessage('File saved successfully');
except
showmessage('There was an error saving the file');
end;
finally
if (TempFile <> nil) then TempFile.Free;
end;
showmessage('There was an error decoding the data');
end
else
showmessage('There was an error decoding the data');
showmessage('DevTools method executed successfully!');
end
else
if (length(FDevToolsMsgValue) > 0) then

2
update_CEF4Delphi.json
View File

@ -2,7 +2,7 @@
"UpdateLazPackages" : [
{
"ForceNotify" : true,
"InternalVersion" : 225,
"InternalVersion" : 226,
"Name" : "cef4delphi_lazarus.lpk",
"Version" : "87.1.12.0"
}