Angus Robertson

After doing a couple of tests, it seems the SO_BSP_STATE API returns the local address allocated to the socket, usually 0.0.0.0, rather than the address chosen by Windows. We do get the random local port, so that could be used with the IpHlpConnsTable function to get a list of all connections on the PC, and search for the remote IP and local port, to find the local IP, major overhead to get a few bytes. Angus

I'm sure you are correct, but a few spare bytes in a buffer might provide future proofing. I'm surprised Socket_Address has not been used for other APIs, Microsoft has so many of these similar but not quite the same structures. Fortunately, ICS has a simple function to convert PSockAddrIn6 into a string. Angus

I've just got this working with new types Socket_Address = record { V9.5 used to store an IPv4 or IPv6 address } Sockaddr: PSockAddrIn6; SockaddrLength: Integer; end; TSocketAddress = Socket_Address; CSADDR_INFO = record { V9.5 used to connection IP information } LocalAddr: TSocketAddress; { family, address and port } RemoteAddr: TSocketAddress; iSocketType: Integer; { SOCK_STREAM or SOCK_DGRAM } iProtocol: Integer; { IPPROTO_TCP or IPPROTO_UDP } Buffer: array[0..64] of Byte; { space for PSockAddrIn6 records } end; TCSAddrInfo = CSADDR_INFO; Need to ensure it handles all ways of connecting, and update a sample to show the result, hopefully later today. Angus

Sorry, no time to debug this at the moment. Angus

You should wait until the socket is connected before trying to get socket connected information, use the OnSessionConnected event. Angus

Generally, you set the LocalAddr, LocalAddr6 and SocketFamily to specify which of multiple IP addresses is to be used. Currently, TWSocket does not have any properties to show which IP address Windows choose for an outbound connection only for incoming listen connections. Windows Vista added a getsockopt of SO_BSP_STATE that should return the local and remote addresses and ports for a connection, but it is not used by ICS, you try it with the TSocket handle. I'll put it on my long term wish list, but we seem to have managed for a long time without knowing the real local address. Angus

Set the component ResponseNoException property to true, and the exceptions are replaced by messages. This is a historical thing to not break old applications, but should probably default to true now. Angus

OpenSSL has released a new feature version 3.5.0 (no security fixes). It includes support for new Post Quantum Cryptography (PQC) algorithms (ML-KEM, ML-DSA and SLH-DSA) and for server side QUIC (RFC 9000). ICS has no plans for QUIC support, not yet investigated PQC, don't believe any low level changes are needed, maybe changes to the cipher lists. There are other TLS/SSL changes due for IVS V9.5, so will investigate shortly. This is a long term support release with fixes and security updates for five years, until April 2030. Windows binaries are available in SVN and the overnight zip file and separately from https://wiki.overbyte.eu/wiki/index.php/ICS_Download or https://www.magsys.co.uk/delphi/magics.asp In addition to the three DLL files, the zips include compiled RES resource files that contain the same DLLs, text files and version information, see the RC file. The RES file may be linked into application EXE files and code then used to extract the DLLs from the resource to a temporary directory to avoid distributing them separately. ICS V9.1 and later optionally support loading the resource file. These OpenSSL versions are included with ICS V9.5 beta available from SVN and the overnight zip. ICS V9.5 beta now defaults to using OpenSSL 3.5.0, provided the new OverbyteIcsDefs.inc files is installed, or you undefine OpenSSL_35 and suppress an earlier version. . Angus

V8.70 was three years ago, so the included in the samples directory will be aging, some will have expired and new ones added since. With that release you had to specify the root bundle to load, while with V9.1 and later the root bundle is loaded automatically when an SSL application starts, so you can mostly ignore them. If you are stuck on an old version, you can download the latest root bundles from https://www.magsys.co.uk/delphi/magics.asp Angus

There is an ICS component TMsCertTools that can be used to create self signed cerrtificates, or create certificates signed by a CA root certificate, or read any certificate, and it has methods LoadOneFromStore and SaveToStorePfx that read and write to the Windows Certificate Store, optionally with private keys and intermediates. Look at PemTools sample which uses it extensively. So you can create your own CreateSelfSignCertEx using TMsCertTools instead of TSslCertTools that will install into the Windows Certificate Store. By certificate fingerprint, you probably mean the Sha1Hex or Sha256Hex of the DER X509 content, and those are methods for TX509Baae/etc. However, ICS does not currently have any means to access IIS Site Bindings to associate certificates with IP addresses and ports. I believe there are COM object methods that handle that, but not Windows APIs. I do it manually every two months for my new Let's Encrypt certificates. For your client certificates, you should create your own CA root certificate using PemTool (tick Root Certificate Authority), similar to the ICS CA root, and maybe intermediate CA as well (as ICS does) since Windows does not always like end user certificates directly signed by a root, then CreateSelfSignCertEx will create your client certificates. Beware browsers nowadays don't usually use the Windows Store, and will sometimes also complain about manually added CA certificates, since these are commonly used by AV companies (and hackers) to intercept SSL communications, Edge currently complains about the ICS root CA, unless I've missed something. Angus

Sorry, my fault, I updated the Types unit before the new X509Certs unit was ready, I'll revert it in SVN. Meanwhile, just find the old V9.4 Types unit. Angus

Thanks, you are outside my experience with databases of those sizes, it might be worth trying backup from SSMS once to see if it's doing something magical to get better speeds, but I suspect it's just running those same commands. My backups used to be slower, until I went for SSDs everywhere with 32G of memory, but not highly loaded. Angus

Sounds like you are doing it correctly already! FORMAT means write a new file, otherwise it will add backups to an existing file. But I've not used these commands. How long is your backup taking for what size file? Angus

Backup and restore can be scripted, ie USE SQLTestDB; GO BACKUP DATABASE SQLTestDB TO DISK = 'c:\tmp\SQLTestDB.bak' WITH FORMAT, MEDIANAME = 'SQLServerBackups', NAME = 'Full Backup of SQLTestDB'; GO but admit I've never tried to automate it in over 10 years, not sure if ADO supports the GO command. All my Delphi applications interact with SQL using stored procedures to separate the two languages and all easier SQL testing. Angus

Everything in SQL Server depends on the database size, and disk speed. I distribute a database to multiple web servers weekly, using SSMS backup (about 30 secs), then restore on the web servers, about 15 seconds, for a 700MB DB, a 3GB DB takes a few seconds longer, I know these are not really that large.... Then a minute to update the credentials. Angus

Again, look at numerous samples and components that verify certificates in different ways, OpenSSL actually does it for you, provided a root bundle is loaded, which is automatic with recent ICS versions. You should be using the TSslHttpRest which means this is all automatic, see the OverbyteIcsHttpRestTst sample. Angus

All the HTTPS samples show the certificate for the connection, try one of them and see what you get? PeerCerrt will be blank unless you also set SslVerifyPeer true in the context. No idea what "C.FD.TLS-S" means, TX509 has lots of properties for the numerous parts of the certificate, none of which are base64, you'll have to search. Angus

PeerCert is a parameter passed in the onSslHandshakeDone event, as illustrated in dozens of samples and components, such as OverbyteIcsHttpsTst1.pas. Angus

Thanks, a registry patch fixed it, added to my long list of other patches and tools used to make Windows behave as I'm used to. I normally use Ultra Explorer, an old Delphi app from Mustangpeak that was open sourced, and built with D2007, keep meaning to update to modern compilers, but it uses dozens of components that need removing or replacing. Angus

My major annoyance with Windows 11 is they keep changing File Explorer, rarely for the better. Specifically there is a new right click menu with the default options, but you have to click again on Show More Options to see the historic menu we've had for 25 years with addon like TortoiseGit, TortoiseSVN, 7Zip, etc. Somehow WinRAR seems to be on both menus, so maybe there is a new API other developers have not found yet to get onto the first right click menu. Angus

A new TOAuthOption type of OAopAuthNoCliSecret should fix it. Angus

If you can privately email the 'public' ClientId for next week, that will save a lot of time setting up Azure, which is always a nightmare. Angus

So effectively supporting a public ClientId requires the ClientSecret to be specified before GetToken, GrantAuthToken, etc? Have you tried changing ClientSecret immediately before these methods? I'm not doing any development for a few days, busy with something else. Angus

Sorry, no quick answer, a public client seems the opposite of the OAuth2 concepts. My Azure credentials are currently expired or dead, so no recent testing, but I'll look into this next week. Angus

The web server component has several events for the processing of requests, the exception will be in one of those events. Angus