pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-06-02 21:57:37 +02:00
Code Issues Actions Releases Activity

ResponseFilterBrowser now downloads the resource 1 time after the user clicks the GO button

Browse Source
This commit is contained in:
Salvador Díaz Fau 2018-05-25 14:40:49 +02:00
parent 8000e45198
commit ee61ac3c7b
2 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
demos/ResponseFilterBrowser/uResponseFilterBrowser.dfm
View File

@ -50,7 +50,7 @@ object ResponseFilterBrowserFrm: TResponseFilterBrowserFrm
Margins.Right = 5
Align = alClient
TabOrder = 0
Text = 'https://www.briskbard.com'
Text = 'https://www.wikipedia.org/'
ExplicitHeight = 21
end
object Panel1: TPanel
@ -88,7 +88,7 @@ object ResponseFilterBrowserFrm: TResponseFilterBrowserFrm
Height = 20
Align = alRight
TabOrder = 1
Text = 'script.js'
Text = 'index-475f3bca23.js'
ExplicitHeight = 21
end
end

24
demos/ResponseFilterBrowser/uResponseFilterBrowser.pas
View File

@ -298,19 +298,19 @@ var
TempHeader : string;
TempLen : integer;
begin
if (response <> nil) and IsMyResource(request) then
begin
Result := FFilter;
TempHeader := trim(response.GetHeader('Content-Length'));
if not(FRscCompleted) and (response <> nil) and IsMyResource(request) then
begin
Result := FFilter;
TempHeader := trim(response.GetHeader('Content-Length'));
if TryStrToInt(TempHeader, TempLen) and (TempLen > 0) then
FRscSize := TempLen
else
FRscSize := -1;
if TryStrToInt(TempHeader, TempLen) and (TempLen > 0) then
FRscSize := TempLen
else
FRscSize := -1;
UpdateRscEncoding(response.MimeType, response.GetHeader('Content-Type'));
end
else
UpdateRscEncoding(response.MimeType, response.GetHeader('Content-Type'));
end
else
Result := nil;
end;
@ -398,7 +398,6 @@ begin
FStream.Clear;
FRscSize := -1;
FRscCompleted := False;
end
else
Memo1.Lines.Clear;
@ -409,6 +408,7 @@ end;
procedure TResponseFilterBrowserFrm.GoBtnClick(Sender: TObject);
begin
FRscCompleted := False;
Chromium1.LoadURL(AddressEdt.Text);
end;