mORMot Open Source

mstrVLT

Member

Registered: 2016-04-06

Posts: 3

Error in unstable version

AOG

Member

Registered: 2014-02-24

Posts: 490

Re: Error in unstable version

I use this (with FPC):

TMyHttpServer = class(TSQLHttpServer)
  protected
    function Request(Ctxt: THttpServerRequest): cardinal; override;
  end; 

function TMyHttpServer.Request(Ctxt: THttpServerRequest): cardinal;
begin
  .. your code
  result := inherited Request(Ctxt);
  .. your code
end;

Hope it helps.

mstrVLT

Member

Registered: 2016-04-06

Posts: 3

Re: Error in unstable version

Thx ... for the help
i want decide this trouble to standart way ... but no idea what's happening

Last edited by mstrVLT (2016-04-06 12:13:09)

mstrVLT

Member

Registered: 2016-04-06

Posts: 3

Re: Error in unstable version

oh i solved

  HTTPServer := THttpServer.Create('8089');
  HTTPServer.OnRequest := @HTTPServerRequest;

AOG

Member

Registered: 2014-02-24

Posts: 490

Re: Error in unstable version

When working with the mORMot, I would advice to always use

{$MODE DELPHI}

Then this "HTTPServer.OnRequest := HTTPServerRequest;" would have worked !

Last edited by AOG (2016-04-06 12:20:32)

ab

Administrator

From: France

Registered: 2010-06-21

Posts: 14,272

Website

Re: Error in unstable version

Just include {$I Synopse.inc} at the beginning of your source code file, and you would set the appropriate modes for FPC.