Zeoslib Portal

This code shows every entry of Firebird status vector in my app function GetIBSpecificData(E: Exception): TZIBSpecificData; begin if E is EZDatabaseError then Result := (E as EZDatabaseError).SpecificData as TZIBSpecificData else if E is EZIBSQLException then Result := (E as EZIBSQLException).Specif...

Serializing enums only requires a bit of code: With "array[TFontStyle] of string " you can replace multiple if's by loop; next step would be GetEnumName/GetEnumValue Regarding the options: yep they're quite cumbersome. But wide range of supported engines and options requires flexibility t...

Well, while idea of params keeping their values on SQL change still seems dangerous to me, I think compatibility is at the 1st place. IBExpress and FireDAC seem copying values so be it

Btw, there is abstract TZExceptionSpecificData class and property EZSQLThrowable.SpecificData: TZExceptionSpecificData for DBC-specific data if Errorcode or SQLcode is not enough. Currently implemented for Firebird only AFAIK but could be extended for other drivers as well

Additionally you can use: - port mapping. Setup a software on a host that is reachable from client side and could reach DB server to listen on some port and redirect traffic to a port where DB server lives. Then from client just talk to that host client => portmapper_host => DB server - local proxy ...

General note: storing timestamps with offsets is just like storing strings in different codepages. It's even worse because offsets change. You pre-calculate current offset and a second later winter=>summer time happens. Or offset changes. How about calculating correct offset for a time in the past i...

Don't you guys forget that changing components in Lazarus involves rebuilding of the whole IDE? Of course it has its own build options which could use quick compile instead of full rebuild. That's why changed code isn't used in resulting binary

From my FB utils: const IBTimeScaleStart: array[1..3] of Word = (17, 11, 1858); // November 17, 1858 IBTimeScale_TDateTime_Delta = 15018; // [days] TDateTime(0) - IBTimeScaleStart TIME_MSEC_PRECISION = TIME_SECONDS_PRECISION div MSecsPerSec; // timestamp_time is in msec/10 units implementation funct...

aehimself wrote: ↑23.11.2020, 16:06 P.s.: Where have you been?! Didn't see you here for ages now!

For some time I only been at Praxis and then got ill and isolated for 2w for wearing a Corona :/

I don't know how it is being handled, but if a new handle is opened each time a connection is opened but not closed afterwards, your application will crash due to handle / memory outage if it is connecting / disconnecting rapidly. No matter how many times LoadLibrary is called, Windows only loads s...

My guess (haven't worked with Pg): is Pg XML type really supported? It looks like a custom one. Probably it needs special handling

GTC64 is for storing big numbers, it has the same precision as GTC32

All in all, what we have: - Descriptions in sources what we want: - Descriptions in IDE code editor (when sources are accessible). - Descriptions in IDE visual editors (which are called from BPL => compiled package => no source available but only runtime variables) I know no option that could help w...

EgonHugeist wrote: ↑11.07.2020, 07:13 TZTransaction added on 7.3-testing.
TZDataSet has UpdateTransaction property now.
TZReadOnlyDataSet and descendants have a Transaction property now

Fantastic!! Great work!!

The main purpose of it was to get rid of the continuous, expensive .FieldByName lookups as the application runs. Regardless of an application it's a usual pattern of pre-caching a result of a slow function. Luckily TDataset easily allows it f := DS.FieldByName('foo'); for i := 0 to 100000 do begin ...