procedure TResponseFilterBrowserFrm.Chromium1GetResourceResponseFilter( Sender : TObject;
const browser : ICefBrowser;
const frame : ICefFrame;
const request : ICefRequest;
const response : ICefResponse;
out Result : ICefResponseFilter);
begin
if not(FRscCompleted) and (response <> nil) and IsMyResource(request) then
begin
Result := FFilter; //error in here
FFilterInit := True;
CheckResponseHeaders(response);
UpdateRscEncoding(response.MimeType, response.GetHeaderByName('Content-Type'));
end
else
Result := nil;
end;
when I delete the line "Result := FFilter;",it can be run normal.
procedure TResponseFilterBrowserFrm.FormShow(Sender: TObject);
begin
AddressEdt.text := 'https://h5.m.taobao.com/awp/core/detail.htm?id=539891589098';
RscNameEdt.text := 'mtop.taobao.detail.data.get';
CopyScriptBtn.checked := true;
if not(Chromium1.CreateBrowser(CEFWindowParent1)) then Timer1.Enabled := True;
end;
procedure TResponseFilterBrowserFrm.Chromium1GetResourceResponseFilter( Sender : TObject; const browser : ICefBrowser; const frame : ICefFrame; const request : ICefRequest; const response : ICefResponse; out Result : ICefResponseFilter); begin if not(FRscCompleted) and (response <> nil) and IsMyResource(request) then begin Result := FFilter; //error in here FFilterInit := True; CheckResponseHeaders(response); UpdateRscEncoding(response.MimeType, response.GetHeaderByName('Content-Type')); end else Result := nil; end; when I delete the line "Result := FFilter;",it can be run normal.
procedure TResponseFilterBrowserFrm.FormShow(Sender: TObject); begin AddressEdt.text := 'https://h5.m.taobao.com/awp/core/detail.htm?id=539891589098'; RscNameEdt.text := 'mtop.taobao.detail.data.get'; CopyScriptBtn.checked := true; if not(Chromium1.CreateBrowser(CEFWindowParent1)) then Timer1.Enabled := True; end;