mORMot Open Source

Hi ab

I tested on Delphi Rio

To be more exact, the error occurs in the procedure TAESPRNG.Seed;  in  SynCrypto.pas

procedure TAESPRNG.Seed;
var key: THash512Rec;
    entropy: RawByteString;
begin
  try
    entropy := GetEntropy(128); // 128 bytes is the HMAC_SHA512 key block size
    PBKDF2_HMAC_SHA512(entropy,ExeVersion.User,fSeedPBKDF2Rounds,key.b);     //<< In this line!
    fSafe^.Lock;
    try

I made sure I don't have incompatible versions

Please,

Where is the error in the code?

Dear ab,

Could you provide an example of your preferred technique?

Hi Dear Administrator,

The sqlite3obj.7z is outdated.

Hi,
Compilling the example TestSQLite3Pages.dpr you can see that now does not export the PDF correctly.

Hello ice1,

in TGDIPages...

You can show me an example?
I searched but did not find how to do.

Excuse me,
It was my mistake
It's all right with the example

Hello ab

Did you mean: Acredito ter descoberto o problema. Antes em SynDB: function TSQLDBProxyConnection Protocol.HandleInput(const input: RawByteString): RawByteString; begin result := input; end; now em SynDB: function TSQLDBRemoteConnection Protocol.HandleInput(const input: RawByteString): RawByteString; begin result := Input; SymmetricEncrypt(REMOTE_MAGIC,result); result := SynLZDecompress(result); end; Se o input for com length = 6000 funciona bem Se o input for com length = 10000 ocorre um erro na função SynLZDecompress(result);
I believe I have found the problem.

Before SynDB in:
TSQLDBProxyConnectionProtocol.HandleInput function (const input: RawByteString): RawByteString;
begin
   result: = input;
end;

now in SynDB:
TSQLDBRemoteConnectionProtocol.HandleInput function (const input: RawByteString): RawByteString;
begin
   result: = Input;
   SymmetricEncrypt (REMOTE_MAGIC, result);
   result: = SynLZDecompress (result);
end;

If the input for with length = 6000 works well
If the input for with length = 10000 an error occurs in SynLZDecompress function (result);

ab,

How can I run multiple commands (Drop, Create, Insert) within the same transaction?
Just as in the example:
         TSQLDBSQLite3Connection (MainConnection) .StartTransaction;
         TSQLDBSQLite3Connection (MainConnection) .DB.ExecuteAll (script.Text);

You are right.
I will follow this direction
Thank you

Hi,

If you need to use another tool to do the maintenance on the database, but you can't stop the mMORot server. What is the solution?

Hi,

How many lines are expected in the result?

I understand the use of CreateAndFillPrepare but when I want to do a select on a view instead of a table?

Dear admin,

. BusyTimeout does not work...

I try to enter a value greater than 0 but does not work.

  vdb: = TSQLRestServerDB.Create (dm.Model, StringToUTF8 ('base');
  vdb.DB.BusyTimeout: = 2000;