mORMot Open Source

https://blog.synopse.info/?post/2014/08 … they-scale : Here, AB mentioned:

At the same time, in this post, mpv also mentioned:

I am quite curious about the above perspective, how is it implemented? Could you provide some example code?

We have several entries in mormot.net.client.pas to initiate an HTTP GET Request, but their default RedirectMax is a bit confusing:

1. IHttpClient/TSimpleHttpClient: 4 times, can be changed before calling Request
2. TWinINet.Get(): automatic, unknown max times value
3. TWinHttp.Get(): 0 times
4. OpenHttpGet() function: 5 times
5. HttpGet() function: 0 times if use winhttp or 5 times as same as OpenHttpGet
6. THttpClientSocketWGet.WGet/WGet() function: 0 times default, can be changed when called

It might be more friendly if we could unify the default values of RedirectMax for different objects or functions written in different periods. 

You summed it up so right. So, mORMot is awesome!

Yes, Win64 as target, using FPC trunk compiler.

Here is the result running in the same host but in Windows WSL ( Ubuntu ):
https://gist.githubusercontent.com/syno … tfile1.txt

What about QuickLib? https://github.com/exilon/QuickLib

Areas of functionality:

Mapping: Map fields from a class to other class, copy objects, etc..
Config: Use your config as an object and load/save from/to file (Json/Yaml) or Windows Registry.
Serialization: Serialize objects to/from json/Yaml.
Scheduling: Schedule tasks launching as independent threads with retry policies.
Threading: Simplify run and control of multithread background tasks, Thread-safe Lists, queues, etc
Data: Flexible data interchange and storage, allowing several input-output types.
Cloud: Simplify cloud Azure/Amazon file management, send emails and more.
Querying: Indexed Lists, Searchable Lists and Linq query system for generic lists and arrays.
Benchmark: Time elapsed control and benchmark functions.
Filesystem: Process and Services control, file modify monitors and helpers, etc...
FailControl: Fail and Retry policies.
Caching:: Cache string or objects to retrieve fast later.
Templating: Simple string templating with dictionaries.
Debuging: Utils to debug your code.
Parameters: Work with commandline parameters.

So, BIG is not the problem forever .

New bug:

When creating a thread pool and passing a larger thread value in IOCP mode, TSynThreadPool.Free will enter an infinite loop and block the process.         

Here is the demo: https://gist.github.com/zen010101/def68 … 0b028d70d2

New bug:

When TSynThreadPool is destroyed in the middle of executing the tasks, the TaskAbort is not called, but in Linux, all works well.

see this, compile it for windows and linux to see the differences: https://gist.github.com/zen010101/def68 … 0b028d70d2

The possible issue might be here:

destructor TSynThreadPool.Destroy;
var
  i: PtrInt;
  endtix: Int64;
begin
  fTerminated := true; // fWorkThread[].Execute will check this flag
  try                      
    {$ifdef USE_WINIOCP}
    // notify the threads we are shutting down
    for i := 0 to fWorkThreadCount - 1 do
      IocpPostQueuedStatus(fRequestQueue, 0, nil, {ctxt=}nil);
      // TaskAbort() is done in Execute when fTerminated = true
    {$else} 

When WINIOCP is not used, I can determine whether all Tasks have been executed by judging whether PendingContextCount is 0.

Very much looking forward to this feature coming online .

I tried the latest trunk, the winhttp.dll exception remains.

Here is the call stack:

I noticed that the code below is not being executed at all:

  if SChannelEnableTls13 and // should be explicitly enabled
     ((OSVersion in [wEleven, wEleven_64]) or
      (OSVersion >= wServer2022_64)) then

Windows 11 23H2 22631.4169 and Windows Server 2016. Both not work.

In linux, `/etc/ssl/certs` stores trusted certificates, including CA's. But in Windows, I don't know how to make openssl work to verify the tls cert. Therefore, it is recommended to use SChannel as the TLS layer in Windows, and OpenSSL is preferred in Linux.

I have some inquiries regarding this previous thread:

Does a TSynBackgroundTimer utilize a thread to sequentially execute aOnProcess: TOnSynBackgroundTimerProcess?

How can I employ separate threads to execute multiple tasks concurrently in the background? Is it possible to use multiple TSynBackgroundTimer instances for this purpose? 

Would you please provide me with more examples?