"MARSWebServer" compile error

[frankwu-delphi]

"MARSWebServer" compile error.

Steps to reproduce the behavior:

1. Open /demos/MARSWebServer with delphi 10.4.1
2. F9 ...
3. See error 1:
   [dcc32 Error] Server.Forms.Main.pas(93): E2010 Incompatible types: 'TBeforeHandleRequestProc' and 'Procedure'

Comment out block：
{*
// skip favicon requests (browser)
FEngine.BeforeHandleRequest :=
function (const AEngine: TMARSEngine;
const AURL: TMARSURL; const ARequest: TWebRequest; const AResponse: TWebResponse;
var Handled: Boolean
): Boolean
begin
Result := True;
if SameText(AURL.Document, 'favicon.ico') then
begin
Result := False;
Handled := True;
end
end;
*}

4. F9, See error 2:
   [dcc32 Error] Server.Resources.pas(46): E2250 There is no overloaded version of 'TMARSResourceRegistry.RegisterResource<Server.Resources.THelloWorldResource>' that can be called with these arguments

code:
initialization
TMARSResourceRegistry.Instance.RegisterResource(
function: TObject
begin
Result := THelloWorldResource.Create;
end
);

[stuartclennett]

Frank, the problem is the TWebRequest and TWebResponse params - they need replacing with IMARSRequest & IMARSResponse.