mORMot Open Source

DigDiver

Member

Registered: 2013-04-29

Posts: 137

Delphi 64bit and db.RegisterSQLFunction

procedure InternalFieldsEqual(Context: TSQLite3FunctionContext;
  argc: integer; var argv: TSQLite3ValueArray); cdecl;
begin
...
end;
...
GroupServer.db.RegisterSQLFunction(InternalFieldsEqual, 3, 'FIELDSEQUAL');

When I try to compile project as 64 bit (Delphi 10 Seattle), I've got error:
[dcc64 Error] WP_server.pas(6084): E2250 There is no overloaded version of 'RegisterSQLFunction' that can be called with these arguments

32 bit compilation ok.

DigDiver

Member

Registered: 2013-04-29

Posts: 137

Re: Delphi 64bit and db.RegisterSQLFunction

Solution: {$ifndef CPUX64} cdecl; {$ENDIF}

procedure InternalFieldsEqual(Context: TSQLite3FunctionContext;
  argc: integer; var argv: TSQLite3ValueArray); {$ifndef CPUX64} cdecl; {$ENDIF}