mORMot Open Source

Hello.
I am using Delphi 7.
I need to save a file in Json format in one application and load it in a second application.
Originally, the information comes from the GUI and may have a code point greater than 127.
I wanted to use a TDocVariant but I have a problem with the encoding.
First try:

var
  vVar1   : Variant;
  vVar2   : Variant;
  vStr1   : string;
  vStr2   : string;
  vJson : RawUTF8;
begin
  vStr1 := 'fenêtre'; //-> input var with code point greater than 127

  TDocVariant.New(vVar1);
  vVar1.Objet := vStr1;
  vJson:= VariantSaveJSON(vVar1);

  vVar2 := _Json(vJSon); //-> give {"Objet":"fenêtre"}
  vStr2 := vVar2.Objet;

  ShowMessage(vStr2); //-> give "fenêtre" -> not correct
end;

I thought I should use the RawUTF8 type.
Second try:

var
  vVar1 : Variant;
  vVar2 : Variant;
  vStr1 : string;
  vStr2 : string;
  vJson : RawUTF8;
  vUtf1 : RawUTF8;
  vUtf2 : RawUTF8;
begin
  vStr1 := 'fenêtre'; //-> input var with code point greater than 127
  vUtf1 := StringToUTF8(vStr1); //-> input var as RawUTF8

  TDocVariant.New(vVar1);
  vVar1.Objet := vUtf1;
  vJson:= VariantSaveJSON(vVar1);

  vVar2 := _Json(vJson);
  vUtf2 := vVar2.Objet;
  vStr2 := UTF8ToString(vUtf2);

  ShowMessage(vStr2); //-> give "fenêtre"  -> not correct
end;

And now I'm lost!
Thanks a lot.

Hello,

I created a file signature with ECC command line utility following the example in documentation :
https://synopse.info/files/html/Synopse … #TITLE_588

Then I opened the .sign file and modified the first char of md5 and sha256 values.

When I check file signature ECC tell signature is valid.

But I was expecting a result: invalid signature

As documentation says : "Note that you can add whatever JSON field you need to any .sign file, especially in the "meta": nested object, as soon as you don't modify the size/md5/sha256/sign values."

Am I wrong ?

Thank you

--- update ---

The ECCCommandVerifyFile command use TECCSignatureCertified.CreateFromFile which only use the "sign" field of a JSON ".sign" file.

This "sign" field calculation is based on SHA256 of the file.

So other fields in the JSON ".sign" file are present for information only.

Hello,

I am using TZipRead under Delphi 7 Pro and open a .zip archive file directly from memory with the constructor

constructor Create(BufZip: PByteArray; Size: cardinal);

.

I was surprised that PByteArray was a reference to SysUtils and not SynCommons ("array[0..32767] of Byte" vs "array[0..MaxInt-1] of Byte").

Is there a reason for this?

Thank you

Hello,

I am a little confused about this simple program that calculates the SHA256 of an array of Byte.
The line marked "<=== PB here" does not compile if I write:

vSHA256Static: = SHA256(pointer(vStatic), MAX_T);

The line

vSHA256Static: = SHA256(Pointer(vStatic [0]), MAX_T);

compile but I get an access violation at execution.
The calculation of SHA256 with the dynamic array works perfectly.
I do not understand why.
Thank you for your help

P.S. : I am using Delphi 7 Pro

const
  MAX_T = 22400;
var
  vStatic  : array[0..MAX_T-1] of Byte;
  vDynamic : array of Byte;
  vFS      : TFileStream;
  vSHA256Static : AnsiString;
  vSHA256Dynamic : AnsiString;
begin
  SetLength(vDynamic, MAX_T);
  vFS := TFileStream.Create(---some file greater then MAX_T---, fmOpenRead);
  vFS.Position := 0;
  vFS.ReadBuffer(vStatic[0], MAX_T);
  vFS.Position := 0;
  vFS.ReadBuffer(vDynamic[0], MAX_T);
  FreeAndNil(vFS);
  vSHA256Static := SynCrypto.SHA256(Pointer(vStatic[0]), MAX_T);  // <==== PB here
  vSHA256Dynamic := SynCrypto.SHA256(Pointer(vDynamic), MAX_T);
  ShowMessage
  (
    'Static'#9 + vSHA256Static + #10
  + 'Dynamic'#9 + vSHA256Dynamic
  );
end;

Hello,

I am studying the sample project "mORMot\SQLite3\Samples\33 - ECC" and its documentation.

My goal is to use this library for backup software and it's very well suited for my needs.

But I need to be able to encrypt and decrypt large files (> 4 Gb).

My first tests show that an insufficient memory error is encountered with large files.

Unless I'm mistaken, I think it is due to the use of "StringFromFile" and "FileFromString" functions in "SynECC" and "ECCProcess" units.
These functions read/write a file content into/from a String.

Do I need to modify TECC* objects to handle large files ?

If so, do you have any suggestions or recommendations ?

Could my changes be added to the mormot framework ?

Thank you very much

I am a very satisfied user of your tools and congratulate you for your work!

I was faced with two problems I could fix.

SynTaskDialog version 1.17

On one computer the message was larger than the dialog form. Curiously the function AddLabel in TTaskDialog.Execute sets the correct width to the label but after setting the caption the width was larger. I realized that the message had a very very long word (web site adress).

Here are the changes I made:

function AddLabel(const Text: string; BigFont: boolean): TLabel;
var                         // <- NEW
   vRect: TRect;            // <- NEW
begin
  result := TLabel.Create(Form);
  result.Parent := Par;
  result.WordWrap := true;
  if BigFont then begin
    if aEmulateClassicStyle then begin
      result.Font.Height := FontHeight-2;
      result.Font.Style := [fsBold]
    end else begin
      result.Font.Height := FontHeight-4;
      result.Font.Color := $B00000;
    end;
  end else
    result.Font.Height := FontHeight;
  result.Left := X;
  result.Top := Y;

  result.AutoSize := False;  // <- NEW     
  vRect := Rect(0, 0, aWidth-X-8, result.Height); // <- NEW
  result.Height := DrawText(result.Canvas.Handle, PChar(CR(Text)), - 1, vRect, DT_CALCRECT or DT_WORDBREAK); // <- NEW
  

  result.Width := aWidth-X-8;
  result.Caption := CR(Text);
  inc(Y,result.Height+16);
end;

SynPDF 1.16

If I don't have outline in my report, I don't have zoom button enabled !

In the "else" part of the last "if" in the procedure TGDIPages.EndDoc, I replaced "M.Enabled := false;" to "M.Enabled := True;"

procedure TGDIPages.EndDoc;
 [...]
 if UseOutlines and (fOutline.Count>0) then begin
    Root.Enabled := true;
    M := Root;
    for i := 0 to fOutline.Count-1 do
    with TGDIPagereference(fOutline.Objects[i]) do begin
      while (M<>Root) and (cardinal(-2000-M.Tag)<cardinal(fOutline.Count)) and 
         (Rect.Bottom<=TGDIPagereference(fOutline.Objects[-2000-M.Tag]).Rect.Bottom) do
        M := M.Parent;
      M := NewPopupMenuItem(fOutline[i],-2000-i,M);
    end;
  end else
    //M.Enabled := False;  // <- COMMENT
    M.Enabled := True;     // <- NEW
end;

I hope this could help