pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-09-30 21:28:55 +02:00
Code Issues Actions Releases Activity

Disable TNetEncoding calls for older Delphi versions in the MiniBrowser demo

Browse Source
This commit is contained in:
Salvador Díaz Fau
2021-05-20 16:59:01 +02:00
parent c737b63a04
commit a3d361d8ba
2 changed files with 27 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1221,25 +1221,35 @@ begin
begin begin
if (length(FDevToolsMsgValue) > 0) then if (length(FDevToolsMsgValue) > 0) then
begin begin
TempData := nil;
if (aMessage.LParam = FScreenshotMsgID) then if (aMessage.LParam = FScreenshotMsgID) then
begin
SaveDialog1.DefaultExt := 'png';
SaveDialog1.Filter := 'PNG files (*.png)|*.PNG';
{$IFDEF DELPHI21_UP}
// TO-DO: TNetEncoding was a new feature in Delphi XE7. Replace
// TNetEncoding.Base64.DecodeStringToBytes with Soap.EncdDecd.DecodeBase64 for older Delphi versions
TempData := TNetEncoding.Base64.DecodeStringToBytes(FDevToolsMsgValue);
{$ENDIF}
end
else
if (aMessage.LParam = FMHTMLMsgID) then
begin begin
SaveDialog1.DefaultExt := 'png'; SaveDialog1.DefaultExt := 'mhtml';
SaveDialog1.Filter := 'PNG files (*.png)|*.PNG'; SaveDialog1.Filter := 'MHTML files (*.mhtml)|*.MHTML';
TempData := TNetEncoding.Base64.DecodeStringToBytes(FDevToolsMsgValue); TempData := BytesOf(FDevToolsMsgValue);
end end
else else
if (aMessage.LParam = FMHTMLMsgID) then begin
begin SaveDialog1.DefaultExt := '';
SaveDialog1.DefaultExt := 'mhtml'; SaveDialog1.Filter := 'All files (*.*)|*.*';
SaveDialog1.Filter := 'MHTML files (*.mhtml)|*.MHTML'; {$IFDEF DELPHI21_UP}
TempData := BytesOf(FDevToolsMsgValue); // TO-DO: TNetEncoding was a new feature in Delphi XE7. Replace
end // TNetEncoding.Base64.DecodeStringToBytes with Soap.EncdDecd.DecodeBase64 for older Delphi versions
else TempData := TNetEncoding.Base64.DecodeStringToBytes(FDevToolsMsgValue);
begin {$ENDIF}
SaveDialog1.DefaultExt := ''; end;
SaveDialog1.Filter := 'All files (*.*)|*.*';
TempData := TNetEncoding.Base64.DecodeStringToBytes(FDevToolsMsgValue);
end;
TempLen := length(TempData); TempLen := length(TempData);

2
update_CEF4Delphi.json
View File

@@ -2,7 +2,7 @@
"UpdateLazPackages" : [ "UpdateLazPackages" : [
{ {
"ForceNotify" : true, "ForceNotify" : true,
"InternalVersion" : 292, "InternalVersion" : 293,
"Name" : "cef4delphi_lazarus.lpk", "Name" : "cef4delphi_lazarus.lpk",
"Version" : "90.6.5.0" "Version" : "90.6.5.0"
} }