Virgo

You do not need event that. The code is completely obvious even without knowing curl. http request is sent with three additional headers set: accept, content-type and Authorization. And json is the request body. without seeing problem Delphi code, it is hard to know, what is done wrong in Delphi.

I need to remember this. We ever needed to only read from excel and whole sheet at the time. So we created extra 64 bit executable, that communicates with main executable via named pipe and reads sheet to json and sends it back. Where it is loaded to in-memory dataset. It is used as a fallback, when just reading table with ADO fails with 'Provider cannot be found' error. And when that also fails, then and error is shown.

No.... If constructor fails, then Free is never called.... Create is not inside try except block...

Then what is the question? In your original sample neither version leaks memory, because except block eats exception and free is called anyway. if you put exit somewhere before IdHTTP.Free, then both versions initially leak memory, but in .Create(Form1) version it will be finally freed, when form is freed. But it is still type of memory leak, because every time code is executed it creates new object, but it is only freed, when form is freed. So memory usage will continue go up on every execution of GetUpDate until Form1 is freed.

Did you actually test with identical except block? Because without try finally IdHTTP is not freed, if function is exited before free line. That is why using try finally is strongly recommended.

sftp means usually ssh builtin file transsefer server. Ftp over TLS/SSL is ftps. I actually had not heard about simple ftp.

It's not, that I made sense of it... I just did not notice any other strings mentioning progress... Although I missed that Form7 part....

There does not appear to be anything about progressbar in all this code... Unless ProgressRunning and StopProgress variables have something to do with it.

What version of Windows? Windows 10 OpenSSH server has sftp server.

Expect.... That requires BDE for some Paradox features anyway. From what I recall Paradox version 7 tables were one of those things.

This is the message Windows 10 shows, when launching dbd32.exe of Database Desktop. Even for Delphi 5 version of Database Desktop. I have no idea, why it is about Delphi 7. But in the end Database Desktop will close without showing main window.

No, I meant: When clicking "Run the program..." nothing happens. Those directory messages are nothing Windows 10 specific and those where set long time ago, when it still Worked on Windows 10. Just for testing I removed that configuration from registry. Then it shows the splash, shows those messages about using temporary directory and then closes.

Not that I know of. It was one of big updates, that broke it. For our internal use we made our own replacement with functionality, that we required...

Absolutely. What I meant was, that BDE version should be able to work while FireDAC version is written. We have not even set configuration file location to user writable location, because all required changes to BDE configuration is done via elevated BDE configuration utility.

Since that rewriting is going to take some time, what are actual issues? What does having trouble mean? BDE using program written in Delphi 5 works on Windows 10 and Windows 11. Only actual issue is, that sometimes SHAREDMEMLOCATION needs to be changed in BDE configuration after computer restart. Otherwise it works sames as Windows 7.

Particular hash is bcrypt. https://github.com/JackTrapper/bcrypt-for-delphi supports it. But it is not universal, because it does not support other algorithms supported by password_hash.

You could also check server version on connect and execute SET BIND OF TIMESTAMP WITH TIME ZONE TO LEGACY; SET BIND OF TIME WITH TIME ZONE TO LEGACY; SET BIND OF DECFLOAT TO LEGACY; SET BIND OF NUMERIC(38) TO LEGACY; That way program works with FirebirdSQL 4.0 without changing server config. Of cause you must not use new unsupported data types in that database. But that solves problems with automatic type conversions and use of new types in system tables.

That is really old version. And that is old deprecated version of TLS. Anything before TLS 1.2 is deprecated.

FPC does things like that with include files, if different platforms have sufficiently different implementations.

Except in case of most newer PC's, that do not have separate TPM chip and instead implement TPM in firmware. And where firmware update may reset TPM.

What happens, when this Add is called with nil as CalcRes? Typically in C style API's function then assigns required string length without copying string. So that caller would know, how much memory to allocate. Never mind. I did not read correctly original code, this is already handled. But what are requirements on function result? Also possible issues with ending #0 - is it required in CalcRes?

Also, I hope you do not have NULL values in DEBIT and CREDIT fields at CUSTMOVEMENTS table.

Try: SELECT X.*, Case When CAST(X.BALANCE AS NUMERIC(15, 2) > 0 then 'Debit' else 'Credit' as STATE FROM ( SELECT C.CUSTNO, C.CUSTNAME, SUM (CM.DEBIT-CM.CREDIT)BALANCE FROM CUSTMOVEMENTS CM /* it is a View */ LEFT JOIN CUSTOMER C ON CM.CUSTNO=C.CUSTNO WHERE CM.TDATE <= '03/30/2021' GROUP BY C.CUSTNO, C.CUSTNAME HAVING SUM (CM.DEBIT-CM.CREDIT) <> 0 ) X

Warning: [ 41] Failed to resolve symbol to module: [0005:00000008] SysInit.TlsLast But otherwise ok. But Delphi 5 is weird and probably hopeless... Start Length Name Class 0001:00000000 00002B14H .text CODE 0002:00000000 000000BCH .data DATA 0002:000000BC 000004D1H .bss BSS

Now, that I'm checking: is 0 length .xdata ovelapping .tls? Start Length Name Class 0001:00401000 00003B90H .text CODE 0002:00405000 00000100H .itext ICODE 0003:00406000 000007BCH .data DATA 0004:00407000 00002B74H .bss BSS 0005:00000000 00000008H .tls TLS 000A:00000000 00000000H .xdata PDATA Detailed map of segments 0001:00000000 000036F4 C=CODE S=.text G=(none) M=System ACBP=A9 0001:000036F4 00000110 C=CODE S=.text G=(none) M=SysInit ACBP=A9 0001:00003804 0000038C C=CODE S=.text G=(none) M=test ACBP=A9 0002:00000000 000000AC C=ICODE S=.itext G=(none) M=System ACBP=A9 0002:000000AC 00000054 C=ICODE S=.itext G=(none) M=test ACBP=A9 0003:00000000 00000794 C=DATA S=.data G=DGROUP M=System ACBP=A9 0003:00000794 00000024 C=DATA S=.data G=DGROUP M=SysInit ACBP=A9 0004:00000000 00002B68 C=BSS S=.bss G=DGROUP M=System ACBP=A9 0004:00002B68 0000000C C=BSS S=.bss G=DGROUP M=SysInit ACBP=A9 0005:00000000 00000008 C=TLS S=.tls G=(none) M=System ACBP=A9