mORMot Open Source

  x509_val_st = record
    notBefore: PASN1_TIME;
    notAfter: PASN1_TIME;
  end;

const
  // some binaries may be retrieved from https://github.com/grijjy/DelphiOpenSsl
  // or http://wiki.overbyte.eu/wiki/index.php/ICS_Download (more up-to-date)
  // - on Windows, we found out that ICS OpenSSL 3 is slower than OpenSSL 1.1
  {$ifdef OSWINDOWS}
    {$ifdef CPU32}
    LIB_CRYPTO1 = 'libcrypto-1_1.dll';
    LIB_SSL1 = 'libssl-1_1.dll';
    LIB_CRYPTO3 = 'libcrypto-3.dll';
    LIB_SSL3 = 'libssl-3.dll';
    _PU = '';
    {$else}
    LIB_CRYPTO1 = 'libcrypto-1_1-x64.dll';
    LIB_SSL1 = 'libssl-1_1-x64.dll';
    LIB_CRYPTO3 = 'libcrypto-3-x64.dll';
    LIB_SSL3 = 'libssl-3-x64.dll';
    _PU = '';
    {$endif CPU32}
    {$ifdef OPENSSLFULLAPI}     // 
      {$define OPENSSLSTATIC}  // with this is working
    {$ENDIF OPENSSLFULLAPI}  //
  {$else}
  ...

//function BIO_meth_get_write(p1: PBIO; p2: PUTF8Char; p3: Integer; biom: PBIO_METHOD): integer;
{ TODO : Cannot convert original type "int (*)(BIO *, const char *, int)" }; cdecl; //HERE
//  external LIB_CRYPTO name _PU + 'BIO_meth_get_write';

//function BIO_meth_get_write_ex(p1: PBIO; p2: PUTF8Char; p3: PtrUIntp4: PPtrUInt; biom: PBIO_METHOD): integer;
{ TODO : Cannot convert original type "int (*)(BIO *, const char *, size_t, size_t *)" }; cdecl; //HERE
//  external LIB_CRYPTO name _PU + 'BIO_meth_get_write_ex';

//TODO: Cannot convert original ...

const
  RAEditorCompletionChars: set of AnsiChar =
    [#8, '_', '0'..'9', 'A'..'Z', 'a'..'z'];
  Separators: set of AnsiChar =
    [#0, ' ', '-', #13, #10, '.', ',', '/', '\', ':', '+', '%', '*', '(', ')',
    ';', '=', '{', '}', '[', ']', '{', '}', '|', '!', '@', '"']; 

{{^context.video.main.parts}}-v error -y -i {{context.video.main.sourcefilename}} {{context.video.main.tempfilename}}.avi{{/context.video.main.parts}}
{{#context.video.main.parts}}
  {{#-first}}-v error -y -i {{context.video.main.sourcefilename}}{{/-first}}
  {{^-last}} -ss {{startoffsetinsecs}} -t {{durationinsecs}} {{tempfilename}}.avi {{/-last}}
  {{#-last}} -ss {{startoffsetinsecs}} {{tempfilename}}.avi{{/-last}}
{{/context.video.main.parts}}

{
    "context": {
        "callrefid": "441299259001",
        "audio": {
            "main": {
                "sourcefilename": "\\TECNOVOZ\\ACD\\Vox\\20191217\\11285401.139",
                "parts": [],
                "tempfilename": "C:\\Users\\EMartin\\AppData\\Local\\Temp\\A~44129925900100",
                "destfilename": "\\TecnoVoz\\Streaming\\441299259001"
            },
            "holds": []
        },
        "video": {
            "main": {
                "sourcefilename": "\\TECNOVOZ\\ACD\\Video\\20191217\\01_0139_20191217_112854_0000000000.avi",
                "parts": [{
                        "startoffsetinsecs": 0,
                        "durationinsecs": 275.333,
                        "tempfilename": "C:\\Users\\EMartin\\AppData\\Local\\Temp\\V~44129925900101"
                    }, {
                        "startoffsetinsecs": 275.666,
                        "durationinsecs": 60.3339999999999,
                        "tempfilename": "C:\\Users\\EMartin\\AppData\\Local\\Temp\\V~44129925900103"
                    }, {
                        "startoffsetinsecs": 1152,
                        "durationinsecs": 0,
                        "tempfilename": "C:\\Users\\EMartin\\AppData\\Local\\Temp\\V~44129925900115"
                    }
                ],
                "tempfilename": "C:\\Users\\EMartin\\AppData\\Local\\Temp\\V~44129925900100",
                "destfilename": "\\TecnoVoz\\Streaming\\441299259001"
            },
            "holds": [{
                    "sourcefilename": "\\TECNOVOZ\\ACD\\Video\\20191217\\01_0139_20191217_112854_0000000000_01.avi",
                    "tempfilename": "C:\\Users\\EMartin\\AppData\\Local\\Temp\\V~44129925900102"
                }, {
                    "sourcefilename": "\\TECNOVOZ\\ACD\\Video\\20191217\\01_0139_20191217_112854_0000000000_02.avi",
                    "tempfilename": "C:\\Users\\EMartin\\AppData\\Local\\Temp\\V~44129925900104"
                }, {
                    "sourcefilename": "\\TECNOVOZ\\ACD\\Video\\20191217\\01_0139_20191217_112854_0000000000_06.avi",
                    "tempfilename": "C:\\Users\\EMartin\\AppData\\Local\\Temp\\V~44129925900112"
                }
            ]
        }
    }
}

[context] property not found in {"startoffsetinsecs":0,"durationinsecs":275.333,"tempfilename":"C:\\Users\\EMartin\\AppData\\Local\\Temp\\V~44129925900101"}

var
  lKey: TBytes;
  lIV: TAESBlock;
  lText, lTextEncrypted, lIVText: RawByteString;
  lAESCBC: TAESCBC;
begin
  ...
      // edtKey.Text is KEY
      // edtSource.Text is TEXT TO ENCRYPT
      SetLength(lKey, Length(edtKey.Text));
      SynCommons.HexToBin(Pointer(edtKey.Text), @lKey, Min(Length(edtKey.Text),SizeOf(lKey)));
      RawByteStringToBytes(RawByteString(edtKey.Text), lKey);
      lAESCBC := TAESCBC.Create(lKey, CRYPT_KEY_SIZES[2]{=256});
      try
        lText := StringToUTF8(edtSource.Text);
        TAESPRNG.Main.FillRandom(lIV);
        lAESCBC.IV := lIV;
        lTextEncrypted := SynCommons.BinToBase64(lAESCBC.EncryptPKCS7(lText));
        lIVText := SynCommons.BinToBase64(@lAESCBC.IV, SizeOf(lAESCBC.IV));
        edtDest.Text := UTF8ToString(lTextEncrypted)+'.'+lIVText;
      finally
        lAESCBC.Free;
      end;
  ...
end;

Compile Project, Target: D:\fpcupdeluxe\projects\project1.exe: Exit code 1, Errors: 1, Warnings: 5, Hints: 9
SynLZ.pas(652,18) Hint: Local variable "offset" does not seem to be initialized
SynLZ.pas(660,21) Warning: Local variable "cache" does not seem to be initialized
SynLZ.pas(723,7) Hint: Conversion between ordinals and pointers is not portable
SynLZ.pas(723,19) Hint: Conversion between ordinals and pointers is not portable
SynLZ.pas(724,10) Hint: Conversion between ordinals and pointers is not portable
SynLZ.pas(726,13) Hint: Conversion between ordinals and pointers is not portable
SynLZ.pas(728,9) Hint: Conversion between ordinals and pointers is not portable
SynLZ.pas(1196,51) Hint: Local variable "offset" does not seem to be initialized
SynLZ.pas(1286,69) Hint: Local variable "offset" does not seem to be initialized
SynLZ.pas(1325,18) Hint: Local variable "offset" does not seem to be initialized
SynLZ.pas(1333,21) Warning: Local variable "cache" does not seem to be initialized
SynCommons.pas(6661,23) Warning: Some fields coming after "" were not initialized
SynCommons.pas(13390,42) Warning: Some fields coming after "VType" were not initialized
SynCommons.pas(15038,56) Warning: Some fields coming after "VOptions" were not initialized
SynFPCTypInfo.pas(99,3) Fatal: Syntax error, "BEGIN" expected but "[" found

...
implementation

procedure FPCDynArrayClear(var a: Pointer; typeInfo: Pointer);
  [external name 'FPC_DYNARRAY_CLEAR'];
procedure FPCFinalizeArray(p: Pointer; typeInfo: Pointer; elemCount: PtrUInt);
  [external name 'FPC_FINALIZE_ARRAY'];
procedure FPCFinalize(Data: Pointer; TypeInfo: Pointer);
  [external name 'FPC_FINALIZE'];
procedure FPCRecordCopy(const Source; var Dest; TypeInfo: pointer);
  [external name 'FPC_COPY'];
procedure FPCRecordAddRef(var Data; TypeInfo : pointer);
  [external name 'FPC_ADDREF'];
...

function TSQLDBConnectionPropertiesThreadSafe.CurrentThreadConnectionIndex: Integer;
var id: TThreadID;
    tix: Int64;
    conn: TSQLDBConnectionThreadSafe;
begin // caller made EnterCriticalSection(fConnectionCS)
  if self<>nil then begin
    ...
    result := 0;
--    while result<fConnectionPool.Count-1 do begin
++    while result<fConnectionPool.Count do begin
      conn := TSQLDBConnectionThreadSafe(fConnectionPool.List[result]);
      if conn.IsOutdated(tix) then // to guarantee reconnection
        fConnectionPool.Delete(result) else begin
        if conn.fThreadID=id then begin
          fLatestConnectionRetrievedInPool := result;
          exit;
        end;
        inc(result);
      end;
    end;
  end;
  result := -1;
end;