Delphi/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2024-11-15 15:55:56 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

ResponseFilterBrowser demo now also uses OnResourceLoadComplete to check if the resource is complete

Browse Source
This commit is contained in:
Salvador Díaz Fau 2018-02-08 10:49:06 +01:00
parent 0b72a3e446
commit ace189d104
2 changed files with 77 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
demos/ResponseFilterBrowser/uResponseFilterBrowser.dfm
View File

@ -44,24 +44,53 @@ object ResponseFilterBrowserFrm: TResponseFilterBrowserFrm
object AddressEdt: TEdit
Left = 5
Top = 5
Width = 997
Width = 755
Height = 20
Margins.Right = 5
Align = alClient
TabOrder = 0
Text = 'https://www.wikipedia.org'
ExplicitWidth = 716
ExplicitHeight = 21
end
object GoBtn: TButton
Left = 1002
object Panel1: TPanel
Left = 760
Top = 5
Width = 31
Width = 273
Height = 20
Margins.Left = 5
Align = alRight
Caption = 'Go'
BevelOuter = bvNone
Padding.Left = 5
ShowCaption = False
TabOrder = 1
OnClick = GoBtnClick
object Label1: TLabel
Left = 54
Top = 3
Width = 84
Height = 13
Caption = 'Resource name : '
end
object GoBtn: TButton
Left = 5
Top = 0
Width = 31
Height = 20
Margins.Left = 5
Align = alLeft
Caption = 'Go'
TabOrder = 0
OnClick = GoBtnClick
ExplicitLeft = 154
end
object RscNameEdt: TEdit
Left = 144
Top = 0
Width = 129
Height = 20
Align = alRight
TabOrder = 1
Text = 'index-47f5f07682.js'
end
end
end
object CEFWindowParent1: TCEFWindowParent
@ -92,6 +121,7 @@ object ResponseFilterBrowserFrm: TResponseFilterBrowserFrm
object Chromium1: TChromium
OnAfterCreated = Chromium1AfterCreated
OnGetResourceResponseFilter = Chromium1GetResourceResponseFilter
OnResourceLoadComplete = Chromium1ResourceLoadComplete
Left = 56
Top = 160
end

49
demos/ResponseFilterBrowser/uResponseFilterBrowser.pas
View File

@ -58,27 +58,30 @@ type
TResponseFilterBrowserFrm = class(TForm)
AddressPnl: TPanel;
AddressEdt: TEdit;
GoBtn: TButton;
Timer1: TTimer;
Chromium1: TChromium;
CEFWindowParent1: TCEFWindowParent;
Splitter1: TSplitter;
Memo1: TMemo;
Panel1: TPanel;
GoBtn: TButton;
Label1: TLabel;
RscNameEdt: TEdit;
procedure GoBtnClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Chromium1AfterCreated(Sender: TObject; const browser: ICefBrowser);
procedure Chromium1GetResourceResponseFilter(Sender: TObject;
const browser: ICefBrowser; const frame: ICefFrame;
const request: ICefRequest; const response: ICefResponse;
out Result: ICefResponseFilter);
procedure Chromium1GetResourceResponseFilter(Sender: TObject; const browser: ICefBrowser; const frame: ICefFrame; const request: ICefRequest; const response: ICefResponse; out Result: ICefResponseFilter);
procedure FormShow(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Chromium1ResourceLoadComplete(Sender: TObject;
const browser: ICefBrowser; const frame: ICefFrame;
const request: ICefRequest; const response: ICefResponse;
status: TCefUrlRequestStatus; receivedContentLength: Int64);
protected
FFilter : ICefResponseFilter; // CEF Filter interface that receives the resource contents
FStream : TMemoryStream; // TMemoryStream to hold the resource contents
FStreamCS : TCriticalSection; // Critical section used to protect the memory stream
FRscName : string; // name of the resource that will be filtered
FRscSize : int64; // size of the resource if the server sends the Content-Length header
FRscCompleted : boolean; // This variable will be used to handle the results only once.
@ -90,6 +93,8 @@ type
procedure StreamCopyCompleteMsg(var aMessage : TMessage); message STREAM_COPY_COMPLETE;
procedure Filter_OnFilter(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);
function IsMyResource(const aRequest : ICefRequest) : boolean;
public
{ Public declarations }
end;
@ -172,9 +177,20 @@ begin
end;
end;
function TResponseFilterBrowserFrm.IsMyResource(const aRequest : ICefRequest) : boolean;
var
TempName : string;
begin
TempName := trim(RscNameEdt.Text);
if (aRequest <> nil) and (length(TempName) > 0) then
Result := (pos(TempName, aRequest.URL) > 0)
else
Result := False;
end;
procedure TResponseFilterBrowserFrm.FormCreate(Sender: TObject);
begin
FRscName := 'index-47f5f07682.js'; // JS script used at wikipedia.org
FRscCompleted := False;
FRscSize := -1;
FStream := TMemoryStream.Create;
@ -215,7 +231,7 @@ var
TempHeader : string;
TempLen : integer;
begin
if (request <> nil) and (response <> nil) and (pos(FRscName, request.URL) > 0) then
if (response <> nil) and IsMyResource(request) then
begin
Result := FFilter;
TempHeader := trim(response.GetHeader('Content-Length'));
@ -229,6 +245,21 @@ begin
Result := nil;
end;
procedure TResponseFilterBrowserFrm.Chromium1ResourceLoadComplete(Sender : TObject;
const browser : ICefBrowser;
const frame : ICefFrame;
const request : ICefRequest;
const response : ICefResponse;
status : TCefUrlRequestStatus;
receivedContentLength : Int64);
begin
// In case the server didn't send a Content-Length header
// and CEF didn't send a data_in = nil in Filter_OnFilter
// we still can use this event to know when the resource is complete
if not(FRscCompleted) and IsMyResource(request) then
FRscCompleted := PostMessage(Handle, STREAM_COPY_COMPLETE, 0, 0);
end;
procedure TResponseFilterBrowserFrm.BrowserCreatedMsg(var aMessage : TMessage);
begin
Caption := 'Response Filter Browser';