pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-02-02 10:25:26 +02:00
Code Issues Actions Releases Activity

ResponseFilterBrowser demo : added resource size control

Browse Source
This commit is contained in:
Salvador Díaz Fau 2018-02-07 10:36:11 +01:00
parent 552bc75aab
commit fe2b80f3a0
1 changed files with 21 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
demos/ResponseFilterBrowser/uResponseFilterBrowser.pas
View File

@ -75,10 +75,12 @@ type
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
protected protected
FFilter : ICefResponseFilter; FFilter : ICefResponseFilter;
FStream : TMemoryStream; FStream : TMemoryStream;
FStreamCS : TCriticalSection; FStreamCS : TCriticalSection;
FRscName : string; FRscName : string;
FRscSize : int64;
FRscCompleted : boolean;
procedure WMMove(var aMessage : TWMMove); message WM_MOVE; procedure WMMove(var aMessage : TWMMove); message WM_MOVE;
procedure WMMoving(var aMessage : TMessage); message WM_MOVING; procedure WMMoving(var aMessage : TMessage); message WM_MOVING;
@ -135,7 +137,8 @@ begin
data_out_written := 0; data_out_written := 0;
aResult := RESPONSE_FILTER_DONE; aResult := RESPONSE_FILTER_DONE;
PostMessage(Handle, STREAM_COPY_COMPLETE, 0, 0); if not(FRscCompleted) then
FRscCompleted := PostMessage(Handle, STREAM_COPY_COMPLETE, 0, 0);
end end
else else
begin begin
@ -150,6 +153,9 @@ begin
if (data_in_size > 0) then if (data_in_size > 0) then
data_in_read := FStream.Write(data_in^, data_in_size); data_in_read := FStream.Write(data_in^, data_in_size);
if not(FRscCompleted) and (FRscSize = FStream.Size) then
FRscCompleted := PostMessage(Handle, STREAM_COPY_COMPLETE, 0, 0);
aResult := RESPONSE_FILTER_NEED_MORE_DATA; aResult := RESPONSE_FILTER_NEED_MORE_DATA;
end; end;
except except
@ -166,10 +172,11 @@ end;
procedure TResponseFilterBrowserFrm.FormCreate(Sender: TObject); procedure TResponseFilterBrowserFrm.FormCreate(Sender: TObject);
begin begin
FRscName := 'index-47f5f07682.js'; // JS script used at wikipedia.org FRscName := 'index-47f5f07682.js'; // JS script used at wikipedia.org
FStream := TMemoryStream.Create; FRscCompleted := False;
FStreamCS := TCriticalSection.Create; FStream := TMemoryStream.Create;
FFilter := TCustomResponseFilter.Create; FStreamCS := TCriticalSection.Create;
FFilter := TCustomResponseFilter.Create;
// This event will receive the data // This event will receive the data
TCustomResponseFilter(FFilter).OnFilter := Filter_OnFilter; TCustomResponseFilter(FFilter).OnFilter := Filter_OnFilter;
@ -202,8 +209,11 @@ procedure TResponseFilterBrowserFrm.Chromium1GetResourceResponseFilter(Sender :
const response : ICefResponse; const response : ICefResponse;
out Result : ICefResponseFilter); out Result : ICefResponseFilter);
begin begin
if (request <> nil) and (pos(FRscName, request.URL) > 0) then if (request <> nil) and (response <> nil) and (pos(FRscName, request.URL) > 0) then
Result := FFilter begin
Result := FFilter;
FRscSize := StrToIntDef(response.GetHeader('Content-Length'), 0);
end
else else
Result := nil; Result := nil;
end; end;