mORMot Open Source

I changed  in Synopse.inc

FROM:
  {$ifdef VER3_1} // trunk before 3.2
    {$define ISFPC27}
    {$define ISFPC30}
    {.$define HASDIRECTTYPEINFO}
    // define this for trunk revisions older than June 2016 - see
    // http://wiki.freepascal.org/User_Changes … mat_change
  {$endif}

TO:
  {$ifdef VER3_1} // trunk before 3.2
    {$define ISFPC27}
    {$define ISFPC30}
    {$define HASDIRECTTYPEINFO}
    // define this for trunk revisions older than June 2016 - see
    // http://wiki.freepascal.org/User_Changes … mat_change
  {$endif}

Did a rebuild but still a SIGSEV in SynCommos line 50573: fElemType:=PPointer(fElemType)^;

Has this been solved? I also get the same exception when running TestSQL3 in Lazarus 2.1.0 rev 62772 / FPC 3.3.1 in Win10.
If so, what is the solution for this issue?

Thanks.

Thank you for the information Ab.
Since the class is located in mORMotVCL does this mean that the class cannot be used in NewPascal?

@Ab, so if I understand this thread right then a possible way to work with datasets and ORM is with CreateAndFillPrepareJoined and TSynSQLTableDataSet?
I mean if I want to avoid working with SQL, this is the way to go?

I am running more or less to the same connection problem:

- on the same PC, client is able to connect to server
- with firewall on client cannot connect to server although the server has been added to the firewall rules.
   I have already run the server as administrator
- with firewall off client can connect to server

server code:     fHttpServerDefault := TSQLHttpServer.Create('8092', [fRestServerDefault], '+', HTTP_DEFAULT_MODE);

client code:     fRestClient := TSQLHttpClient.Create(fServerName, '8092', fModelDefault);  // fServername='192.168.1.xxx'

FYI, the sample Project04 works flawlessly.

Does someone have an idea what I am missing?

Thanks in advance.

Thank you very much for the help!!
That did the trick.

Nobody? Anybody?

okay. merci.

Merci, Arnaud.

So, now what I did is to add an extra routine (called Ping) to my interface. 
In my client, when a call to Ping fails, the client instance and the interface is freed so I can create again.

I have this situation where a client connects (sicClientDriven) to the server (to consume a interface based webservice) and possibly stays idle for a couple of hours resulting in a timeout at the server.

What is the best thing to do in this case?

I tried to free the client (TSQLHTTPClient) and create a new instance, but then I get an Acces Violation when I try to use the interface.

Just did some RTFM :-) and did the following:
Release the interface by setting it to nil and call client.ServiceRegister() again.

For testing purposes the TImeout is set to 1 sec. In the log I see 'client instance not found or deprecated' and now when the client needs data it starts a new connection to the server.
So far so good ...

Hi Delphinium,
I have removed the [] already and its compiling. Just thought that I mention it to Arnaud.

The same question has been on my mind, concerning access to a remote MySQL server using TSQLDBZeosConnectionProperties.

Update.

The initialization code in ZdbcMysql was not executed, so I added this unit in the uses clause of SyndbZEOS. Now the code is executed and causing
Getdriver(Url) to return a driver and the exception not being raised.

Question now is, in case of a Mormot using ZEOS to access a MySQL database, does it make sense to create the driver in TSQLDBZEOSConnectionProperties.URI(dMySQL, 'libmysql.dll')?

Hi EgonHugeist,

some answers to the questions:
1. using TSQLDBZEOSConnectionProperties from the Mormot framework I have not set the protocol name anywhere.

Then I made a new project using TZConnection component. The following properties of the component were set:
Hostname, database, librarylocation, user, password. I then tried to set connected to true and I got the error: Requested database driver was not found. Then the property
Protocol was set to Mysqld-5 and the connection succeeded.

So, now I need to find out why property protocol is not set or has a wrong value when using TSQLDBZEOSConnectionProperties to connect to the database.

I also get the ESynException, when running TestSQL3 with the latest sources (today downloaded) in Delphi XE. The SQLite3 engine used is 3.7.14.1

Okay.
I made sure all libmysql.dll are the same. Compile target and dll is the same.
I also made a console version of the Mormot server and I also get the same EZSQLException. I traced it into the following code:

constructor TSQLDBZEOSConnection.Create(aProperties: TSQLDBConnectionProperties);
begin
  inherited Create(aProperties);
  fDatabase := DriverManager.GetConnectionWithParams(
    (fProperties as TSQLDBZEOSConnectionProperties).fURL.URL,nil);
  fDatabase.SetAutoCommit(true);
  fDatabase.SetTransactionIsolation(tiNone);
end;

And the exception occurs at fDatabase := DriverManager.GetConnectionWithParams( ...) . Setting up a watch at fProperties (I assume fProperties is assigned the value of parameter aProperties)revealed that
LibLocation is assigned the right location of the libmysql.dll.

, I might as well ask it here. Maybe it will be of use for my fellow Mormots .
I have 2 versions, a windows service and a 'normal' executable. The normal executable can find
the libmysql.dll, but the windows service can't.

What I can remember if when the dlls are incompatible I get a different exception.

the dll is in the same directory as the Windows service executable.
I also tried with the dll in the system path. To no avail. Also tried changing the user of the service.

It looks to me that the problem is not so much the dll, but that the service cannot find the dll.