pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-04-17 06:57:13 +02:00
Code Issues Actions Releases Activity

Update to CEF 3.3163.1670.g934eaba

Browse Source 
- Added 2 overloaded versions of TChromium.RetrieveHTML
- Modified TCefBrowserRef.GetFrameIdentifiers and TCefBrowserRef.GetFrameNames functions
This commit is contained in:
Salvador Díaz Fau 2017-09-24 12:48:04 +02:00
parent 9656a1323f
commit 9c33c49353
19 changed files with 450 additions and 261 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
demos/MiniBrowser/MiniBrowser.dpr
View File

@ -63,14 +63,14 @@ begin
GlobalCEFApp := TCefApplication.Create; GlobalCEFApp := TCefApplication.Create;
// In case you want to use custom directories for the CEF3 binaries, cache, cookies and user data. // In case you want to use custom directories for the CEF3 binaries, cache, cookies and user data.
{ {
GlobalCEFApp.FrameworkDirPath := 'cef'; GlobalCEFApp.FrameworkDirPath := 'cef';
GlobalCEFApp.ResourcesDirPath := 'cef'; GlobalCEFApp.ResourcesDirPath := 'cef';
GlobalCEFApp.LocalesDirPath := 'cef\locales'; GlobalCEFApp.LocalesDirPath := 'cef\locales';
GlobalCEFApp.cache := 'cef\cache'; GlobalCEFApp.cache := 'cef\cache';
GlobalCEFApp.cookies := 'cef\cookies'; GlobalCEFApp.cookies := 'cef\cookies';
GlobalCEFApp.UserDataPath := 'cef\User Data'; GlobalCEFApp.UserDataPath := 'cef\User Data';
} }
// Examples of command line switches. // Examples of command line switches.
// ********************************** // **********************************

16
demos/MiniBrowser/MiniBrowser.dproj.local
View File

@ -2,20 +2,20 @@
<BorlandProject> <BorlandProject>
<Transactions> <Transactions>
<Transaction>2017/02/11 10:15:32.000.980,=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Unit1.pas</Transaction> <Transaction>2017/02/11 10:15:32.000.980,=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Unit1.pas</Transaction>
<Transaction>2017/02/11 10:16:27.000.174,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Unit1.pas=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\uMiniBrowser.pas</Transaction> <Transaction>2017/02/11 10:16:27.000.174,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\uMiniBrowser.pas=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Unit1.pas</Transaction>
<Transaction>2017/02/11 10:16:27.000.174,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Unit1.dfm=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\uMiniBrowser.dfm</Transaction> <Transaction>2017/02/11 10:16:27.000.174,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\uMiniBrowser.dfm=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Unit1.dfm</Transaction>
<Transaction>2017/02/11 10:16:37.000.392,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Project1.dproj=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\MiniBrowser.dproj</Transaction> <Transaction>2017/02/11 10:16:37.000.392,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\MiniBrowser.dproj=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Project1.dproj</Transaction>
<Transaction>2017/02/11 17:10:26.000.471,=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\Unit1.pas</Transaction> <Transaction>2017/02/11 17:10:26.000.471,=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\Unit1.pas</Transaction>
<Transaction>2017/02/11 17:11:01.000.244,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\uTestExtension.pas=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\Unit1.pas</Transaction> <Transaction>2017/02/11 17:11:01.000.244,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\Unit1.pas=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\uTestExtension.pas</Transaction>
<Transaction>2017/03/12 17:11:11.000.786,=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\uFileScheme.pas</Transaction> <Transaction>2017/03/12 17:11:11.000.786,=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\uFileScheme.pas</Transaction>
<Transaction>2017/03/13 19:22:41.000.994,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\uFileScheme.pas=</Transaction> <Transaction>2017/03/13 19:22:41.000.994,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\uFileScheme.pas=</Transaction>
<Transaction>2017/03/13 19:23:05.000.371,=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\uHelloScheme.pas</Transaction> <Transaction>2017/03/13 19:23:05.000.371,=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\uHelloScheme.pas</Transaction>
<Transaction>2017/03/15 12:39:07.000.741,=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\Unit1.pas</Transaction> <Transaction>2017/03/15 12:39:07.000.741,=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\Unit1.pas</Transaction>
<Transaction>2017/03/15 12:40:51.000.061,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\uPreferences.dfm=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\Unit1.dfm</Transaction> <Transaction>2017/03/15 12:40:51.000.061,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\Unit1.dfm=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\uPreferences.dfm</Transaction>
<Transaction>2017/03/15 12:40:51.000.061,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\uPreferences.pas=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\Unit1.pas</Transaction> <Transaction>2017/03/15 12:40:51.000.061,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\Unit1.pas=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\uPreferences.pas</Transaction>
<Transaction>2017/07/14 11:54:07.000.560,=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\Unit1.pas</Transaction> <Transaction>2017/07/14 11:54:07.000.560,=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\Unit1.pas</Transaction>
<Transaction>2017/07/14 11:57:42.000.778,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\Unit1.dfm=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\uSimpleTextViewer.dfm</Transaction> <Transaction>2017/07/14 11:57:42.000.778,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\uSimpleTextViewer.pas=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\Unit1.pas</Transaction>
<Transaction>2017/07/14 11:57:42.000.778,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\Unit1.pas=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\uSimpleTextViewer.pas</Transaction> <Transaction>2017/07/14 11:57:42.000.778,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\uSimpleTextViewer.dfm=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\Unit1.dfm</Transaction>
<Transaction>2017/08/12 11:00:30.000.928,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\uTestExtension.pas=</Transaction> <Transaction>2017/08/12 11:00:30.000.928,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\uTestExtension.pas=</Transaction>
<Transaction>2017/08/12 11:18:47.000.783,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\uSimpleTextViewer.pas=</Transaction> <Transaction>2017/08/12 11:18:47.000.783,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\uSimpleTextViewer.pas=</Transaction>
<Transaction>2017/08/12 12:01:56.000.772,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\uHelloScheme.pas=</Transaction> <Transaction>2017/08/12 12:01:56.000.772,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\uHelloScheme.pas=</Transaction>

141
demos/MiniBrowser/MiniBrowser.dsk
View File

@ -1,34 +1,34 @@
[Closed Files] [Closed Files]
File_0=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFChromium.pas',0,1,2170,74,2204,0,0,, File_0=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFChromium.pas',0,1,1742,49,1766,0,0,,
File_1=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFStringVisitor.pas',0,1,128,1,131,0,0,, File_1=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFInterfaces.pas',0,1,246,14,270,0,0,,
File_2=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFTask.pas',0,1,193,1,204,0,0,, File_2=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFBrowser.pas',0,1,219,1,250,0,0,,
File_3=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFApplication.pas',0,1,183,54,225,0,0,, File_3=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFStringVisitor.pas',0,1,128,1,131,0,0,,
File_4=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\FastMM4\FastMM4.pas',0,1,9585,88,9618,0,0,, File_4=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFTask.pas',0,1,193,1,204,0,0,,
File_5=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFTypes.pas',0,1,1712,23,1740,0,0,, File_5=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFApplication.pas',0,1,183,54,225,0,0,,
File_6=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFPDFPrintCallback.pas',0,1,79,1,88,0,0,, File_6=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\FastMM4\FastMM4.pas',0,1,9585,88,9618,0,0,,
File_7=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFChromiumWindow.pas',0,1,70,37,58,0,0,, File_7=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFTypes.pas',0,1,1712,23,1740,0,0,,
File_8=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFWindowParent.pas',0,1,65,27,66,0,0,, File_8=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFPDFPrintCallback.pas',0,1,79,1,88,0,0,,
File_9=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFInterfaces.pas',0,1,246,22,279,0,0,, File_9=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFChromiumWindow.pas',0,1,70,37,58,0,0,,
[Modules] [Modules]
Module0=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\uMiniBrowser.pas Module0=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\MiniBrowser.dproj
Module1=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\MiniBrowser.dproj Module1=default.htm
Module2=default.htm Module2=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\uMiniBrowser.pas
Count=3 Count=3
EditWindowCount=1 EditWindowCount=1
[C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\uMiniBrowser.pas]
ModuleType=TSourceModule
[C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\MiniBrowser.dproj] [C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\MiniBrowser.dproj]
ModuleType=TBaseProject ModuleType=TBaseProject
[default.htm] [default.htm]
ModuleType=TURLModule ModuleType=TURLModule
[C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\uMiniBrowser.pas]
ModuleType=TSourceModule
[EditWindow0] [EditWindow0]
ViewCount=3 ViewCount=3
CurrentEditView=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\uMiniBrowser.pas CurrentEditView=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\MiniBrowser.dpr
View0=0 View0=0
View1=1 View1=1
View2=2 View2=2
@ -48,17 +48,18 @@ ClientHeight=9417
DockedToMainForm=1 DockedToMainForm=1
BorlandEditorCodeExplorer=BorlandEditorCodeExplorer@EditWindow0 BorlandEditorCodeExplorer=BorlandEditorCodeExplorer@EditWindow0
TopPanelSize=0 TopPanelSize=0
LeftPanelSize=0 LeftPanelSize=1898
LeftPanelClients=PropertyInspector,DockSite3
LeftPanelData=000008000101000000001615000000000000016A0700000000000001000000005D0E000009000000446F636B53697465330100000000471D00001100000050726F7065727479496E73706563746F72FFFFFFFF
RightPanelSize=2000 RightPanelSize=2000
RightPanelClients=DockSite2,DockSite4 RightPanelClients=DockSite2,DockSite4
RightPanelData=0000080001010100000009000000446F636B5369746534161500000000000001D0070000000000000100000000471D000009000000446F636B5369746532FFFFFFFF RightPanelData=00000800010100000000161500000000000001D00700000000000001000000004312000009000000446F636B53697465320100000000471D000009000000446F636B5369746534FFFFFFFF
BottomPanelSize=1551 BottomPanelSize=1551
BottomPanelClients=DockSite1,MessageView BottomPanelClients=DockSite1,MessageView
BottomPanelData=000008000102000000003B36000000000000020F0600000000000001000000001D1B000009000000446F636B536974653101000000003B3600000F0000004D65737361676556696577466F726DFFFFFFFF BottomPanelData=0000080001020100000009000000446F636B53697465313B36000000000000020F0600000000000001000000003B3600000F0000004D65737361676556696577466F726DFFFFFFFF
BottomMiddlePanelSize=0 BottomMiddlePanelSize=0
BottomMiddlePanelClients=DockSite0,GraphDrawingModel BottomMiddlePanelClients=DockSite0,GraphDrawingModel
BottomMiddelPanelData=0000080001020200000009000000446F636B536974653010000000477261706844726177696E67566965779D1D00000000000002F306000000000000FFFFFFFF BottomMiddelPanelData=0000080001020200000009000000446F636B536974653010000000477261706844726177696E67566965779D1D00000000000002F306000000000000FFFFFFFF
TabDockLeftClients=PropertyInspector=0,DockSite3=1
[View0] [View0]
CustomEditViewType=TWelcomePageView CustomEditViewType=TWelcomePageView
@ -67,10 +68,10 @@ WelcomePageURL=bds:/default.htm
[View1] [View1]
CustomEditViewType=TEditView CustomEditViewType=TEditView
Module=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\MiniBrowser.dpr Module=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\MiniBrowser.dpr
CursorX=2 CursorX=3
CursorY=66 CursorY=66
TopLine=52 TopLine=43
LeftCol=1 LeftCol=2
Elisions= Elisions=
Bookmarks= Bookmarks=
EditViewName=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\MiniBrowser.dpr EditViewName=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\MiniBrowser.dpr
@ -78,12 +79,12 @@ EditViewName=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\d
[View2] [View2]
CustomEditViewType=TEditView CustomEditViewType=TEditView
Module=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\uMiniBrowser.pas Module=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\uMiniBrowser.pas
CursorX=25 CursorX=67
CursorY=560 CursorY=580
TopLine=543 TopLine=569
LeftCol=1 LeftCol=1
Elisions= Elisions=
Bookmarks= Bookmarks={1,590,1}
EditViewName=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\uMiniBrowser.pas EditViewName=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\uMiniBrowser.pas
[UndockedDesigner] [UndockedDesigner]
@ -151,11 +152,11 @@ State=0
Left=0 Left=0
Top=0 Top=0
Width=2000 Width=2000
Height=7265 Height=4305
MaxLeft=-1 MaxLeft=-1
MaxTop=-1 MaxTop=-1
ClientWidth=2000 ClientWidth=2000
ClientHeight=7265 ClientHeight=4305
TBDockHeight=5897 TBDockHeight=5897
LRDockWidth=2352 LRDockWidth=2352
Dockable=1 Dockable=1
@ -167,13 +168,13 @@ Create=1
Visible=1 Visible=1
Docked=1 Docked=1
State=0 State=0
Left=640 Left=0
Top=18 Top=18
Width=5000 Width=10000
Height=1401 Height=1401
MaxLeft=-1 MaxLeft=-1
MaxTop=-1 MaxTop=-1
ClientWidth=5000 ClientWidth=10000
ClientHeight=1401 ClientHeight=1401
TBDockHeight=1401 TBDockHeight=1401
LRDockWidth=2773 LRDockWidth=2773
@ -189,11 +190,11 @@ State=0
Left=0 Left=0
Top=0 Top=0
Width=2000 Width=2000
Height=7220 Height=2713
MaxLeft=-1 MaxLeft=-1
MaxTop=-1 MaxTop=-1
ClientWidth=2000 ClientWidth=2000
ClientHeight=7220 ClientHeight=2713
TBDockHeight=7152 TBDockHeight=7152
LRDockWidth=2000 LRDockWidth=2000
Dockable=1 Dockable=1
@ -243,8 +244,8 @@ Create=1
Visible=0 Visible=0
Docked=1 Docked=1
State=0 State=0
Left=-8 Left=-121
Top=-30 Top=-70
Width=1844 Width=1844
Height=3139 Height=3139
MaxLeft=-1 MaxLeft=-1
@ -297,18 +298,18 @@ StayOnTop=0
[PropertyInspector] [PropertyInspector]
PercentageSizes=1 PercentageSizes=1
Create=1 Create=1
Visible=0 Visible=1
Docked=1 Docked=1
State=0 State=0
Left=78 Left=0
Top=386 Top=357
Width=1898 Width=1898
Height=7220 Height=3744
MaxLeft=-1 MaxLeft=-1
MaxTop=-1 MaxTop=-1
ClientWidth=1898 ClientWidth=1898
ClientHeight=7220 ClientHeight=3744
TBDockHeight=7220 TBDockHeight=7164
LRDockWidth=1898 LRDockWidth=1898
Dockable=1 Dockable=1
StayOnTop=0 StayOnTop=0
@ -358,8 +359,8 @@ Create=1
Visible=0 Visible=0
Docked=1 Docked=1
State=0 State=0
Left=-1024 Left=-1152
Top=265 Top=247
Width=273 Width=273
Height=359 Height=359
MaxLeft=-1 MaxLeft=-1
@ -584,11 +585,11 @@ Docked=1
State=0 State=0
Left=0 Left=0
Top=0 Top=0
Width=4969 Width=3820
Height=1121 Height=1121
MaxLeft=-1 MaxLeft=-1
MaxTop=-1 MaxTop=-1
ClientWidth=4969 ClientWidth=3820
ClientHeight=1121 ClientHeight=1121
TBDockHeight=1547 TBDockHeight=1547
LRDockWidth=8742 LRDockWidth=8742
@ -610,12 +611,12 @@ Docked=1
State=0 State=0
Left=0 Left=0
Top=0 Top=0
Width=1773 Width=1898
Height=6794 Height=3554
MaxLeft=-1 MaxLeft=-1
MaxTop=-1 MaxTop=-1
ClientWidth=1773 ClientWidth=1898
ClientHeight=6794 ClientHeight=3554
TBDockHeight=3677 TBDockHeight=3677
LRDockWidth=1898 LRDockWidth=1898
Dockable=1 Dockable=1
@ -691,23 +692,23 @@ HostDockSite=DockBottomPanel
DockSiteType=1 DockSiteType=1
PercentageSizes=1 PercentageSizes=1
Create=1 Create=1
Visible=1 Visible=0
Docked=1 Docked=1
State=0 State=0
Left=0 Left=0
Top=18 Top=18
Width=4969 Width=3820
Height=1401 Height=1401
MaxLeft=-1 MaxLeft=-1
MaxTop=-1 MaxTop=-1
ClientWidth=4969 ClientWidth=3820
ClientHeight=1401 ClientHeight=1401
TBDockHeight=1401 TBDockHeight=1401
LRDockWidth=3820 LRDockWidth=3820
Dockable=1 Dockable=1
StayOnTop=0 StayOnTop=0
TabPosition=1 TabPosition=1
ActiveTabID=BreakpointWindow ActiveTabID=DebugLogView
TabDockClients=DebugLogView,BreakpointWindow,ThreadStatusWindow,CallStackWindow,WatchWindow,LocalVarsWindow TabDockClients=DebugLogView,BreakpointWindow,ThreadStatusWindow,CallStackWindow,WatchWindow,LocalVarsWindow
[DockSite2] [DockSite2]
@ -721,12 +722,12 @@ State=0
Left=0 Left=0
Top=18 Top=18
Width=2000 Width=2000
Height=7545 Height=4585
MaxLeft=-1 MaxLeft=-1
MaxTop=-1 MaxTop=-1
ClientWidth=2000 ClientWidth=2000
ClientHeight=7545 ClientHeight=4585
TBDockHeight=7220 TBDockHeight=7164
LRDockWidth=2000 LRDockWidth=2000
Dockable=1 Dockable=1
StayOnTop=0 StayOnTop=0
@ -735,22 +736,22 @@ ActiveTabID=ProjectManager
TabDockClients=ProjectManager,ModelViewTool,DataExplorerContainer,frmDesignPreview,TFileExplorerForm TabDockClients=ProjectManager,ModelViewTool,DataExplorerContainer,frmDesignPreview,TFileExplorerForm
[DockSite3] [DockSite3]
HostDockSite=LeftDockTabSet HostDockSite=DockLeftPanel
DockSiteType=1 DockSiteType=1
PercentageSizes=1 PercentageSizes=1
Create=1 Create=1
Visible=0 Visible=1
Docked=1 Docked=1
State=0 State=0
Left=0 Left=0
Top=0 Top=18
Width=1898 Width=1898
Height=7220 Height=3554
MaxLeft=-1 MaxLeft=-1
MaxTop=-1 MaxTop=-1
ClientWidth=1773 ClientWidth=1898
ClientHeight=6794 ClientHeight=3554
TBDockHeight=7220 TBDockHeight=7164
LRDockWidth=1898 LRDockWidth=1898
Dockable=1 Dockable=1
StayOnTop=0 StayOnTop=0
@ -763,18 +764,18 @@ HostDockSite=DockRightPanel
DockSiteType=1 DockSiteType=1
PercentageSizes=1 PercentageSizes=1
Create=1 Create=1
Visible=0 Visible=1
Docked=1 Docked=1
State=0 State=0
Left=0 Left=0
Top=0 Top=449
Width=2000 Width=2000
Height=7220 Height=2713
MaxLeft=-1 MaxLeft=-1
MaxTop=-1 MaxTop=-1
ClientWidth=2000 ClientWidth=2000
ClientHeight=7220 ClientHeight=2713
TBDockHeight=7220 TBDockHeight=7164
LRDockWidth=2000 LRDockWidth=2000
Dockable=1 Dockable=1
StayOnTop=0 StayOnTop=0

BIN
demos/MiniBrowser/MiniBrowser.identcache
View File

Binary file not shown.

12
demos/MiniBrowser/MiniBrowser.stat
View File

@ -1,10 +1,10 @@
[Stats] [Stats]
EditorSecs=47870 EditorSecs=48911
DesignerSecs=2448 DesignerSecs=2452
InspectorSecs=1794 InspectorSecs=1802
CompileSecs=2680883 CompileSecs=2709478
OtherSecs=7675 OtherSecs=7731
StartTime=11/02/2017 10:51:15 StartTime=11/02/2017 10:51:15
RealKeys=0 RealKeys=0
EffectiveKeys=0 EffectiveKeys=0
DebugSecs=40274 DebugSecs=40779

5
demos/MiniBrowser/uMiniBrowser.dfm
View File

@ -143,7 +143,10 @@ object MiniBrowserFrm: TMiniBrowserFrm
'https://html5demos.com/drag/' 'https://html5demos.com/drag/'
'https://developers.google.com/maps/documentation/javascript/exam' + 'https://developers.google.com/maps/documentation/javascript/exam' +
'ples/streetview-embed?hl=fr') 'ples/streetview-embed?hl=fr'
'https://www.w3schools.com/Tags/tryit.asp?filename=tryhtml_iframe' +
'_name')
end end
end end
object ConfigPnl: TPanel object ConfigPnl: TPanel

64
demos/MiniBrowser/uMiniBrowser.pas
View File

@ -57,15 +57,19 @@ const
MINIBROWSER_HIDEDEVTOOLS = WM_APP + $102; MINIBROWSER_HIDEDEVTOOLS = WM_APP + $102;
MINIBROWSER_COPYHTML = WM_APP + $103; MINIBROWSER_COPYHTML = WM_APP + $103;
MINIBROWSER_SHOWRESPONSE = WM_APP + $104; MINIBROWSER_SHOWRESPONSE = WM_APP + $104;
MINIBROWSER_COPYFRAMEIDS = WM_APP + $105;
MINIBROWSER_COPYFRAMENAMES = WM_APP + $106;
MINIBROWSER_HOMEPAGE = 'https://www.google.com'; MINIBROWSER_HOMEPAGE = 'https://www.google.com';
MINIBROWSER_CONTEXTMENU_SHOWDEVTOOLS = MENU_ID_USER_FIRST + 1; MINIBROWSER_CONTEXTMENU_SHOWDEVTOOLS = MENU_ID_USER_FIRST + 1;
MINIBROWSER_CONTEXTMENU_HIDEDEVTOOLS = MENU_ID_USER_FIRST + 2; MINIBROWSER_CONTEXTMENU_HIDEDEVTOOLS = MENU_ID_USER_FIRST + 2;
MINIBROWSER_CONTEXTMENU_COPYHTML = MENU_ID_USER_FIRST + 5; MINIBROWSER_CONTEXTMENU_COPYHTML = MENU_ID_USER_FIRST + 3;
MINIBROWSER_CONTEXTMENU_JSWRITEDOC = MENU_ID_USER_FIRST + 7; MINIBROWSER_CONTEXTMENU_JSWRITEDOC = MENU_ID_USER_FIRST + 4;
MINIBROWSER_CONTEXTMENU_JSPRINTDOC = MENU_ID_USER_FIRST + 8; MINIBROWSER_CONTEXTMENU_JSPRINTDOC = MENU_ID_USER_FIRST + 5;
MINIBROWSER_CONTEXTMENU_SHOWRESPONSE = MENU_ID_USER_FIRST + 9; MINIBROWSER_CONTEXTMENU_SHOWRESPONSE = MENU_ID_USER_FIRST + 6;
MINIBROWSER_CONTEXTMENU_COPYFRAMEIDS = MENU_ID_USER_FIRST + 7;
MINIBROWSER_CONTEXTMENU_COPYFRAMENAMES = MENU_ID_USER_FIRST + 8;
type type
TMiniBrowserFrm = class(TForm) TMiniBrowserFrm = class(TForm)
@ -172,6 +176,8 @@ type
procedure ShowDevToolsMsg(var aMessage : TMessage); message MINIBROWSER_SHOWDEVTOOLS; procedure ShowDevToolsMsg(var aMessage : TMessage); message MINIBROWSER_SHOWDEVTOOLS;
procedure HideDevToolsMsg(var aMessage : TMessage); message MINIBROWSER_HIDEDEVTOOLS; procedure HideDevToolsMsg(var aMessage : TMessage); message MINIBROWSER_HIDEDEVTOOLS;
procedure CopyHTMLMsg(var aMessage : TMessage); message MINIBROWSER_COPYHTML; procedure CopyHTMLMsg(var aMessage : TMessage); message MINIBROWSER_COPYHTML;
procedure CopyFramesIDsMsg(var aMessage : TMessage); message MINIBROWSER_COPYFRAMEIDS;
procedure CopyFramesNamesMsg(var aMessage : TMessage); message MINIBROWSER_COPYFRAMENAMES;
procedure ShowResponseMsg(var aMessage : TMessage); message MINIBROWSER_SHOWRESPONSE; procedure ShowResponseMsg(var aMessage : TMessage); message MINIBROWSER_SHOWRESPONSE;
procedure WMMove(var aMessage : TWMMove); message WM_MOVE; procedure WMMove(var aMessage : TWMMove); message WM_MOVE;
procedure WMMoving(var aMessage : TMessage); message WM_MOVING; procedure WMMoving(var aMessage : TMessage); message WM_MOVING;
@ -233,6 +239,9 @@ procedure TMiniBrowserFrm.Chromium1BeforeContextMenu(Sender: TObject;
begin begin
model.AddSeparator; model.AddSeparator;
model.AddItem(MINIBROWSER_CONTEXTMENU_COPYHTML, 'Copy HTML to clipboard'); model.AddItem(MINIBROWSER_CONTEXTMENU_COPYHTML, 'Copy HTML to clipboard');
model.AddItem(MINIBROWSER_CONTEXTMENU_COPYFRAMEIDS, 'Copy HTML frame identifiers to clipboard');
model.AddItem(MINIBROWSER_CONTEXTMENU_COPYFRAMENAMES, 'Copy HTML frame names to clipboard');
model.AddSeparator;
model.AddItem(MINIBROWSER_CONTEXTMENU_JSWRITEDOC, 'Modify HTML document'); model.AddItem(MINIBROWSER_CONTEXTMENU_JSWRITEDOC, 'Modify HTML document');
model.AddItem(MINIBROWSER_CONTEXTMENU_JSPRINTDOC, 'Print using Javascript'); model.AddItem(MINIBROWSER_CONTEXTMENU_JSPRINTDOC, 'Print using Javascript');
model.AddItem(MINIBROWSER_CONTEXTMENU_SHOWRESPONSE, 'Show last server response'); model.AddItem(MINIBROWSER_CONTEXTMENU_SHOWRESPONSE, 'Show last server response');
@ -265,6 +274,12 @@ begin
MINIBROWSER_CONTEXTMENU_COPYHTML : MINIBROWSER_CONTEXTMENU_COPYHTML :
PostMessage(Handle, MINIBROWSER_COPYHTML, 0, 0); PostMessage(Handle, MINIBROWSER_COPYHTML, 0, 0);
MINIBROWSER_CONTEXTMENU_COPYFRAMEIDS :
PostMessage(Handle, MINIBROWSER_COPYFRAMEIDS, 0, 0);
MINIBROWSER_CONTEXTMENU_COPYFRAMENAMES :
PostMessage(Handle, MINIBROWSER_COPYFRAMENAMES, 0, 0);
MINIBROWSER_CONTEXTMENU_SHOWRESPONSE : MINIBROWSER_CONTEXTMENU_SHOWRESPONSE :
PostMessage(Handle, MINIBROWSER_SHOWRESPONSE, 0, 0); PostMessage(Handle, MINIBROWSER_SHOWRESPONSE, 0, 0);
@ -566,6 +581,43 @@ begin
Chromium1.RetrieveHTML; Chromium1.RetrieveHTML;
end; end;
procedure TMiniBrowserFrm.CopyFramesIDsMsg(var aMessage : TMessage);
var
i : NativeUInt;
TempCount : NativeUInt;
TempArray : TCefFrameIdentifierArray;
TempString : string;
begin
TempCount := Chromium1.FrameCount;
if Chromium1.GetFrameIdentifiers(TempCount, TempArray) then
begin
TempString := '';
i := 0;
while (i < TempCount) do
begin
TempString := TempString + inttostr(TempArray[i]) + CRLF;
inc(i);
end;
clipboard.AsText := TempString;
end;
end;
procedure TMiniBrowserFrm.CopyFramesNamesMsg(var aMessage : TMessage);
var
TempSL : TStringList;
begin
try
TempSL := TStringList.Create;
if Chromium1.GetFrameNames(TStrings(TempSL)) then clipboard.AsText := TempSL.Text;
finally
FreeAndNil(TempSL);
end;
end;
procedure TMiniBrowserFrm.ShowResponseMsg(var aMessage : TMessage); procedure TMiniBrowserFrm.ShowResponseMsg(var aMessage : TMessage);
begin begin
if (length(FResponse) > 0) then MessageDlg(FResponse, mtInformation, [mbOk], 0); if (length(FResponse) > 0) then MessageDlg(FResponse, mtInformation, [mbOk], 0);

111
demos/TabbedBrowser/TabBrowser.dsk
View File

@ -12,20 +12,20 @@ File_9=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Com
[Modules] [Modules]
Module0=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\TabbedBrowser\TabBrowser.dproj Module0=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\TabbedBrowser\TabBrowser.dproj
Module1=default.htm Module1=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\TabbedBrowser\uMainForm.pas
Module2=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\TabbedBrowser\uMainForm.pas Module2=default.htm
Count=3 Count=3
EditWindowCount=1 EditWindowCount=1
[C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\TabbedBrowser\TabBrowser.dproj] [C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\TabbedBrowser\TabBrowser.dproj]
ModuleType=TBaseProject ModuleType=TBaseProject
[default.htm]
ModuleType=TURLModule
[C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\TabbedBrowser\uMainForm.pas] [C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\TabbedBrowser\uMainForm.pas]
ModuleType=TSourceModule ModuleType=TSourceModule
[default.htm]
ModuleType=TURLModule
[EditWindow0] [EditWindow0]
ViewCount=3 ViewCount=3
CurrentEditView=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\TabbedBrowser\TabBrowser.dpr CurrentEditView=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\TabbedBrowser\TabBrowser.dpr
@ -48,17 +48,18 @@ ClientHeight=9417
DockedToMainForm=1 DockedToMainForm=1
BorlandEditorCodeExplorer=BorlandEditorCodeExplorer@EditWindow0 BorlandEditorCodeExplorer=BorlandEditorCodeExplorer@EditWindow0
TopPanelSize=0 TopPanelSize=0
LeftPanelSize=0 LeftPanelSize=1898
LeftPanelClients=PropertyInspector,DockSite3
LeftPanelData=000008000101000000001615000000000000016A0700000000000001000000005D0E000009000000446F636B53697465330100000000471D00001100000050726F7065727479496E73706563746F72FFFFFFFF
RightPanelSize=2000 RightPanelSize=2000
RightPanelClients=DockSite2,DockSite4 RightPanelClients=DockSite2,DockSite4
RightPanelData=00000800010100000000261500000000000001D00700000000000001000000004312000009000000446F636B536974653201000000005C1D000009000000446F636B5369746534FFFFFFFF RightPanelData=00000800010100000000161500000000000001D00700000000000001000000004312000009000000446F636B53697465320100000000471D000009000000446F636B5369746534FFFFFFFF
BottomPanelSize=1529 BottomPanelSize=1551
BottomPanelClients=DockSite1,MessageView BottomPanelClients=DockSite1,MessageView
BottomPanelData=0000080001020100000009000000446F636B53697465313B3600000000000002F90500000000000001000000003B3600000F0000004D65737361676556696577466F726DFFFFFFFF BottomPanelData=0000080001020100000009000000446F636B53697465313B36000000000000020F0600000000000001000000003B3600000F0000004D65737361676556696577466F726DFFFFFFFF
BottomMiddlePanelSize=0 BottomMiddlePanelSize=0
BottomMiddlePanelClients=DockSite0,GraphDrawingModel BottomMiddlePanelClients=DockSite0,GraphDrawingModel
BottomMiddelPanelData=0000080001020200000009000000446F636B536974653010000000477261706844726177696E67566965779D1D00000000000002F306000000000000FFFFFFFF BottomMiddelPanelData=0000080001020200000009000000446F636B536974653010000000477261706844726177696E67566965779D1D00000000000002F306000000000000FFFFFFFF
TabDockLeftClients=PropertyInspector=0,DockSite3=1
[View0] [View0]
CustomEditViewType=TWelcomePageView CustomEditViewType=TWelcomePageView
@ -67,19 +68,19 @@ WelcomePageURL=bds:/default.htm
[View1] [View1]
CustomEditViewType=TEditView CustomEditViewType=TEditView
Module=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\TabbedBrowser\uMainForm.pas Module=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\TabbedBrowser\uMainForm.pas
CursorX=80 CursorX=7
CursorY=141 CursorY=263
TopLine=365 TopLine=227
LeftCol=1 LeftCol=1
Elisions= Elisions=
Bookmarks={1,166,37}{2,127,24} Bookmarks={1,165,37}{2,126,24}
EditViewName=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\TabbedBrowser\uMainForm.pas EditViewName=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\TabbedBrowser\uMainForm.pas
[View2] [View2]
CustomEditViewType=TEditView CustomEditViewType=TEditView
Module=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\TabbedBrowser\TabBrowser.dpr Module=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\TabbedBrowser\TabBrowser.dpr
CursorX=2 CursorX=55
CursorY=62 CursorY=66
TopLine=41 TopLine=41
LeftCol=1 LeftCol=1
Elisions= Elisions=
@ -103,11 +104,11 @@ State=0
Left=0 Left=0
Top=0 Top=0
Width=3820 Width=3820
Height=1099 Height=1121
MaxLeft=-1 MaxLeft=-1
MaxTop=-1 MaxTop=-1
ClientWidth=3820 ClientWidth=3820
ClientHeight=1099 ClientHeight=1121
TBDockHeight=213 TBDockHeight=213
LRDockWidth=13602 LRDockWidth=13602
Dockable=1 Dockable=1
@ -170,12 +171,12 @@ State=0
Left=0 Left=0
Top=18 Top=18
Width=10000 Width=10000
Height=1379 Height=1401
MaxLeft=-1 MaxLeft=-1
MaxTop=-1 MaxTop=-1
ClientWidth=10000 ClientWidth=10000
ClientHeight=1379 ClientHeight=1401
TBDockHeight=1379 TBDockHeight=1401
LRDockWidth=2773 LRDockWidth=2773
Dockable=1 Dockable=1
StayOnTop=0 StayOnTop=0
@ -189,11 +190,11 @@ State=0
Left=0 Left=0
Top=0 Top=0
Width=2000 Width=2000
Height=2735 Height=2713
MaxLeft=-1 MaxLeft=-1
MaxTop=-1 MaxTop=-1
ClientWidth=2000 ClientWidth=2000
ClientHeight=2735 ClientHeight=2713
TBDockHeight=7152 TBDockHeight=7152
LRDockWidth=2000 LRDockWidth=2000
Dockable=1 Dockable=1
@ -243,8 +244,8 @@ Create=1
Visible=0 Visible=0
Docked=1 Docked=1
State=0 State=0
Left=-8 Left=-121
Top=-30 Top=-70
Width=1844 Width=1844
Height=3139 Height=3139
MaxLeft=-1 MaxLeft=-1
@ -297,17 +298,17 @@ StayOnTop=0
[PropertyInspector] [PropertyInspector]
PercentageSizes=1 PercentageSizes=1
Create=1 Create=1
Visible=0 Visible=1
Docked=1 Docked=1
State=0 State=0
Left=78 Left=0
Top=386 Top=357
Width=1898 Width=1898
Height=7164 Height=3744
MaxLeft=-1 MaxLeft=-1
MaxTop=-1 MaxTop=-1
ClientWidth=1898 ClientWidth=1898
ClientHeight=7164 ClientHeight=3744
TBDockHeight=7164 TBDockHeight=7164
LRDockWidth=1898 LRDockWidth=1898
Dockable=1 Dockable=1
@ -383,11 +384,11 @@ State=0
Left=0 Left=0
Top=0 Top=0
Width=3820 Width=3820
Height=1099 Height=1121
MaxLeft=-1 MaxLeft=-1
MaxTop=-1 MaxTop=-1
ClientWidth=3820 ClientWidth=3820
ClientHeight=1099 ClientHeight=1121
TBDockHeight=415 TBDockHeight=415
LRDockWidth=4953 LRDockWidth=4953
Dockable=1 Dockable=1
@ -402,11 +403,11 @@ State=0
Left=0 Left=0
Top=0 Top=0
Width=3820 Width=3820
Height=1099 Height=1121
MaxLeft=-1 MaxLeft=-1
MaxTop=-1 MaxTop=-1
ClientWidth=3820 ClientWidth=3820
ClientHeight=1099 ClientHeight=1121
TBDockHeight=213 TBDockHeight=213
LRDockWidth=7406 LRDockWidth=7406
Dockable=1 Dockable=1
@ -425,11 +426,11 @@ State=0
Left=0 Left=0
Top=0 Top=0
Width=3820 Width=3820
Height=1099 Height=1121
MaxLeft=-1 MaxLeft=-1
MaxTop=-1 MaxTop=-1
ClientWidth=3820 ClientWidth=3820
ClientHeight=1099 ClientHeight=1121
TBDockHeight=1536 TBDockHeight=1536
LRDockWidth=3484 LRDockWidth=3484
Dockable=1 Dockable=1
@ -444,11 +445,11 @@ State=0
Left=0 Left=0
Top=0 Top=0
Width=3820 Width=3820
Height=1099 Height=1121
MaxLeft=-1 MaxLeft=-1
MaxTop=-1 MaxTop=-1
ClientWidth=3820 ClientWidth=3820
ClientHeight=1099 ClientHeight=1121
TBDockHeight=2063 TBDockHeight=2063
LRDockWidth=3484 LRDockWidth=3484
Dockable=1 Dockable=1
@ -585,11 +586,11 @@ State=0
Left=0 Left=0
Top=0 Top=0
Width=3820 Width=3820
Height=1099 Height=1121
MaxLeft=-1 MaxLeft=-1
MaxTop=-1 MaxTop=-1
ClientWidth=3820 ClientWidth=3820
ClientHeight=1099 ClientHeight=1121
TBDockHeight=1547 TBDockHeight=1547
LRDockWidth=8742 LRDockWidth=8742
Dockable=1 Dockable=1
@ -610,12 +611,12 @@ Docked=1
State=0 State=0
Left=0 Left=0
Top=0 Top=0
Width=1773 Width=1898
Height=6738 Height=3554
MaxLeft=-1 MaxLeft=-1
MaxTop=-1 MaxTop=-1
ClientWidth=1773 ClientWidth=1898
ClientHeight=6738 ClientHeight=3554
TBDockHeight=3677 TBDockHeight=3677
LRDockWidth=1898 LRDockWidth=1898
Dockable=1 Dockable=1
@ -697,12 +698,12 @@ State=0
Left=0 Left=0
Top=18 Top=18
Width=3820 Width=3820
Height=1379 Height=1401
MaxLeft=-1 MaxLeft=-1
MaxTop=-1 MaxTop=-1
ClientWidth=3820 ClientWidth=3820
ClientHeight=1379 ClientHeight=1401
TBDockHeight=1379 TBDockHeight=1401
LRDockWidth=3820 LRDockWidth=3820
Dockable=1 Dockable=1
StayOnTop=0 StayOnTop=0
@ -735,21 +736,21 @@ ActiveTabID=ProjectManager
TabDockClients=ProjectManager,ModelViewTool,DataExplorerContainer,frmDesignPreview,TFileExplorerForm TabDockClients=ProjectManager,ModelViewTool,DataExplorerContainer,frmDesignPreview,TFileExplorerForm
[DockSite3] [DockSite3]
HostDockSite=LeftDockTabSet HostDockSite=DockLeftPanel
DockSiteType=1 DockSiteType=1
PercentageSizes=1 PercentageSizes=1
Create=1 Create=1
Visible=0 Visible=1
Docked=1 Docked=1
State=0 State=0
Left=0 Left=0
Top=0 Top=18
Width=1898 Width=1898
Height=7164 Height=3554
MaxLeft=-1 MaxLeft=-1
MaxTop=-1 MaxTop=-1
ClientWidth=1773 ClientWidth=1898
ClientHeight=6738 ClientHeight=3554
TBDockHeight=7164 TBDockHeight=7164
LRDockWidth=1898 LRDockWidth=1898
Dockable=1 Dockable=1
@ -769,11 +770,11 @@ State=0
Left=0 Left=0
Top=449 Top=449
Width=2000 Width=2000
Height=2735 Height=2713
MaxLeft=-1 MaxLeft=-1
MaxTop=-1 MaxTop=-1
ClientWidth=2000 ClientWidth=2000
ClientHeight=2735 ClientHeight=2713
TBDockHeight=7164 TBDockHeight=7164
LRDockWidth=2000 LRDockWidth=2000
Dockable=1 Dockable=1

8
demos/TabbedBrowser/TabBrowser.stat
View File

@ -1,10 +1,10 @@
[Stats] [Stats]
EditorSecs=5580 EditorSecs=5709
DesignerSecs=425 DesignerSecs=425
InspectorSecs=86 InspectorSecs=86
CompileSecs=93874 CompileSecs=107989
OtherSecs=187 OtherSecs=194
StartTime=22/09/2017 23:12:56 StartTime=22/09/2017 23:12:56
RealKeys=0 RealKeys=0
EffectiveKeys=0 EffectiveKeys=0
DebugSecs=699 DebugSecs=915

2
demos/TabbedBrowser/uMainForm.dfm
View File

@ -195,8 +195,6 @@ object MainForm: TMainForm
'https://developers.google.com/maps/documentation/javascript/exam' + 'https://developers.google.com/maps/documentation/javascript/exam' +
'ples/streetview-embed?hl=fr') 'ples/streetview-embed?hl=fr')
ExplicitTop = 1
ExplicitWidth = 456
end end
end end
end end

143
source/CEF4Delphi.dsk
View File

@ -1,14 +1,14 @@
[Closed Files] [Closed Files]
File_0=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFApplication.pas',0,1,30,39,60,0,0,, File_0=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFChromium.pas',0,1,1741,1,1761,0,0,,{1,1730,1}{2,1675,41}
File_1=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFChromium.pas',0,1,1387,32,1417,0,0,,{1 File_1=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFApplication.pas',0,1,30,39,60,0,0,,
File_2=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFInterfaces.pas',0,1,222,49,270,0,0,,{1 File_2=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFInterfaces.pas',0,1,240,5,271,0,0,,{1,269,40}
File_3=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFBrowser.pas',0,1,185,54,203,0,0,, File_3=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFBrowser.pas',0,1,186,62,249,0,0,,
File_4=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFStringVisitor.pas',0,1,98,56,131,0,0,, File_4=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFX509Certificate.pas',0,1,164,73,195,0,0,,
File_5=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFTask.pas',0,1,186,45,204,0,0,,{1 File_5=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFTypes.pas',0,1,2490,108,2513,0,0,,{1,2513,79}{2,1011,61}
File_6=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFChromiumEvents.pas',0,1,1,1,1,0,0,, File_6=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFTask.pas',0,1,189,82,245,0,0,,{1,90,17}
File_7=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFCookieManager.pas',0,1,21,23,38,0,0,, File_7=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFStringVisitor.pas',0,1,42,39,78,0,0,,{1
File_8=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFMiscFunctions.pas',0,1,506,3,524,0,0,, File_8=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFChromiumEvents.pas',0,1,1,1,1,0,0,,
File_9=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFExtension.pas',0,1,48,82,110,0,0,, File_9=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFCookieManager.pas',0,1,21,23,38,0,0,,
[Modules] [Modules]
Module0=default.htm Module0=default.htm
@ -38,17 +38,18 @@ ClientHeight=9417
DockedToMainForm=1 DockedToMainForm=1
BorlandEditorCodeExplorer=BorlandEditorCodeExplorer@EditWindow0 BorlandEditorCodeExplorer=BorlandEditorCodeExplorer@EditWindow0
TopPanelSize=0 TopPanelSize=0
LeftPanelSize=0 LeftPanelSize=1898
LeftPanelClients=PropertyInspector,DockSite3
LeftPanelData=000008000101000000001615000000000000016A0700000000000001000000005D0E000009000000446F636B53697465330100000000471D00001100000050726F7065727479496E73706563746F72FFFFFFFF
RightPanelSize=2000 RightPanelSize=2000
RightPanelClients=DockSite2,DockSite4 RightPanelClients=DockSite2,DockSite4
RightPanelData=00000800010100000000261500000000000001D00700000000000001000000004312000009000000446F636B536974653201000000005C1D000009000000446F636B5369746534FFFFFFFF RightPanelData=00000800010100000000161500000000000001D00700000000000001000000004312000009000000446F636B53697465320100000000471D000009000000446F636B5369746534FFFFFFFF
BottomPanelSize=1529 BottomPanelSize=1551
BottomPanelClients=DockSite1,MessageView BottomPanelClients=DockSite1,MessageView
BottomPanelData=0000080001020100000009000000446F636B53697465313B3600000000000002F90500000000000001000000003B3600000F0000004D65737361676556696577466F726DFFFFFFFF BottomPanelData=0000080001020100000009000000446F636B53697465313B36000000000000020F0600000000000001000000003B3600000F0000004D65737361676556696577466F726DFFFFFFFF
BottomMiddlePanelSize=0 BottomMiddlePanelSize=0
BottomMiddlePanelClients=DockSite0,GraphDrawingModel BottomMiddlePanelClients=DockSite0,GraphDrawingModel
BottomMiddelPanelData=0000080001020200000009000000446F636B536974653010000000477261706844726177696E67566965779D1D00000000000002F306000000000000FFFFFFFF BottomMiddelPanelData=0000080001020200000009000000446F636B536974653010000000477261706844726177696E67566965779D1D00000000000002F306000000000000FFFFFFFF
TabDockLeftClients=PropertyInspector=0,DockSite3=1
[View0] [View0]
CustomEditViewType=TWelcomePageView CustomEditViewType=TWelcomePageView
@ -71,11 +72,11 @@ State=0
Left=0 Left=0
Top=0 Top=0
Width=3820 Width=3820
Height=1099 Height=1143
MaxLeft=-1 MaxLeft=-1
MaxTop=-1 MaxTop=-1
ClientWidth=3820 ClientWidth=3820
ClientHeight=1099 ClientHeight=1143
TBDockHeight=213 TBDockHeight=213
LRDockWidth=13602 LRDockWidth=13602
Dockable=1 Dockable=1
@ -138,12 +139,12 @@ State=0
Left=0 Left=0
Top=18 Top=18
Width=10000 Width=10000
Height=1379 Height=1401
MaxLeft=-1 MaxLeft=-1
MaxTop=-1 MaxTop=-1
ClientWidth=10000 ClientWidth=10000
ClientHeight=1379 ClientHeight=1401
TBDockHeight=1379 TBDockHeight=1401
LRDockWidth=2773 LRDockWidth=2773
Dockable=1 Dockable=1
StayOnTop=0 StayOnTop=0
@ -157,11 +158,11 @@ State=0
Left=0 Left=0
Top=0 Top=0
Width=2000 Width=2000
Height=2735 Height=2713
MaxLeft=-1 MaxLeft=-1
MaxTop=-1 MaxTop=-1
ClientWidth=2000 ClientWidth=2000
ClientHeight=2735 ClientHeight=2713
TBDockHeight=7152 TBDockHeight=7152
LRDockWidth=2000 LRDockWidth=2000
Dockable=1 Dockable=1
@ -211,8 +212,8 @@ Create=1
Visible=0 Visible=0
Docked=1 Docked=1
State=0 State=0
Left=-8 Left=-148
Top=-30 Top=-132
Width=1844 Width=1844
Height=3139 Height=3139
MaxLeft=-1 MaxLeft=-1
@ -265,18 +266,18 @@ StayOnTop=0
[PropertyInspector] [PropertyInspector]
PercentageSizes=1 PercentageSizes=1
Create=1 Create=1
Visible=0 Visible=1
Docked=1 Docked=1
State=0 State=0
Left=78 Left=0
Top=386 Top=357
Width=1898 Width=1898
Height=7164 Height=3744
MaxLeft=-1 MaxLeft=-1
MaxTop=-1 MaxTop=-1
ClientWidth=1898 ClientWidth=1898
ClientHeight=7164 ClientHeight=3744
TBDockHeight=7164 TBDockHeight=7220
LRDockWidth=1898 LRDockWidth=1898
Dockable=1 Dockable=1
StayOnTop=0 StayOnTop=0
@ -291,11 +292,11 @@ State=0
Left=0 Left=0
Top=0 Top=0
Width=2000 Width=2000
Height=6883 Height=6939
MaxLeft=-1 MaxLeft=-1
MaxTop=-1 MaxTop=-1
ClientWidth=2000 ClientWidth=2000
ClientHeight=6883 ClientHeight=6939
TBDockHeight=5964 TBDockHeight=5964
LRDockWidth=2508 LRDockWidth=2508
Dockable=1 Dockable=1
@ -307,8 +308,8 @@ Create=1
Visible=0 Visible=0
Docked=1 Docked=1
State=0 State=0
Left=-946 Left=-898
Top=5 Top=-132
Width=2844 Width=2844
Height=6200 Height=6200
MaxLeft=-1 MaxLeft=-1
@ -326,8 +327,8 @@ Create=1
Visible=0 Visible=0
Docked=1 Docked=1
State=0 State=0
Left=-1152 Left=-1026
Top=247 Top=-132
Width=273 Width=273
Height=359 Height=359
MaxLeft=-1 MaxLeft=-1
@ -351,11 +352,11 @@ State=0
Left=0 Left=0
Top=0 Top=0
Width=3820 Width=3820
Height=1099 Height=1143
MaxLeft=-1 MaxLeft=-1
MaxTop=-1 MaxTop=-1
ClientWidth=3820 ClientWidth=3820
ClientHeight=1099 ClientHeight=1143
TBDockHeight=415 TBDockHeight=415
LRDockWidth=4953 LRDockWidth=4953
Dockable=1 Dockable=1
@ -370,11 +371,11 @@ State=0
Left=0 Left=0
Top=0 Top=0
Width=3820 Width=3820
Height=1099 Height=1143
MaxLeft=-1 MaxLeft=-1
MaxTop=-1 MaxTop=-1
ClientWidth=3820 ClientWidth=3820
ClientHeight=1099 ClientHeight=1143
TBDockHeight=213 TBDockHeight=213
LRDockWidth=7406 LRDockWidth=7406
Dockable=1 Dockable=1
@ -393,11 +394,11 @@ State=0
Left=0 Left=0
Top=0 Top=0
Width=3820 Width=3820
Height=1099 Height=1143
MaxLeft=-1 MaxLeft=-1
MaxTop=-1 MaxTop=-1
ClientWidth=3820 ClientWidth=3820
ClientHeight=1099 ClientHeight=1143
TBDockHeight=1536 TBDockHeight=1536
LRDockWidth=3484 LRDockWidth=3484
Dockable=1 Dockable=1
@ -412,11 +413,11 @@ State=0
Left=0 Left=0
Top=0 Top=0
Width=3820 Width=3820
Height=1099 Height=1143
MaxLeft=-1 MaxLeft=-1
MaxTop=-1 MaxTop=-1
ClientWidth=3820 ClientWidth=3820
ClientHeight=1099 ClientHeight=1143
TBDockHeight=2063 TBDockHeight=2063
LRDockWidth=3484 LRDockWidth=3484
Dockable=1 Dockable=1
@ -450,11 +451,11 @@ State=0
Left=0 Left=0
Top=0 Top=0
Width=2336 Width=2336
Height=964 Height=1200
MaxLeft=-1 MaxLeft=-1
MaxTop=-1 MaxTop=-1
ClientWidth=2336 ClientWidth=2336
ClientHeight=964 ClientHeight=1200
TBDockHeight=2321 TBDockHeight=2321
LRDockWidth=2820 LRDockWidth=2820
Dockable=1 Dockable=1
@ -515,11 +516,11 @@ State=0
Left=0 Left=0
Top=0 Top=0
Width=2000 Width=2000
Height=6883 Height=6939
MaxLeft=-1 MaxLeft=-1
MaxTop=-1 MaxTop=-1
ClientWidth=2000 ClientWidth=2000
ClientHeight=6883 ClientHeight=6939
TBDockHeight=4888 TBDockHeight=4888
LRDockWidth=7148 LRDockWidth=7148
Dockable=1 Dockable=1
@ -531,8 +532,8 @@ Create=1
Visible=0 Visible=0
Docked=1 Docked=1
State=0 State=0
Left=249 Left=0
Top=709 Top=0
Width=2859 Width=2859
Height=3206 Height=3206
MaxLeft=-1 MaxLeft=-1
@ -553,11 +554,11 @@ State=0
Left=0 Left=0
Top=0 Top=0
Width=3820 Width=3820
Height=1099 Height=1143
MaxLeft=-1 MaxLeft=-1
MaxTop=-1 MaxTop=-1
ClientWidth=3820 ClientWidth=3820
ClientHeight=1099 ClientHeight=1143
TBDockHeight=1547 TBDockHeight=1547
LRDockWidth=8742 LRDockWidth=8742
Dockable=1 Dockable=1
@ -579,11 +580,11 @@ State=0
Left=0 Left=0
Top=0 Top=0
Width=1898 Width=1898
Height=7489 Height=3554
MaxLeft=-1 MaxLeft=-1
MaxTop=-1 MaxTop=-1
ClientWidth=1898 ClientWidth=1898
ClientHeight=7489 ClientHeight=3554
TBDockHeight=3677 TBDockHeight=3677
LRDockWidth=1898 LRDockWidth=1898
Dockable=1 Dockable=1
@ -598,11 +599,11 @@ State=0
Left=0 Left=0
Top=0 Top=0
Width=2000 Width=2000
Height=6883 Height=6939
MaxLeft=-1 MaxLeft=-1
MaxTop=-1 MaxTop=-1
ClientWidth=2000 ClientWidth=2000
ClientHeight=6883 ClientHeight=6939
TBDockHeight=4888 TBDockHeight=4888
LRDockWidth=5305 LRDockWidth=5305
Dockable=1 Dockable=1
@ -663,14 +664,14 @@ Visible=0
Docked=1 Docked=1
State=0 State=0
Left=0 Left=0
Top=18 Top=0
Width=3820 Width=3820
Height=1379 Height=1424
MaxLeft=-1 MaxLeft=-1
MaxTop=-1 MaxTop=-1
ClientWidth=3820 ClientWidth=3820
ClientHeight=1379 ClientHeight=1424
TBDockHeight=1379 TBDockHeight=1424
LRDockWidth=3820 LRDockWidth=3820
Dockable=1 Dockable=1
StayOnTop=0 StayOnTop=0
@ -694,7 +695,7 @@ MaxLeft=-1
MaxTop=-1 MaxTop=-1
ClientWidth=2000 ClientWidth=2000
ClientHeight=4585 ClientHeight=4585
TBDockHeight=7164 TBDockHeight=7220
LRDockWidth=2000 LRDockWidth=2000
Dockable=1 Dockable=1
StayOnTop=0 StayOnTop=0
@ -703,22 +704,22 @@ ActiveTabID=ProjectManager
TabDockClients=ProjectManager,ModelViewTool,DataExplorerContainer,frmDesignPreview,TFileExplorerForm TabDockClients=ProjectManager,ModelViewTool,DataExplorerContainer,frmDesignPreview,TFileExplorerForm
[DockSite3] [DockSite3]
HostDockSite=LeftDockTabSet HostDockSite=DockLeftPanel
DockSiteType=1 DockSiteType=1
PercentageSizes=1 PercentageSizes=1
Create=1 Create=1
Visible=0 Visible=1
Docked=1 Docked=1
State=0 State=0
Left=1 Left=0
Top=24 Top=18
Width=1898 Width=1898
Height=7489 Height=3554
MaxLeft=-1 MaxLeft=-1
MaxTop=-1 MaxTop=-1
ClientWidth=1898 ClientWidth=1898
ClientHeight=7489 ClientHeight=3554
TBDockHeight=7164 TBDockHeight=7220
LRDockWidth=1898 LRDockWidth=1898
Dockable=1 Dockable=1
StayOnTop=0 StayOnTop=0
@ -737,12 +738,12 @@ State=0
Left=0 Left=0
Top=449 Top=449
Width=2000 Width=2000
Height=2735 Height=2713
MaxLeft=-1 MaxLeft=-1
MaxTop=-1 MaxTop=-1
ClientWidth=2000 ClientWidth=2000
ClientHeight=2735 ClientHeight=2713
TBDockHeight=7164 TBDockHeight=7220
LRDockWidth=2000 LRDockWidth=2000
Dockable=1 Dockable=1
StayOnTop=0 StayOnTop=0

BIN
source/CEF4Delphi.identcache
View File

Binary file not shown.

6
source/CEF4Delphi.stat
View File

@ -1,9 +1,9 @@
[Stats] [Stats]
EditorSecs=178297 EditorSecs=181807
DesignerSecs=98 DesignerSecs=98
InspectorSecs=326 InspectorSecs=326
CompileSecs=5611130 CompileSecs=5685029
OtherSecs=18760 OtherSecs=18957
StartTime=22/01/2017 10:49:52 StartTime=22/01/2017 10:49:52
RealKeys=0 RealKeys=0
EffectiveKeys=0 EffectiveKeys=0

2
source/uCEFApplication.pas
View File

@ -57,7 +57,7 @@ uses
const const
CEF_SUPPORTED_VERSION_MAJOR = 3; CEF_SUPPORTED_VERSION_MAJOR = 3;
CEF_SUPPORTED_VERSION_MINOR = 3163; CEF_SUPPORTED_VERSION_MINOR = 3163;
CEF_SUPPORTED_VERSION_RELEASE = 1669; CEF_SUPPORTED_VERSION_RELEASE = 1670;
CEF_SUPPORTED_VERSION_BUILD = 0; CEF_SUPPORTED_VERSION_BUILD = 0;
CEF_CHROMEELF_VERSION_MAJOR = 61; CEF_CHROMEELF_VERSION_MAJOR = 61;

74
source/uCEFBrowser.pas
View File

@ -48,9 +48,9 @@ interface
uses uses
{$IFDEF DELPHI16_UP} {$IFDEF DELPHI16_UP}
System.Classes, System.Classes, System.SysUtils,
{$ELSE} {$ELSE}
Classes, Classes, SysUtils,
{$ENDIF} {$ENDIF}
uCEFBaseRefCounted, uCEFInterfaces, uCEFTypes; uCEFBaseRefCounted, uCEFInterfaces, uCEFTypes;
@ -75,8 +75,8 @@ type
function GetFrameByident(identifier: Int64): ICefFrame; function GetFrameByident(identifier: Int64): ICefFrame;
function GetFrame(const name: ustring): ICefFrame; function GetFrame(const name: ustring): ICefFrame;
function GetFrameCount: NativeUInt; function GetFrameCount: NativeUInt;
procedure GetFrameIdentifiers(count: PNativeUInt; identifiers: PInt64); function GetFrameIdentifiers(var aFrameCount : NativeUInt; var aFrameIdentifierArray : TCefFrameIdentifierArray) : boolean;
procedure GetFrameNames(const aFrameNames : TStrings); function GetFrameNames(var aFrameNames : TStrings) : boolean;
function SendProcessMessage(targetProcess: TCefProcessId; const ProcMessage: ICefProcessMessage): Boolean; function SendProcessMessage(targetProcess: TCefProcessId; const ProcMessage: ICefProcessMessage): Boolean;
public public
@ -189,37 +189,67 @@ begin
Result := PCefBrowser(FData)^.get_frame_count(PCefBrowser(FData)); Result := PCefBrowser(FData)^.get_frame_count(PCefBrowser(FData));
end; end;
procedure TCefBrowserRef.GetFrameIdentifiers(count: PNativeUInt; identifiers: PInt64); function TCefBrowserRef.GetFrameIdentifiers(var aFrameCount : NativeUInt; var aFrameIdentifierArray : TCefFrameIdentifierArray) : boolean;
var
i : NativeUInt;
begin begin
PCefBrowser(FData)^.get_frame_identifiers(PCefBrowser(FData), count, identifiers); Result := False;
try
if (aFrameCount > 0) then
begin
SetLength(aFrameIdentifierArray, aFrameCount);
i := 0;
while (i < aFrameCount) do
begin
aFrameIdentifierArray[i] := 0;
inc(i);
end;
PCefBrowser(FData)^.get_frame_identifiers(PCefBrowser(FData), aFrameCount, aFrameIdentifierArray[0]);
Result := True;
end;
except
on e : exception do
if CustomExceptionHandler('TCefBrowserRef.GetFrameIdentifiers', e) then raise;
end;
end; end;
procedure TCefBrowserRef.GetFrameNames(const aFrameNames : TStrings); function TCefBrowserRef.GetFrameNames(var aFrameNames : TStrings) : boolean;
var var
TempSL : TCefStringList; TempSL : TCefStringList;
i, j : Integer; i, j : Integer;
TempString : TCefString; TempString : TCefString;
begin begin
TempSL := nil; TempSL := nil;
Result := False;
try try
if (aFrameNames <> nil) then try
begin if (aFrameNames <> nil) then
TempSL := cef_string_list_alloc; begin
PCefBrowser(FData)^.get_frame_names(PCefBrowser(FData), TempSL); TempSL := cef_string_list_alloc;
FillChar(TempString, SizeOf(TempString), 0); PCefBrowser(FData)^.get_frame_names(PCefBrowser(FData), TempSL);
FillChar(TempString, SizeOf(TempString), 0);
i := 0; i := 0;
j := cef_string_list_size(TempSL); j := cef_string_list_size(TempSL);
while (i < j) do while (i < j) do
begin begin
FillChar(TempString, SizeOf(TempString), 0); FillChar(TempString, SizeOf(TempString), 0);
cef_string_list_value(TempSL, i, @TempString); cef_string_list_value(TempSL, i, @TempString);
aFrameNames.Add(CefStringClearAndGet(TempString)); aFrameNames.Add(CefStringClearAndGet(TempString));
inc(i); inc(i);
end; end;
end;
Result := True;
end;
except
on e : exception do
if CustomExceptionHandler('TCefBrowserRef.GetFrameNames', e) then raise;
end;
finally finally
if (TempSL <> nil) then cef_string_list_free(TempSL); if (TempSL <> nil) then cef_string_list_free(TempSL);
end; end;

70
source/uCEFChromium.pas
View File

@ -394,7 +394,9 @@ type
// Internal procedures. // Internal procedures.
// Only tasks, visitors or callbacks should use them in the right thread/process. // Only tasks, visitors or callbacks should use them in the right thread/process.
procedure Internal_CookiesDeleted(numDeleted : integer); procedure Internal_CookiesDeleted(numDeleted : integer);
procedure Internal_GetHTML(const aFrameName : ustring); procedure Internal_GetHTML(const aFrameName : ustring); overload;
procedure Internal_GetHTML(const aFrame : ICefFrame); overload;
procedure Internal_GetHTML(const aFrameIdentifier : int64); overload;
procedure Internal_PdfPrintFinished(aResultOK : boolean); procedure Internal_PdfPrintFinished(aResultOK : boolean);
procedure Internal_TextResultAvailable(const aText : string); procedure Internal_TextResultAvailable(const aText : string);
procedure Internal_UpdatePreferences; procedure Internal_UpdatePreferences;
@ -413,8 +415,11 @@ type
procedure SimulateMouseWheel(aDeltaX, aDeltaY : integer); procedure SimulateMouseWheel(aDeltaX, aDeltaY : integer);
procedure DeleteCookies; procedure DeleteCookies;
procedure RetrieveHTML(const aFrameName : ustring = ''); procedure RetrieveHTML(const aFrameName : ustring = ''); overload;
procedure GetFrameNames(const aFrameNames : TStrings); procedure RetrieveHTML(const aFrame : ICefFrame); overload;
procedure RetrieveHTML(const aFrameIdentifier : int64); overload;
function GetFrameNames(var aFrameNames : TStrings) : boolean;
function GetFrameIdentifiers(var aFrameCount : NativeUInt; var aFrameIdentifierArray : TCefFrameIdentifierArray) : boolean;
procedure ExecuteJavaScript(const aCode, aScriptURL : ustring; aStartLine : integer = 0); procedure ExecuteJavaScript(const aCode, aScriptURL : ustring; aStartLine : integer = 0);
procedure UpdatePreferences; procedure UpdatePreferences;
procedure SavePreferences(const aFileName : string); procedure SavePreferences(const aFileName : string);
@ -1677,6 +1682,34 @@ begin
end; end;
end; end;
procedure TChromium.Internal_GetHTML(const aFrame : ICefFrame);
begin
if Initialized and (aFrame <> nil) then
begin
if (FVisitor = nil) then FVisitor := TCustomCefStringVisitor.Create(self);
aFrame.GetSource(FVisitor);
end;
end;
procedure TChromium.Internal_GetHTML(const aFrameIdentifier : int64);
var
TempFrame : ICefFrame;
begin
if Initialized then
begin
if (aFrameIdentifier <> low(int64)) then
TempFrame := FBrowser.GetFrameByident(aFrameIdentifier)
else
TempFrame := FBrowser.MainFrame;
if (TempFrame <> nil) then
begin
if (FVisitor = nil) then FVisitor := TCustomCefStringVisitor.Create(self);
TempFrame.GetSource(FVisitor);
end;
end;
end;
procedure TChromium.DeleteCookies; procedure TChromium.DeleteCookies;
var var
TempTask: ICefTask; TempTask: ICefTask;
@ -1701,9 +1734,36 @@ begin
end; end;
end; end;
procedure TChromium.GetFrameNames(const aFrameNames : TStrings); procedure TChromium.RetrieveHTML(const aFrame : ICefFrame);
var
TempTask: ICefTask;
begin begin
if Initialized then FBrowser.GetFrameNames(aFrameNames); if Initialized then
begin
TempTask := TCefGetHTMLTask.Create(self, aFrame);
CefPostTask(TID_UI, TempTask);
end;
end;
procedure TChromium.RetrieveHTML(const aFrameIdentifier : int64);
var
TempTask: ICefTask;
begin
if Initialized then
begin
TempTask := TCefGetHTMLTask.Create(self, aFrameIdentifier);
CefPostTask(TID_UI, TempTask);
end;
end;
function TChromium.GetFrameNames(var aFrameNames : TStrings) : boolean;
begin
Result := Initialized and FBrowser.GetFrameNames(aFrameNames);
end;
function TChromium.GetFrameIdentifiers(var aFrameCount : NativeUInt; var aFrameIdentifierArray : TCefFrameIdentifierArray) : boolean;
begin
Result := Initialized and FBrowser.GetFrameIdentifiers(aFrameCount, aFrameIdentifierArray);
end; end;
procedure TChromium.UpdatePreferences; procedure TChromium.UpdatePreferences;

5
source/uCEFInterfaces.pas
View File

@ -105,6 +105,7 @@ type
TCefv8ValueArray = array of ICefv8Value; TCefv8ValueArray = array of ICefv8Value;
TCefX509CertificateArray = array of ICefX509Certificate; TCefX509CertificateArray = array of ICefX509Certificate;
TCefBinaryValueArray = array of ICefBinaryValue; TCefBinaryValueArray = array of ICefBinaryValue;
TCefFrameIdentifierArray = array of int64;
TOnPdfPrintFinishedProc = {$IFDEF DELPHI12_UP}reference to{$ENDIF} procedure(const path: ustring; ok: Boolean); TOnPdfPrintFinishedProc = {$IFDEF DELPHI12_UP}reference to{$ENDIF} procedure(const path: ustring; ok: Boolean);
TCefDomVisitorProc = {$IFDEF DELPHI12_UP}reference to{$ENDIF} procedure(const document: ICefDomDocument); TCefDomVisitorProc = {$IFDEF DELPHI12_UP}reference to{$ENDIF} procedure(const document: ICefDomDocument);
@ -266,8 +267,8 @@ type
function GetFrameByident(identifier: Int64): ICefFrame; function GetFrameByident(identifier: Int64): ICefFrame;
function GetFrame(const name: ustring): ICefFrame; function GetFrame(const name: ustring): ICefFrame;
function GetFrameCount: NativeUInt; function GetFrameCount: NativeUInt;
procedure GetFrameIdentifiers(count: PNativeUInt; identifiers: PInt64); function GetFrameIdentifiers(var aFrameCount : NativeUInt; var aFrameIdentifierArray : TCefFrameIdentifierArray) : boolean;
procedure GetFrameNames(const aFrameNames : TStrings); function GetFrameNames(var aFrameNames : TStrings) : boolean;
function SendProcessMessage(targetProcess: TCefProcessId; const ProcMessage: ICefProcessMessage): Boolean; function SendProcessMessage(targetProcess: TCefProcessId; const ProcMessage: ICefProcessMessage): Boolean;
property MainFrame: ICefFrame read GetMainFrame; property MainFrame: ICefFrame read GetMainFrame;
property FocusedFrame: ICefFrame read GetFocusedFrame; property FocusedFrame: ICefFrame read GetFocusedFrame;

46
source/uCEFTask.pas
View File

@ -84,11 +84,16 @@ type
protected protected
FChromiumBrowser : TObject; FChromiumBrowser : TObject;
FFrameName : ustring; FFrameName : ustring;
FFrame : ICefFrame;
FFrameIdentifier : int64;
procedure Execute; override; procedure Execute; override;
public public
constructor Create(const aChromiumBrowser : TObject; const aFrameName : ustring); reintroduce; constructor Create(const aChromiumBrowser : TObject; const aFrameName : ustring); reintroduce; overload;
constructor Create(const aChromiumBrowser : TObject; const aFrame : ICefFrame); reintroduce; overload;
constructor Create(const aChromiumBrowser : TObject; const aFrameIdentifier : int64); reintroduce; overload;
destructor Destroy; override;
end; end;
TCefDeleteCookiesTask = class(TCefTaskOwn) TCefDeleteCookiesTask = class(TCefTaskOwn)
@ -196,12 +201,49 @@ begin
FChromiumBrowser := aChromiumBrowser; FChromiumBrowser := aChromiumBrowser;
FFrameName := aFrameName; FFrameName := aFrameName;
FFrame := nil;
FFrameIdentifier := 0;
end;
constructor TCefGetHTMLTask.Create(const aChromiumBrowser : TObject; const aFrame : ICefFrame);
begin
inherited Create;
FChromiumBrowser := aChromiumBrowser;
FFrameName := '';
FFrame := aFrame;
FFrameIdentifier := 0;
end;
constructor TCefGetHTMLTask.Create(const aChromiumBrowser : TObject; const aFrameIdentifier : int64);
begin
inherited Create;
FChromiumBrowser := aChromiumBrowser;
FFrameName := '';
FFrame := nil;
FFrameIdentifier := aFrameIdentifier;
end;
destructor TCefGetHTMLTask.Destroy;
begin
FFrame := nil;
inherited Destroy;
end; end;
procedure TCefGetHTMLTask.Execute; procedure TCefGetHTMLTask.Execute;
begin begin
if (FChromiumBrowser <> nil) and (FChromiumBrowser is TChromium) then if (FChromiumBrowser <> nil) and (FChromiumBrowser is TChromium) then
TChromium(FChromiumBrowser).Internal_GetHTML(FFrameName); begin
if (FFrame <> nil) then
TChromium(FChromiumBrowser).Internal_GetHTML(FFrame)
else
if (FFrameIdentifier <> 0) then
TChromium(FChromiumBrowser).Internal_GetHTML(FFrameIdentifier)
else
TChromium(FChromiumBrowser).Internal_GetHTML(FFrameName);
end;
end; end;

2
source/uCEFTypes.pas
View File

@ -2510,7 +2510,7 @@ type
get_frame_byident: function(self: PCefBrowser; identifier: Int64): PCefFrame; stdcall; get_frame_byident: function(self: PCefBrowser; identifier: Int64): PCefFrame; stdcall;
get_frame: function(self: PCefBrowser; const name: PCefString): PCefFrame; stdcall; get_frame: function(self: PCefBrowser; const name: PCefString): PCefFrame; stdcall;
get_frame_count: function(self: PCefBrowser): NativeUInt; stdcall; get_frame_count: function(self: PCefBrowser): NativeUInt; stdcall;
get_frame_identifiers: procedure(self: PCefBrowser; identifiersCount: PNativeUInt; identifiers: PInt64); stdcall; get_frame_identifiers: procedure(self: PCefBrowser; var identifiersCount: NativeUInt; var identifiers: Int64); stdcall;
get_frame_names: procedure(self: PCefBrowser; names: TCefStringList); stdcall; get_frame_names: procedure(self: PCefBrowser; names: TCefStringList); stdcall;
send_process_message: function(self: PCefBrowser; target_process: TCefProcessId; message: PCefProcessMessage): Integer; stdcall; send_process_message: function(self: PCefBrowser; target_process: TCefProcessId; message: PCefProcessMessage): Integer; stdcall;
end; end;