pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-11-23 21:34:53 +02:00
Code Issues Actions Releases Activity

Update to CEF 3.2987.1596.gc2b4638

Browse Source 
* New properties in TCEFApplication :  SmoothScrolling, FastUnload,
DisableSafeBrowsing.
* Bug fix in CefResponseFilter. Thanks to Zdravko Gabrovski!
* MiniBrowser now has a context menu option to visit the DOM.
This commit is contained in:
Salvador Diaz Fau
2017-03-22 15:22:11 +01:00
parent 68769fdda2
commit b5b9547d28
23 changed files with 456 additions and 301 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
source/uCEFResponseFilter.pas
View File

@@ -53,8 +53,7 @@ type
TCefResponseFilterOwn = class(TCefBaseRefCountedOwn, ICefResponseFilter)
protected
function InitFilter: Boolean; virtual; abstract;
function Filter(dataIn: Pointer; dataInSize, dataInRead: NativeUInt; dataOut: Pointer;
dataOutSize, dataOutWritten: NativeUInt): TCefResponseFilterStatus; virtual; abstract;
function Filter(dataIn: Pointer; dataInSize : NativeUInt; dataInRead: PNativeUInt; dataOut: Pointer; dataOutSize : NativeUInt; dataOutWritten: PNativeUInt): TCefResponseFilterStatus; virtual; abstract;
public
constructor Create; virtual;
end;
@@ -70,11 +69,11 @@ begin
Result := Ord(InitFilter());
end;
function cef_response_filter_filter(self: PCefResponseFilter; data_in: Pointer; data_in_size, data_in_read: NativeUInt;
data_out: Pointer; data_out_size, data_out_written: NativeUInt): TCefResponseFilterStatus; stdcall;
function cef_response_filter_filter(self: PCefResponseFilter; data_in: Pointer; data_in_size : NativeUInt; var data_in_read: NativeUInt;
data_out: Pointer; data_out_size: NativeUInt; var data_out_written: NativeUInt): TCefResponseFilterStatus; stdcall;
begin
with TCefResponseFilterOwn(CefGetObject(self)) do
Result := Filter(data_in, data_in_size, data_in_read, data_out, data_out_size, data_out_written);
Result := Filter(data_in, data_in_size, @data_in_read, data_out, data_out_size, @data_out_written);
end;
constructor TCefResponseFilterOwn.Create;