mORMot Open Source

@ab, what about this ?

And, is possible to use descriptions from endpoint services  (/// and // - and // !) to put in Swagger ?

Ok, I found how generate descriptions, I made two mistakes:

1. I put wrong path
2. There is a bug in mORMotWrappers.pas:

constructor TWrapperContext.CreateFromModel(aServer: TSQLRestServer;
  const aSourcePath, aDescriptions: TFileName);
var t,f,s,n: integer;
  ...
begin
  Create(aDescriptions);
  if aSourcePath<>'' then begin
    src := pointer(aSourcePath);
    n := 0;
    repeat
      source := GetNextItemString(src,';');
      if (source<>'') and DirectoryExists(source) then begin
        SetLength(fSourcePath,n+1);
        fSourcePath[n] := IncludeTrailingPathDelimiter(source); //--> CHANGE aSourcePath by source
        inc(n);
      end;
    until src=nil;
  end;
  fServer := aServer;
  TDocVariant.NewFast([@fields,@services]);
  // compute ORM information
  for t := 0 to fServer.Model.TablesMax do begin
  ...

Thanks.

Thanks

@ab, this not works, I had to do the following to make it work:

Implement the TSQLRestRoutingREST for override Authenticate function:

  /// Clase que implementa una customización del manejo de peticiones REST
  TSQLRestRoutingREST_JWT = class(TSQLRestRoutingREST)
  protected
    // Se incorpora la autenticación con JWT
    function Authenticate: boolean; override;
  end;

function TSQLRestRoutingREST_JWT.Authenticate: boolean;
begin
  Result := inherited Authenticate;
  if (not Result) then
    Result := (Session = CONST_AUTHENTICATION_SESSION_NOT_STARTED) and (Server.JWTForUnauthenticatedRequest<>nil);
  if Result then
      Session := CONST_AUTHENTICATION_NOT_USED; //--> force call Ctxt.AuthenticationCheck(fJWTForUnauthenticatedRequest) in TSQLRestServer.URI
end;

and I assigned this TSQLRoutingREST to the REST server:

...
  // 6. Se crea el servidor REST para poder hacer migraciones si es necesario
  // - HandleAuthentication debe ser true para poder manejar usuarios
  fRestServer := TARISRestServer.Create(fModel, fARISDB, fConfig.RESTServer.HandleAuthentication);
  fRestServer.ServicesRouting := TSQLRestRoutingREST_JWT; //--> custom routing rest class
  // - Se permite autenticación/autorización básica (Authorization: Basic ...)
  fRestServer.AuthenticationRegister(TSQLRestServerAuthenticationHttpBasic);
  // - Se permite JWT para peticiones sin sesión
  fRestServer.JWTForUnauthenticatedRequest := TJWTHS256.Create('secret',10,[jrcIssuer,jrcSubject],[]);
...

Is this correct this way ? Is there better way ?

Thanks.

Ok, I can confirm that when calling an interface based service without session signature the invokation never arrives to the service implementation because Ctxt.Authenticate reject by invalid signature. This not allow invoke interface based service with a valid JWT. May be I'm doing something wrong.

If I implement a method based service that return a valid JWT, how invoke then interface based service with these JWT ?

Thanks.

Use rec.IDValue instead of rec.ID

I tried it using fpcupdeluxe but fpcupdeluxe settings could not download it (url is wrong) and after the install when I compiled a simple program "hello" several errors with NativeInt (or something like that) were reported.

On the other hand, will be very good that pas2js support ES6 javascript.

Sorry for my stupid questions, I started to use Lazarus/FPC throught fpcupdeluxe with trunk version and installing mORMot, Zeos, etc. with "Install Module" option de fpcupdeluxe. It is the best way or I must to use NewPascal ?

Thanks.

Hi @ab, I updated SynRestDataset to latest mORMot version and created a pull request on github.com, but I omitted directory EMartin in ThirdPartyDemos and I renamed TSynRestDataset directory to SynRestDataset. Can you correct this error ?

@xchinjo, I removed the patch with redirectcode.

Thanks.

@Junior/RO, I used Fossil, in git are these this files ?

Sorry, I did read the article but I forgot that part.

I downloaded and copied all content from zip file to the "static" folder and I put the "static" folder in "Search Path" (Delphi 7) but the error continue. My target and development OS is Windows 32bit.

I'm sure I did something wrong but I don't know what.

Thanks.

the correct way:

var
  lFromNames, lToNames: TRawUTF8DynArray;
begin
  SetLength(lFromNames,2);
  lFromNames[0] := 'Name1';
  lFromNames[1] := 'Name2';
  SetLength(lToNames,2);
  lToNames[0] := 'ToName1';
  lToNames[1] := 'ToName2';
  myProcedure(lFromNames, lToNames);
end;

use rowCount property, expanded JSON always return this when the query return empty dataset.

Maybe my TSynRestDataset in third-party samples can help you.

@wloochacz, in SynopseCommit.inc it's the numerical version (latest is 4299).

Please, can you try the app. with latest commit ?

Thanks.

@woolachz do you have the last commit (4299) ?

I don't think so, my problem is with dynamic arrays as parameter in interface based service, this was working.

I found the error in my test case, I forgot this code:

TJSONSerializer.RegisterObjArrayForJSON(TypeInfo(TCDIMapFieldOptionArray), TCDIMapFieldOption);

I don't understand why the JSON serialization in interface based service is not working more. That's is my big problem.

I'all appreciate any help.

Sorry @ab, but in the last fixes have been introduced a bug when saving objects to JSON from TDynArray. In https://drive.google.com/open?id=1qCR1x … jx4ev2wLbK I added a button DynArrayObj that plays the fail case.

For me application, this bug is a breaking change and I need that works as before.

UPDATE:

I have the following interface based service:

function ImportTable(cosnt aCSVOptions: TCDICSVOptions; const aTableOptions: TCDITableOptions; const aMapFieldOptions: TCDIMapFieldOptionArray): TServiceCustomAnswer;

and before the fixes this services worked ok, but after the same the server receives the aMapFieldOptions parameter of the same way that the reproduced fail test case.

Thanks in advance.

@ab, can you see this ?

Thanks.

I think that you have existing primary key in the table, mORMot need a primary key and then do you need map existing PK to internal mORMOt PK:

VirtualTableExternalMap(<model>, <TSQLTable>, <TSQLDBConnectionPropertie>, <Table name>).MapFields('ID', <External PK field>).SetOptions([rpmAutoMapKeywordFields, rpmNoCreateMissingTable, rpmNoCreateMissingField]);

Interesting and very useful, great works !!!

@ab, can you see the problem ?