Posts by anouri

anouri · mORMot 2

Hi.

Recently I swiched to ZeosLib 8.0.0 but I got error (Range Check Error) in:
ExecutePrepared function when calling :

var dbStmt := dbConn.Properties.ExecuteNoResult(sql, Params);

Seems it is ZeosLib error. But I'm not sure.

So I had to go back to ZeosLib 7.2

anouri · mORMot 2

is it possible to bind parameter by name?

Lsql := 'select invoice_no,tran_date from fin_invoice where cust_code=:cust_code';
dbStmt := dbConn.NewStatementPrepared(LSql, True);
dbStmt.BindTextU(1, '1');

dbStmt.BindByName('cust_code') := '1';

anouri · mORMot 2

Solved
Thank you.

anouri · mORMot 2

I watched many videos on YouTube about authentication implementation with C#.
These videos showed an authentication service that allows Swagger users to obtain a JWT token and then click the Authorize button to import it as 'Bearer + JWT'.
I also created a similar service that is accessible in the Swagger section, which completely solved the problem.

Thank you and AB for your help.

anouri · mORMot 2

Hi

serviceRunningContext^.Request.InBody is not valid json.

this is service method:

function TAuthenticationService.Login(const UserName, Password: RawUTF8): RawJson;
begin
  var a := serviceRunningContext^.Request;

  var b := TPassakRest(Server).fRestServerAuthentication;
  TRestServerAuthenticationJWT(b).Auth(a);
end;

body json is:
{
"UserName": "Admin",
"Password": "synopse"
}

serviceRunningContext^.Request.InBody is

{"UserName: "Admin "Password: "synopse

anouri · mORMot 2

First of all, I put the Swagger.json.mustache file in a "templates" folder next to my REST server executable.
I don't remember where I found the Swagger.json.mustache file and copied it there.

Then, I added this line to my REST server startup procedure:

AddToServerWrapperMethod(MyRestServer,['templates','templates']);

After this step, the URL "http://localhost:8282/root/wrapper/" shows some links and information for me, including the mORMotClient.json file.

I shared my template file here:
https://gist.github.com/a-nouri/6bf970a … dac0a15c8a

anouri · mORMot 2

I'm new to this and it took me several days to do this simple thing. I need to go back and study more on this.
thank you!

anouri · mORMot 2

Finally, I found out how to add the Authorize button to my Swagger template.
I added this to the Swagger.json.mustache file, something like this:

"securityDefinitions": {
"JWTAuth": {
"type": "apiKey",
"name": "Authorization",
"in": "header",
"description": "Enter your JWT token here. Example: Bearer eyJhbGciOiJIUzI1NiIs..."
}
},
"security": [
{
"JWTAuth": []
}
],

Then, I get the JWT token in the Delphi REST debugger or Postman and put it in the Authorization field as:
Bearer eyJhbGciOiJIUzI1...

The difficulty here is that it requires getting the JWT from the REST debugger and pasting it in. I can't find a way to supply the username and password directly on the Swagger page to get the JWT and automate this process.
By the way, this is a big step forward for me.
I learned how to create HTML for displaying Swagger:

html := '''
<!DOCTYPE html>
<html lang="en">
<head>
<meta charset="utf-8" />
<meta name="viewport" content="width=device-width, initial-scale=1" />
<meta name="description" content="SwaggerUI" />
<title>SwaggerUI</title>
<link rel="stylesheet" href="https://unpkg.com/swagger-ui-dist@5.11.0/swagger-ui.css" />
</head>
<body>
<div id="swagger-ui"></div>
<script src="https://unpkg.com/swagger-ui-dist@5.11.0/swagger-ui-bundle.js" crossorigin></script>
<script>
window.onload = () => {
window.ui = SwaggerUIBundle({
url: '../wrapper/Swagger/mORMotClient.json',
dom_id: '#swagger-ui',
});
};
</script>
</body>
</html>
''';

anouri · mORMot 2

Done!

anouri · mORMot 2

Hi everyone!
I am using react as front end.
Is there a way to create json without \uFFF0 char?

mormot documentation:

// - BLOB field value is saved as Base64, in the '"\uFFF0base64encodedbinary"'
// format and contains true BLOB data
procedure ExecutePreparedAndFetchAllAsJson(Expanded: boolean;
out Json: RawUtf8; ReturnedRowCount: PPtrInt = nil);

anouri · mORMot 2

Thank you

anouri · mORMot 2

I find the problem.
with sicShared it is ok.
sicPerSession produce wrong result.

My question is, what do we need this json model for?
{"result":{"Result":[{"cust_code":"0001",type":"domestic"}}}}
What is the need for two result statements in json? Maybe I don't know the reason for this.

AB

anouri · mORMot 2

Hi every one.

  //var LItemService := aPassakServer.ServiceRegister(TItemService, [TypeInfo(IItemService)], sicPerSession, '4');
  var LItemService := aPassakServer.ServiceDefine(TItemService, [IItemService], sicPerSession, '4');
  LItemService.ResultAsJsonObjectWithoutResult := True;
  LItemService.ByPassAuthentication := False; //We can bypass authentication

when I cnahge ServiceRegister to ServiceDefine. ResultAsJsonObjectWithoutResult does not affect and result is:

{
"result": {
"Result": [
{
"cust_code": "0001",
"type": "domestic"
}
}
}

expected result is:
{
"Result": [
{
"cust_code": "0001",
"type": "domestic"
}
}

anouri · mORMot 2

your gist link is not public.

anouri · mORMot 2

Sending http://localhost:8282/root/CacheFlush/_ping_ does not renew session!

server start:

https://gist.github.com/a-nouri/48c5806 … 5947366ccd

I debbug it and in:
function TServiceFactoryServer.RenewSession(Ctxt: TRestServerUriContext): integer;

fInstances.Count is 0 !
and fInstanceCreation is sicShared

so function exit.

I don't know why fInstances.Count is zero, but why does this function only work for sicClientDriven, sicPerSession.

Thanks for help

anouri · mORMot 2

There is no property in mormot cookie for expires. Is this correct way?

  
procedure TRestServerAuthenticationJWT.SessionCreate(Ctxt: TRestServerUriContext; var User: TAuthUser);
begin
  //...
  var ExpireStr: RawUtf8;
  var ExpireTime := Now + 1;
  ExpireStr := DateTimeToHttpDate(ExpireTime);

  Ctxt.OutSetCookie := 'JWT=' + Token + '; Expires=' + ExpireStr;
end;

anouri · mORMot 2

I implemented my client and server using your github code, but there are memory leak in internalrequest!

https://synopse.info/forum/profile.php?id=2695

anouri · mORMot 2

I am using method 2. but I don't undrestand "don't publish the tables as REST"

anouri · mORMot 2

Thank you.

anouri · mORMot 2

Is this expected bahaiviour when I use:

TMykRest = class(TRestServerFullMemory)

mormot does not retreive users from db or this is bug?
https://synopse.info/forum/profile.php?id=2

anouri · mORMot 2

I add users to my table in database manager tools (like heidisql, ...).
After many try and error I find that when I delcare:

  TMyRest = class(TRestServerDB)

It works. but when I use :

  TMyRest = class(TRestServerFullMemory)

it does not work!

anouri · mORMot 2

After calling OrmMapExternalAll I add user to my table in jwtauthuser table, but mormot does not add this to internal storage in memory, and when I call Auth URI, I got an error:

{
"errorCode": 403,
"errorText": "Authentication Failed: Unknown user (2)"
}

how can I reload settings? Suppose when service is running I add user to table. How can I retereive users list again?

anouri · mORMot 2

I find this :
OrmMapExternalAll(MyModel, aDbConnection, []);

and now mormot create jwtauthuser and authgroup tables in mysql database.

anouri · mORMot 2

I have one problem:
I created jwt rest server and mormot create users and groups in sqlite database.
but I have my own users table in my mysql database too. how can I use my own users and groups tables in my mysql database instead of mormot sqlite database?

anouri · mORMot 2

This is gist link:

https://gist.github.com/a-nouri/b72f8da … 3b1aa953da

anouri · mORMot 2

I copied "Swagger.json.mustache" file form somewhere into tempates folder and I don't familiar with that

anouri · mORMot 2

I copy some template files to my bin folder and then use swagger this way:

https://petstore.swagger.io/?url=http://localhost:888/root/wrapper/Swagger/mORMotClient.json.txt

anouri · mORMot 2

I saw in other rest service swagger, there are authentication button in the top of page. but for your sample project this button not exists!
How can I enable this option?

anouri · mORMot 2

Thank you. I will try

anouri · mORMot 2

I have another question.
Is it possible to create interface based service for authentication and use it in client side?
something like this:

type
IAuthentication = interface(IInvokable)
['{C92DCBEA-C680-40BD-8D9C-3E6F2ED9C9CF}']
procedure GetToken...;
procedure RefershToken...;
procedure IsTokenValid...;
...

end;

anouri · mORMot 2

Yes. I got it. and now I can find secret.
many thanks!

anouri · mORMot 2

Hi flydev.
there were a minor bug in your code and I fixed it.
changed function is this:
//function TRestServerAuthenticationJWT.Auth(Ctxt: TRestServerURIContext; const aUserName: RawUTF8): boolean; original
function TRestServerAuthenticationJWT.Auth(Ctxt: TRestServerURIContext): boolean; //chenged

I posted link in gist in my first post of topic.

if I underestand correctly "Create(SHA256(GUIDToRawUTF8(vGUID))" is secret. right?

JWTForUnauthenticatedRequest :=
TJwtHS256.
Create(SHA256(GUIDToRawUTF8(vGUID)), 0, [jrcIssuer, jrcSubject], [],
JWTDefaultTimeout);

anouri · mORMot 2

Hi AB,
First of all, thank you for the great framework.
I am using the following code for JWT implementation:
https://gist.github.com/a-nouri/c61aef8 … f413b4538f
The code works, and I can retrieve the JWT JSON using the Delphi REST debugger (at http://localhost:8282/root/Auth?UserName=User&Password=synopse):

{
    "result": "302102+5B8F237C0D720FD66C3230C054AB161362E8E0FC12136AC3AE8196765B6C2779",
    "jwt": "eyJhbGciOiJIUzI1NiIsInR5cCI6IkpXVCJ9.eyJzZXNzaW9ua2V5IjoiMzAyMTAyKzVCOEYyMzdDMEQ3MjBGRDY2QzMyMzBDMDU0QUIxNjEzNjJFOEUwRkMxMjEzNkFDM0FFODE5Njc2NUI2QzI3NzkiLCJpc3MiOiJVc2VyIiwic3ViIjoiand0LmFjY2VzcyIsImV4cCI6MTc1OTY2MjE1MX0.iUQmvtUov2YvB02UnJQkq0RXZNzN0AJzAcUCC4E5kBo"
}

However, when I try to validate it on jwt.io, it requires the secret key.
I can't find a way to retrieve the secret, but when debugging the Create method, I can see this value:

893ee7b5d45733a3bb3f8907a46233a3a510f05533de8d50ac10edbc7653f2f8

Thanks for your help!

anouri · mORMot 2

I have huge project implemented by delphi vcl with 600 forms.
I use madexcept to catch and show unhandeded exceptions.
if mormot can handle this. I mean if there is onException Event handler or somthing like this. I can replace it with mormot.
Myabe OnBeforeException event can help.

I also show call stack to end user when exception is unhandeled:

https://gist.github.com/a-nouri/8ddfe5d … 8bdf28ae69

show_error function shows error in form to end user. and then sent to my website and I save unhandedled exceptions in table in web site by php.

anouri · mORMot 2

Very useful. Thank you so much.

anouri · mORMot 2

I tried
TAppLog.Family.StackTraceUse := stOnlyManual;
and
TAppLog.Family.LevelStackTrace := [];

with not success!

Is there a way to set TSynLog that don't capture exceptions?

anouri · mORMot 2

After upgrading to the new version I encountered another problem. madexcept stopped working and to solve the issue I had to use the following option:
TAppLog.Family.Level := [sllInfo, sllWarning]
instead of
TAppLog.Family.Level := LOG_VERBOSE
I actually used mormot logging feature in a Windows desktop project.

anouri · mORMot 2

Solved with this commit.
Thank you so much

anouri · mORMot 2

Yes.

type
  TClient = record
    ConnectionId: THttpServerConnectionID;
    ComputerName: string;
  end;

  TClients = array of TClient;

  TInt64DynArray = array of Int64;

  FClients := TSynDictionary.Create(TypeInfo(TInt64DynArray), TypeInfo(TClients));

anouri · mORMot 2

Hi AB, many thanks to great framework.

I have
FClients: TSynDictionary;

TSynDictionary.SaveToJson generate below json :

{1:{"ConnectionId":1,"ComputerName":"Test"},2:{"ConnectionId":2,"ComputerName":"Comp"}}

which is not valid json.

how can I remove "{1:","{2:", ... from Result.

anouri · mORMot 2

TThread.Queue Solved the issue!

anouri · mORMot 2

EchoFrame method:

procedure TForm2.EchoFrame(Sender: TWebSocketProcess; const Frame: WebSocketFrame);
begin
  case Frame.opcode of
    focContinuation:
    begin
      TThread.Synchronize(nil, procedure
      begin
        Memo1.Lines.Add('connected');
      end);
    end;
  end;
end;

anouri · mORMot 2

I think there is issue in somewhere in mormot.
When lProto.OnIncomingFrame assigned before socket upgrade this function takes 5 seconds to finish

procedure TWebSocketProcess.WaitThreadStarted;
var
endtix: Int64;
begin
endtix := GetTickCount64 + 5000;
repeat
SleepHiRes(0);
until fProcessEnded or
(fState <> wpsCreate) or
(GetTickCount64 > endtix);
end;

anouri · mORMot 2

Is this bug or abnormal behaviour?

anouri · mORMot 2

I accidentally changed the position of a line and the problem was solved. But why should this happen?

var
  ClientWS      : THttpClientWebSockets;
  lProto        : TWebSocketProtocolEcho;
begin
  lProto := TWebSocketProtocolEcho.Create('meow','');
  ClientWS := THttpClientWebSockets.Create;
  ClientWS.Open('127.0.0.1', '12346');
  ClientWS.WebSocketsUpgrade('', '', false, [], lProto, '');
  lProto.OnIncomingFrame := EchoFrame; //this line moved here

anouri · mORMot 2

Why you don't share it in github. It can help mormot community and make it popular farmework.

anouri · mORMot 2

I created TWebSocketServer server and TWebSocketProtocolChat. When I connect it with JS it is fast.
But when I connect with below code it takes 5 second to upgrade.

var
  ClientWS      : THttpClientWebSockets;
  lProto        : TWebSocketProtocolEcho;
begin
  lProto := TWebSocketProtocolEcho.Create('meow','');
  lProto.OnIncomingFrame := EchoFrame;
  ClientWS := THttpClientWebSockets.Create;
  ClientWS.Open('127.0.0.1', '8383');
  ClientWS.WebSocketsUpgrade('', '', false, [], lProto, '');

anouri · mORMot 2

Yes. Solved. thanks alot
for creating multiple file I am using multiple classes:

TDbLog = class(TSynLog); // Log for database operations
TApiLog = class(TSynLog); // Log for API calls

Is this correct ?

anouri · mORMot 2

I can't figure out this code work properly. when I replace myLog1 with TSynLog it works.

var
  myLog1,myLog2: TSynLog;
begin
  myLog1 := TSynLog.Create();

  myLog1.Family.Level := LOG_VERBOSE;
  myLog1.Family.DestinationPath := 'D:\SynLog1\';
  myLog1.Family.FileExistsAction := acAppend;

  myLog1.Log(sllInfo, 'Logging initialized.');
end;

anouri · mORMot 2

I am using FK allways but for show message to end user I use information schema table to find all fk's and then create my own message. It is so easy and it is one function for checking refrential integrity.

this is for mysql:

      select REFERENCED_TABLE_NAME,CONSTRAINT_NAME,group_concat(COLUMN_NAME) COLUMN_NAME,
      group_concat(REFERENCED_COLUMN_NAME) REFERENCED_COLUMN_NAME,
      group_concat(COLUMN_NAME,'=',REFERENCED_COLUMN_NAME) col_ref
      from INFORMATION_SCHEMA.KEY_COLUMN_USAGE
      where TABLE_SCHEMA = :TABLE_SCHEMA
      and TABLE_NAME = :TABLE_NAME
      and referenced_column_name is not NULL
      group by REFERENCED_TABLE_NAME,CONSTRAINT_NAME

parsing error message can not create understandable message. when user want to delete product number 1 I show this message:

product 1 used in invoice 123 and can not deleted.

invoice 123 is first invoice that used product number 1.

mORMot Open Source

#1 mORMot 2 » Range check error with ZeosLib 8.0.0 (work with Zeos 7.2) » 2025-11-05 13:47:45

#2 mORMot 2 » bind parameter by name in sql? » 2025-11-04 10:56:19

#3 Re: mORMot 2 » Inbody is not valid json! » 2025-11-04 09:30:32

#4 Re: mORMot 2 » How can I get secret from TJwtHS256? » 2025-11-03 10:22:28

#5 mORMot 2 » Inbody is not valid json! » 2025-11-02 10:06:42

#6 Re: mORMot 2 » How can I get secret from TJwtHS256? » 2025-10-30 10:19:07

#7 Re: mORMot 2 » How can I get secret from TJwtHS256? » 2025-10-30 09:53:12

#8 Re: mORMot 2 » How can I get secret from TJwtHS256? » 2025-10-30 09:30:37

#9 Re: mORMot 2 » How to remove \uFFF0 from base64encoded blob? » 2025-10-29 07:02:50

#10 mORMot 2 » How to remove \uFFF0 from base64encoded blob? » 2025-10-28 12:58:44

#11 Re: mORMot 2 » ResultAsJsonObjectWithoutResult Does not affect » 2025-10-22 13:38:32

#12 Re: mORMot 2 » ResultAsJsonObjectWithoutResult Does not affect » 2025-10-21 11:04:49

#13 mORMot 2 » ResultAsJsonObjectWithoutResult Does not affect » 2025-10-21 09:06:34

#14 Re: mORMot 2 » Creating a TRestServerDB in mORMot2 to work with an external MS SQL » 2025-10-16 08:16:38

#15 mORMot 2 » _ping_ does not affect Session expire? » 2025-10-16 08:14:21

#16 mORMot 2 » How to set an expiration time for a cookie? » 2025-10-14 10:33:57

#17 Re: mORMot 2 » How can I get secret from TJwtHS256? » 2025-10-09 07:05:11

#18 Re: mORMot 2 » How can I get secret from TJwtHS256? » 2025-10-08 11:21:22

#19 Re: mORMot 2 » How can I get secret from TJwtHS256? » 2025-10-08 10:14:00

#20 Re: mORMot 2 » How can I get secret from TJwtHS256? » 2025-10-08 09:18:02

#21 Re: mORMot 2 » How can I get secret from TJwtHS256? » 2025-10-08 09:09:40

#22 Re: mORMot 2 » How can I get secret from TJwtHS256? » 2025-10-08 07:31:36

#23 Re: mORMot 2 » How can I get secret from TJwtHS256? » 2025-10-07 12:06:47

#24 Re: mORMot 2 » How can I get secret from TJwtHS256? » 2025-10-07 11:35:49

#25 Re: mORMot 2 » How can I get secret from TJwtHS256? » 2025-10-07 09:17:23

#26 Re: mORMot 2 » How can I get secret from TJwtHS256? » 2025-10-07 08:31:34

#27 Re: mORMot 2 » How can I get secret from TJwtHS256? » 2025-10-07 05:27:30

#28 Re: mORMot 2 » How can I get secret from TJwtHS256? » 2025-10-06 14:39:06

#29 Re: mORMot 2 » How can I get secret from TJwtHS256? » 2025-10-06 13:30:20

#30 Re: mORMot 2 » How can I get secret from TJwtHS256? » 2025-10-06 11:48:38

#31 Re: mORMot 2 » How can I get secret from TJwtHS256? » 2025-10-06 11:44:45

#32 Re: mORMot 2 » How can I get secret from TJwtHS256? » 2025-10-06 11:37:06

#33 mORMot 2 » How can I get secret from TJwtHS256? » 2025-10-05 10:59:56

#34 Re: mORMot 2 » TSynDictionary.SaveToJson generate invalid json » 2025-05-01 09:17:41

#35 Re: mORMot 2 » TSynDictionary.SaveToJson generate invalid json » 2025-05-01 05:39:59

#36 Re: mORMot 2 » TSynDictionary.SaveToJson generate invalid json » 2025-04-30 14:32:55

#37 Re: mORMot 2 » TSynDictionary.SaveToJson generate invalid json » 2025-04-30 14:08:24

#38 Re: mORMot 2 » TSynDictionary.SaveToJson generate invalid json » 2025-04-30 04:45:06

#39 Re: mORMot 2 » TSynDictionary.SaveToJson generate invalid json » 2025-04-30 04:31:14

#40 mORMot 2 » TSynDictionary.SaveToJson generate invalid json » 2025-04-29 13:26:16

#41 Re: mORMot 2 » Slow connection to TWebSocketServer » 2025-04-24 18:09:11

#42 Re: mORMot 2 » Slow connection to TWebSocketServer » 2025-04-24 18:04:33

#43 Re: mORMot 2 » Slow connection to TWebSocketServer » 2025-04-23 08:05:31

#44 Re: mORMot 2 » Slow connection to TWebSocketServer » 2025-04-20 06:54:19

#45 Re: mORMot 2 » Slow connection to TWebSocketServer » 2025-04-20 06:12:33

#46 Re: mORMot 2 » mormot implemeting RefreshToken » 2025-04-20 06:08:32

#47 mORMot 2 » Slow connection to TWebSocketServer » 2025-04-20 05:59:03

#48 Re: mORMot 2 » TSynLog Instance problem » 2025-04-06 13:45:24

#49 mORMot 2 » TSynLog Instance problem » 2025-04-01 10:23:29

#50 Re: mORMot 2 » I want use ORM very much but MORMOT are some restrictions » 2025-03-27 09:33:52

Board footer