mORMot Open Source

Hi,

I'm sorry, I get wrong direction.

Reserved URL            : http://+:888/root/
        User: \Everyone
            Listen: Yes
            Delegate: Yes
            SDDL: D:(A;;GA;;;WD)

I need to delete url = http... not https. I don't know how windows add that URI.
After delete it and add url = https .... finally it done.

I follow this thread step with a few modification.

Thank you.

I use manual IV based on PHP script and success.
Here is code for manual IV :

procedure TForm1.Button5Click(Sender: TObject);
var
  aes: TAESCBC;
  Key: TSHA256Digest;
  s  : RawBytestring;
  iv : array[0..15] of AnsiChar;
begin
  SynCommons.HexToBin(Pointer(SHA256(my_key)),@key,32);
  SynCommons.HexToBin(Pointer(SHA256(my_key)),@iv,16);
  aes := TAESCBC.Create(Key,256);
  aes.IV := TAESBlock(iv);
  try
    s := StringToUTF8(EdEncrypt.Text);
    s := aes.DecryptPKCS7(Base64ToBin(s));
    EdToEncrypt.Text := UTF8ToString(s);
  finally
    aes.Free;
  end;
end;

Mormot AES encrypt and PHP decrypt

I used this code :
  SynCommons.HexToBin(Pointer(SHA256(my_key)),@key,32);
  aes := TAESCBC.Create(Key,256);
  try
    s := StringToUTF8(EdToEncrypt.Text);
    s := BinToBase64(aes.EncryptPKCS7(s,true));
    EdEncrypt.Text := UTF8ToString(s);
  finally
    aes.Free;
  end;

And for php :

$encrypt_method = 'AES-256-CBC';

    // hash
    $key_hash = hex2bin(hash('sha256', $key));

    // iv - encrypt method AES-256-CBC expects 16 bytes - else you will get a warning
    $iv = substr(hex2bin(hash('sha256', $key)), 0, 16);

    $output = openssl_decrypt(base64_decode($string), $encrypt_method, $key_hash, OPENSSL_RAW_DATA, $iv);

    return $output;

Why php can not decrypt properly ?

Text : Hello world
key : testkey
encrypt : UfSnUFH0p1BR9KdQUfSnUOrKd0falUmp/hI8tik+UjU=

Php decrypt : i~UIJ8nkHello world

Please help.....

Hi AB,

  vJSONContent := '{"Customer_No":1,"Name":"Cahaya Harapan"}';
  v := _Json(vJsonContent);

how to convert DocVariantDataSafe(v)^.Values to array of const ? In this case [1,'Cahaya Harapan']

Thanks a lot

Hi AB,

I still got an error,

20150720 08001859  B EXC   ESQLite3Exception {"ErrorCode":1,"SQLite3ErrorCode":2,"Message":"Error SQ
LITE_ERROR (1) using 3.8.10.2 - 'no such table: Countries' extended_errcode=1"} at 00498E1A  stack t
race 400030FC 40003473 400074C7 40007236 0049A4A4 00452895 0045B5CB 00456699 0045677E 00470D4B 00424
85C 75851148 004243C3 004243F0 00424439 0042447A 4003C067 40006DC6 7585337A 77C492E2 77C492B5

How to set ID property ? My TSQLRecord is,

  TSQLCountries = class(TSQLRecord) // TSQLRecord has already ID: integer primary key
  private
    fCountryID : RawUTF8;
    fName : RawUTF8;
    fRegionID : integer;
  published
    /// ORM will create a NAME VARCHAR(80) column
    property Country_Id : RawUTF8 index 2 read fCountryID write fCountryID;
    property Country_Name : RawUTF8 index 40 read fName write fName;
    property Region_Id : integer read fRegionID write fRegionID;
  end;

My client code is,

  vClient := Nil;
  vCountries := TSQLCountries.Create;
  try
    vClient := TSQLHttpClient.Create(Edit1.Text,PORT_NAME,fData);
    try
      vCountries.IDValue := 1;
      vCountries.Country_Id := StringToUTF8('ID');
      vCountries.Country_Name := StringToUTF8('Indonesia');
      vCountries.Region_Id := 3;
      vClient.Add(vCountries,True,True);
      Showmessage('Succeeded.');
    finally
      vCountries.Free;
    end;
  finally
    vClient.Free;
  end;

ID property is readonly.

Thank you.

Hi AB,

Thank you for your fast respond. By the way, is it possible to use mormot RESTful without ID field ? Or any option for it ?
If I'm not wrong, mormot will generate error if, table inside database does not have ID field.

Thank you.

Thank you AB.

It becomes,

 ShowMessage(vArrOfConst[1].vVariant^);

It is a very useful feature for passing param Query.

AB,

After using your RTL properly, I got an amazing speed. FetchAllAsJson boost 3x faster. Impressing.
And now, SynDbOracle is faster than Zeos, for select stmt, around 14% faster.

Amazing !

Thank you AB,

By the way I tried to test your SynDBOracle compare to Zeos, the result zeos for many times is faster around 5%.
Your blog said http://blog.synopse.info/post/2011/07/0 … cle-access, Syndboracle 10x faster.

I used delphi 7 to test it. All inside the same coding for 33.402 rows.

FetchallAsJson also slow compare to todataset.

AB,

procedure TForm1.Button3Click(Sender: TObject);
var
  rows  : ISQLDBRows;
  vStr  : string;
  vStart,vEnd: dword;
begin
  try
    vStart := GetTickCount;
    rows := DB.Execute('select * from truck_trans;',[]);
    vStr := Utf8ToString(rows.FetchAllAsJSON(true));
    vEnd := GetTickCount - vStart;
    ShowMessage(IntToStr(vEnd));
  finally
    rows._Release;
    rows := nil;
    DB.Free;
  end;
end;

I work well after release ISQLDBRows and set it to nil;
By the way, I use the same code and measure performance executable between delphi 7 and lazarus 1.2.6, and I found lazarus code is faster around 4x. I use gettickcount to measure the timing.

Did you test it, for delphi 7 ? The same problem arise when you free TSQLDBOracleConnectionProperties;
The problem is OCI.StmtRelease. Any solution ?

Thank you.

Any futher action for this issue ? I got the same problem for lazarus 1.2.6

Thank you AB.

This code is good without error. I guess something wrong with OCI.Check line.
By the way, any problem with my oracle XE 32 bit inside 64 bit windows ? In my view, my oracle database is good, but I don't know whether any connection inside your code, related to memory.

  if fStatement<>nil then begin
    {
    if fUseServerSideStatementCache then
      OCI.Check(nil,self,OCI.StmtRelease(fStatement,fError,nil,0,RELEASE_MODE[AfterError]),fError) else
      OCI.HandleFree(fStatement,OCI_HTYPE_STMT);
    }
    OCI.HandleFree(fStatement,OCI_HTYPE_STMT);
    fStatement := nil;
  end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Props      : TSQLDBOracleConnectionProperties;
  rows       : ISQLDBRows;
begin
  Props := TSQLDBOracleConnectionProperties.Create('localhost','XE','scott','tiger');
  try
    rows := Props.Execute('select * from truck_trans',[]);
    rows.Step;
    Showmessage(utf8ToString(rows.ColumnUTF8(0)));
  finally
    //Props.Free;
  end;
end;

It is running well for oracle XE 11g, OS windows 7 64bit (apps compiled inside 32bit windows XP).
Props.Free will raise exception "access violation, ntdll.dll"

Thank you ab, it works. By the way, the testsql3 failed for a few module.

! Low level types - Encode decode JSON
! Exception EAccessViolation raised with messsage:
!  Access violation at address 005BD964 in module 'TestSQL3.exe'. Read of address 00000004

!  - Mustache renderer: 5 / 49 FAILED  10.66s

Do you have any idea why ?