search

salvadordf / CEF4Delphi

CEF4Delphi is an open source project to embed Chromium-based browsers in applications made with Delphi or Lazarus/FPC for Windows, Linux and MacOS.
https://www.briskbard.com/forum/
Other
1.19k stars 363 forks source link

ResponseFilterBrowser demo run error in delphi7? #511

Closed xtfnpgy closed 2 months ago

xtfnpgy commented 2 months ago

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.

1715764935540

salvadordf commented 2 months ago

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.