Virgo

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

Is map file format different in older delphi versions? With Delphi 5 and Delphi XP map files it always fails with "Overlapping segments".

If application needs to be run at computer startup and even when user is not logged in, then I would suggest creating Windows service.

The reason I asked about how the program is started, that when it is started with Task Scheduler (sometimes programs use Task Scheduler to start program at user login) then there is check mark at trigger properties "Stop task if it runs longer than:" which defaults to 3 days. Maybe it is accidentally checked (it is not checked by default).

How is the program started originally?

Right. And fpc allows in objfpc mode multiple constructors without overload, which explains why TFileStream in fpc has two constructors (2 parameters and 3 parameters), but does not allow creating TFileStream with THandleStream constructor.