pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-09-30 21:28:55 +02:00
Code Issues Actions Releases Activity

Update to CEF 3.3325.1755.g7c74b17

Browse Source
This commit is contained in:
Salvador Díaz Fau
2018-03-29 20:02:04 +02:00
parent 665957e132
commit 6fa50706a1
133 changed files with 7633 additions and 6008 deletions
Download Patch File Download Diff File Expand all files Collapse all files

35
source/uCEFResponseFilter.pas
View File

@@ -86,26 +86,37 @@ uses
// TCefResponseFilterOwn
function cef_response_filter_init_filter(self: PCefResponseFilter): Integer; stdcall;
var
TempObject : TObject;
begin
with TCefResponseFilterOwn(CefGetObject(self)) do Result := Ord(InitFilter());
Result := Ord(True);
TempObject := CefGetObject(self);
if (TempObject <> nil) and (TempObject is TCefResponseFilterOwn) then
Result := Ord(TCefResponseFilterOwn(TempObject).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;
var
TempObject : TObject;
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 := RESPONSE_FILTER_DONE;
TempObject := CefGetObject(self);
if (TempObject <> nil) and (TempObject is TCefResponseFilterOwn) then
Result := TCefResponseFilterOwn(TempObject).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));
inherited CreateData(SizeOf(TCefResponseFilter));
with PCefResponseFilter(FData)^ do
begin