mORMot Open Source

The code is as follows:

fHttpServer := THttpApiServer.Create('');

fHttpServer.RegisterCompress(CompressGZip, 10);
fHttpServer.RegisterCompress(CompressDeflate, 10);

fHttpServer. AddUrl('', '8888',  False, '127.0.0.1');
// fHttpServer. AddUrl('', '8888', False, '*');
//fHttpServer.AddUrl('', '8888', False, '+');

1. Whether I use * or+, the following three methods cannot be accessed:
http://127.0.0.1:8888
http://localhost:8888
http://192.168.1.9:8888 (Local intranet IP address)

2. After using Register Compress, use Ctxt.SetOutFile send a static file to the browser,but that has not been compressed.

Thank you.

Can THttpApiServer or THttpAsyncServer use sessions to store user information? For example, storing user accounts, user department IDs, user login IPs, login times, etc.
If possible, how can I use it?
thank you.

TMS Sparkle provides classes that allow you to create middleware interfaces and add them to the request processing pipeline. In other words, you can add custom functionality that preprocess the request before it's effectively processed by the main server module, and postprocess the response provided by it.
Does mORMot2 have middleware similar to this?

My code is as follows, the image test.jpg is only 5kb in size. The program ran for more than 10 minutes, but did not receive the expected PDF file. Finally, it indicated that there was insufficient memory.
How can I improve it? Thank you!

var
  PDF: TPdfDocument;
  PDFPage: TPdfpage;
  SW: TStopwatch;
  I: Integer;
  FS: TFileStream;
  pdfImage: TPdfImage;
  BarCode: string;
  X, Y: Single;
begin
  SW := TStopwatch.StartNew;
  PDF := TPdfDocument.Create;
  FS := TFileStream.Create(ExtractFilePath(Application.ExeName) + 'output.pdf', fmCreate);
  try
    PDF.NewDoc;
    PDF.PDFA1 := True;
    PDF.DefaultPaperSize := psA4;
    PDF.SaveToStreamDirectBegin(FS);

    for I := 1 to 30000 do
    begin
      PDF.AddPage;
      BarCode := IdGenerator.NextId.ToString;
      pdfImage := TPdfImage.CreateJpegDirect(PDF, 'd:\test.jpg', True);
      PDF.AddXObject(BarCode, pdfImage);
      X := 200;
      Y := 800;
      PDF.Canvas.DrawXObject(X, Y, 30, 30, BarCode);
      pdfImage.ForceSaveNow;
      PDF.SaveToStreamDirectPageFlush(True);
    end;
    PDF.SaveToStreamDirectEnd;
    Memo1.Lines.Add(SW.ElapsedMilliseconds.ToString);
  finally
    PDF.Free;
    FS.Free;
  end;

my code:
var
  PDF: TPdfDocument;
  R: TPdfRect;

      R.Left := 30;
      R.Top := 500;
      R.Right := 100;
      R.Bottom := 800;
      PDF.Canvas.SetFont('Times New Roman', 12, []);
      PDF.Canvas.MultilineTextRect(R, 'Welcome to mORMot Open Source', True);

Only the text 'Welcome to' is displayed, no other text is displayed.
Thanks.

My code:
var
  props: TSQLDBWinHTTPConnectionProperties;
  SQL: TStringBuilder;
begin
  props := TSQLDBWinHTTPConnectionProperties.Create('127.0.0.1', 'XXX', '123', '123');
  SQL := TStringBuilder.Create;
  DD := TSynDBDataSet.Create(self);
  DD.Connection := props;
  SQL.Append('SELECT XGSTUFSID,XM,').AppendLine;
  SQL.Append('CASE WHEN SUBSTRING(BKZYDM,3,1) IN(''5'',''6'') THEN ''2'' ELSE ''1'' END LX').AppendLine;
  SQL.Append('FROM BBK').AppendLine;
  DD.CommandText := SQL.ToString;
  DD.Open;

When I modify the field of XM,and call Post and ApplyUpdates(0)，but no data was saved.
How can i do ?Thanks.

I wanted to connect to SAP SQL Anywhere 17 by TSQLDBFireDACConnectionProperties:

var
FD: TSQLDBFireDACConnectionProperties;

FD := TSQLDBFireDACConnectionProperties.Create('ASA?ENG=test', 'TEST',
    'dba', 'sql');

Error Message:
TSQLDBFireDACConnectionProperties.Create:unknown provider-available: OraMSSQLMSAccMySQLSQLiteIBPGDB2Infx.

How to connect to the SAP SQL Anywhere 17 by TSQLDBFireDACConnectionProperties?
Thanks.