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

Update to CEF 3.3112.1658.g3d5ae83

Browse Source 
- Update to CEF 3.3112.1658.g3d5ae83
- Added an example of binary paramenters in the JSEval demo.
This commit is contained in:
Salvador Díaz Fau
2017-09-01 22:44:58 +02:00
parent f3c1619d97
commit 383a1998ca
24 changed files with 3801 additions and 3665 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
demos/CookieVisitor/CookieVisitor.dproj.local
View File

@ -2,13 +2,13 @@
<BorlandProject>
<Transactions>
<Transaction>2017/08/19 10:36:06.000.317,=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Unit1.pas</Transaction>
<Transaction>2017/08/19 10:36:56.000.222,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Unit1.pas=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\CookieVisitor\UCookieVisitor.pas</Transaction>
<Transaction>2017/08/19 10:36:56.000.222,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Unit1.dfm=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\CookieVisitor\UCookieVisitor.dfm</Transaction>
<Transaction>2017/08/19 10:37:04.000.708,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Project1.dproj=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\CookieVisitor\CookieVisitor.dproj</Transaction>
<Transaction>2017/08/19 10:37:17.000.131,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\CookieVisitor\UCookieVisitor.dfm=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\CookieVisitor\CookieVisitor.dfm</Transaction>
<Transaction>2017/08/19 10:37:17.000.131,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\CookieVisitor\UCookieVisitor.pas=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\CookieVisitor\CookieVisitor.pas</Transaction>
<Transaction>2017/08/19 10:37:20.000.965,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\CookieVisitor\CookieVisitor.dfm=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\CookieVisitor\uCookieVisitor.dfm</Transaction>
<Transaction>2017/08/19 10:37:20.000.965,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\CookieVisitor\CookieVisitor.pas=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\CookieVisitor\uCookieVisitor.pas</Transaction>
<Transaction>2017/08/19 10:36:56.000.222,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\CookieVisitor\UCookieVisitor.dfm=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Unit1.dfm</Transaction>
<Transaction>2017/08/19 10:36:56.000.222,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\CookieVisitor\UCookieVisitor.pas=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Unit1.pas</Transaction>
<Transaction>2017/08/19 10:37:04.000.708,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\CookieVisitor\CookieVisitor.dproj=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Project1.dproj</Transaction>
<Transaction>2017/08/19 10:37:17.000.131,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\CookieVisitor\CookieVisitor.dfm=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\CookieVisitor\UCookieVisitor.dfm</Transaction>
<Transaction>2017/08/19 10:37:17.000.131,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\CookieVisitor\CookieVisitor.pas=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\CookieVisitor\UCookieVisitor.pas</Transaction>
<Transaction>2017/08/19 10:37:20.000.965,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\CookieVisitor\uCookieVisitor.dfm=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\CookieVisitor\CookieVisitor.dfm</Transaction>
<Transaction>2017/08/19 10:37:20.000.965,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\CookieVisitor\uCookieVisitor.pas=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\CookieVisitor\CookieVisitor.pas</Transaction>
<Transaction>2017/08/19 10:51:46.000.224,=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\CookieVisitor\uSimpleTextViewer.pas</Transaction>
</Transactions>
</BorlandProject>

6
demos/DOMVisitor/DOMVisitor.dproj.local
View File

@ -2,8 +2,8 @@
<BorlandProject>
<Transactions>
<Transaction>2017/08/12 12:09:33.000.056,=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Unit1.pas</Transaction>
<Transaction>2017/08/12 12:12:06.000.226,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\DOMVisitorBrowser\uDOMVisitor.pas=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Unit1.pas</Transaction>
<Transaction>2017/08/12 12:12:06.000.226,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\DOMVisitorBrowser\uDOMVisitor.dfm=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Unit1.dfm</Transaction>
<Transaction>2017/08/12 12:12:14.000.517,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\DOMVisitorBrowser\DOMVisitor.dproj=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Project1.dproj</Transaction>
<Transaction>2017/08/12 12:12:06.000.226,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Unit1.pas=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\DOMVisitorBrowser\uDOMVisitor.pas</Transaction>
<Transaction>2017/08/12 12:12:06.000.226,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Unit1.dfm=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\DOMVisitorBrowser\uDOMVisitor.dfm</Transaction>
<Transaction>2017/08/12 12:12:14.000.517,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Project1.dproj=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\DOMVisitorBrowser\DOMVisitor.dproj</Transaction>
</Transactions>
</BorlandProject>

157
demos/DOMVisitor/DOMVisitor.dsk
View File

@ -11,24 +11,24 @@ File_8=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF
File_9=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\uHelloScheme.pas',0,1,116,20,133,0,0,,
[Modules]
Module0=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\DOMVisitor\uDOMVisitor.pas
Module0=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\DOMVisitor\DOMVisitor.dproj
Module1=default.htm
Module2=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\DOMVisitor\DOMVisitor.dproj
Module2=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\DOMVisitor\uDOMVisitor.pas
Count=3
EditWindowCount=1
[C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\DOMVisitor\uDOMVisitor.pas]
ModuleType=TSourceModule
[default.htm]
ModuleType=TURLModule
[C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\DOMVisitor\DOMVisitor.dproj]
ModuleType=TBaseProject
[default.htm]
ModuleType=TURLModule
[C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\DOMVisitor\uDOMVisitor.pas]
ModuleType=TSourceModule
[EditWindow0]
ViewCount=3
CurrentEditView=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\DOMVisitor\uDOMVisitor.pas
CurrentEditView=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\DOMVisitor\DOMVisitor.dpr
View0=0
View1=1
View2=2
@ -49,16 +49,15 @@ DockedToMainForm=1
BorlandEditorCodeExplorer=BorlandEditorCodeExplorer@EditWindow0
TopPanelSize=0
LeftPanelSize=0
RightPanelSize=2000
RightPanelClients=DockSite2,DockSite4
RightPanelData=00000800010100000000A21900000000000001D00700000000000001000000004312000009000000446F636B536974653201000000009723000009000000446F636B5369746534FFFFFFFF
RightPanelSize=0
BottomPanelSize=0
BottomPanelClients=DockSite1,MessageView
BottomPanelData=0000080001020200000009000000446F636B53697465310F0000004D65737361676556696577466F726D1234000000000000022506000000000000FFFFFFFF
BottomPanelData=0000080001020200000009000000446F636B53697465310F0000004D65737361676556696577466F726D3B3600000000000002E40500000000000001000000003B3600000F0000004D65737361676556696577466F726DFFFFFFFF
BottomMiddlePanelSize=0
BottomMiddlePanelClients=DockSite0,GraphDrawingModel
BottomMiddelPanelData=0000080001020200000009000000446F636B536974653010000000477261706844726177696E67566965779D1D00000000000002F306000000000000FFFFFFFF
TabDockLeftClients=PropertyInspector=0,DockSite3=1
TabDockRightClients=DockSite4=0,DockSite2=1
[View0]
CustomEditViewType=TWelcomePageView
@ -67,9 +66,9 @@ WelcomePageURL=bds:/default.htm
[View1]
CustomEditViewType=TEditView
Module=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\DOMVisitor\DOMVisitor.dpr
CursorX=74
CursorY=171
TopLine=37
CursorX=73
CursorY=195
TopLine=153
LeftCol=1
Elisions=
Bookmarks=
@ -103,11 +102,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1143
Height=1076
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1143
ClientHeight=1076
TBDockHeight=213
LRDockWidth=13602
Dockable=1
@ -151,11 +150,11 @@ State=0
Left=0
Top=0
Width=2000
Height=4305
Height=8857
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=4305
ClientHeight=8857
TBDockHeight=5897
LRDockWidth=2352
Dockable=1
@ -168,14 +167,14 @@ Visible=0
Docked=1
State=0
Left=0
Top=0
Width=2773
Height=1424
Top=18
Width=10000
Height=1357
MaxLeft=-1
MaxTop=-1
ClientWidth=2773
ClientHeight=1424
TBDockHeight=1424
ClientWidth=10000
ClientHeight=1357
TBDockHeight=1357
LRDockWidth=2773
Dockable=1
StayOnTop=0
@ -188,12 +187,12 @@ Docked=1
State=0
Left=0
Top=0
Width=2000
Height=4383
Width=1875
Height=6738
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=4383
ClientWidth=1875
ClientHeight=6738
TBDockHeight=7152
LRDockWidth=2000
Dockable=1
@ -303,12 +302,12 @@ State=0
Left=78
Top=386
Width=1898
Height=7220
Height=7164
MaxLeft=-1
MaxTop=-1
ClientWidth=1898
ClientHeight=7220
TBDockHeight=7220
ClientHeight=7164
TBDockHeight=7164
LRDockWidth=1898
Dockable=1
StayOnTop=0
@ -322,12 +321,12 @@ Docked=1
State=0
Left=0
Top=0
Width=2000
Height=6883
Width=1875
Height=6457
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=6883
ClientWidth=1875
ClientHeight=6457
TBDockHeight=5964
LRDockWidth=2508
Dockable=1
@ -339,8 +338,8 @@ Create=1
Visible=0
Docked=1
State=0
Left=-946
Top=5
Left=-1210
Top=-7
Width=2844
Height=6200
MaxLeft=-1
@ -358,8 +357,8 @@ Create=1
Visible=0
Docked=1
State=0
Left=-1152
Top=247
Left=-8
Top=287
Width=273
Height=359
MaxLeft=-1
@ -383,11 +382,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1143
Height=1076
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1143
ClientHeight=1076
TBDockHeight=415
LRDockWidth=4953
Dockable=1
@ -402,11 +401,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1143
Height=1076
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1143
ClientHeight=1076
TBDockHeight=213
LRDockWidth=7406
Dockable=1
@ -425,11 +424,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1143
Height=1076
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1143
ClientHeight=1076
TBDockHeight=1536
LRDockWidth=3484
Dockable=1
@ -444,11 +443,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1143
Height=1076
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1143
ClientHeight=1076
TBDockHeight=2063
LRDockWidth=3484
Dockable=1
@ -546,12 +545,12 @@ Docked=1
State=0
Left=0
Top=0
Width=2000
Height=6883
Width=1875
Height=6457
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=6883
ClientWidth=1875
ClientHeight=6457
TBDockHeight=4888
LRDockWidth=7148
Dockable=1
@ -585,11 +584,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1143
Height=1076
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1143
ClientHeight=1076
TBDockHeight=1547
LRDockWidth=8742
Dockable=1
@ -611,11 +610,11 @@ State=0
Left=0
Top=0
Width=1773
Height=6794
Height=6738
MaxLeft=-1
MaxTop=-1
ClientWidth=1773
ClientHeight=6794
ClientHeight=6738
TBDockHeight=3677
LRDockWidth=1898
Dockable=1
@ -629,12 +628,12 @@ Docked=1
State=0
Left=0
Top=0
Width=2000
Height=6883
Width=1875
Height=6457
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=6883
ClientWidth=1875
ClientHeight=6457
TBDockHeight=4888
LRDockWidth=5305
Dockable=1
@ -697,12 +696,12 @@ State=0
Left=0
Top=18
Width=3820
Height=1424
Height=1357
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1424
TBDockHeight=1424
ClientHeight=1357
TBDockHeight=1357
LRDockWidth=3820
Dockable=1
StayOnTop=0
@ -711,21 +710,21 @@ ActiveTabID=DebugLogView
TabDockClients=DebugLogView,BreakpointWindow,ThreadStatusWindow,CallStackWindow,WatchWindow,LocalVarsWindow
[DockSite2]
HostDockSite=DockRightPanel
HostDockSite=RightTabDock
DockSiteType=1
PercentageSizes=1
Create=1
Visible=1
Visible=0
Docked=1
State=0
Left=0
Top=18
Left=4
Top=24
Width=2000
Height=4585
Height=9137
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=4585
ClientHeight=9137
TBDockHeight=7164
LRDockWidth=2000
Dockable=1
@ -745,12 +744,12 @@ State=0
Left=0
Top=0
Width=1898
Height=7220
Height=7164
MaxLeft=-1
MaxTop=-1
ClientWidth=1773
ClientHeight=6794
TBDockHeight=7220
ClientHeight=6738
TBDockHeight=7164
LRDockWidth=1898
Dockable=1
StayOnTop=0
@ -759,21 +758,21 @@ ActiveTabID=StructureView
TabDockClients=StructureView,ClassBrowserTool
[DockSite4]
HostDockSite=DockRightPanel
HostDockSite=RightTabDock
DockSiteType=1
PercentageSizes=1
Create=1
Visible=1
Visible=0
Docked=1
State=0
Left=0
Top=449
Top=0
Width=2000
Height=4383
Height=7164
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=4383
ClientWidth=1875
ClientHeight=6738
TBDockHeight=7164
LRDockWidth=2000
Dockable=1

4
demos/DOMVisitor/DOMVisitor.stat
View File

@ -1,9 +1,9 @@
[Stats]
EditorSecs=688
EditorSecs=731
DesignerSecs=32
InspectorSecs=4
CompileSecs=17759
OtherSecs=84
OtherSecs=85
StartTime=12/08/2017 12:24:08
RealKeys=0
EffectiveKeys=0

5
demos/JSEval/JSEval.dpr
View File

@ -50,6 +50,8 @@ uses
uCEFApplication,
uCEFRenderProcessHandler,
uCEFInterfaces,
uCEFConstants,
uCEFTypes,
uJSEval in 'uJSEval.pas' {JSEvalFrm},
uSimpleTextViewer in 'uSimpleTextViewer.pas' {SimpleTextViewerFrm};
@ -63,7 +65,8 @@ var
begin
FProcessHandler := TCefCustomRenderProcessHandler.Create;
FProcessHandler.MessageName := EVAL_JS;
FProcessHandler.AddMessageName(EVAL_JS);
FProcessHandler.AddMessageName(BINARY_PARAM_JS);
FProcessHandler.OnProcessMessageReceivedEvent := JSEvalFrm.RenderProcessHandler_OnProcessMessageReceivedEvent;
GlobalCEFApp := TCefApplication.Create;

6
demos/JSEval/JSEval.dproj.local
View File

@ -2,9 +2,9 @@
<BorlandProject>
<Transactions>
<Transaction>2017/08/12 14:08:23.000.987,=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Unit1.pas</Transaction>
<Transaction>2017/08/12 14:09:25.000.836,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\JSEval\uJSEval.dfm=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Unit1.dfm</Transaction>
<Transaction>2017/08/12 14:09:25.000.836,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\JSEval\uJSEval.pas=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Unit1.pas</Transaction>
<Transaction>2017/08/12 14:09:30.000.669,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\JSEval\JSEval.dproj=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Project1.dproj</Transaction>
<Transaction>2017/08/12 14:09:25.000.836,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Unit1.pas=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\JSEval\uJSEval.pas</Transaction>
<Transaction>2017/08/12 14:09:25.000.836,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Unit1.dfm=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\JSEval\uJSEval.dfm</Transaction>
<Transaction>2017/08/12 14:09:30.000.669,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Project1.dproj=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\JSEval\JSEval.dproj</Transaction>
<Transaction>2017/08/12 14:43:05.000.727,=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\JSEval\uSimpleTextViewer.pas</Transaction>
</Transactions>
</BorlandProject>

187
demos/JSEval/JSEval.dsk
View File

@ -1,34 +1,34 @@
[Closed Files]
File_0=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFRenderProcessHandler.pas',0,1,85,45,114,0,0,,
File_1=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\DOMVisitor\uDOMVisitor.pas',0,1,94,53,127,0,0,,
File_2=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\JSEval\uSimpleTextViewer.pas',0,1,1,1,1,0,0,,
File_3=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFSchemeRegistrar.pas',0,1,29,1,58,0,0,,
File_4=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFInterfaces.pas',0,1,83,1,112,0,0,,
File_5=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\uMiniBrowser.pas',0,1,220,1,329,0,0,,
File_6=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\JSExtension\uJSExtension.pas',0,1,154,79,172,0,0,,
File_7=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFChromium.pas',0,1,1075,38,1089,0,0,,
File_8=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFPDFPrintCallback.pas',0,1,78,80,113,0,0,,
File_9=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFTypes.pas',0,1,1704,3,1727,0,0,,
File_0=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFRenderProcessHandler.pas',0,1,71,27,107,0,0,,
File_1=TSourceModule,'c:\program files (x86)\embarcadero\studio\19.0\source\soap\Soap.EncdDecd.pas',0,1,1,64,48,0,0,,
File_2=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFTypes.pas',0,1,1938,16,1960,0,0,,
File_3=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFInterfaces.pas',0,1,1087,3,1109,0,0,,
File_4=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFListValue.pas',0,1,177,1,191,0,0,,
File_5=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFChromium.pas',0,1,3039,1,3061,0,0,,
File_6=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFProcessMessage.pas',0,1,55,1,77,0,0,,
File_7=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFApplication.pas',0,1,72,76,102,0,0,,
File_8=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\uMiniBrowser.pas',0,1,249,1,275,0,0,,
File_9=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFBinaryValue.pas',0,1,38,68,56,0,0,,
[Modules]
Module0=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\JSEval\uJSEval.pas
Module0=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\JSEval\JSEval.dproj
Module1=default.htm
Module2=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\JSEval\JSEval.dproj
Module2=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\JSEval\uJSEval.pas
Count=3
EditWindowCount=1
[C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\JSEval\uJSEval.pas]
ModuleType=TSourceModule
[default.htm]
ModuleType=TURLModule
[C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\JSEval\JSEval.dproj]
ModuleType=TBaseProject
[default.htm]
ModuleType=TURLModule
[C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\JSEval\uJSEval.pas]
ModuleType=TSourceModule
[EditWindow0]
ViewCount=3
CurrentEditView=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\JSEval\uJSEval.pas
CurrentEditView=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\JSEval\JSEval.dpr
View0=0
View1=1
View2=2
@ -49,16 +49,15 @@ DockedToMainForm=1
BorlandEditorCodeExplorer=BorlandEditorCodeExplorer@EditWindow0
TopPanelSize=0
LeftPanelSize=0
RightPanelSize=2000
RightPanelClients=DockSite2,DockSite4
RightPanelData=00000800010100000000A21900000000000001D00700000000000001000000004312000009000000446F636B536974653201000000009723000009000000446F636B5369746534FFFFFFFF
RightPanelSize=0
BottomPanelSize=0
BottomPanelClients=DockSite1,MessageView
BottomPanelData=0000080001020200000009000000446F636B53697465310F0000004D65737361676556696577466F726D1234000000000000022506000000000000FFFFFFFF
BottomPanelData=0000080001020200000009000000446F636B53697465310F0000004D65737361676556696577466F726D3B3600000000000002E40500000000000001000000003B3600000F0000004D65737361676556696577466F726DFFFFFFFF
BottomMiddlePanelSize=0
BottomMiddlePanelClients=DockSite0,GraphDrawingModel
BottomMiddelPanelData=0000080001020200000009000000446F636B536974653010000000477261706844726177696E67566965779D1D00000000000002F306000000000000FFFFFFFF
TabDockLeftClients=PropertyInspector=0,DockSite3=1
TabDockRightClients=DockSite4=0,DockSite2=1
[View0]
CustomEditViewType=TWelcomePageView
@ -67,8 +66,8 @@ WelcomePageURL=bds:/default.htm
[View1]
CustomEditViewType=TEditView
Module=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\JSEval\JSEval.dpr
CursorX=49
CursorY=65
CursorX=60
CursorY=82
TopLine=46
LeftCol=1
Elisions=
@ -78,12 +77,12 @@ EditViewName=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\d
[View2]
CustomEditViewType=TEditView
Module=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\JSEval\uJSEval.pas
CursorX=31
CursorY=169
TopLine=167
CursorX=1
CursorY=155
TopLine=116
LeftCol=1
Elisions=
Bookmarks=
Bookmarks={1,274,19}{2,300,34}{3,339,60}{4,422,1}
EditViewName=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\JSEval\uJSEval.pas
[UndockedDesigner]
@ -103,11 +102,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1143
Height=1076
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1143
ClientHeight=1076
TBDockHeight=213
LRDockWidth=13602
Dockable=1
@ -151,11 +150,11 @@ State=0
Left=0
Top=0
Width=2000
Height=4305
Height=8857
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=4305
ClientHeight=8857
TBDockHeight=5897
LRDockWidth=2352
Dockable=1
@ -168,14 +167,14 @@ Visible=0
Docked=1
State=0
Left=0
Top=0
Width=2773
Height=1424
Top=18
Width=10000
Height=1357
MaxLeft=-1
MaxTop=-1
ClientWidth=2773
ClientHeight=1424
TBDockHeight=1424
ClientWidth=10000
ClientHeight=1357
TBDockHeight=1357
LRDockWidth=2773
Dockable=1
StayOnTop=0
@ -188,12 +187,12 @@ Docked=1
State=0
Left=0
Top=0
Width=2000
Height=4383
Width=1875
Height=6738
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=4383
ClientWidth=1875
ClientHeight=6738
TBDockHeight=7152
LRDockWidth=2000
Dockable=1
@ -300,15 +299,15 @@ Create=1
Visible=0
Docked=1
State=0
Left=1
Top=24
Left=78
Top=386
Width=1898
Height=9137
Height=7164
MaxLeft=-1
MaxTop=-1
ClientWidth=1898
ClientHeight=9137
TBDockHeight=7220
ClientHeight=7164
TBDockHeight=7164
LRDockWidth=1898
Dockable=1
StayOnTop=0
@ -322,12 +321,12 @@ Docked=1
State=0
Left=0
Top=0
Width=2000
Height=6883
Width=1875
Height=6457
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=6883
ClientWidth=1875
ClientHeight=6457
TBDockHeight=5964
LRDockWidth=2508
Dockable=1
@ -339,8 +338,8 @@ Create=1
Visible=0
Docked=1
State=0
Left=-946
Top=5
Left=-1210
Top=-7
Width=2844
Height=6200
MaxLeft=-1
@ -358,8 +357,8 @@ Create=1
Visible=0
Docked=1
State=0
Left=-1152
Top=247
Left=-8
Top=287
Width=273
Height=359
MaxLeft=-1
@ -383,11 +382,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1143
Height=1076
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1143
ClientHeight=1076
TBDockHeight=415
LRDockWidth=4953
Dockable=1
@ -402,11 +401,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1143
Height=1076
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1143
ClientHeight=1076
TBDockHeight=213
LRDockWidth=7406
Dockable=1
@ -425,11 +424,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1143
Height=1076
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1143
ClientHeight=1076
TBDockHeight=1536
LRDockWidth=3484
Dockable=1
@ -444,11 +443,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1143
Height=1076
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1143
ClientHeight=1076
TBDockHeight=2063
LRDockWidth=3484
Dockable=1
@ -546,12 +545,12 @@ Docked=1
State=0
Left=0
Top=0
Width=2000
Height=6883
Width=1875
Height=6457
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=6883
ClientWidth=1875
ClientHeight=6457
TBDockHeight=4888
LRDockWidth=7148
Dockable=1
@ -585,11 +584,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1143
Height=1076
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1143
ClientHeight=1076
TBDockHeight=1547
LRDockWidth=8742
Dockable=1
@ -611,11 +610,11 @@ State=0
Left=0
Top=0
Width=1773
Height=6794
Height=6738
MaxLeft=-1
MaxTop=-1
ClientWidth=1773
ClientHeight=6794
ClientHeight=6738
TBDockHeight=3677
LRDockWidth=1898
Dockable=1
@ -629,12 +628,12 @@ Docked=1
State=0
Left=0
Top=0
Width=2000
Height=6883
Width=1875
Height=6457
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=6883
ClientWidth=1875
ClientHeight=6457
TBDockHeight=4888
LRDockWidth=5305
Dockable=1
@ -697,12 +696,12 @@ State=0
Left=0
Top=18
Width=3820
Height=1424
Height=1357
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1424
TBDockHeight=1424
ClientHeight=1357
TBDockHeight=1357
LRDockWidth=3820
Dockable=1
StayOnTop=0
@ -711,21 +710,21 @@ ActiveTabID=DebugLogView
TabDockClients=DebugLogView,BreakpointWindow,ThreadStatusWindow,CallStackWindow,WatchWindow,LocalVarsWindow
[DockSite2]
HostDockSite=DockRightPanel
HostDockSite=RightTabDock
DockSiteType=1
PercentageSizes=1
Create=1
Visible=1
Visible=0
Docked=1
State=0
Left=0
Top=18
Left=4
Top=24
Width=2000
Height=4585
Height=9137
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=4585
ClientHeight=9137
TBDockHeight=7164
LRDockWidth=2000
Dockable=1
@ -745,12 +744,12 @@ State=0
Left=0
Top=0
Width=1898
Height=7220
Height=7164
MaxLeft=-1
MaxTop=-1
ClientWidth=1773
ClientHeight=6794
TBDockHeight=7220
ClientHeight=6738
TBDockHeight=7164
LRDockWidth=1898
Dockable=1
StayOnTop=0
@ -759,21 +758,21 @@ ActiveTabID=StructureView
TabDockClients=StructureView,ClassBrowserTool
[DockSite4]
HostDockSite=DockRightPanel
HostDockSite=RightTabDock
DockSiteType=1
PercentageSizes=1
Create=1
Visible=1
Visible=0
Docked=1
State=0
Left=0
Top=449
Top=0
Width=2000
Height=4383
Height=7164
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=4383
ClientWidth=1875
ClientHeight=6738
TBDockHeight=7164
LRDockWidth=2000
Dockable=1

10
demos/JSEval/JSEval.stat
View File

@ -1,10 +1,10 @@
[Stats]
EditorSecs=3584
DesignerSecs=5
EditorSecs=10251
DesignerSecs=14
InspectorSecs=2
CompileSecs=31991
OtherSecs=84
CompileSecs=174161
OtherSecs=281
StartTime=12/08/2017 14:17:43
RealKeys=0
EffectiveKeys=0
DebugSecs=474
DebugSecs=2045

1
demos/JSEval/uJSEval.dfm
View File

@ -22,7 +22,6 @@ object JSEvalFrm: TJSEvalFrm
Height = 541
Align = alClient
TabOrder = 0
ExplicitHeight = 530
end
object AddressBarPnl: TPanel
Left = 0

176
demos/JSEval/uJSEval.pas
View File

@ -45,10 +45,10 @@ uses
{$IFDEF DELPHI16_UP}
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Menus,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, System.Types, Vcl.ComCtrls, Vcl.ClipBrd,
System.UITypes,
System.UITypes, Soap.EncdDecd,
{$ELSE}
Windows, Messages, SysUtils, Variants, Classes, Graphics, Menus,
Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Types, ComCtrls, ClipBrd,
Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Types, ComCtrls, ClipBrd, EncdDecd,
{$ENDIF}
uCEFChromium, uCEFWindowParent, uCEFInterfaces, uCEFApplication, uCEFTypes, uCEFConstants;
@ -56,10 +56,13 @@ const
MINIBROWSER_CREATED = WM_APP + $100;
MINIBROWSER_SHOWTEXTVIEWER = WM_APP + $101;
MINIBROWSER_EVALJSCODE = WM_APP + $102;
MINIBROWSER_EVALJSBINPARAM = WM_APP + $103;
MINIBROWSER_CONTEXTMENU_EVALJSCODE = MENU_ID_USER_FIRST + 1;
MINIBROWSER_CONTEXTMENU_EVALJSCODE = MENU_ID_USER_FIRST + 1;
MINIBROWSER_CONTEXTMENU_EVALJSBINPARAM = MENU_ID_USER_FIRST + 2;
EVAL_JS = 'JSContextEvalDemo';
EVAL_JS = 'JSContextEvalDemo';
BINARY_PARAM_JS = 'JSBinaryParameter';
type
TJSEvalFrm = class(TForm)
@ -92,10 +95,12 @@ type
procedure BrowserCreatedMsg(var aMessage : TMessage); message MINIBROWSER_CREATED;
procedure ShowTextViewerMsg(var aMessage : TMessage); message MINIBROWSER_SHOWTEXTVIEWER;
procedure EvalJSCodeMsg(var aMessage : TMessage); message MINIBROWSER_EVALJSCODE;
procedure EvalJSBinParamMsg(var aMessage : TMessage); message MINIBROWSER_EVALJSBINPARAM;
procedure WMMove(var aMessage : TWMMove); message WM_MOVE;
procedure WMMoving(var aMessage : TMessage); message WM_MOVING;
procedure ParseEvalJsAnswer(const pMessage: ICefProcessMessage; pBrowser: ICefBrowser; pReturnValue : ICefv8Value; pException : ICefV8Exception);
procedure ParseBinaryValue(const pBrowser : ICefBrowser; const aBinaryValue : ICefBinaryValue);
public
procedure RenderProcessHandler_OnProcessMessageReceivedEvent(const pBrowser: ICefBrowser; uSourceProcess: TCefProcessId; const pMessage: ICefProcessMessage);
@ -109,13 +114,13 @@ implementation
{$R *.dfm}
uses
uSimpleTextViewer, uCefProcessMessage;
uSimpleTextViewer, uCefProcessMessage, uCefBinaryValue, uCefMiscFunctions;
// 99.9% of the code in this demo was created by xpert13 and shared in the CEF4Delphi forum.
// Steps to evaluate some JavaScript code using the V8Context
// ----------------------------------------------------------
// 1. Create a TCefCustomRenderProcessHandler in the DPR file, set a message name and the OnCustomMessage event.
// 1. Create a TCefCustomRenderProcessHandler in the DPR file, adds a message name and sets the OnCustomMessage event.
// 2. Set the TCefCustomRenderProcessHandler in the GlobalCEFApp.RenderProcessHandler property.
// 3. To get the Javascript code in this demo we use a context menu that sends a MINIBROWSER_EVALJSCODE to the form.
// 4. The EvalJSCodeMsg asks for the Javascript code and sends it to the renderer using a process message.
@ -125,6 +130,30 @@ uses
// message to the form.
// 8. ShowTextViewerMsg shows the results safely using a SimpleTextViewer.
// This demo also has an example of binary parameters in process messages
// ----------------------------------------------------------------------
// 1. Create a TCefCustomRenderProcessHandler in the DPR file, adds a message name and sets the OnCustomMessage event.
// 2. Set the TCefCustomRenderProcessHandler in the GlobalCEFApp.RenderProcessHandler property.
// 3. The context menu has a 'Send JPEG image' option that sends a MINIBROWSER_EVALJSBINPARAM message to the form.
// 4. EvalJSBinParamMsg asks for a JPEG image and sends a process message with a ICefBinaryValue parameter to the renderer process.
// 5. The renderer process parses the binary parameter in the ParseBinaryValue function and sends back the image size and encoded image data to the browser process.
// 6. Chromium1ProcessMessageReceived receives the message, stores the results and sends a MINIBROWSER_SHOWTEXTVIEWER
// message to the form.
// 7. ShowTextViewerMsg shows the results safely using a SimpleTextViewer.
// About binary parameters
// -----------------------
// There is a size limit in the binary parameters of only a few kilobytes.
// For more info and alternatives, read this thread in the official CEF3 forum :
// http://www.magpcss.org/ceforum/viewtopic.php?f=6&t=10590
//
// Compress the binary data if necessary!
procedure TJSEvalFrm.Chromium1AfterCreated(Sender: TObject; const browser: ICefBrowser);
begin
PostMessage(Handle, MINIBROWSER_CREATED, 0, 0);
@ -136,7 +165,8 @@ procedure TJSEvalFrm.Chromium1BeforeContextMenu(Sender : TObject;
const params : ICefContextMenuParams;
const model : ICefMenuModel);
begin
model.AddItem(MINIBROWSER_CONTEXTMENU_EVALJSCODE, 'Evaluate JavaScript code...');
model.AddItem(MINIBROWSER_CONTEXTMENU_EVALJSCODE, 'Evaluate JavaScript code...');
model.AddItem(MINIBROWSER_CONTEXTMENU_EVALJSBINPARAM, 'Send JPEG image...');
end;
procedure TJSEvalFrm.Chromium1ContextMenuCommand(Sender : TObject;
@ -150,7 +180,8 @@ begin
Result := False;
case commandId of
MINIBROWSER_CONTEXTMENU_EVALJSCODE : PostMessage(Handle, MINIBROWSER_EVALJSCODE, 0, 0);
MINIBROWSER_CONTEXTMENU_EVALJSCODE : PostMessage(Handle, MINIBROWSER_EVALJSCODE, 0, 0);
MINIBROWSER_CONTEXTMENU_EVALJSBINPARAM : PostMessage(Handle, MINIBROWSER_EVALJSBINPARAM, 0, 0);
end;
end;
@ -201,11 +232,63 @@ begin
if (length(TempScript) > 0) then
begin
TempMsg := TCefProcessMessageRef.New(EVAL_JS);
TempMsg.ArgumentList.SetString(0, TempScript);
Chromium1.SendProcessMessage(PID_RENDERER, TempMsg);
if TempMsg.ArgumentList.SetString(0, TempScript) then
Chromium1.SendProcessMessage(PID_RENDERER, TempMsg);
end;
end;
procedure TJSEvalFrm.EvalJSBinParamMsg(var aMessage : TMessage);
var
TempMsg : ICefProcessMessage;
TempOpenDialog : TOpenDialog;
TempStream : TFileStream;
TempBinValue : ICefBinaryValue;
TempBuffer : TBytes;
TempSize : NativeUInt;
TempPointer : pointer;
begin
TempOpenDialog := nil;
TempStream := nil;
try
try
TempOpenDialog := TOpenDialog.Create(nil);
TempOpenDialog.Filter := 'JPEG files (*.jpg)|*.JPG';
if TempOpenDialog.Execute then
begin
TempStream := TFileStream.Create(TempOpenDialog.FileName, fmOpenRead);
TempSize := TempStream.Size;
if (TempSize > 0) then
begin
SetLength(TempBuffer, TempSize);
TempSize := TempStream.Read(TempBuffer, TempSize);
if (TempSize > 0) then
begin
TempPointer := @TempBuffer[0];
TempBinValue := TCefBinaryValueRef.New(TempPointer, TempSize);
TempMsg := TCefProcessMessageRef.New(BINARY_PARAM_JS);
if TempMsg.ArgumentList.SetBinary(0, TempBinValue) then
Chromium1.SendProcessMessage(PID_RENDERER, TempMsg);
end;
end;
end;
except
on e : exception do
if CustomExceptionHandler('TJSEvalFrm.EvalJSBinParamMsg', e) then raise;
end;
finally
if (TempOpenDialog <> nil) then FreeAndNil(TempOpenDialog);
if (TempStream <> nil) then FreeAndNil(TempStream);
SetLength(TempBuffer, 0);
end;
end;
procedure TJSEvalFrm.RenderProcessHandler_OnProcessMessageReceivedEvent(const pBrowser : ICefBrowser;
uSourceProcess : TCefProcessId;
const pMessage : ICefProcessMessage);
@ -214,25 +297,32 @@ var
pReturnValue : ICefv8Value;
pException : ICefV8Exception;
TempScript : string;
TempBinValue : ICefBinaryValue;
begin
if (pMessage = nil) or (pMessage.ArgumentList = nil) then exit;
if (pMessage.Name = EVAL_JS) then
begin
TempScript := pMessage.ArgumentList.GetString(0);
begin
TempScript := pMessage.ArgumentList.GetString(0);
if (length(TempScript) > 0) then
if (length(TempScript) > 0) then
begin
pV8Context := pBrowser.MainFrame.GetV8Context;
if pV8Context.Enter then
begin
pV8Context.Eval(TempScript, '', 1, pReturnValue, pException);
ParseEvalJsAnswer(pMessage, pBrowser, pReturnValue, pException);
pV8Context.Exit;
end;
end;
end
else
if (pMessage.Name = BINARY_PARAM_JS) then
begin
pV8Context := pBrowser.MainFrame.GetV8Context;
if pV8Context.Enter then
begin
pV8Context.Eval(TempScript, '', 1, pReturnValue, pException);
ParseEvalJsAnswer(pMessage, pBrowser, pReturnValue, pException);
pV8Context.Exit;
end;
TempBinValue := pMessage.ArgumentList.GetBinary(0);
ParseBinaryValue(pBrowser, TempBinValue);
end;
end;
end;
procedure TJSEvalFrm.ParseEvalJsAnswer(const pMessage : ICefProcessMessage;
@ -277,6 +367,39 @@ begin
pBrowser.SendProcessMessage(PID_BROWSER, pAnswer);
end;
procedure TJSEvalFrm.ParseBinaryValue(const pBrowser : ICefBrowser; const aBinaryValue : ICefBinaryValue);
var
pAnswer : ICefProcessMessage;
TempBuffer : TBytes;
TempPointer : pointer;
TempSize : NativeUInt;
TempString : string;
begin
if (aBinaryValue = nil) then exit;
pAnswer := TCefProcessMessageRef.New(BINARY_PARAM_JS);
TempSize := aBinaryValue.GetSize;
if (TempSize > 0) then
begin
SetLength(TempBuffer, TempSize);
TempPointer := @TempBuffer[0];
TempSize := aBinaryValue.GetData(TempPointer, TempSize, 0);
if (TempSize > 0) then
begin
TempString := EncodeBase64(TempPointer, TempSize);
TempString := 'Image size : ' + inttostr(TempSize) + #13 + #10 +
'Encoded image : ' + TempString;
pAnswer.ArgumentList.SetString(0, TempString);
pBrowser.SendProcessMessage(PID_BROWSER, pAnswer);
end;
SetLength(TempBuffer, 0);
end;
end;
procedure TJSEvalFrm.Chromium1ProcessMessageReceived(Sender : TObject;
const browser : ICefBrowser;
sourceProcess : TCefProcessId;
@ -292,7 +415,14 @@ begin
Result := True;
end
else
Result := False;
if (message.Name = BINARY_PARAM_JS) then
begin
FText := message.ArgumentList.GetString(0);
PostMessage(Handle, MINIBROWSER_SHOWTEXTVIEWER, 0, 0);
Result := True;
end
else
Result := False;
end;
end.

6
demos/JSExtension/JSExtension.dpr
View File

@ -50,6 +50,8 @@ uses
SysUtils,
{$ENDIF }
uCEFApplication,
uCEFMiscFunctions,
uCEFConstants,
uCEFRenderProcessHandler,
uCEFInterfaces,
uCEFv8Handler,
@ -84,14 +86,14 @@ begin
GlobalCEFApp.RenderProcessHandler := TempProcessHandler as ICefRenderProcessHandler;
// The directories are optional.
{
{
GlobalCEFApp.FrameworkDirPath := 'cef';
GlobalCEFApp.ResourcesDirPath := 'cef';
GlobalCEFApp.LocalesDirPath := 'cef\locales';
GlobalCEFApp.cache := 'cef\cache';
GlobalCEFApp.cookies := 'cef\cookies';
GlobalCEFApp.UserDataPath := 'cef\User Data';
}
}
if GlobalCEFApp.StartMainProcess then
begin

254
demos/JSExtension/JSExtension.dsk
View File

@ -1,46 +1,41 @@
[Closed Files]
File_0=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFRenderProcessHandler.pas',0,1,70,33,76,0,0,,
File_1=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFSchemeRegistrar.pas',0,1,16,3037,58,0,0,,
File_2=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFListValue.pas',0,1,53,21,82,0,0,,
File_3=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\JSExtension\uTestExtension.pas',0,1,46,48,81,0,0,,
File_4=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\JSExtension\uSimpleTextViewer.pas',0,1,1,22,25,0,0,,
File_5=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\uMiniBrowser.pas',0,1,496,16,519,0,0,,
File_6=TSourceModule,'c:\program files\embarcadero\studio\17.0\source\rtl\common\System.Generics.Collections.pas',0,1,1121,1,1143,0,0,,
File_7=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFChromium.pas',0,1,1403,1,1425,0,0,,
File_8=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\JSExtension\Unit1.pas',0,1,1,1,1,0,0,,
File_0=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\uMiniBrowser.pas',0,1,244,39,272,0,0,,
File_1=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFInterfaces.pas',0,1,792,3,821,0,0,,
File_2=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFApplication.pas',0,1,636,30,664,0,0,,
File_3=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFRenderProcessHandler.pas',0,1,70,33,76,0,0,,
File_4=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFSchemeRegistrar.pas',0,1,16,3037,58,0,0,,
File_5=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFListValue.pas',0,1,53,21,82,0,0,,
File_6=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\JSExtension\uSimpleTextViewer.pas',0,1,1,22,25,0,0,,
File_7=TSourceModule,'c:\program files\embarcadero\studio\17.0\source\rtl\common\System.Generics.Collections.pas',0,1,1121,1,1143,0,0,,
File_8=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFChromium.pas',0,1,1403,1,1425,0,0,,
[Modules]
Module0=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFApplication.pas
Module1=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFInterfaces.pas
Module2=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\JSExtension\JSExtension.dproj
Module3=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\JSExtension\uJSExtension.pas
Module4=default.htm
Count=5
Module0=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\JSExtension\JSExtension.dproj
Module1=default.htm
Module2=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\JSExtension\uJSExtension.pas
Module3=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\JSExtension\uTestExtension.pas
Count=4
EditWindowCount=1
[C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFApplication.pas]
ModuleType=TSourceModule
[C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFInterfaces.pas]
ModuleType=TSourceModule
[C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\JSExtension\JSExtension.dproj]
ModuleType=TBaseProject
[C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\JSExtension\uJSExtension.pas]
ModuleType=TSourceModule
[default.htm]
ModuleType=TURLModule
[C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\JSExtension\uJSExtension.pas]
ModuleType=TSourceModule
[C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\JSExtension\uTestExtension.pas]
ModuleType=TSourceModule
[EditWindow0]
ViewCount=5
CurrentEditView=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFApplication.pas
ViewCount=4
CurrentEditView=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\JSExtension\JSExtension.dpr
View0=0
View1=1
View2=2
View3=3
View4=4
PercentageSizes=1
Create=1
Visible=1
@ -57,18 +52,16 @@ ClientHeight=9417
DockedToMainForm=1
BorlandEditorCodeExplorer=BorlandEditorCodeExplorer@EditWindow0
TopPanelSize=0
LeftPanelSize=1898
LeftPanelClients=PropertyInspector,DockSite3
LeftPanelData=00000800010100000000A219000000000000016A0700000000000001000000005D0E000009000000446F636B53697465330100000000972300001100000050726F7065727479496E73706563746F72FFFFFFFF
RightPanelSize=2000
RightPanelClients=DockSite2,DockSite4
RightPanelData=00000800010100000000A21900000000000001D00700000000000001000000004312000009000000446F636B536974653201000000009723000009000000446F636B5369746534FFFFFFFF
LeftPanelSize=0
RightPanelSize=0
BottomPanelSize=0
BottomPanelClients=DockSite1,MessageView
BottomPanelData=0000080001020200000009000000446F636B53697465310F0000004D65737361676556696577466F726D1234000000000000022506000000000000FFFFFFFF
BottomPanelData=0000080001020200000009000000446F636B53697465310F0000004D65737361676556696577466F726D3B3600000000000002E40500000000000001000000003B3600000F0000004D65737361676556696577466F726DFFFFFFFF
BottomMiddlePanelSize=0
BottomMiddlePanelClients=DockSite0,GraphDrawingModel
BottomMiddelPanelData=0000080001020200000009000000446F636B536974653010000000477261706844726177696E67566965779D1D00000000000002F306000000000000FFFFFFFF
TabDockLeftClients=PropertyInspector=0,DockSite3=1
TabDockRightClients=DockSite4=0,DockSite2=1
[View0]
CustomEditViewType=TWelcomePageView
@ -77,8 +70,8 @@ WelcomePageURL=bds:/default.htm
[View1]
CustomEditViewType=TEditView
Module=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\JSExtension\JSExtension.dpr
CursorX=45
CursorY=83
CursorX=1
CursorY=97
TopLine=60
LeftCol=1
Elisions=
@ -87,32 +80,21 @@ EditViewName=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\d
[View2]
CustomEditViewType=TEditView
Module=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFApplication.pas
CursorX=30
CursorY=664
TopLine=636
Module=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\JSExtension\uTestExtension.pas
CursorX=1
CursorY=72
TopLine=49
LeftCol=1
Elisions=
Bookmarks=
EditViewName=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFApplication.pas
EditViewName=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\JSExtension\uTestExtension.pas
[View3]
CustomEditViewType=TEditView
Module=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFInterfaces.pas
CursorX=3
CursorY=821
TopLine=792
LeftCol=1
Elisions=
Bookmarks=
EditViewName=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFInterfaces.pas
[View4]
CustomEditViewType=TEditView
Module=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\JSExtension\uJSExtension.pas
CursorX=31
CursorY=234
TopLine=182
CursorX=79
CursorY=165
TopLine=152
LeftCol=1
Elisions=
Bookmarks=
@ -135,11 +117,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1143
Height=1076
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1143
ClientHeight=1076
TBDockHeight=213
LRDockWidth=13602
Dockable=1
@ -183,11 +165,11 @@ State=0
Left=0
Top=0
Width=2000
Height=4305
Height=8857
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=4305
ClientHeight=8857
TBDockHeight=5897
LRDockWidth=2352
Dockable=1
@ -200,14 +182,14 @@ Visible=0
Docked=1
State=0
Left=0
Top=0
Width=2773
Height=1424
Top=18
Width=10000
Height=1357
MaxLeft=-1
MaxTop=-1
ClientWidth=2773
ClientHeight=1424
TBDockHeight=1424
ClientWidth=10000
ClientHeight=1357
TBDockHeight=1357
LRDockWidth=2773
Dockable=1
StayOnTop=0
@ -220,12 +202,12 @@ Docked=1
State=0
Left=0
Top=0
Width=2000
Height=4383
Width=1875
Height=6738
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=4383
ClientWidth=1875
ClientHeight=6738
TBDockHeight=7152
LRDockWidth=2000
Dockable=1
@ -275,8 +257,8 @@ Create=1
Visible=0
Docked=1
State=0
Left=-148
Top=-132
Left=-8
Top=-30
Width=1844
Height=3139
MaxLeft=-1
@ -329,18 +311,18 @@ StayOnTop=0
[PropertyInspector]
PercentageSizes=1
Create=1
Visible=1
Visible=0
Docked=1
State=0
Left=0
Top=357
Left=78
Top=386
Width=1898
Height=5415
Height=7164
MaxLeft=-1
MaxTop=-1
ClientWidth=1898
ClientHeight=5415
TBDockHeight=7220
ClientHeight=7164
TBDockHeight=7164
LRDockWidth=1898
Dockable=1
StayOnTop=0
@ -354,12 +336,12 @@ Docked=1
State=0
Left=0
Top=0
Width=2000
Height=6939
Width=1875
Height=6457
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=6939
ClientWidth=1875
ClientHeight=6457
TBDockHeight=5964
LRDockWidth=2508
Dockable=1
@ -371,8 +353,8 @@ Create=1
Visible=0
Docked=1
State=0
Left=-898
Top=-132
Left=-1210
Top=-7
Width=2844
Height=6200
MaxLeft=-1
@ -390,8 +372,8 @@ Create=1
Visible=0
Docked=1
State=0
Left=-1026
Top=-132
Left=-8
Top=287
Width=273
Height=359
MaxLeft=-1
@ -415,11 +397,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1143
Height=1076
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1143
ClientHeight=1076
TBDockHeight=415
LRDockWidth=4953
Dockable=1
@ -434,11 +416,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1143
Height=1076
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1143
ClientHeight=1076
TBDockHeight=213
LRDockWidth=7406
Dockable=1
@ -457,11 +439,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1143
Height=1076
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1143
ClientHeight=1076
TBDockHeight=1536
LRDockWidth=3484
Dockable=1
@ -476,11 +458,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1143
Height=1076
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1143
ClientHeight=1076
TBDockHeight=2063
LRDockWidth=3484
Dockable=1
@ -514,11 +496,11 @@ State=0
Left=0
Top=0
Width=2336
Height=1200
Height=964
MaxLeft=-1
MaxTop=-1
ClientWidth=2336
ClientHeight=1200
ClientHeight=964
TBDockHeight=2321
LRDockWidth=2820
Dockable=1
@ -578,12 +560,12 @@ Docked=1
State=0
Left=0
Top=0
Width=2000
Height=6939
Width=1875
Height=6457
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=6939
ClientWidth=1875
ClientHeight=6457
TBDockHeight=4888
LRDockWidth=7148
Dockable=1
@ -595,8 +577,8 @@ Create=1
Visible=0
Docked=1
State=0
Left=0
Top=0
Left=249
Top=709
Width=2859
Height=3206
MaxLeft=-1
@ -617,11 +599,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1143
Height=1076
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1143
ClientHeight=1076
TBDockHeight=1547
LRDockWidth=8742
Dockable=1
@ -642,12 +624,12 @@ Docked=1
State=0
Left=0
Top=0
Width=1898
Height=3554
Width=1773
Height=6738
MaxLeft=-1
MaxTop=-1
ClientWidth=1898
ClientHeight=3554
ClientWidth=1773
ClientHeight=6738
TBDockHeight=3677
LRDockWidth=1898
Dockable=1
@ -661,12 +643,12 @@ Docked=1
State=0
Left=0
Top=0
Width=2000
Height=6939
Width=1875
Height=6457
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=6939
ClientWidth=1875
ClientHeight=6457
TBDockHeight=4888
LRDockWidth=5305
Dockable=1
@ -727,14 +709,14 @@ Visible=0
Docked=1
State=0
Left=0
Top=0
Top=18
Width=3820
Height=1424
Height=1357
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1424
TBDockHeight=1424
ClientHeight=1357
TBDockHeight=1357
LRDockWidth=3820
Dockable=1
StayOnTop=0
@ -743,22 +725,22 @@ ActiveTabID=DebugLogView
TabDockClients=DebugLogView,BreakpointWindow,ThreadStatusWindow,CallStackWindow,WatchWindow,LocalVarsWindow
[DockSite2]
HostDockSite=DockRightPanel
HostDockSite=RightTabDock
DockSiteType=1
PercentageSizes=1
Create=1
Visible=1
Visible=0
Docked=1
State=0
Left=0
Top=18
Left=4
Top=24
Width=2000
Height=4585
Height=9137
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=4585
TBDockHeight=7220
ClientHeight=9137
TBDockHeight=7164
LRDockWidth=2000
Dockable=1
StayOnTop=0
@ -767,22 +749,22 @@ ActiveTabID=ProjectManager
TabDockClients=ProjectManager,ModelViewTool,DataExplorerContainer,frmDesignPreview,TFileExplorerForm
[DockSite3]
HostDockSite=DockLeftPanel
HostDockSite=LeftDockTabSet
DockSiteType=1
PercentageSizes=1
Create=1
Visible=1
Visible=0
Docked=1
State=0
Left=0
Top=18
Top=0
Width=1898
Height=3554
Height=7164
MaxLeft=-1
MaxTop=-1
ClientWidth=1898
ClientHeight=3554
TBDockHeight=7220
ClientWidth=1773
ClientHeight=6738
TBDockHeight=7164
LRDockWidth=1898
Dockable=1
StayOnTop=0
@ -791,22 +773,22 @@ ActiveTabID=StructureView
TabDockClients=StructureView,ClassBrowserTool
[DockSite4]
HostDockSite=DockRightPanel
HostDockSite=RightTabDock
DockSiteType=1
PercentageSizes=1
Create=1
Visible=1
Visible=0
Docked=1
State=0
Left=0
Top=449
Top=0
Width=2000
Height=4383
Height=7164
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=4383
TBDockHeight=7220
ClientWidth=1875
ClientHeight=6738
TBDockHeight=7164
LRDockWidth=2000
Dockable=1
StayOnTop=0

10
demos/JSExtension/JSExtension.stat
View File

@ -1,10 +1,10 @@
[Stats]
EditorSecs=3339
DesignerSecs=25
EditorSecs=4233
DesignerSecs=28
InspectorSecs=43
CompileSecs=114312
OtherSecs=222
CompileSecs=181721
OtherSecs=462
StartTime=25/07/2017 22:09:15
RealKeys=0
EffectiveKeys=0
DebugSecs=760
DebugSecs=1042

2
demos/JSExtension/uJSExtension.pas
View File

@ -99,7 +99,7 @@ implementation
{$R *.dfm}
uses
uSimpleTextViewer;
uSimpleTextViewer, uCEFMiscFunctions;
// The CEF3 document describing extensions is here :
// https://bitbucket.org/chromiumembedded/cef/wiki/JavaScriptIntegration.md

162
demos/MiniBrowser/MiniBrowser.dsk
View File

@ -1,5 +1,5 @@
[Closed Files]
File_0=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\uMiniBrowser.pas',0,1,134,80,161,0,0,,{1,231,1}
File_0=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\uMiniBrowser.pas',0,1,134,80,161,0,0,,{1
File_1=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFChromium.pas',0,1,2968,47,2983,0,0,,
File_2=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFChromiumWindow.pas',0,1,70,37,58,0,0,,
File_3=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFWindowParent.pas',0,1,65,27,66,0,0,,
@ -43,18 +43,16 @@ ClientHeight=9417
DockedToMainForm=1
BorlandEditorCodeExplorer=BorlandEditorCodeExplorer@EditWindow0
TopPanelSize=0
LeftPanelSize=1898
LeftPanelClients=PropertyInspector,DockSite3
LeftPanelData=00000800010100000000A219000000000000016A0700000000000001000000005D0E000009000000446F636B53697465330100000000972300001100000050726F7065727479496E73706563746F72FFFFFFFF
RightPanelSize=2000
RightPanelClients=DockSite2,DockSite4
RightPanelData=00000800010100000000A21900000000000001D00700000000000001000000004312000009000000446F636B536974653201000000009723000009000000446F636B5369746534FFFFFFFF
LeftPanelSize=0
RightPanelSize=0
BottomPanelSize=0
BottomPanelClients=DockSite1,MessageView
BottomPanelData=0000080001020200000009000000446F636B53697465310F0000004D65737361676556696577466F726D1234000000000000022506000000000000FFFFFFFF
BottomPanelData=0000080001020200000009000000446F636B53697465310F0000004D65737361676556696577466F726D3B3600000000000002E40500000000000001000000003B3600000F0000004D65737361676556696577466F726DFFFFFFFF
BottomMiddlePanelSize=0
BottomMiddlePanelClients=DockSite0,GraphDrawingModel
BottomMiddelPanelData=0000080001020200000009000000446F636B536974653010000000477261706844726177696E67566965779D1D00000000000002F306000000000000FFFFFFFF
TabDockLeftClients=PropertyInspector=0,DockSite3=1
TabDockRightClients=DockSite4=0,DockSite2=1
[View0]
CustomEditViewType=TWelcomePageView
@ -63,8 +61,8 @@ WelcomePageURL=bds:/default.htm
[View1]
CustomEditViewType=TEditView
Module=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\MiniBrowser.dpr
CursorX=53
CursorY=76
CursorX=2
CursorY=73
TopLine=43
LeftCol=1
Elisions=
@ -88,11 +86,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1143
Height=1076
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1143
ClientHeight=1076
TBDockHeight=213
LRDockWidth=13602
Dockable=1
@ -136,11 +134,11 @@ State=0
Left=0
Top=0
Width=2000
Height=4305
Height=8857
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=4305
ClientHeight=8857
TBDockHeight=5897
LRDockWidth=2352
Dockable=1
@ -153,14 +151,14 @@ Visible=0
Docked=1
State=0
Left=0
Top=0
Width=2773
Height=1424
Top=18
Width=10000
Height=1357
MaxLeft=-1
MaxTop=-1
ClientWidth=2773
ClientHeight=1424
TBDockHeight=1424
ClientWidth=10000
ClientHeight=1357
TBDockHeight=1357
LRDockWidth=2773
Dockable=1
StayOnTop=0
@ -173,12 +171,12 @@ Docked=1
State=0
Left=0
Top=0
Width=2000
Height=4383
Width=1875
Height=6738
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=4383
ClientWidth=1875
ClientHeight=6738
TBDockHeight=7152
LRDockWidth=2000
Dockable=1
@ -228,8 +226,8 @@ Create=1
Visible=0
Docked=1
State=0
Left=-121
Top=-70
Left=-8
Top=-30
Width=1844
Height=3139
MaxLeft=-1
@ -282,17 +280,17 @@ StayOnTop=0
[PropertyInspector]
PercentageSizes=1
Create=1
Visible=1
Visible=0
Docked=1
State=0
Left=0
Top=357
Left=78
Top=386
Width=1898
Height=5415
Height=7164
MaxLeft=-1
MaxTop=-1
ClientWidth=1898
ClientHeight=5415
ClientHeight=7164
TBDockHeight=7164
LRDockWidth=1898
Dockable=1
@ -307,12 +305,12 @@ Docked=1
State=0
Left=0
Top=0
Width=2000
Height=6883
Width=1875
Height=6457
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=6883
ClientWidth=1875
ClientHeight=6457
TBDockHeight=5964
LRDockWidth=2508
Dockable=1
@ -324,8 +322,8 @@ Create=1
Visible=0
Docked=1
State=0
Left=-946
Top=5
Left=-1210
Top=-7
Width=2844
Height=6200
MaxLeft=-1
@ -343,8 +341,8 @@ Create=1
Visible=0
Docked=1
State=0
Left=-1152
Top=247
Left=-8
Top=287
Width=273
Height=359
MaxLeft=-1
@ -368,11 +366,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1143
Height=1076
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1143
ClientHeight=1076
TBDockHeight=415
LRDockWidth=4953
Dockable=1
@ -387,11 +385,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1143
Height=1076
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1143
ClientHeight=1076
TBDockHeight=213
LRDockWidth=7406
Dockable=1
@ -410,11 +408,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1143
Height=1076
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1143
ClientHeight=1076
TBDockHeight=1536
LRDockWidth=3484
Dockable=1
@ -429,11 +427,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1143
Height=1076
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1143
ClientHeight=1076
TBDockHeight=2063
LRDockWidth=3484
Dockable=1
@ -531,12 +529,12 @@ Docked=1
State=0
Left=0
Top=0
Width=2000
Height=6883
Width=1875
Height=6457
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=6883
ClientWidth=1875
ClientHeight=6457
TBDockHeight=4888
LRDockWidth=7148
Dockable=1
@ -570,11 +568,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1143
Height=1076
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1143
ClientHeight=1076
TBDockHeight=1547
LRDockWidth=8742
Dockable=1
@ -595,12 +593,12 @@ Docked=1
State=0
Left=0
Top=0
Width=1898
Height=3554
Width=1773
Height=6738
MaxLeft=-1
MaxTop=-1
ClientWidth=1898
ClientHeight=3554
ClientWidth=1773
ClientHeight=6738
TBDockHeight=3677
LRDockWidth=1898
Dockable=1
@ -614,12 +612,12 @@ Docked=1
State=0
Left=0
Top=0
Width=2000
Height=6883
Width=1875
Height=6457
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=6883
ClientWidth=1875
ClientHeight=6457
TBDockHeight=4888
LRDockWidth=5305
Dockable=1
@ -682,12 +680,12 @@ State=0
Left=0
Top=18
Width=3820
Height=1424
Height=1357
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1424
TBDockHeight=1424
ClientHeight=1357
TBDockHeight=1357
LRDockWidth=3820
Dockable=1
StayOnTop=0
@ -696,21 +694,21 @@ ActiveTabID=DebugLogView
TabDockClients=DebugLogView,BreakpointWindow,ThreadStatusWindow,CallStackWindow,WatchWindow,LocalVarsWindow
[DockSite2]
HostDockSite=DockRightPanel
HostDockSite=RightTabDock
DockSiteType=1
PercentageSizes=1
Create=1
Visible=1
Visible=0
Docked=1
State=0
Left=0
Top=18
Left=4
Top=24
Width=2000
Height=4585
Height=9137
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=4585
ClientHeight=9137
TBDockHeight=7164
LRDockWidth=2000
Dockable=1
@ -720,21 +718,21 @@ ActiveTabID=ProjectManager
TabDockClients=ProjectManager,ModelViewTool,DataExplorerContainer,frmDesignPreview,TFileExplorerForm
[DockSite3]
HostDockSite=DockLeftPanel
HostDockSite=LeftDockTabSet
DockSiteType=1
PercentageSizes=1
Create=1
Visible=1
Visible=0
Docked=1
State=0
Left=0
Top=18
Top=0
Width=1898
Height=3554
Height=7164
MaxLeft=-1
MaxTop=-1
ClientWidth=1898
ClientHeight=3554
ClientWidth=1773
ClientHeight=6738
TBDockHeight=7164
LRDockWidth=1898
Dockable=1
@ -744,21 +742,21 @@ ActiveTabID=StructureView
TabDockClients=StructureView,ClassBrowserTool
[DockSite4]
HostDockSite=DockRightPanel
HostDockSite=RightTabDock
DockSiteType=1
PercentageSizes=1
Create=1
Visible=1
Visible=0
Docked=1
State=0
Left=0
Top=449
Top=0
Width=2000
Height=4383
Height=7164
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=4383
ClientWidth=1875
ClientHeight=6738
TBDockHeight=7164
LRDockWidth=2000
Dockable=1

8
demos/MiniBrowser/MiniBrowser.stat
View File

@ -1,10 +1,10 @@
[Stats]
EditorSecs=46609
EditorSecs=46531
DesignerSecs=2443
InspectorSecs=1781
CompileSecs=2487971
OtherSecs=7304
CompileSecs=2516644
OtherSecs=7360
StartTime=11/02/2017 10:51:15
RealKeys=0
EffectiveKeys=0
DebugSecs=36087
DebugSecs=37790

6
demos/SchemeRegistrationBrowser/SchemeRegistrationBrowser.dproj.local
View File

@ -2,9 +2,9 @@
<BorlandProject>
<Transactions>
<Transaction>2017/08/12 11:25:15.000.051,=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Unit1.pas</Transaction>
<Transaction>2017/08/12 11:26:00.000.707,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SchemeRegistrationBrowser\uSchemeRegistrationBrowser.pas=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Unit1.pas</Transaction>
<Transaction>2017/08/12 11:26:00.000.707,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SchemeRegistrationBrowser\uSchemeRegistrationBrowser.dfm=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Unit1.dfm</Transaction>
<Transaction>2017/08/12 11:26:06.000.294,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SchemeRegistrationBrowser\SchemeRegistrationBrowser.dproj=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Project1.dproj</Transaction>
<Transaction>2017/08/12 11:26:00.000.707,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Unit1.pas=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SchemeRegistrationBrowser\uSchemeRegistrationBrowser.pas</Transaction>
<Transaction>2017/08/12 11:26:00.000.707,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Unit1.dfm=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SchemeRegistrationBrowser\uSchemeRegistrationBrowser.dfm</Transaction>
<Transaction>2017/08/12 11:26:06.000.294,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Project1.dproj=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SchemeRegistrationBrowser\SchemeRegistrationBrowser.dproj</Transaction>
<Transaction>2017/08/12 11:27:56.000.909,=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SchemeRegistrationBrowser\uHelloScheme.pas</Transaction>
</Transactions>
</BorlandProject>

184
demos/SchemeRegistrationBrowser/SchemeRegistrationBrowser.dsk
View File

@ -10,8 +10,8 @@ File_7=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF
[Modules]
Module0=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SchemeRegistrationBrowser\SchemeRegistrationBrowser.dproj
Module1=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SchemeRegistrationBrowser\uSchemeRegistrationBrowser.pas
Module2=default.htm
Module1=default.htm
Module2=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SchemeRegistrationBrowser\uSchemeRegistrationBrowser.pas
Module3=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SchemeRegistrationBrowser\uHelloScheme.pas
Count=4
EditWindowCount=1
@ -19,12 +19,12 @@ EditWindowCount=1
[C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SchemeRegistrationBrowser\SchemeRegistrationBrowser.dproj]
ModuleType=TBaseProject
[C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SchemeRegistrationBrowser\uSchemeRegistrationBrowser.pas]
ModuleType=TSourceModule
[default.htm]
ModuleType=TURLModule
[C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SchemeRegistrationBrowser\uSchemeRegistrationBrowser.pas]
ModuleType=TSourceModule
[C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SchemeRegistrationBrowser\uHelloScheme.pas]
ModuleType=TSourceModule
@ -51,18 +51,16 @@ ClientHeight=9417
DockedToMainForm=1
BorlandEditorCodeExplorer=BorlandEditorCodeExplorer@EditWindow0
TopPanelSize=0
LeftPanelSize=1898
LeftPanelClients=PropertyInspector,DockSite3
LeftPanelData=00000800010100000000A219000000000000016A0700000000000001000000005D0E000009000000446F636B53697465330100000000972300001100000050726F7065727479496E73706563746F72FFFFFFFF
RightPanelSize=2000
RightPanelClients=DockSite2,DockSite4
RightPanelData=00000800010100000000A21900000000000001D00700000000000001000000004312000009000000446F636B536974653201000000009723000009000000446F636B5369746534FFFFFFFF
LeftPanelSize=0
RightPanelSize=0
BottomPanelSize=0
BottomPanelClients=DockSite1,MessageView
BottomPanelData=0000080001020200000009000000446F636B53697465310F0000004D65737361676556696577466F726D1234000000000000022506000000000000FFFFFFFF
BottomPanelData=0000080001020200000009000000446F636B53697465310F0000004D65737361676556696577466F726D3B3600000000000002E40500000000000001000000003B3600000F0000004D65737361676556696577466F726DFFFFFFFF
BottomMiddlePanelSize=0
BottomMiddlePanelClients=DockSite0,GraphDrawingModel
BottomMiddelPanelData=0000080001020200000009000000446F636B536974653010000000477261706844726177696E67566965779D1D00000000000002F306000000000000FFFFFFFF
TabDockLeftClients=PropertyInspector=0,DockSite3=1
TabDockRightClients=DockSite4=0,DockSite2=1
[View0]
CustomEditViewType=TWelcomePageView
@ -118,11 +116,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1143
Height=1076
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1143
ClientHeight=1076
TBDockHeight=213
LRDockWidth=13602
Dockable=1
@ -166,11 +164,11 @@ State=0
Left=0
Top=0
Width=2000
Height=4305
Height=8857
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=4305
ClientHeight=8857
TBDockHeight=5897
LRDockWidth=2352
Dockable=1
@ -183,14 +181,14 @@ Visible=0
Docked=1
State=0
Left=0
Top=0
Width=2773
Height=1424
Top=18
Width=10000
Height=1357
MaxLeft=-1
MaxTop=-1
ClientWidth=2773
ClientHeight=1424
TBDockHeight=1424
ClientWidth=10000
ClientHeight=1357
TBDockHeight=1357
LRDockWidth=2773
Dockable=1
StayOnTop=0
@ -203,12 +201,12 @@ Docked=1
State=0
Left=0
Top=0
Width=2000
Height=4383
Width=1875
Height=6738
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=4383
ClientWidth=1875
ClientHeight=6738
TBDockHeight=7152
LRDockWidth=2000
Dockable=1
@ -258,8 +256,8 @@ Create=1
Visible=0
Docked=1
State=0
Left=-148
Top=-132
Left=-8
Top=-30
Width=1844
Height=3139
MaxLeft=-1
@ -312,18 +310,18 @@ StayOnTop=0
[PropertyInspector]
PercentageSizes=1
Create=1
Visible=1
Visible=0
Docked=1
State=0
Left=0
Top=357
Left=78
Top=386
Width=1898
Height=5415
Height=7164
MaxLeft=-1
MaxTop=-1
ClientWidth=1898
ClientHeight=5415
TBDockHeight=7220
ClientHeight=7164
TBDockHeight=7164
LRDockWidth=1898
Dockable=1
StayOnTop=0
@ -337,12 +335,12 @@ Docked=1
State=0
Left=0
Top=0
Width=2000
Height=6939
Width=1875
Height=6457
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=6939
ClientWidth=1875
ClientHeight=6457
TBDockHeight=5964
LRDockWidth=2508
Dockable=1
@ -354,8 +352,8 @@ Create=1
Visible=0
Docked=1
State=0
Left=-898
Top=-132
Left=-1210
Top=-7
Width=2844
Height=6200
MaxLeft=-1
@ -373,8 +371,8 @@ Create=1
Visible=0
Docked=1
State=0
Left=-1026
Top=-132
Left=-8
Top=287
Width=273
Height=359
MaxLeft=-1
@ -398,11 +396,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1143
Height=1076
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1143
ClientHeight=1076
TBDockHeight=415
LRDockWidth=4953
Dockable=1
@ -417,11 +415,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1143
Height=1076
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1143
ClientHeight=1076
TBDockHeight=213
LRDockWidth=7406
Dockable=1
@ -440,11 +438,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1143
Height=1076
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1143
ClientHeight=1076
TBDockHeight=1536
LRDockWidth=3484
Dockable=1
@ -459,11 +457,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1143
Height=1076
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1143
ClientHeight=1076
TBDockHeight=2063
LRDockWidth=3484
Dockable=1
@ -497,11 +495,11 @@ State=0
Left=0
Top=0
Width=2336
Height=1200
Height=964
MaxLeft=-1
MaxTop=-1
ClientWidth=2336
ClientHeight=1200
ClientHeight=964
TBDockHeight=2321
LRDockWidth=2820
Dockable=1
@ -561,12 +559,12 @@ Docked=1
State=0
Left=0
Top=0
Width=2000
Height=6939
Width=1875
Height=6457
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=6939
ClientWidth=1875
ClientHeight=6457
TBDockHeight=4888
LRDockWidth=7148
Dockable=1
@ -578,8 +576,8 @@ Create=1
Visible=0
Docked=1
State=0
Left=0
Top=0
Left=249
Top=709
Width=2859
Height=3206
MaxLeft=-1
@ -600,11 +598,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1143
Height=1076
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1143
ClientHeight=1076
TBDockHeight=1547
LRDockWidth=8742
Dockable=1
@ -625,12 +623,12 @@ Docked=1
State=0
Left=0
Top=0
Width=1898
Height=3554
Width=1773
Height=6738
MaxLeft=-1
MaxTop=-1
ClientWidth=1898
ClientHeight=3554
ClientWidth=1773
ClientHeight=6738
TBDockHeight=3677
LRDockWidth=1898
Dockable=1
@ -644,12 +642,12 @@ Docked=1
State=0
Left=0
Top=0
Width=2000
Height=6939
Width=1875
Height=6457
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=6939
ClientWidth=1875
ClientHeight=6457
TBDockHeight=4888
LRDockWidth=5305
Dockable=1
@ -710,14 +708,14 @@ Visible=0
Docked=1
State=0
Left=0
Top=0
Top=18
Width=3820
Height=1424
Height=1357
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1424
TBDockHeight=1424
ClientHeight=1357
TBDockHeight=1357
LRDockWidth=3820
Dockable=1
StayOnTop=0
@ -726,22 +724,22 @@ ActiveTabID=DebugLogView
TabDockClients=DebugLogView,BreakpointWindow,ThreadStatusWindow,CallStackWindow,WatchWindow,LocalVarsWindow
[DockSite2]
HostDockSite=DockRightPanel
HostDockSite=RightTabDock
DockSiteType=1
PercentageSizes=1
Create=1
Visible=1
Visible=0
Docked=1
State=0
Left=0
Top=18
Left=4
Top=24
Width=2000
Height=4585
Height=9137
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=4585
TBDockHeight=7220
ClientHeight=9137
TBDockHeight=7164
LRDockWidth=2000
Dockable=1
StayOnTop=0
@ -750,22 +748,22 @@ ActiveTabID=ProjectManager
TabDockClients=ProjectManager,ModelViewTool,DataExplorerContainer,frmDesignPreview,TFileExplorerForm
[DockSite3]
HostDockSite=DockLeftPanel
HostDockSite=LeftDockTabSet
DockSiteType=1
PercentageSizes=1
Create=1
Visible=1
Visible=0
Docked=1
State=0
Left=0
Top=18
Top=0
Width=1898
Height=3554
Height=7164
MaxLeft=-1
MaxTop=-1
ClientWidth=1898
ClientHeight=3554
TBDockHeight=7220
ClientWidth=1773
ClientHeight=6738
TBDockHeight=7164
LRDockWidth=1898
Dockable=1
StayOnTop=0
@ -774,22 +772,22 @@ ActiveTabID=StructureView
TabDockClients=StructureView,ClassBrowserTool
[DockSite4]
HostDockSite=DockRightPanel
HostDockSite=RightTabDock
DockSiteType=1
PercentageSizes=1
Create=1
Visible=1
Visible=0
Docked=1
State=0
Left=0
Top=449
Top=0
Width=2000
Height=4383
Height=7164
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=4383
TBDockHeight=7220
ClientWidth=1875
ClientHeight=6738
TBDockHeight=7164
LRDockWidth=2000
Dockable=1
StayOnTop=0

6
demos/SimpleOSRBrowser/SimpleOSRBrowser.dproj.local
View File

@ -2,8 +2,8 @@
<BorlandProject>
<Transactions>
<Transaction>2017/01/22 17:26:58.000.836,=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Unit1.pas</Transaction>
<Transaction>2017/01/22 17:28:20.000.762,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi demos\SimpleOSRBrowser\uSimpleOSRBrowser.pas=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Unit1.pas</Transaction>
<Transaction>2017/01/22 17:28:20.000.762,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi demos\SimpleOSRBrowser\uSimpleOSRBrowser.dfm=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Unit1.dfm</Transaction>
<Transaction>2017/01/22 17:28:25.000.780,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi demos\SimpleOSRBrowser\SimpleOSRBrowser.dproj=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Project1.dproj</Transaction>
<Transaction>2017/01/22 17:28:20.000.762,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Unit1.pas=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi demos\SimpleOSRBrowser\uSimpleOSRBrowser.pas</Transaction>
<Transaction>2017/01/22 17:28:20.000.762,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Unit1.dfm=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi demos\SimpleOSRBrowser\uSimpleOSRBrowser.dfm</Transaction>
<Transaction>2017/01/22 17:28:25.000.780,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Project1.dproj=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi demos\SimpleOSRBrowser\SimpleOSRBrowser.dproj</Transaction>
</Transactions>
</BorlandProject>

180
source/CEF4Delphi.dsk
View File

@ -1,14 +1,14 @@
[Closed Files]
File_0=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFApplication.pas',0,1,22,53,62,0,0,,
File_1=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFChromium.pas',0,1,127,56,176,0,0,,
File_2=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFChromiumEvents.pas',0,1,80,112,109,0,0,,
File_3=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFTypes.pas',0,1,641,3,670,0,0,,
File_4=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFClient.pas',0,1,254,9,277,0,0,,
File_5=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFInterfaces.pas',0,124,80,245,119,0,0,,
File_6=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFRenderProcessHandler.pas',0,1,63,101,366,0,0,,
File_7=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFRenderHandler.pas',0,1,44,85,73,0,0,,
File_8=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFBrowser.pas',0,1,1,1,1,0,0,,
File_9=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFRequest.pas',0,1,91,62,126,0,0,,
File_0=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFApplication.pas',0,1,22,39,60,0,0,,
File_1=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFListValue.pas',0,1,34,19,53,0,0,,
File_2=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFBinaryValue.pas',0,1,20,78,58,0,0,,
File_3=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFChromium.pas',0,1,1755,24,1765,0,0,,
File_4=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFValue.pas',0,1,34,3,53,0,0,,
File_5=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFInterfaces.pas',0,1,1137,76,1167,0,0,,
File_6=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFBrowser.pas',0,1,52,89,80,0,0,,
File_7=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\JSEval\uJSEval.pas',0,1,238,103,281,0,0,,
File_8=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFX509Certificate.pas',0,1,111,36,149,0,0,,
File_9=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFChromiumEvents.pas',0,1,80,112,109,0,0,,
[Modules]
Module0=default.htm
@ -38,18 +38,16 @@ ClientHeight=9417
DockedToMainForm=1
BorlandEditorCodeExplorer=BorlandEditorCodeExplorer@EditWindow0
TopPanelSize=0
LeftPanelSize=1898
LeftPanelClients=PropertyInspector,DockSite3
LeftPanelData=00000800010100000000A219000000000000016A0700000000000001000000005D0E000009000000446F636B53697465330100000000972300001100000050726F7065727479496E73706563746F72FFFFFFFF
RightPanelSize=2000
RightPanelClients=DockSite2,DockSite4
RightPanelData=00000800010100000000A21900000000000001D00700000000000001000000004312000009000000446F636B536974653201000000009723000009000000446F636B5369746534FFFFFFFF
BottomPanelSize=0
LeftPanelSize=0
RightPanelSize=0
BottomPanelSize=1508
BottomPanelClients=DockSite1,MessageView
BottomPanelData=0000080001020200000009000000446F636B53697465310F0000004D65737361676556696577466F726D1234000000000000022506000000000000FFFFFFFF
BottomPanelData=0000080001020100000009000000446F636B53697465313B3600000000000002E40500000000000001000000003B3600000F0000004D65737361676556696577466F726DFFFFFFFF
BottomMiddlePanelSize=0
BottomMiddlePanelClients=DockSite0,GraphDrawingModel
BottomMiddelPanelData=0000080001020200000009000000446F636B536974653010000000477261706844726177696E67566965779D1D00000000000002F306000000000000FFFFFFFF
TabDockLeftClients=PropertyInspector=0,DockSite3=1
TabDockRightClients=DockSite4=0,DockSite2=1
[View0]
CustomEditViewType=TWelcomePageView
@ -72,11 +70,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1143
Height=1076
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1143
ClientHeight=1076
TBDockHeight=213
LRDockWidth=13602
Dockable=1
@ -120,11 +118,11 @@ State=0
Left=0
Top=0
Width=2000
Height=4305
Height=7231
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=4305
ClientHeight=7231
TBDockHeight=5897
LRDockWidth=2352
Dockable=1
@ -133,18 +131,18 @@ StayOnTop=0
[MessageView]
PercentageSizes=1
Create=1
Visible=0
Visible=1
Docked=1
State=0
Left=0
Top=0
Width=2773
Height=1424
Top=18
Width=10000
Height=1357
MaxLeft=-1
MaxTop=-1
ClientWidth=2773
ClientHeight=1424
TBDockHeight=1424
ClientWidth=10000
ClientHeight=1357
TBDockHeight=1357
LRDockWidth=2773
Dockable=1
StayOnTop=0
@ -157,12 +155,12 @@ Docked=1
State=0
Left=0
Top=0
Width=2000
Height=4383
Width=1875
Height=6738
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=4383
ClientWidth=1875
ClientHeight=6738
TBDockHeight=7152
LRDockWidth=2000
Dockable=1
@ -212,8 +210,8 @@ Create=1
Visible=0
Docked=1
State=0
Left=-121
Top=-70
Left=-8
Top=-30
Width=1844
Height=3139
MaxLeft=-1
@ -266,17 +264,17 @@ StayOnTop=0
[PropertyInspector]
PercentageSizes=1
Create=1
Visible=1
Visible=0
Docked=1
State=0
Left=0
Top=357
Left=78
Top=386
Width=1898
Height=5415
Height=7164
MaxLeft=-1
MaxTop=-1
ClientWidth=1898
ClientHeight=5415
ClientHeight=7164
TBDockHeight=7164
LRDockWidth=1898
Dockable=1
@ -291,12 +289,12 @@ Docked=1
State=0
Left=0
Top=0
Width=2000
Height=6883
Width=1875
Height=6457
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=6883
ClientWidth=1875
ClientHeight=6457
TBDockHeight=5964
LRDockWidth=2508
Dockable=1
@ -308,8 +306,8 @@ Create=1
Visible=0
Docked=1
State=0
Left=-946
Top=5
Left=-1210
Top=-7
Width=2844
Height=6200
MaxLeft=-1
@ -327,8 +325,8 @@ Create=1
Visible=0
Docked=1
State=0
Left=-1152
Top=247
Left=-8
Top=287
Width=273
Height=359
MaxLeft=-1
@ -352,11 +350,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1143
Height=1076
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1143
ClientHeight=1076
TBDockHeight=415
LRDockWidth=4953
Dockable=1
@ -371,11 +369,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1143
Height=1076
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1143
ClientHeight=1076
TBDockHeight=213
LRDockWidth=7406
Dockable=1
@ -394,11 +392,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1143
Height=1076
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1143
ClientHeight=1076
TBDockHeight=1536
LRDockWidth=3484
Dockable=1
@ -413,11 +411,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1143
Height=1076
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1143
ClientHeight=1076
TBDockHeight=2063
LRDockWidth=3484
Dockable=1
@ -515,12 +513,12 @@ Docked=1
State=0
Left=0
Top=0
Width=2000
Height=6883
Width=1875
Height=6457
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=6883
ClientWidth=1875
ClientHeight=6457
TBDockHeight=4888
LRDockWidth=7148
Dockable=1
@ -554,11 +552,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1143
Height=1076
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1143
ClientHeight=1076
TBDockHeight=1547
LRDockWidth=8742
Dockable=1
@ -579,12 +577,12 @@ Docked=1
State=0
Left=0
Top=0
Width=1898
Height=3554
Width=1773
Height=6738
MaxLeft=-1
MaxTop=-1
ClientWidth=1898
ClientHeight=3554
ClientWidth=1773
ClientHeight=6738
TBDockHeight=3677
LRDockWidth=1898
Dockable=1
@ -598,12 +596,12 @@ Docked=1
State=0
Left=0
Top=0
Width=2000
Height=6883
Width=1875
Height=6457
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=6883
ClientWidth=1875
ClientHeight=6457
TBDockHeight=4888
LRDockWidth=5305
Dockable=1
@ -666,12 +664,12 @@ State=0
Left=0
Top=18
Width=3820
Height=1424
Height=1357
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1424
TBDockHeight=1424
ClientHeight=1357
TBDockHeight=1357
LRDockWidth=3820
Dockable=1
StayOnTop=0
@ -680,21 +678,21 @@ ActiveTabID=DebugLogView
TabDockClients=DebugLogView,BreakpointWindow,ThreadStatusWindow,CallStackWindow,WatchWindow,LocalVarsWindow
[DockSite2]
HostDockSite=DockRightPanel
HostDockSite=RightTabDock
DockSiteType=1
PercentageSizes=1
Create=1
Visible=1
Visible=0
Docked=1
State=0
Left=0
Top=18
Left=4
Top=24
Width=2000
Height=4585
Height=7511
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=4585
ClientHeight=7511
TBDockHeight=7164
LRDockWidth=2000
Dockable=1
@ -704,21 +702,21 @@ ActiveTabID=ProjectManager
TabDockClients=ProjectManager,ModelViewTool,DataExplorerContainer,frmDesignPreview,TFileExplorerForm
[DockSite3]
HostDockSite=DockLeftPanel
HostDockSite=LeftDockTabSet
DockSiteType=1
PercentageSizes=1
Create=1
Visible=1
Visible=0
Docked=1
State=0
Left=0
Top=18
Top=0
Width=1898
Height=3554
Height=7164
MaxLeft=-1
MaxTop=-1
ClientWidth=1898
ClientHeight=3554
ClientWidth=1773
ClientHeight=6738
TBDockHeight=7164
LRDockWidth=1898
Dockable=1
@ -728,21 +726,21 @@ ActiveTabID=StructureView
TabDockClients=StructureView,ClassBrowserTool
[DockSite4]
HostDockSite=DockRightPanel
HostDockSite=RightTabDock
DockSiteType=1
PercentageSizes=1
Create=1
Visible=1
Visible=0
Docked=1
State=0
Left=0
Top=449
Top=0
Width=2000
Height=4383
Height=7164
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=4383
ClientWidth=1875
ClientHeight=6738
TBDockHeight=7164
LRDockWidth=2000
Dockable=1

8
source/CEF4Delphi.stat
View File

@ -1,9 +1,9 @@
[Stats]
EditorSecs=155598
DesignerSecs=97
EditorSecs=156216
DesignerSecs=98
InspectorSecs=326
CompileSecs=5004540
OtherSecs=16462
CompileSecs=5065676
OtherSecs=16679
StartTime=22/01/2017 10:49:52
RealKeys=0
EffectiveKeys=0

2
source/uCEFApplication.pas
View File

@ -57,7 +57,7 @@ uses
const
CEF_SUPPORTED_VERSION_MAJOR = 3;
CEF_SUPPORTED_VERSION_MINOR = 3112;
CEF_SUPPORTED_VERSION_RELEASE = 1657;
CEF_SUPPORTED_VERSION_RELEASE = 1658;
CEF_SUPPORTED_VERSION_BUILD = 0;
CEF_CHROMEELF_VERSION_MAJOR = 60;

6053
source/uCEFChromium.pas
View File

File diff suppressed because it is too large Load Diff

19
source/uCEFRenderProcessHandler.pas
View File

@ -75,6 +75,7 @@ type
TCefCustomRenderProcessHandler = class(TCefRenderProcessHandlerOwn)
protected
FExtraMsgNames : TStringList;
FMessageName : ustring;
FOnRenderThreadCreatedEvent : TOnRenderThreadCreatedEvent;
FOnWebKitInitializedEvent : TOnWebKitInitializedEvent;
@ -100,6 +101,8 @@ type
public
constructor Create; override;
destructor Destroy; override;
procedure AddMessageName(const aName : string);
property MessageName : ustring read FMessageName write FMessageName;
property OnRenderThreadCreatedEvent : TOnRenderThreadCreatedEvent read FOnRenderThreadCreatedEvent write FOnRenderThreadCreatedEvent;
@ -304,6 +307,7 @@ begin
inherited Create;
FMessageName := '';
FExtraMsgNames := TStringList.Create;
FOnRenderThreadCreatedEvent := nil;
FOnWebKitInitializedEvent := nil;
FOnBrowserCreatedEvent := nil;
@ -316,6 +320,18 @@ begin
FOnProcessMessageReceivedEvent := nil;
end;
destructor TCefCustomRenderProcessHandler.Destroy;
begin
FExtraMsgNames.Free;
inherited Destroy;
end;
procedure TCefCustomRenderProcessHandler.AddMessageName(const aName : string);
begin
FExtraMsgNames.Add(aName);
end;
procedure TCefCustomRenderProcessHandler.OnRenderThreadCreated(const extraInfo: ICefListValue);
begin
if assigned(FOnRenderThreadCreatedEvent) then FOnRenderThreadCreatedEvent(extraInfo);
@ -384,7 +400,8 @@ function TCefCustomRenderProcessHandler.OnProcessMessageReceived(const browser
end;
function TCefCustomRenderProcessHandler.OnProcessMessageReceived(const browser : ICefBrowser;
sourceProcess : TCefProcessId;
sourceProcess : TCefProcessId;
const message : ICefProcessMessage): Boolean;
begin
if assigned(FOnProcessMessageReceivedEvent) and
((message.Name = FMessageName) or (FExtraMsgNames.IndexOf(message.Name) >= 0)) then