ResponseFilterBrowser demo run error in delphi7?

[xtfnpgy]

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.

[salvadordf]

Hi,

Only a few demos are ready to be used in Delphi 7 : SimpleBrowser, SimpleBrowser2 and MiniBrowserD7.

Older Delphi versions have issues with interface assignments and this is one example. ResponseFilterBrowser works with Delphi 2010 (with some code modifications) and newer but it has issues in older versions.

Install Lazarus and open the demos\Lazarus_Windows\ResponseFilterBrowser demo.