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.3282.1731.gfc9a4fa

Browse Source 
- Chromium 64.0.3282.119 which should include partial MP3 support.
- Fixed stability issues when you closed the browser due to circular interface references.
- Fixed TCefRTTIExtension thanks to Pier.
- Added the JSRTTIExtension demo to test TCefRTTIExtension.
- Added the TCustomResponseFilter class to filter the resource contents.
- Added the ResponseFilterBrowser demo to test the new TCustomResponseFilter class.
This commit is contained in:
Salvador Díaz Fau
2018-02-03 17:52:48 +01:00
parent fed1c04a3f
commit e29989623e
52 changed files with 4053 additions and 954 deletions
Download Patch File Download Diff File Expand all files Collapse all files

91
source/uCEFResponseFilter.pas
View File

@@ -50,12 +50,32 @@ uses
uCEFBaseRefCounted, uCEFInterfaces, uCEFTypes;
type
TOnFilterEvent = procedure(Sender: TObject; data_in: Pointer; data_in_size: NativeUInt; var data_in_read: NativeUInt; data_out: Pointer; data_out_size : NativeUInt; var data_out_written: NativeUInt; var aResult : TCefResponseFilterStatus) of object;
TOnInitFilterEvent = procedure(Sender: TObject; var aResult : boolean) of object;
TCefResponseFilterOwn = class(TCefBaseRefCountedOwn, ICefResponseFilter)
protected
function InitFilter: Boolean; virtual; abstract;
function Filter(dataIn: Pointer; dataInSize : NativeUInt; dataInRead: PNativeUInt; dataOut: Pointer; dataOutSize : NativeUInt; dataOutWritten: PNativeUInt): TCefResponseFilterStatus; virtual; abstract;
public
constructor Create; virtual;
protected
function InitFilter: Boolean; virtual; abstract;
function Filter(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; virtual; abstract;
public
constructor Create; virtual;
end;
TCustomResponseFilter = class(TCefResponseFilterOwn)
protected
FOnFilter : TOnFilterEvent;
FOnInitFilter : TOnInitFilterEvent;
function InitFilter: Boolean; override;
function Filter(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; override;
public
constructor Create; override;
property OnFilter : TOnFilterEvent read FOnFilter write FOnFilter;
property OnInitFilter : TOnInitFilterEvent read FOnInitFilter write FOnInitFilter;
end;
implementation
@@ -63,27 +83,70 @@ implementation
uses
uCEFMiscFunctions, uCEFLibFunctions;
// TCefResponseFilterOwn
function cef_response_filter_init_filter(self: PCefResponseFilter): Integer; stdcall;
begin
with TCefResponseFilterOwn(CefGetObject(self)) do
Result := Ord(InitFilter());
with TCefResponseFilterOwn(CefGetObject(self)) do Result := Ord(InitFilter());
end;
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;
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;
begin
CreateData(SizeOf(TCefResponseFilter));
with PCefResponseFilter(FData)^ do
begin
init_filter := cef_response_filter_init_filter;
filter := cef_response_filter_filter;
end;
begin
init_filter := cef_response_filter_init_filter;
filter := cef_response_filter_filter;
end;
end;
// TCustomResponseFilter
constructor TCustomResponseFilter.Create;
begin
inherited Create;
FOnFilter := nil;
FOnInitFilter := nil;
end;
function TCustomResponseFilter.InitFilter: Boolean;
begin
Result := True;
if assigned(FOnInitFilter) then FOnInitFilter(self, Result);
end;
function TCustomResponseFilter.Filter( 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;
begin
Result := RESPONSE_FILTER_DONE;
if assigned(FOnFilter) then
FOnFilter(self,
data_in, data_in_size, data_in_read,
data_out, data_out_size, data_out_written,
Result);
end;
end.