mORMot Open Source

First chance exception at $779017D2. Exception class EInterfaceFactoryException with message
'TInterfacedObjectFakeClient.FakeCall(IRemoteSQL.Execute) failed: '{
"errorCode":500,
"error":
{"EFirebirdException":{
"ClassName":"EFirebirdException",
"Address":"004D25F7 ",
"Message": "Firebird Error 140000F9: Dynamic SQL Error. SQL error code = -502. Invalid cursor declaration. Statement already has a cursor SYNDB assigned. [ SQLCODE=-502 (The cursor identified in an OPEN statement is already open.) ]"
}}
}''.
Process ProComm.exe (8308)

unit U_SQL_Interface;

interface

uses
  SynCommons,
  mORMot;

type
  TRemoteSQLEngine = (rseOleDB, rseODBC, rseOracle, rseSQlite3, rseJet, rseFireBird, rseMSSQL);

  IRemoteSQL = interface(IInvokable)
    ['{7CEFA011-7EDD-44F0-9802-DC4F25365D71}']
    procedure Connect(aEngine: TRemoteSQLEngine; const aServerName, aDatabaseName,
      aUserID, aPassWord: RawUTF8);
    function GetTableNames: TRawUTF8DynArray;
    function Execute(const aSQL: RawUTF8; aExpectResults, aExpanded: Boolean): RawJSON;
  end;

const
  ROOT_NAME = 'rootServ01';
  PORT_NAME = '8085';

implementation

end.

procedure TServiceRemoteSQL.Connect(aEngine: TRemoteSQLEngine;
  const aServerName, aDatabaseName, aUserID, aPassWord: RawUTF8);
const // rseOleDB, rseODBC, rseOracle, rseSQlite3, rseJet, rseMSSQL
//(rseOleDB, rseODBC, rseOracle, rseSQlite3, rseJet, rseFireBird, rseMySQL, rsePostGreSQL, rseMSSQL);
  TYPES: array[TRemoteSQLEngine] of TSQLDBConnectionPropertiesClass = (
     TOleDBConnectionProperties, TODBCConnectionProperties,
     TSQLDBOracleConnectionProperties, TSQLDBSQLite3ConnectionProperties,
     {$ifdef WIN64}nil{$else}TOleDBJetConnectionProperties{$endif},
     TSQLDBFirebirdConnectionProperties,
     TOleDBMSSQL2008ConnectionProperties);
begin
  if fProps<>nil then
    raise Exception.Create('Connect called more than once');
  if TYPES[aEngine]=nil then
    raise Exception.CreateFmt('aEngine=%s is not supported',
      [GetEnumName(TypeInfo(TRemoteSQLEngine),ord(aEngine))^]);
  fProps := TYPES[aEngine].Create(aServerName,aDatabaseName,aUserID,aPassWord);
end;

  fSettings.fEngine := rseFireBird;
  fSettings.fServerName := StringToUTF8('localhost/3050:C:\Commerce\Database\Procomm.gdb');
  fSettings.fDatabaseName := '';
  fSettings.fUserID := StringToUTF8('sysdba');
  fSettings.fPassword := StringToUTF8('masterkey');
  with fSettings do
    fService.Connect(Engine,ServerName,DatabaseName,UserID,PassWord);

    fService.Execute('SELECT * FROM EMPRESAS',True,False);

procedure TFrm_Prot_Neo_01_Cli_Fire.TabLancamentosClick(Sender: TObject);
var
  ListItem: TListViewItem;
begin

  {$IFDEF MSWINDOWS}
  Lista_Cad_Neo := TSQLCad_Neo_01.CreateAndFillPrepare(Dm.BaseDados, ' ID > -1 ORDER BY ID ');
  Lista_Cad_Tipo_Cad := TSQLTipo_Cad.CreateAndFillPrepare(Dm.BaseDados, ' ID > -1 ORDER BY ID ');
  {$ENDIF}
  {$IFNDEF MSWINDOWS}
  Lista_Cad_Neo := TSQLCad_Neo_01.CreateAndFillPrepare(Dm.BaseDados, '', ' ID > -1 ORDER BY ID ', []);
  Lista_Cad_Tipo_Cad := TSQLTipo_Cad.CreateAndFillPrepare(Dm.BaseDados, '', ' ID > -1 ORDER BY ID ', []);
  {$ENDIF}

  ListLancamentos.Items.Clear;
  ListLancamentos.BeginUpdate;

  while Lista_Cad_Neo.FillOne do
  begin
     ListItem := ListLancamentos.Items.Add;
     ListItem.Text := IntToStr(Lista_Cad_Neo.ID) + ' - ' + UTF8ToString(Lista_Cad_Neo.Descricao) + ' - ' + DateToStr(Lista_Cad_Neo.Data_Cad);
  end;

end;