pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-08-14 21:42:50 +02:00
Code Issues Actions 1 Releases Activity

Update to CEF 78.3.4

Browse Source 
More fixes in the CEF API types
This commit is contained in:
Salvador Díaz Fau
2019-11-20 10:45:46 +01:00
parent 956eea99bc
commit e5c2d4cc99
10 changed files with 274 additions and 274 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
README.md
View File

@@ -3,10 +3,10 @@ CEF4Delphi is an open source project created by Salvador D
CEF4Delphi is based on DCEF3, made by Henri Gourvest. The original license of DCEF3 still applies to CEF4Delphi. Read the license terms in the first lines of any *.pas file. CEF4Delphi is based on DCEF3, made by Henri Gourvest. The original license of DCEF3 still applies to CEF4Delphi. Read the license terms in the first lines of any *.pas file.
CEF4Delphi uses CEF 78.3.1 which includes Chromium 78.0.3904.87. CEF4Delphi uses CEF 78.3.4 which includes Chromium 78.0.3904.108.
The CEF binaries used by CEF4Delphi are available for download at spotify : The CEF binaries used by CEF4Delphi are available for download at spotify :
* [32 bits](http://opensource.spotify.com/cefbuilds/cef_binary_78.3.1%2Bg8819d2e%2Bchromium-78.0.3904.87_windows32.tar.bz2) * [32 bits](http://opensource.spotify.com/cefbuilds/cef_binary_78.3.4%2Bge17bba6%2Bchromium-78.0.3904.108_windows32.tar.bz2)
* [64 bits](http://opensource.spotify.com/cefbuilds/cef_binary_78.3.1%2Bg8819d2e%2Bchromium-78.0.3904.87_windows64.tar.bz2) * [64 bits](http://opensource.spotify.com/cefbuilds/cef_binary_78.3.4%2Bge17bba6%2Bchromium-78.0.3904.108_windows64.tar.bz2)
CEF4Delphi was developed and tested on Delphi 10.3 Rio and it has been tested in Delphi 7, Delphi XE, Delphi 10, Delphi 10.2 and Lazarus 2.0.6/FPC 3.0.4. CEF4Delphi includes VCL, FireMonkey (FMX) and Lazarus components. CEF4Delphi was developed and tested on Delphi 10.3 Rio and it has been tested in Delphi 7, Delphi XE, Delphi 10, Delphi 10.2 and Lazarus 2.0.6/FPC 3.0.4. CEF4Delphi includes VCL, FireMonkey (FMX) and Lazarus components.

2
packages/cef4delphi_lazarus.lpk
View File

@@ -21,7 +21,7 @@
</CompilerOptions> </CompilerOptions>
<Description Value="CEF4Delphi is an open source project created by Salvador Díaz Fau to embed Chromium-based browsers in applications made with Delphi or Lazarus/FPC."/> <Description Value="CEF4Delphi is an open source project created by Salvador Díaz Fau to embed Chromium-based browsers in applications made with Delphi or Lazarus/FPC."/>
<License Value="MPL 1.1"/> <License Value="MPL 1.1"/>
<Version Major="78" Minor="3" Release="1"/> <Version Major="78" Minor="3" Release="4"/>
<Files Count="146"> <Files Count="146">
<Item1> <Item1>
<Filename Value="..\source\uCEFAccessibilityHandler.pas"/> <Filename Value="..\source\uCEFAccessibilityHandler.pas"/>

4
source/uCEFApplicationCore.pas
View File

@@ -62,13 +62,13 @@ uses
const const
CEF_SUPPORTED_VERSION_MAJOR = 78; CEF_SUPPORTED_VERSION_MAJOR = 78;
CEF_SUPPORTED_VERSION_MINOR = 3; CEF_SUPPORTED_VERSION_MINOR = 3;
CEF_SUPPORTED_VERSION_RELEASE = 1; CEF_SUPPORTED_VERSION_RELEASE = 4;
CEF_SUPPORTED_VERSION_BUILD = 0; CEF_SUPPORTED_VERSION_BUILD = 0;
CEF_CHROMEELF_VERSION_MAJOR = 78; CEF_CHROMEELF_VERSION_MAJOR = 78;
CEF_CHROMEELF_VERSION_MINOR = 0; CEF_CHROMEELF_VERSION_MINOR = 0;
CEF_CHROMEELF_VERSION_RELEASE = 3904; CEF_CHROMEELF_VERSION_RELEASE = 3904;
CEF_CHROMEELF_VERSION_BUILD = 87; CEF_CHROMEELF_VERSION_BUILD = 108;
{$IFDEF MSWINDOWS} {$IFDEF MSWINDOWS}
LIBCEF_DLL = 'libcef.dll'; LIBCEF_DLL = 'libcef.dll';

416
source/uCEFChromiumCore.pas
View File

@@ -474,8 +474,8 @@ type
function doOnGetScreenInfo(const browser: ICefBrowser; var screenInfo: TCefScreenInfo): Boolean; virtual; function doOnGetScreenInfo(const browser: ICefBrowser; var screenInfo: TCefScreenInfo): Boolean; virtual;
procedure doOnPopupShow(const browser: ICefBrowser; show: Boolean); virtual; procedure doOnPopupShow(const browser: ICefBrowser; show: Boolean); virtual;
procedure doOnPopupSize(const browser: ICefBrowser; const rect: PCefRect); virtual; procedure doOnPopupSize(const browser: ICefBrowser; const rect: PCefRect); virtual;
procedure doOnPaint(const browser: ICefBrowser; kind: TCefPaintElementType; dirtyRectsCount: NativeUInt; const dirtyRects: PCefRectArray; const buffer: Pointer; width, height: Integer); virtual; procedure doOnPaint(const browser: ICefBrowser; type_: TCefPaintElementType; dirtyRectsCount: NativeUInt; const dirtyRects: PCefRectArray; const buffer: Pointer; width, height: Integer); virtual;
procedure doOnAcceleratedPaint(const browser: ICefBrowser; kind: TCefPaintElementType; dirtyRectsCount: NativeUInt; const dirtyRects: PCefRectArray; shared_handle: Pointer); virtual; procedure doOnAcceleratedPaint(const browser: ICefBrowser; type_: TCefPaintElementType; dirtyRectsCount: NativeUInt; const dirtyRects: PCefRectArray; shared_handle: Pointer); virtual;
procedure doOnCursorChange(const browser: ICefBrowser; cursor: TCefCursorHandle; cursorType: TCefCursorType; const customCursorInfo: PCefCursorInfo); virtual; procedure doOnCursorChange(const browser: ICefBrowser; cursor: TCefCursorHandle; cursorType: TCefCursorType; const customCursorInfo: PCefCursorInfo); virtual;
function doOnStartDragging(const browser: ICefBrowser; const dragData: ICefDragData; allowedOps: TCefDragOperations; x, y: Integer): Boolean; virtual; function doOnStartDragging(const browser: ICefBrowser; const dragData: ICefDragData; allowedOps: TCefDragOperations; x, y: Integer): Boolean; virtual;
procedure doOnUpdateDragCursor(const browser: ICefBrowser; operation: TCefDragOperation); virtual; procedure doOnUpdateDragCursor(const browser: ICefBrowser; operation: TCefDragOperation); virtual;
@@ -486,7 +486,7 @@ type
// ICefDragHandler // ICefDragHandler
function doOnDragEnter(const browser: ICefBrowser; const dragData: ICefDragData; mask: TCefDragOperations): Boolean; virtual; function doOnDragEnter(const browser: ICefBrowser; const dragData: ICefDragData; mask: TCefDragOperations): Boolean; virtual;
procedure doOnDraggableRegionsChanged(const browser: ICefBrowser; const frame: ICefFrame; regionsCount: NativeUInt; regions: PCefDraggableRegionArray); virtual; procedure doOnDraggableRegionsChanged(const browser: ICefBrowser; const frame: ICefFrame; regionsCount: NativeUInt; const regions: PCefDraggableRegionArray); virtual;
// ICefFindHandler // ICefFindHandler
procedure doOnFindResult(const browser: ICefBrowser; identifier, count: Integer; const selectionRect: PCefRect; activeMatchOrdinal: Integer; finalUpdate: Boolean); virtual; procedure doOnFindResult(const browser: ICefBrowser; identifier, count: Integer; const selectionRect: PCefRect; activeMatchOrdinal: Integer; finalUpdate: Boolean); virtual;
@@ -1390,11 +1390,11 @@ begin
{$ENDIF} {$ENDIF}
end; end;
function TChromiumCore.CreateBrowser( aParentHandle : TCefWindowHandle; function TChromiumCore.CreateBrowser( aParentHandle : TCefWindowHandle;
aParentRect : TRect; aParentRect : TRect;
const aWindowName : ustring; const aWindowName : ustring;
const aContext : ICefRequestContext; const aContext : ICefRequestContext;
const aExtraInfo : ICefDictionaryValue) : boolean; const aExtraInfo : ICefDictionaryValue) : boolean;
var var
TempNewContext, TempGlobalContext : ICefRequestContext; TempNewContext, TempGlobalContext : ICefRequestContext;
begin begin
@@ -1450,9 +1450,9 @@ begin
end; end;
end; end;
procedure TChromiumCore.InitializeWindowInfo( aParentHandle : TCefWindowHandle; procedure TChromiumCore.InitializeWindowInfo( aParentHandle : TCefWindowHandle;
aParentRect : TRect; aParentRect : TRect;
const aWindowName : ustring); const aWindowName : ustring);
begin begin
{$IFDEF MSWINDOWS} {$IFDEF MSWINDOWS}
if FIsOSR then if FIsOSR then
@@ -1467,9 +1467,9 @@ begin
{$ENDIF} {$ENDIF}
end; end;
procedure TChromiumCore.DefaultInitializeDevToolsWindowInfo(aDevToolsWnd: TCefWindowHandle; procedure TChromiumCore.DefaultInitializeDevToolsWindowInfo( aDevToolsWnd : TCefWindowHandle;
const aClientRect: TRect; const aClientRect : TRect;
const aWindowName: ustring); const aWindowName : ustring);
begin begin
{$IFDEF MSWINDOWS} {$IFDEF MSWINDOWS}
if (aDevToolsWnd <> 0) then if (aDevToolsWnd <> 0) then
@@ -1619,11 +1619,11 @@ begin
if Initialized then FBrowser.Host.CloseBrowser(aForceClose); if Initialized then FBrowser.Host.CloseBrowser(aForceClose);
end; end;
function TChromiumCore.CreateBrowserHost( aWindowInfo : PCefWindowInfo; function TChromiumCore.CreateBrowserHost( aWindowInfo : PCefWindowInfo;
const aURL : ustring; const aURL : ustring;
const aSettings : PCefBrowserSettings; const aSettings : PCefBrowserSettings;
const aExtraInfo : ICefDictionaryValue; const aExtraInfo : ICefDictionaryValue;
const aContext : ICefRequestContext): boolean; const aContext : ICefRequestContext): boolean;
var var
TempURL : TCefString; TempURL : TCefString;
begin begin
@@ -1631,11 +1631,11 @@ begin
Result := cef_browser_host_create_browser(aWindowInfo, FHandler.Wrap, @TempURL, aSettings, CefGetData(aExtraInfo), CefGetData(aContext)) <> 0; Result := cef_browser_host_create_browser(aWindowInfo, FHandler.Wrap, @TempURL, aSettings, CefGetData(aExtraInfo), CefGetData(aContext)) <> 0;
end; end;
function TChromiumCore.CreateBrowserHostSync( aWindowInfo : PCefWindowInfo; function TChromiumCore.CreateBrowserHostSync( aWindowInfo : PCefWindowInfo;
const aURL : ustring; const aURL : ustring;
const aSettings : PCefBrowserSettings; const aSettings : PCefBrowserSettings;
const aExtraInfo : ICefDictionaryValue; const aExtraInfo : ICefDictionaryValue;
const aContext : ICefRequestContext): boolean; const aContext : ICefRequestContext): boolean;
var var
TempURL : TCefString; TempURL : TCefString;
begin begin
@@ -2027,9 +2027,9 @@ end;
// Use the OnDownloadImageFinished event to receive the image // Use the OnDownloadImageFinished event to receive the image
procedure TChromiumCore.DownloadImage(const imageUrl : ustring; procedure TChromiumCore.DownloadImage(const imageUrl : ustring;
isFavicon : boolean; isFavicon : boolean;
maxImageSize : cardinal; maxImageSize : cardinal;
bypassCache : boolean); bypassCache : boolean);
var var
TempCallback : ICefDownloadImageCallback; TempCallback : ICefDownloadImageCallback;
begin begin
@@ -3525,9 +3525,9 @@ begin
end; end;
function TChromiumCore.doNavigationVisitorResultAvailable(const entry : ICefNavigationEntry; function TChromiumCore.doNavigationVisitorResultAvailable(const entry : ICefNavigationEntry;
current : Boolean; current : Boolean;
index : Integer; index : Integer;
total : Integer) : boolean; total : Integer) : boolean;
begin begin
Result := False; Result := False;
@@ -3536,8 +3536,8 @@ begin
end; end;
procedure TChromiumCore.doDownloadImageFinished(const imageUrl : ustring; procedure TChromiumCore.doDownloadImageFinished(const imageUrl : ustring;
httpStatusCode : Integer; httpStatusCode : Integer;
const image : ICefImage); const image : ICefImage);
begin begin
if assigned(FOnDownloadImageFinished) then if assigned(FOnDownloadImageFinished) then
FOnDownloadImageFinished(self, imageUrl, httpStatusCode, image); FOnDownloadImageFinished(self, imageUrl, httpStatusCode, image);
@@ -3569,10 +3569,10 @@ begin
end; end;
procedure TChromiumCore.doOnCookiesVisited(const name_, value, domain, path: ustring; procedure TChromiumCore.doOnCookiesVisited(const name_, value, domain, path: ustring;
secure, httponly, hasExpires: Boolean; secure, httponly, hasExpires: Boolean;
const creation, lastAccess, expires: TDateTime; const creation, lastAccess, expires: TDateTime;
count, total, aID : Integer; count, total, aID : Integer;
var aDeleteCookie, aResult : Boolean); var aDeleteCookie, aResult : Boolean);
begin begin
if assigned(FOnCookiesVisited) then if assigned(FOnCookiesVisited) then
FOnCookiesVisited(self, name_, value, domain, path, FOnCookiesVisited(self, name_, value, domain, path,
@@ -3985,10 +3985,10 @@ begin
end; end;
function TChromiumCore.doOnBeforeBrowse(const browser : ICefBrowser; function TChromiumCore.doOnBeforeBrowse(const browser : ICefBrowser;
const frame : ICefFrame; const frame : ICefFrame;
const request : ICefRequest; const request : ICefRequest;
user_gesture : Boolean; user_gesture : Boolean;
isRedirect : Boolean): Boolean; isRedirect : Boolean): Boolean;
begin begin
Result := False; Result := False;
@@ -3998,18 +3998,18 @@ begin
end; end;
procedure TChromiumCore.doOnBeforeContextMenu(const browser : ICefBrowser; procedure TChromiumCore.doOnBeforeContextMenu(const browser : ICefBrowser;
const frame : ICefFrame; const frame : ICefFrame;
const params : ICefContextMenuParams; const params : ICefContextMenuParams;
const model : ICefMenuModel); const model : ICefMenuModel);
begin begin
if Assigned(FOnBeforeContextMenu) then FOnBeforeContextMenu(Self, browser, frame, params, model); if Assigned(FOnBeforeContextMenu) then FOnBeforeContextMenu(Self, browser, frame, params, model);
end; end;
function TChromiumCore.doRunContextMenu(const browser : ICefBrowser; function TChromiumCore.doRunContextMenu(const browser : ICefBrowser;
const frame : ICefFrame; const frame : ICefFrame;
const params : ICefContextMenuParams; const params : ICefContextMenuParams;
const model : ICefMenuModel; const model : ICefMenuModel;
const callback : ICefRunContextMenuCallback): Boolean; const callback : ICefRunContextMenuCallback): Boolean;
begin begin
Result := False; Result := False;
@@ -4017,25 +4017,25 @@ begin
end; end;
procedure TChromiumCore.doOnBeforeDownload(const browser : ICefBrowser; procedure TChromiumCore.doOnBeforeDownload(const browser : ICefBrowser;
const downloadItem : ICefDownloadItem; const downloadItem : ICefDownloadItem;
const suggestedName : ustring; const suggestedName : ustring;
const callback : ICefBeforeDownloadCallback); const callback : ICefBeforeDownloadCallback);
begin begin
if Assigned(FOnBeforeDownload) then FOnBeforeDownload(Self, browser, downloadItem, suggestedName, callback); if Assigned(FOnBeforeDownload) then FOnBeforeDownload(Self, browser, downloadItem, suggestedName, callback);
end; end;
function TChromiumCore.doOnBeforePopup(const browser : ICefBrowser; function TChromiumCore.doOnBeforePopup(const browser : ICefBrowser;
const frame : ICefFrame; const frame : ICefFrame;
const targetUrl : ustring; const targetUrl : ustring;
const targetFrameName : ustring; const targetFrameName : ustring;
targetDisposition : TCefWindowOpenDisposition; targetDisposition : TCefWindowOpenDisposition;
userGesture : Boolean; userGesture : Boolean;
const popupFeatures : TCefPopupFeatures; const popupFeatures : TCefPopupFeatures;
var windowInfo : TCefWindowInfo; var windowInfo : TCefWindowInfo;
var client : ICefClient; var client : ICefClient;
var settings : TCefBrowserSettings; var settings : TCefBrowserSettings;
var extra_info : ICefDictionaryValue; var extra_info : ICefDictionaryValue;
var noJavascriptAccess : Boolean): Boolean; var noJavascriptAccess : Boolean): Boolean;
begin begin
Result := False; Result := False;
@@ -4046,9 +4046,9 @@ begin
end; end;
function TChromiumCore.doOnBeforeResourceLoad(const browser : ICefBrowser; function TChromiumCore.doOnBeforeResourceLoad(const browser : ICefBrowser;
const frame : ICefFrame; const frame : ICefFrame;
const request : ICefRequest; const request : ICefRequest;
const callback : ICefRequestCallback): TCefReturnValue; const callback : ICefRequestCallback): TCefReturnValue;
var var
TempHeaderMap : ICefStringMultimap; TempHeaderMap : ICefStringMultimap;
begin begin
@@ -4070,9 +4070,9 @@ begin
end; end;
function TChromiumCore.doOnBeforeUnloadDialog(const browser : ICefBrowser; function TChromiumCore.doOnBeforeUnloadDialog(const browser : ICefBrowser;
const messageText : ustring; const messageText : ustring;
isReload : Boolean; isReload : Boolean;
const callback : ICefJsDialogCallback): Boolean; const callback : ICefJsDialogCallback): Boolean;
begin begin
Result := False; Result := False;
@@ -4080,10 +4080,10 @@ begin
end; end;
function TChromiumCore.doOnCertificateError(const browser : ICefBrowser; function TChromiumCore.doOnCertificateError(const browser : ICefBrowser;
certError : TCefErrorcode; certError : TCefErrorcode;
const requestUrl : ustring; const requestUrl : ustring;
const sslInfo : ICefSslInfo; const sslInfo : ICefSslInfo;
const callback : ICefRequestCallback): Boolean; const callback : ICefRequestCallback): Boolean;
begin begin
Result := False; Result := False;
@@ -4092,10 +4092,10 @@ begin
end; end;
function TChromiumCore.doOnConsoleMessage(const browser : ICefBrowser; function TChromiumCore.doOnConsoleMessage(const browser : ICefBrowser;
level : TCefLogSeverity; level : TCefLogSeverity;
const aMessage : ustring; const aMessage : ustring;
const source : ustring; const source : ustring;
line : Integer): Boolean; line : Integer): Boolean;
begin begin
Result := False; Result := False;
@@ -4103,7 +4103,7 @@ begin
end; end;
function TChromiumCore.doOnAutoResize(const browser : ICefBrowser; function TChromiumCore.doOnAutoResize(const browser : ICefBrowser;
const new_size : PCefSize): Boolean; const new_size : PCefSize): Boolean;
begin begin
Result := False; Result := False;
@@ -4116,10 +4116,10 @@ begin
end; end;
function TChromiumCore.doOnContextMenuCommand(const browser : ICefBrowser; function TChromiumCore.doOnContextMenuCommand(const browser : ICefBrowser;
const frame : ICefFrame; const frame : ICefFrame;
const params : ICefContextMenuParams; const params : ICefContextMenuParams;
commandId : Integer; commandId : Integer;
eventFlags : TCefEventFlags): Boolean; eventFlags : TCefEventFlags): Boolean;
begin begin
Result := False; Result := False;
@@ -4133,9 +4133,9 @@ begin
end; end;
procedure TChromiumCore.doOnCursorChange(const browser : ICefBrowser; procedure TChromiumCore.doOnCursorChange(const browser : ICefBrowser;
cursor : TCefCursorHandle; cursor : TCefCursorHandle;
cursorType : TCefCursorType; cursorType : TCefCursorType;
const customCursorInfo : PCefCursorInfo); const customCursorInfo : PCefCursorInfo);
begin begin
if assigned(FOnCursorChange) then FOnCursorChange(self, browser, cursor, cursorType, customCursorInfo); if assigned(FOnCursorChange) then FOnCursorChange(self, browser, cursor, cursorType, customCursorInfo);
end; end;
@@ -4146,15 +4146,15 @@ begin
end; end;
procedure TChromiumCore.doOnDownloadUpdated(const browser : ICefBrowser; procedure TChromiumCore.doOnDownloadUpdated(const browser : ICefBrowser;
const downloadItem : ICefDownloadItem; const downloadItem : ICefDownloadItem;
const callback : ICefDownloadItemCallback); const callback : ICefDownloadItemCallback);
begin begin
if Assigned(FOnDownloadUpdated) then FOnDownloadUpdated(Self, browser, downloadItem, callback); if Assigned(FOnDownloadUpdated) then FOnDownloadUpdated(Self, browser, downloadItem, callback);
end; end;
function TChromiumCore.doOnDragEnter(const browser : ICefBrowser; function TChromiumCore.doOnDragEnter(const browser : ICefBrowser;
const dragData : ICefDragData; const dragData : ICefDragData;
mask : TCefDragOperations): Boolean; mask : TCefDragOperations): Boolean;
begin begin
Result := False; Result := False;
@@ -4162,9 +4162,9 @@ begin
end; end;
procedure TChromiumCore.doOnDraggableRegionsChanged(const browser : ICefBrowser; procedure TChromiumCore.doOnDraggableRegionsChanged(const browser : ICefBrowser;
const frame : ICefFrame; const frame : ICefFrame;
regionsCount : NativeUInt; regionsCount : NativeUInt;
regions : PCefDraggableRegionArray); const regions : PCefDraggableRegionArray);
begin begin
if Assigned(FOnDraggableRegionsChanged) then FOnDraggableRegionsChanged(Self, browser, frame, regionsCount, regions); if Assigned(FOnDraggableRegionsChanged) then FOnDraggableRegionsChanged(Self, browser, frame, regionsCount, regions);
end; end;
@@ -4175,12 +4175,12 @@ begin
end; end;
function TChromiumCore.doOnFileDialog(const browser : ICefBrowser; function TChromiumCore.doOnFileDialog(const browser : ICefBrowser;
mode : TCefFileDialogMode; mode : TCefFileDialogMode;
const title : ustring; const title : ustring;
const defaultFilePath : ustring; const defaultFilePath : ustring;
const acceptFilters : TStrings; const acceptFilters : TStrings;
selectedAcceptFilter : Integer; selectedAcceptFilter : Integer;
const callback : ICefFileDialogCallback): Boolean; const callback : ICefFileDialogCallback): Boolean;
begin begin
Result := False; Result := False;
@@ -4190,11 +4190,11 @@ begin
end; end;
procedure TChromiumCore.doOnFindResult(const browser : ICefBrowser; procedure TChromiumCore.doOnFindResult(const browser : ICefBrowser;
identifier : integer; identifier : integer;
count : Integer; count : Integer;
const selectionRect : PCefRect; const selectionRect : PCefRect;
activeMatchOrdinal : Integer; activeMatchOrdinal : Integer;
finalUpdate : Boolean); finalUpdate : Boolean);
begin begin
if Assigned(FOnFindResult) then if Assigned(FOnFindResult) then
FOnFindResult(Self, browser, identifier, count, selectionRect, activeMatchOrdinal, finalUpdate); FOnFindResult(Self, browser, identifier, count, selectionRect, activeMatchOrdinal, finalUpdate);
@@ -4206,11 +4206,11 @@ begin
end; end;
function TChromiumCore.doOnBeforePluginLoad(const mimeType : ustring; function TChromiumCore.doOnBeforePluginLoad(const mimeType : ustring;
const pluginUrl : ustring; const pluginUrl : ustring;
isMainFrame : boolean; isMainFrame : boolean;
const topOriginUrl : ustring; const topOriginUrl : ustring;
const pluginInfo : ICefWebPluginInfo; const pluginInfo : ICefWebPluginInfo;
var pluginPolicy : TCefPluginPolicy): Boolean; var pluginPolicy : TCefPluginPolicy): Boolean;
begin begin
Result := False; Result := False;
@@ -4219,13 +4219,13 @@ begin
end; end;
procedure TChromiumCore.doGetResourceRequestHandler_ReqCtxHdlr(const browser : ICefBrowser; procedure TChromiumCore.doGetResourceRequestHandler_ReqCtxHdlr(const browser : ICefBrowser;
const frame : ICefFrame; const frame : ICefFrame;
const request : ICefRequest; const request : ICefRequest;
is_navigation : boolean; is_navigation : boolean;
is_download : boolean; is_download : boolean;
const request_initiator : ustring; const request_initiator : ustring;
var disable_default_handling : boolean; var disable_default_handling : boolean;
var aResourceRequestHandler : ICefResourceRequestHandler); var aResourceRequestHandler : ICefResourceRequestHandler);
begin begin
if (FResourceRequestHandler <> nil) then if (FResourceRequestHandler <> nil) then
aResourceRequestHandler := FResourceRequestHandler; aResourceRequestHandler := FResourceRequestHandler;
@@ -4242,13 +4242,13 @@ begin
end; end;
function TChromiumCore.doOnGetAuthCredentials(const browser : ICefBrowser; function TChromiumCore.doOnGetAuthCredentials(const browser : ICefBrowser;
const originUrl : ustring; const originUrl : ustring;
isProxy : Boolean; isProxy : Boolean;
const host : ustring; const host : ustring;
port : Integer; port : Integer;
const realm : ustring; const realm : ustring;
const scheme : ustring; const scheme : ustring;
const callback : ICefAuthCallback): Boolean; const callback : ICefAuthCallback): Boolean;
begin begin
Result := False; Result := False;
@@ -4266,9 +4266,9 @@ begin
end; end;
function TChromiumCore.doCanSendCookie(const browser : ICefBrowser; function TChromiumCore.doCanSendCookie(const browser : ICefBrowser;
const frame : ICefFrame; const frame : ICefFrame;
const request : ICefRequest; const request : ICefRequest;
const cookie : PCefCookie): boolean; const cookie : PCefCookie): boolean;
begin begin
Result := True; Result := True;
@@ -4276,10 +4276,10 @@ begin
end; end;
function TChromiumCore.doCanSaveCookie(const browser : ICefBrowser; function TChromiumCore.doCanSaveCookie(const browser : ICefBrowser;
const frame : ICefFrame; const frame : ICefFrame;
const request : ICefRequest; const request : ICefRequest;
const response : ICefResponse; const response : ICefResponse;
const cookie : PCefCookie): boolean; const cookie : PCefCookie): boolean;
begin begin
Result := True; Result := True;
@@ -4287,9 +4287,9 @@ begin
end; end;
procedure TChromiumCore.doOnGetResourceHandler(const browser : ICefBrowser; procedure TChromiumCore.doOnGetResourceHandler(const browser : ICefBrowser;
const frame : ICefFrame; const frame : ICefFrame;
const request : ICefRequest; const request : ICefRequest;
var aResourceHandler : ICefResourceHandler); var aResourceHandler : ICefResourceHandler);
begin begin
aResourceHandler := nil; aResourceHandler := nil;
@@ -4334,12 +4334,12 @@ begin
end; end;
function TChromiumCore.doOnJsdialog(const browser : ICefBrowser; function TChromiumCore.doOnJsdialog(const browser : ICefBrowser;
const originUrl : ustring; const originUrl : ustring;
dialogType : TCefJsDialogType; dialogType : TCefJsDialogType;
const messageText : ustring; const messageText : ustring;
const defaultPromptText : ustring; const defaultPromptText : ustring;
const callback : ICefJsDialogCallback; const callback : ICefJsDialogCallback;
out suppressMessage : Boolean): Boolean; out suppressMessage : Boolean): Boolean;
begin begin
Result := False; Result := False;
@@ -4356,8 +4356,8 @@ begin
end; end;
function TChromiumCore.doOnKeyEvent(const browser : ICefBrowser; function TChromiumCore.doOnKeyEvent(const browser : ICefBrowser;
const event : PCefKeyEvent; const event : PCefKeyEvent;
osEvent : TCefEventHandle): Boolean; osEvent : TCefEventHandle): Boolean;
begin begin
Result := False; Result := False;
@@ -4365,17 +4365,17 @@ begin
end; end;
procedure TChromiumCore.doOnLoadEnd(const browser : ICefBrowser; procedure TChromiumCore.doOnLoadEnd(const browser : ICefBrowser;
const frame : ICefFrame; const frame : ICefFrame;
httpStatusCode : Integer); httpStatusCode : Integer);
begin begin
if Assigned(FOnLoadEnd) then FOnLoadEnd(Self, browser, frame, httpStatusCode); if Assigned(FOnLoadEnd) then FOnLoadEnd(Self, browser, frame, httpStatusCode);
end; end;
procedure TChromiumCore.doOnLoadError(const browser : ICefBrowser; procedure TChromiumCore.doOnLoadError(const browser : ICefBrowser;
const frame : ICefFrame; const frame : ICefFrame;
errorCode : TCefErrorCode; errorCode : TCefErrorCode;
const errorText : ustring; const errorText : ustring;
const failedUrl : ustring); const failedUrl : ustring);
begin begin
if Assigned(FOnLoadError) then FOnLoadError(Self, browser, frame, errorCode, errorText, failedUrl); if Assigned(FOnLoadError) then FOnLoadError(Self, browser, frame, errorCode, errorText, failedUrl);
end; end;
@@ -4391,10 +4391,10 @@ begin
end; end;
function TChromiumCore.doOnOpenUrlFromTab(const browser : ICefBrowser; function TChromiumCore.doOnOpenUrlFromTab(const browser : ICefBrowser;
const frame : ICefFrame; const frame : ICefFrame;
const targetUrl : ustring; const targetUrl : ustring;
targetDisposition : TCefWindowOpenDisposition; targetDisposition : TCefWindowOpenDisposition;
userGesture : Boolean): Boolean; userGesture : Boolean): Boolean;
begin begin
Result := False; Result := False;
@@ -4403,13 +4403,13 @@ begin
end; end;
procedure TChromiumCore.doGetResourceRequestHandler_ReqHdlr(const browser : ICefBrowser; procedure TChromiumCore.doGetResourceRequestHandler_ReqHdlr(const browser : ICefBrowser;
const frame : ICefFrame; const frame : ICefFrame;
const request : ICefRequest; const request : ICefRequest;
is_navigation : boolean; is_navigation : boolean;
is_download : boolean; is_download : boolean;
const request_initiator : ustring; const request_initiator : ustring;
var disable_default_handling : boolean; var disable_default_handling : boolean;
var aResourceRequestHandler : ICefResourceRequestHandler); var aResourceRequestHandler : ICefResourceRequestHandler);
begin begin
if (FResourceRequestHandler <> nil) then if (FResourceRequestHandler <> nil) then
aResourceRequestHandler := FResourceRequestHandler; aResourceRequestHandler := FResourceRequestHandler;
@@ -4421,32 +4421,32 @@ begin
end; end;
procedure TChromiumCore.doOnPaint(const browser : ICefBrowser; procedure TChromiumCore.doOnPaint(const browser : ICefBrowser;
kind : TCefPaintElementType; type_ : TCefPaintElementType;
dirtyRectsCount : NativeUInt; dirtyRectsCount : NativeUInt;
const dirtyRects : PCefRectArray; const dirtyRects : PCefRectArray;
const buffer : Pointer; const buffer : Pointer;
width : Integer; width : Integer;
height : Integer); height : Integer);
begin begin
if Assigned(FOnPaint) then FOnPaint(Self, browser, kind, dirtyRectsCount, dirtyRects, buffer, width, height); if Assigned(FOnPaint) then FOnPaint(Self, browser, type_, dirtyRectsCount, dirtyRects, buffer, width, height);
end; end;
procedure TChromiumCore.doOnAcceleratedPaint(const browser : ICefBrowser; procedure TChromiumCore.doOnAcceleratedPaint(const browser : ICefBrowser;
kind : TCefPaintElementType; type_ : TCefPaintElementType;
dirtyRectsCount : NativeUInt; dirtyRectsCount : NativeUInt;
const dirtyRects : PCefRectArray; const dirtyRects : PCefRectArray;
shared_handle : Pointer); shared_handle : Pointer);
begin begin
if Assigned(FOnAcceleratedPaint) then FOnAcceleratedPaint(Self, browser, kind, dirtyRectsCount, dirtyRects, shared_handle); if Assigned(FOnAcceleratedPaint) then FOnAcceleratedPaint(Self, browser, type_, dirtyRectsCount, dirtyRects, shared_handle);
end; end;
function TChromiumCore.doOnSelectClientCertificate(const browser : ICefBrowser; function TChromiumCore.doOnSelectClientCertificate(const browser : ICefBrowser;
isProxy : boolean; isProxy : boolean;
const host : ustring; const host : ustring;
port : integer; port : integer;
certificatesCount : NativeUInt; certificatesCount : NativeUInt;
const certificates : TCefX509CertificateArray; const certificates : TCefX509CertificateArray;
const callback : ICefSelectClientCertificateCallback): boolean; const callback : ICefSelectClientCertificateCallback): boolean;
begin begin
Result := False; Result := False;
@@ -4499,9 +4499,9 @@ begin
end; end;
function TChromiumCore.doOnQuotaRequest(const browser : ICefBrowser; function TChromiumCore.doOnQuotaRequest(const browser : ICefBrowser;
const originUrl : ustring; const originUrl : ustring;
newSize : Int64; newSize : Int64;
const callback : ICefRequestCallback): Boolean; const callback : ICefRequestCallback): Boolean;
begin begin
Result := False; Result := False;
@@ -4597,18 +4597,18 @@ begin
end; end;
procedure TChromiumCore.doOnResourceRedirect(const browser : ICefBrowser; procedure TChromiumCore.doOnResourceRedirect(const browser : ICefBrowser;
const frame : ICefFrame; const frame : ICefFrame;
const request : ICefRequest; const request : ICefRequest;
const response : ICefResponse; const response : ICefResponse;
var newUrl : ustring); var newUrl : ustring);
begin begin
if Assigned(FOnResourceRedirect) then FOnResourceRedirect(Self, browser, frame, request, response, newUrl); if Assigned(FOnResourceRedirect) then FOnResourceRedirect(Self, browser, frame, request, response, newUrl);
end; end;
function TChromiumCore.doOnResourceResponse(const browser : ICefBrowser; function TChromiumCore.doOnResourceResponse(const browser : ICefBrowser;
const frame : ICefFrame; const frame : ICefFrame;
const request : ICefRequest; const request : ICefRequest;
const response : ICefResponse): Boolean; const response : ICefResponse): Boolean;
begin begin
Result := False; Result := False;
@@ -4616,10 +4616,10 @@ begin
end; end;
procedure TChromiumCore.doOnGetResourceResponseFilter(const browser : ICefBrowser; procedure TChromiumCore.doOnGetResourceResponseFilter(const browser : ICefBrowser;
const frame : ICefFrame; const frame : ICefFrame;
const request : ICefRequest; const request : ICefRequest;
const response : ICefResponse; const response : ICefResponse;
var aResponseFilter : ICefResponseFilter); var aResponseFilter : ICefResponseFilter);
begin begin
aResponseFilter := nil; aResponseFilter := nil;
@@ -4628,11 +4628,11 @@ begin
end; end;
procedure TChromiumCore.doOnResourceLoadComplete(const browser : ICefBrowser; procedure TChromiumCore.doOnResourceLoadComplete(const browser : ICefBrowser;
const frame : ICefFrame; const frame : ICefFrame;
const request : ICefRequest; const request : ICefRequest;
const response : ICefResponse; const response : ICefResponse;
status : TCefUrlRequestStatus; status : TCefUrlRequestStatus;
receivedContentLength : Int64); receivedContentLength : Int64);
begin begin
if Assigned(FOnResourceLoadComplete) then if Assigned(FOnResourceLoadComplete) then
FOnResourceLoadComplete(self, browser, frame, request, response, status, receivedContentLength); FOnResourceLoadComplete(self, browser, frame, request, response, status, receivedContentLength);
@@ -4644,24 +4644,24 @@ begin
end; end;
procedure TChromiumCore.doOnIMECompositionRangeChanged(const browser : ICefBrowser; procedure TChromiumCore.doOnIMECompositionRangeChanged(const browser : ICefBrowser;
const selected_range : PCefRange; const selected_range : PCefRange;
character_boundsCount : NativeUInt; character_boundsCount : NativeUInt;
const character_bounds : PCefRect); const character_bounds : PCefRect);
begin begin
if assigned(FOnIMECompositionRangeChanged) then if assigned(FOnIMECompositionRangeChanged) then
FOnIMECompositionRangeChanged(self, browser, selected_range, character_boundsCount, character_bounds); FOnIMECompositionRangeChanged(self, browser, selected_range, character_boundsCount, character_bounds);
end; end;
procedure TChromiumCore.doOnTextSelectionChanged(const browser : ICefBrowser; procedure TChromiumCore.doOnTextSelectionChanged(const browser : ICefBrowser;
const selected_text : ustring; const selected_text : ustring;
const selected_range : PCefRange); const selected_range : PCefRange);
begin begin
if assigned(FOnTextSelectionChanged) then if assigned(FOnTextSelectionChanged) then
FOnTextSelectionChanged(self, browser, selected_text, selected_range); FOnTextSelectionChanged(self, browser, selected_text, selected_range);
end; end;
procedure TChromiumCore.doOnVirtualKeyboardRequested(const browser : ICefBrowser; procedure TChromiumCore.doOnVirtualKeyboardRequested(const browser : ICefBrowser;
input_mode : TCefTextInpuMode); input_mode : TCefTextInpuMode);
begin begin
if assigned(FOnVirtualKeyboardRequested) then if assigned(FOnVirtualKeyboardRequested) then
FOnVirtualKeyboardRequested(self, browser, input_mode); FOnVirtualKeyboardRequested(self, browser, input_mode);
@@ -4675,10 +4675,10 @@ begin
end; end;
function TChromiumCore.doOnStartDragging(const browser : ICefBrowser; function TChromiumCore.doOnStartDragging(const browser : ICefBrowser;
const dragData : ICefDragData; const dragData : ICefDragData;
allowedOps : TCefDragOperations; allowedOps : TCefDragOperations;
x : integer; x : integer;
y : Integer): Boolean; y : Integer): Boolean;
begin begin
Result := False; Result := False;
{$IFDEF MSWINDOWS} {$IFDEF MSWINDOWS}
@@ -4886,7 +4886,7 @@ begin
end; end;
end; end;
function TChromiumCore.CreateUrlRequest(const request: ICefRequest; const client: ICefUrlrequestClient; const aFrameName : ustring = ''): ICefUrlRequest; function TChromiumCore.CreateUrlRequest(const request: ICefRequest; const client: ICefUrlrequestClient; const aFrameName : ustring): ICefUrlRequest;
var var
TempFrame : ICefFrame; TempFrame : ICefFrame;
begin begin
@@ -4976,17 +4976,17 @@ begin
end; end;
procedure TChromiumCore.IMESetComposition(const text : ustring; procedure TChromiumCore.IMESetComposition(const text : ustring;
const underlines : TCefCompositionUnderlineDynArray; const underlines : TCefCompositionUnderlineDynArray;
const replacement_range : PCefRange; const replacement_range : PCefRange;
const selection_range : PCefRange); const selection_range : PCefRange);
begin begin
if Initialized then if Initialized then
FBrowser.Host.IMESetComposition(text, underlines, replacement_range, selection_range); FBrowser.Host.IMESetComposition(text, underlines, replacement_range, selection_range);
end; end;
procedure TChromiumCore.IMECommitText(const text : ustring; procedure TChromiumCore.IMECommitText(const text : ustring;
const replacement_range : PCefRange; const replacement_range : PCefRange;
relative_cursor_pos : integer); relative_cursor_pos : integer);
begin begin
if Initialized then if Initialized then
FBrowser.Host.IMECommitText(text, replacement_range, relative_cursor_pos); FBrowser.Host.IMECommitText(text, replacement_range, relative_cursor_pos);

6
source/uCEFChromiumEvents.pas
View File

@@ -144,8 +144,8 @@ type
TOnGetScreenInfo = procedure(Sender: TObject; const browser: ICefBrowser; var screenInfo: TCefScreenInfo; out Result: Boolean) of Object; TOnGetScreenInfo = procedure(Sender: TObject; const browser: ICefBrowser; var screenInfo: TCefScreenInfo; out Result: Boolean) of Object;
TOnPopupShow = procedure(Sender: TObject; const browser: ICefBrowser; show: Boolean) of Object; TOnPopupShow = procedure(Sender: TObject; const browser: ICefBrowser; show: Boolean) of Object;
TOnPopupSize = procedure(Sender: TObject; const browser: ICefBrowser; const rect: PCefRect) of Object; TOnPopupSize = procedure(Sender: TObject; const browser: ICefBrowser; const rect: PCefRect) of Object;
TOnPaint = procedure(Sender: TObject; const browser: ICefBrowser; kind: TCefPaintElementType; dirtyRectsCount: NativeUInt; const dirtyRects: PCefRectArray; const buffer: Pointer; width, height: Integer) of Object; TOnPaint = procedure(Sender: TObject; const browser: ICefBrowser; type_: TCefPaintElementType; dirtyRectsCount: NativeUInt; const dirtyRects: PCefRectArray; const buffer: Pointer; width, height: Integer) of Object;
TOnAcceleratedPaint = procedure(Sender: TObject; const browser: ICefBrowser; kind: TCefPaintElementType; dirtyRectsCount: NativeUInt; const dirtyRects: PCefRectArray; shared_handle: Pointer) of Object; TOnAcceleratedPaint = procedure(Sender: TObject; const browser: ICefBrowser; type_: TCefPaintElementType; dirtyRectsCount: NativeUInt; const dirtyRects: PCefRectArray; shared_handle: Pointer) of Object;
TOnCursorChange = procedure(Sender: TObject; const browser: ICefBrowser; cursor: TCefCursorHandle; cursorType: TCefCursorType; const customCursorInfo: PCefCursorInfo) of Object; TOnCursorChange = procedure(Sender: TObject; const browser: ICefBrowser; cursor: TCefCursorHandle; cursorType: TCefCursorType; const customCursorInfo: PCefCursorInfo) of Object;
TOnStartDragging = procedure(Sender: TObject; const browser: ICefBrowser; const dragData: ICefDragData; allowedOps: TCefDragOperations; x, y: Integer; out Result: Boolean) of Object; TOnStartDragging = procedure(Sender: TObject; const browser: ICefBrowser; const dragData: ICefDragData; allowedOps: TCefDragOperations; x, y: Integer; out Result: Boolean) of Object;
TOnUpdateDragCursor = procedure(Sender: TObject; const browser: ICefBrowser; operation: TCefDragOperation) of Object; TOnUpdateDragCursor = procedure(Sender: TObject; const browser: ICefBrowser; operation: TCefDragOperation) of Object;
@@ -156,7 +156,7 @@ type
// ICefDragHandler // ICefDragHandler
TOnDragEnter = procedure(Sender: TObject; const browser: ICefBrowser; const dragData: ICefDragData; mask: TCefDragOperations; out Result: Boolean) of Object; TOnDragEnter = procedure(Sender: TObject; const browser: ICefBrowser; const dragData: ICefDragData; mask: TCefDragOperations; out Result: Boolean) of Object;
TOnDraggableRegionsChanged = procedure(Sender: TObject; const browser: ICefBrowser; const frame: ICefFrame; regionsCount: NativeUInt; regions: PCefDraggableRegionArray)of Object; TOnDraggableRegionsChanged = procedure(Sender: TObject; const browser: ICefBrowser; const frame: ICefFrame; regionsCount: NativeUInt; const regions: PCefDraggableRegionArray) of Object;
// ICefFindHandler // ICefFindHandler
TOnFindResult = procedure(Sender: TObject; const browser: ICefBrowser; identifier, count: Integer; const selectionRect: PCefRect; activeMatchOrdinal: Integer; finalUpdate: Boolean) of Object; TOnFindResult = procedure(Sender: TObject; const browser: ICefBrowser; identifier, count: Integer; const selectionRect: PCefRect; activeMatchOrdinal: Integer; finalUpdate: Boolean) of Object;

36
source/uCEFCookieManager.pas
View File

@@ -69,7 +69,7 @@ type
function SetCookieProc(const url: ustring; const name, value, domain, path: ustring; secure, httponly, hasExpires: Boolean; const creation, lastAccess, expires: TDateTime; const callback: TCefSetCookieCallbackProc): Boolean; function SetCookieProc(const url: ustring; const name, value, domain, path: ustring; secure, httponly, hasExpires: Boolean; const creation, lastAccess, expires: TDateTime; const callback: TCefSetCookieCallbackProc): Boolean;
function DeleteCookies(const url, cookieName: ustring; const callback: ICefDeleteCookiesCallback): Boolean; function DeleteCookies(const url, cookieName: ustring; const callback: ICefDeleteCookiesCallback): Boolean;
function DeleteCookiesProc(const url, cookieName: ustring; const callback: TCefDeleteCookiesCallbackProc): Boolean; function DeleteCookiesProc(const url, cookieName: ustring; const callback: TCefDeleteCookiesCallbackProc): Boolean;
function FlushStore(const handler: ICefCompletionCallback): Boolean; function FlushStore(const callback: ICefCompletionCallback): Boolean;
function FlushStoreProc(const proc: TCefCompletionCallbackProc): Boolean; function FlushStoreProc(const proc: TCefCompletionCallbackProc): Boolean;
public public
@@ -108,9 +108,9 @@ begin
Result := DeleteCookies(url, cookieName, TCefFastDeleteCookiesCallback.Create(callback)); Result := DeleteCookies(url, cookieName, TCefFastDeleteCookiesCallback.Create(callback));
end; end;
function TCefCookieManagerRef.FlushStore(const handler: ICefCompletionCallback): Boolean; function TCefCookieManagerRef.FlushStore(const callback: ICefCompletionCallback): Boolean;
begin begin
Result := PCefCookieManager(FData)^.flush_store(PCefCookieManager(FData), CefGetData(handler)) <> 0; Result := PCefCookieManager(FData)^.flush_store(PCefCookieManager(FData), CefGetData(callback)) <> 0;
end; end;
function TCefCookieManagerRef.FlushStoreProc(const proc: TCefCompletionCallbackProc): Boolean; function TCefCookieManagerRef.FlushStoreProc(const proc: TCefCompletionCallbackProc): Boolean;
@@ -133,26 +133,26 @@ function TCefCookieManagerRef.SetCookie(const url, name, value, domain, path: us
const creation, lastAccess, expires: TDateTime; const creation, lastAccess, expires: TDateTime;
const callback: ICefSetCookieCallback): Boolean; const callback: ICefSetCookieCallback): Boolean;
var var
str : TCefString; TempURL : TCefString;
cook : TCefCookie; TempCookie : TCefCookie;
begin begin
str := CefString(url); TempURL := CefString(url);
cook.name := CefString(name); TempCookie.name := CefString(name);
cook.value := CefString(value); TempCookie.value := CefString(value);
cook.domain := CefString(domain); TempCookie.domain := CefString(domain);
cook.path := CefString(path); TempCookie.path := CefString(path);
cook.secure := Ord(secure); TempCookie.secure := Ord(secure);
cook.httponly := Ord(httponly); TempCookie.httponly := Ord(httponly);
cook.creation := DateTimeToCefTime(creation); TempCookie.creation := DateTimeToCefTime(creation);
cook.last_access := DateTimeToCefTime(lastAccess); TempCookie.last_access := DateTimeToCefTime(lastAccess);
cook.has_expires := Ord(hasExpires); TempCookie.has_expires := Ord(hasExpires);
if hasExpires then if hasExpires then
cook.expires := DateTimeToCefTime(expires) TempCookie.expires := DateTimeToCefTime(expires)
else else
FillChar(cook.expires, SizeOf(TCefTime), 0); FillChar(TempCookie.expires, SizeOf(TCefTime), 0);
Result := PCefCookieManager(FData)^.set_cookie(PCefCookieManager(FData), @str, @cook, CefGetData(callback)) <> 0; Result := PCefCookieManager(FData)^.set_cookie(PCefCookieManager(FData), @TempURL, @TempCookie, CefGetData(callback)) <> 0;
end; end;
function TCefCookieManagerRef.SetCookieProc(const url, name, value, domain, path: ustring; function TCefCookieManagerRef.SetCookieProc(const url, name, value, domain, path: ustring;

18
source/uCEFDragHandler.pas
View File

@@ -55,7 +55,7 @@ type
TCefDragHandlerOwn = class(TCefBaseRefCountedOwn, ICefDragHandler) TCefDragHandlerOwn = class(TCefBaseRefCountedOwn, ICefDragHandler)
protected protected
function OnDragEnter(const browser: ICefBrowser; const dragData: ICefDragData; mask: TCefDragOperations): Boolean; virtual; function OnDragEnter(const browser: ICefBrowser; const dragData: ICefDragData; mask: TCefDragOperations): Boolean; virtual;
procedure OnDraggableRegionsChanged(const browser: ICefBrowser; const frame: ICefFrame; regionsCount: NativeUInt; regions: PCefDraggableRegionArray); virtual; procedure OnDraggableRegionsChanged(const browser: ICefBrowser; const frame: ICefFrame; regionsCount: NativeUInt; const regions: PCefDraggableRegionArray); virtual;
procedure RemoveReferences; virtual; procedure RemoveReferences; virtual;
@@ -68,7 +68,7 @@ type
FEvents : Pointer; FEvents : Pointer;
function OnDragEnter(const browser: ICefBrowser; const dragData: ICefDragData; mask: TCefDragOperations): Boolean; override; function OnDragEnter(const browser: ICefBrowser; const dragData: ICefDragData; mask: TCefDragOperations): Boolean; override;
procedure OnDraggableRegionsChanged(const browser: ICefBrowser; const frame: ICefFrame; regionsCount: NativeUInt; regions: PCefDraggableRegionArray); override; procedure OnDraggableRegionsChanged(const browser: ICefBrowser; const frame: ICefFrame; regionsCount: NativeUInt; const regions: PCefDraggableRegionArray); override;
procedure RemoveReferences; override; procedure RemoveReferences; override;
@@ -103,11 +103,11 @@ begin
mask)); mask));
end; end;
procedure cef_drag_handler_on_draggable_regions_changed(self : PCefDragHandler; procedure cef_drag_handler_on_draggable_regions_changed( self : PCefDragHandler;
browser : PCefBrowser; browser : PCefBrowser;
frame : PCefFrame; frame : PCefFrame;
regionsCount : NativeUInt; regionsCount : NativeUInt;
regions : PCefDraggableRegionArray); stdcall; const regions : PCefDraggableRegionArray); stdcall;
var var
TempObject : TObject; TempObject : TObject;
begin begin
@@ -141,7 +141,7 @@ end;
procedure TCefDragHandlerOwn.OnDraggableRegionsChanged(const browser : ICefBrowser; procedure TCefDragHandlerOwn.OnDraggableRegionsChanged(const browser : ICefBrowser;
const frame : ICefFrame; const frame : ICefFrame;
regionsCount : NativeUInt; regionsCount : NativeUInt;
regions : PCefDraggableRegionArray); const regions : PCefDraggableRegionArray);
begin begin
// //
end; end;
@@ -185,7 +185,7 @@ end;
procedure TCustomDragHandler.OnDraggableRegionsChanged(const browser : ICefBrowser; procedure TCustomDragHandler.OnDraggableRegionsChanged(const browser : ICefBrowser;
const frame : ICefFrame; const frame : ICefFrame;
regionsCount : NativeUInt; regionsCount : NativeUInt;
regions : PCefDraggableRegionArray); const regions : PCefDraggableRegionArray);
begin begin
if (FEvents <> nil) then IChromiumEvents(FEvents).doOnDraggableRegionsChanged(browser, frame, regionsCount, regions); if (FEvents <> nil) then IChromiumEvents(FEvents).doOnDraggableRegionsChanged(browser, frame, regionsCount, regions);
end; end;

10
source/uCEFInterfaces.pas
View File

@@ -357,8 +357,8 @@ type
function doOnGetScreenInfo(const browser: ICefBrowser; var screenInfo: TCefScreenInfo): Boolean; function doOnGetScreenInfo(const browser: ICefBrowser; var screenInfo: TCefScreenInfo): Boolean;
procedure doOnPopupShow(const browser: ICefBrowser; show: Boolean); procedure doOnPopupShow(const browser: ICefBrowser; show: Boolean);
procedure doOnPopupSize(const browser: ICefBrowser; const rect: PCefRect); procedure doOnPopupSize(const browser: ICefBrowser; const rect: PCefRect);
procedure doOnPaint(const browser: ICefBrowser; kind: TCefPaintElementType; dirtyRectsCount: NativeUInt; const dirtyRects: PCefRectArray; const buffer: Pointer; width, height: Integer); procedure doOnPaint(const browser: ICefBrowser; type_: TCefPaintElementType; dirtyRectsCount: NativeUInt; const dirtyRects: PCefRectArray; const buffer: Pointer; width, height: Integer);
procedure doOnAcceleratedPaint(const browser: ICefBrowser; kind: TCefPaintElementType; dirtyRectsCount: NativeUInt; const dirtyRects: PCefRectArray; shared_handle: Pointer); procedure doOnAcceleratedPaint(const browser: ICefBrowser; type_: TCefPaintElementType; dirtyRectsCount: NativeUInt; const dirtyRects: PCefRectArray; shared_handle: Pointer);
procedure doOnCursorChange(const browser: ICefBrowser; cursor: TCefCursorHandle; cursorType: TCefCursorType; const customCursorInfo: PCefCursorInfo); procedure doOnCursorChange(const browser: ICefBrowser; cursor: TCefCursorHandle; cursorType: TCefCursorType; const customCursorInfo: PCefCursorInfo);
function doOnStartDragging(const browser: ICefBrowser; const dragData: ICefDragData; allowedOps: TCefDragOperations; x, y: Integer): Boolean; function doOnStartDragging(const browser: ICefBrowser; const dragData: ICefDragData; allowedOps: TCefDragOperations; x, y: Integer): Boolean;
procedure doOnUpdateDragCursor(const browser: ICefBrowser; operation: TCefDragOperation); procedure doOnUpdateDragCursor(const browser: ICefBrowser; operation: TCefDragOperation);
@@ -369,7 +369,7 @@ type
// ICefDragHandler // ICefDragHandler
function doOnDragEnter(const browser: ICefBrowser; const dragData: ICefDragData; mask: TCefDragOperations): Boolean; function doOnDragEnter(const browser: ICefBrowser; const dragData: ICefDragData; mask: TCefDragOperations): Boolean;
procedure doOnDraggableRegionsChanged(const browser: ICefBrowser; const frame: ICefFrame; regionsCount: NativeUInt; regions: PCefDraggableRegionArray); procedure doOnDraggableRegionsChanged(const browser: ICefBrowser; const frame: ICefFrame; regionsCount: NativeUInt; const regions: PCefDraggableRegionArray);
// ICefFindHandler // ICefFindHandler
procedure doOnFindResult(const browser: ICefBrowser; identifier, count: Integer; const selectionRect: PCefRect; activeMatchOrdinal: Integer; finalUpdate: Boolean); procedure doOnFindResult(const browser: ICefBrowser; identifier, count: Integer; const selectionRect: PCefRect; activeMatchOrdinal: Integer; finalUpdate: Boolean);
@@ -1306,7 +1306,7 @@ type
function SetCookieProc(const url: ustring; const name, value, domain, path: ustring; secure, httponly, hasExpires: Boolean; const creation, lastAccess, expires: TDateTime; const callback: TCefSetCookieCallbackProc): Boolean; function SetCookieProc(const url: ustring; const name, value, domain, path: ustring; secure, httponly, hasExpires: Boolean; const creation, lastAccess, expires: TDateTime; const callback: TCefSetCookieCallbackProc): Boolean;
function DeleteCookies(const url, cookieName: ustring; const callback: ICefDeleteCookiesCallback): Boolean; function DeleteCookies(const url, cookieName: ustring; const callback: ICefDeleteCookiesCallback): Boolean;
function DeleteCookiesProc(const url, cookieName: ustring; const callback: TCefDeleteCookiesCallbackProc): Boolean; function DeleteCookiesProc(const url, cookieName: ustring; const callback: TCefDeleteCookiesCallbackProc): Boolean;
function FlushStore(const handler: ICefCompletionCallback): Boolean; function FlushStore(const callback: ICefCompletionCallback): Boolean;
function FlushStoreProc(const proc: TCefCompletionCallbackProc): Boolean; function FlushStoreProc(const proc: TCefCompletionCallbackProc): Boolean;
end; end;
@@ -1961,7 +1961,7 @@ type
ICefDragHandler = interface(ICefBaseRefCounted) ICefDragHandler = interface(ICefBaseRefCounted)
['{59A89579-5B18-489F-A25C-5CC25FF831FC}'] ['{59A89579-5B18-489F-A25C-5CC25FF831FC}']
function OnDragEnter(const browser: ICefBrowser; const dragData: ICefDragData; mask: TCefDragOperations): Boolean; function OnDragEnter(const browser: ICefBrowser; const dragData: ICefDragData; mask: TCefDragOperations): Boolean;
procedure OnDraggableRegionsChanged(const browser: ICefBrowser; const frame: ICefFrame; regionsCount: NativeUInt; regions: PCefDraggableRegionArray); procedure OnDraggableRegionsChanged(const browser: ICefBrowser; const frame: ICefFrame; regionsCount: NativeUInt; const regions: PCefDraggableRegionArray);
procedure RemoveReferences; // custom procedure to clear all references procedure RemoveReferences; // custom procedure to clear all references
end; end;

44
source/uCEFTypes.pas
View File

@@ -308,6 +308,20 @@ type
{$ENDIF} {$ENDIF}
{$ENDIF} {$ENDIF}
{$IFDEF MSWINDOWS}
TMyMemoryStatusEx = record
dwLength : DWORD;
dwMemoryLoad : DWORD;
ullTotalPhys : uint64;
ullAvailPhys : uint64;
ullTotalPageFile : uint64;
ullAvailPageFile : uint64;
ullTotalVirtual : uint64;
ullAvailVirtual : uint64;
ullAvailExtendedVirtual : uint64;
end;
{$ENDIF}
PPSingle = ^PSingle; PPSingle = ^PSingle;
Char16 = WideChar; Char16 = WideChar;
@@ -1380,7 +1394,7 @@ type
TCefDragHandler = record TCefDragHandler = record
base : TCefBaseRefCounted; base : TCefBaseRefCounted;
on_drag_enter : function(self: PCefDragHandler; browser: PCefBrowser; dragData: PCefDragData; mask: TCefDragOperations): Integer; stdcall; on_drag_enter : function(self: PCefDragHandler; browser: PCefBrowser; dragData: PCefDragData; mask: TCefDragOperations): Integer; stdcall;
on_draggable_regions_changed : procedure(self: PCefDragHandler; browser: PCefBrowser; frame: PCefFrame; regionsCount: NativeUInt; regions: PCefDraggableRegionArray); stdcall; on_draggable_regions_changed : procedure(self: PCefDragHandler; browser: PCefBrowser; frame: PCefFrame; regionsCount: NativeUInt; const regions: PCefDraggableRegionArray); stdcall;
end; end;
// /include/capi/cef_find_handler_capi.h (cef_find_handler_t) // /include/capi/cef_find_handler_capi.h (cef_find_handler_t)
@@ -1480,8 +1494,8 @@ type
get_screen_info : function(self: PCefRenderHandler; browser: PCefBrowser; screen_info: PCefScreenInfo): Integer; stdcall; get_screen_info : function(self: PCefRenderHandler; browser: PCefBrowser; screen_info: PCefScreenInfo): Integer; stdcall;
on_popup_show : procedure(self: PCefRenderHandler; browser: PCefBrowser; show: Integer); stdcall; on_popup_show : procedure(self: PCefRenderHandler; browser: PCefBrowser; show: Integer); stdcall;
on_popup_size : procedure(self: PCefRenderHandler; browser: PCefBrowser; const rect: PCefRect); stdcall; on_popup_size : procedure(self: PCefRenderHandler; browser: PCefBrowser; const rect: PCefRect); stdcall;
on_paint : procedure(self: PCefRenderHandler; browser: PCefBrowser; kind: TCefPaintElementType; dirtyRectsCount: NativeUInt; const dirtyRects: PCefRectArray; const buffer: Pointer; width, height: Integer); stdcall; on_paint : procedure(self: PCefRenderHandler; browser: PCefBrowser; type_: TCefPaintElementType; dirtyRectsCount: NativeUInt; const dirtyRects: PCefRectArray; const buffer: Pointer; width, height: Integer); stdcall;
on_accelerated_paint : procedure(self: PCefRenderHandler; browser: PCefBrowser; kind: TCefPaintElementType; dirtyRectsCount: NativeUInt; const dirtyRects: PCefRectArray; shared_handle: Pointer); stdcall; on_accelerated_paint : procedure(self: PCefRenderHandler; browser: PCefBrowser; type_: TCefPaintElementType; dirtyRectsCount: NativeUInt; const dirtyRects: PCefRectArray; shared_handle: Pointer); stdcall;
on_cursor_change : procedure(self: PCefRenderHandler; browser: PCefBrowser; cursor: TCefCursorHandle; type_: TCefCursorType; const custom_cursor_info: PCefCursorInfo); stdcall; on_cursor_change : procedure(self: PCefRenderHandler; browser: PCefBrowser; cursor: TCefCursorHandle; type_: TCefCursorType; const custom_cursor_info: PCefCursorInfo); stdcall;
start_dragging : function(self: PCefRenderHandler; browser: PCefBrowser; drag_data: PCefDragData; allowed_ops: TCefDragOperations; x, y: Integer): Integer; stdcall; start_dragging : function(self: PCefRenderHandler; browser: PCefBrowser; drag_data: PCefDragData; allowed_ops: TCefDragOperations; x, y: Integer): Integer; stdcall;
update_drag_cursor : procedure(self: PCefRenderHandler; browser: PCefBrowser; operation: TCefDragOperation); stdcall; update_drag_cursor : procedure(self: PCefRenderHandler; browser: PCefBrowser; operation: TCefDragOperation); stdcall;
@@ -1718,7 +1732,7 @@ type
TCefRequestHandler = record TCefRequestHandler = record
base : TCefBaseRefCounted; base : TCefBaseRefCounted;
on_before_browse : function(self: PCefRequestHandler; browser: PCefBrowser; frame: PCefFrame; request: PCefRequest; user_gesture, isRedirect: Integer): Integer; stdcall; on_before_browse : function(self: PCefRequestHandler; browser: PCefBrowser; frame: PCefFrame; request: PCefRequest; user_gesture, isRedirect: Integer): Integer; stdcall;
on_open_urlfrom_tab : function(self: PCefRequestHandler; browser:PCefBrowser; frame: PCefFrame; const target_url: PCefString; target_disposition: TCefWindowOpenDisposition; user_gesture: Integer): Integer; stdcall; on_open_urlfrom_tab : function(self: PCefRequestHandler; browser: PCefBrowser; frame: PCefFrame; const target_url: PCefString; target_disposition: TCefWindowOpenDisposition; user_gesture: Integer): Integer; stdcall;
get_resource_request_handler : function(self: PCefRequestHandler; browser: PCefBrowser; frame: PCefFrame; request: PCefRequest; is_navigation, is_download: Integer; const request_initiator: PCefString; disable_default_handling: PInteger): PCefResourceRequestHandler; stdcall; get_resource_request_handler : function(self: PCefRequestHandler; browser: PCefBrowser; frame: PCefFrame; request: PCefRequest; is_navigation, is_download: Integer; const request_initiator: PCefString; disable_default_handling: PInteger): PCefResourceRequestHandler; stdcall;
get_auth_credentials : function(self: PCefRequestHandler; browser: PCefBrowser; const origin_url: PCefString; isProxy: Integer; const host: PCefString; port: Integer; const realm, scheme: PCefString; callback: PCefAuthCallback): Integer; stdcall; get_auth_credentials : function(self: PCefRequestHandler; browser: PCefBrowser; const origin_url: PCefString; isProxy: Integer; const host: PCefString; port: Integer; const realm, scheme: PCefString; callback: PCefAuthCallback): Integer; stdcall;
on_quota_request : function(self: PCefRequestHandler; browser: PCefBrowser; const origin_url: PCefString; new_size: Int64; callback: PCefRequestCallback): Integer; stdcall; on_quota_request : function(self: PCefRequestHandler; browser: PCefBrowser; const origin_url: PCefString; new_size: Int64; callback: PCefRequestCallback): Integer; stdcall;
@@ -1739,13 +1753,13 @@ type
// /include/capi/cef_resource_handler_capi.h (cef_resource_skip_callback_t) // /include/capi/cef_resource_handler_capi.h (cef_resource_skip_callback_t)
TCefResourceSkipCallback = record TCefResourceSkipCallback = record
base : TCefBaseRefCounted; base : TCefBaseRefCounted;
cont : procedure(self: PCefResourceSkipCallback; bytes_skipped: int64); cont : procedure(self: PCefResourceSkipCallback; bytes_skipped: int64); stdcall;
end; end;
// /include/capi/cef_resource_handler_capi.h (cef_resource_read_callback_t) // /include/capi/cef_resource_handler_capi.h (cef_resource_read_callback_t)
TCefResourceReadCallback = record TCefResourceReadCallback = record
base : TCefBaseRefCounted; base : TCefBaseRefCounted;
cont : procedure(self: PCefResourceReadCallback; bytes_read: int64); cont : procedure(self: PCefResourceReadCallback; bytes_read: int64); stdcall;
end; end;
// /include/capi/cef_resource_handler_capi.h (cef_resource_handler_t) // /include/capi/cef_resource_handler_capi.h (cef_resource_handler_t)
@@ -1873,7 +1887,7 @@ type
visit_url_cookies : function(self: PCefCookieManager; const url: PCefString; includeHttpOnly: Integer; visitor: PCefCookieVisitor): Integer; stdcall; visit_url_cookies : function(self: PCefCookieManager; const url: PCefString; includeHttpOnly: Integer; visitor: PCefCookieVisitor): Integer; stdcall;
set_cookie : function(self: PCefCookieManager; const url: PCefString; const cookie: PCefCookie; callback: PCefSetCookieCallback): Integer; stdcall; set_cookie : function(self: PCefCookieManager; const url: PCefString; const cookie: PCefCookie; callback: PCefSetCookieCallback): Integer; stdcall;
delete_cookies : function(self: PCefCookieManager; const url, cookie_name: PCefString; callback: PCefDeleteCookiesCallback): Integer; stdcall; delete_cookies : function(self: PCefCookieManager; const url, cookie_name: PCefString; callback: PCefDeleteCookiesCallback): Integer; stdcall;
flush_store : function(self: PCefCookieManager; handler: PCefCompletionCallback): Integer; stdcall; flush_store : function(self: PCefCookieManager; callback: PCefCompletionCallback): Integer; stdcall;
end; end;
// /include/capi/cef_scheme_capi.h (cef_scheme_handler_factory_t) // /include/capi/cef_scheme_capi.h (cef_scheme_handler_factory_t)
@@ -2604,7 +2618,7 @@ type
get_load_handler : function(self: PCefClient): PCefLoadHandler; stdcall; get_load_handler : function(self: PCefClient): PCefLoadHandler; stdcall;
get_render_handler : function(self: PCefClient): PCefRenderHandler; stdcall; get_render_handler : function(self: PCefClient): PCefRenderHandler; stdcall;
get_request_handler : function(self: PCefClient): PCefRequestHandler; stdcall; get_request_handler : function(self: PCefClient): PCefRequestHandler; stdcall;
on_process_message_received : function(self: PCefClient; browser: PCefBrowser; frame: PCefFrame; source_process: TCefProcessId; message: PCefProcessMessage): Integer; stdcall; on_process_message_received : function(self: PCefClient; browser: PCefBrowser; frame: PCefFrame; source_process: TCefProcessId; message_: PCefProcessMessage): Integer; stdcall;
end; end;
// /include/capi/cef_browser_capi.h (cef_browser_host_t) // /include/capi/cef_browser_capi.h (cef_browser_host_t)
@@ -3061,20 +3075,6 @@ type
on_key_event : function(self: PCefWindowDelegate; window: PCefWindow; const event: PCefKeyEvent): Integer; stdcall; on_key_event : function(self: PCefWindowDelegate; window: PCefWindow; const event: PCefKeyEvent): Integer; stdcall;
end; end;
{$IFDEF MSWINDOWS}
TMyMemoryStatusEx = record
dwLength : DWORD;
dwMemoryLoad : DWORD;
ullTotalPhys : uint64;
ullAvailPhys : uint64;
ullTotalPageFile : uint64;
ullAvailPageFile : uint64;
ullTotalVirtual : uint64;
ullAvailVirtual : uint64;
ullAvailExtendedVirtual : uint64;
end;
{$ENDIF}
implementation implementation
end. end.

6
update_CEF4Delphi.json
View File

@@ -1,10 +1,10 @@
{ {
"UpdateLazPackages" : [ "UpdateLazPackages" : [
{ {
"ForceNotify" : true, "ForceNotify" : false,
"InternalVersion" : 66, "InternalVersion" : 67,
"Name" : "cef4delphi_lazarus.lpk", "Name" : "cef4delphi_lazarus.lpk",
"Version" : "78.3.1.0" "Version" : "78.3.4.0"
} }
], ],
"UpdatePackageData" : { "UpdatePackageData" : {