Posts by mrauter

mrauter · mORMot 1

Are those Mormot 2 exclusive conditionals?

I am using mormot 1.1 and could not find any source file that use them, or mormot.net.client.

mrauter · mORMot 1

Hi everyone,

I am connecting to a https endpoint using TWinHttp, but there is a ploblem in SSL handshake on an windows server 2012 system, which I believe is related to winhttp.dll available ciphers.

How can I connect to a HTTPS endpoint using OpenSSL and Mormot?

I was able to complete the request using Indy with OpenSSL, but I believe mormot to be more robust and most of my implementation is already using mormot.

mrauter · mORMot 1

Hello,

I want to fetch all the results from the database to a TDocVariantData, right now I am using the following code:

procedure Test;
var
FRows: Variant;
begin
Props:= TOleDBMSSQL2012ConnectionProperties.Create(Server, DBName, user, pass);
FRows:= _Json(Props.Execute('select * from MFOR', []).FetchAllAsJSON(true));
[Code...]
end;

Is there a way to directly fetch the results to an TDocVariantData? Like "Props.Execute('select * from MFOR', []).FetchAllAsDocVariant";

And I wanted to thank you for your amazing work with mORMot, it's setting a higher standard for Delphi programming.

mrauter · mORMot 1

Hello,

First of all, thanks for the amazing work. The Mormot Framework is amazing and it is looking perfect for my needs.

I am trying to map an TSQLRecord inhereted class to an external MS Sql table, but I just can't make it work.

  aProps := TOleDBMSSQLConnectionProperties.Create('192.168.2.30','homologacao319','studio_fiscal','sf@2012!@#$');
  try
    aModel := TSQLModel.Create([TJob],SERVER_ROOT);

    VirtualTableExternalMap(aModel, TJob, aProps, 'dbo.PROJECT_QBERT_JOBS').
      MapField('ID', 'Job').
      MapField('Cliente', 'codigo_cliente').
      MapField('Franqueado', 'CODIGO_FRANQUEADO').
      MapField('Produto', 'CODIGO_PRODUTO').
      MapField('DataCadastro', 'DATA_CADASTRO');

    try
      aRestServer := TSQLRestServerDB.Create(aModel,'application.db',false); // authentication=false
      try
        Job:= TJOB.CreateAndFillPrepare(aRestServer, '');

  TJob = class(TSQLRecord) // TSQLRecord has already ID: integer primary key
  private
    fJob: Integer;
    fCliente: Integer;
    fFranqueado: Integer;
    fProduto: Integer;
    fDataCadastro: TDateTime;
  published
    /// ORM will create a NAME VARCHAR(80) column
    property Job: Integer read fJob write fJob;
    property Cliente: Integer read fCliente write fCliente;
    property Franqueado: Integer read fFranqueado write fFranqueado;
    property Produto: Integer read fProduto write fProduto;
    property DataCadastro: TDateTime read fDataCadastro write fDataCadastro;
  end;

At this line" Job:= TJOB.CreateAndFillPrepare(aRestServer, ''); " the following exception occurs:
First chance exception at $749CA6F2. Exception class ESQLite3Exception with message 'Error SQLITE_ERROR (1) [SELECT RowID,Job,Cliente,Franqueado,Produto,DataCadastro FROM Job] using 3.15.1 - no such table: Job, extended_errcode=1'. Process MoemorTest.exe (16808)

The correct sql syntax should be 'SELECT Job,codigo_cliente,CODIGO_FRANQUEADO,CODIGO_PRODUTO,DATA_CADASTRO FROM PROJECT_QBERT_JOBS'.

I've read good chunks of the documentation (which is very good btw) to no avail, I am probably missing something. What is it?

mORMot Open Source

#1 Re: mORMot 1 » How to use OpenSSL for https requests? » 2023-06-09 19:46:02

#2 mORMot 1 » How to use OpenSSL for https requests? » 2023-06-09 14:32:46

#3 mORMot 1 » Converting ISQLDBRows to TDocVariantData » 2020-04-07 17:19:30

#4 mORMot 1 » Mapping TSqlRecord to existing MS Sql table not working? » 2016-11-18 11:49:24

Board footer