1
0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-08-04 21:32:54 +02:00

Added a menu option to download a file in MiniBrowser

This commit is contained in:
Salvador Díaz Fau
2025-03-15 15:36:47 +01:00
parent 8112808b95
commit b731deee3b
3 changed files with 20 additions and 1 deletions

View File

@ -177,6 +177,9 @@ object MiniBrowserFrm: TMiniBrowserFrm
'https://developer.mozilla.org/en-US/docs/Web/HTML/Attributes/acc' +
'ept'
'https://codesandbox.io/p/sandbox/image-blob-example-0igon?file=%' +
'2Fsrc%2FApp.js'
'chrome://version/'
'chrome://net-internals/'
'chrome://tracing/'
@ -384,6 +387,10 @@ object MiniBrowserFrm: TMiniBrowserFrm
Caption = 'Download image...'
OnClick = Downloadimage1Click
end
object Downloadfile1: TMenuItem
Caption = 'Download file...'
OnClick = Downloadfile1Click
end
object Simulatekeyboardpresses1: TMenuItem
Caption = 'Simulate keyboard presses'
OnClick = Simulatekeyboardpresses1Click

View File

@ -132,6 +132,7 @@ type
SaveasMHTML1: TMenuItem;
Allowdownloads1: TMenuItem;
Toggleaudio1: TMenuItem;
Downloadfile1: TMenuItem;
procedure FormShow(Sender: TObject);
procedure FormCreate(Sender: TObject);
@ -209,6 +210,7 @@ type
procedure SaveasMHTML1Click(Sender: TObject);
procedure Allowdownloads1Click(Sender: TObject);
procedure Toggleaudio1Click(Sender: TObject);
procedure Downloadfile1Click(Sender: TObject);
protected
FPendingMsgID : integer;
@ -2118,6 +2120,16 @@ begin
ShowDevTools;
end;
procedure TMiniBrowserFrm.Downloadfile1Click(Sender: TObject);
var
TempURL : string;
begin
TempURL := InputBox('Download File', 'URL:', '');
if (length(TempURL) > 0) then
Chromium1.StartDownload(TempURL);
end;
procedure TMiniBrowserFrm.Downloadimage1Click(Sender: TObject);
var
TempURL : string;

View File

@ -2,7 +2,7 @@
"UpdateLazPackages" : [
{
"ForceNotify" : true,
"InternalVersion" : 713,
"InternalVersion" : 714,
"Name" : "cef4delphi_lazarus.lpk",
"Version" : "134.3.2"
}