Jacek Laskowski

Yes, now logs working! I wait for freeze 😉

I don't make any logs either. I don't have a CodeSite installed, is it necessary?

Thanks @Dmitry Arefiev !

I use Firebird and I use domains in databases. 

CREATE TABLE RESOURCE
(
  IDRESOURCE                  D_PRIMARY_KEY,
  IDCUSTOMER                  D_FOREIGN_KEY NOT NULL,
  LASTUSED                    D_DATETIME,
  RESOURCEIDENTIFIER          D_VARCHAR120,
  FRIENDLYRESOURCENAME        D_VARCHAR250);

How to use Firedac to read the domain names used for the columns in the table?

I try use TFDMetaInfoQuery but without success (ExtendedMetadata enabled).

ps.   How to use TFDMetaInfoQuery.MetaInfoKind with value set to mkTableTypeFields? There is no description in the documentation and TFDMetaInfoQuery does not return anything.

Yes, despite the exclusion of the pointed modules, I have the IDE suspension

But it is worth adding that I have a suspension after I modify the interface method and then I try to edit (ctrl+E) the method in the class that corresponds to the modified interface method.

This is probably the only (certainly the main >90%) case of suspension.

Yuuppii! 🙂

I will try this workaround and test behaviour, thanks for effort and for support MMX!

From the more complicated code I use Spring4D, FireDAC and mORMot, did you check them?

@Uwe Raabe

Some time ago I discovered that GExperts in "Uses Clause Manager" module has a parser that works in the background and creates files from the cache on the disk. Previously I suspected that MMX suspensions occur when accessing source files, so I thought GExperts might interfere with MMX somehow. I completely disabled "Uses Clause Manager" and since then the number of IDE suspensions when using MMX has dropped dramatically. It still happens, but this is maybe 10% of the previous state.

I hope this helps a little bit.

I think you mean this piece of code (from the SelectEligibleConstructor method):

    end).TakeWhile(
    function(const injection: IInjection): Boolean
    begin
      if maxCount = -1 then
        maxCount := injection.DependencyCount;
      if targetType = nil then
        targetType := injection.Target.Parent;
      Result := (injection.DependencyCount = maxCount)
        and (targetType = injection.Target.Parent);
    end).Where(...

But how (at this point) to get to the list of arguments and their types to choose the right constructor?

What is ConstructorSelector?
I didn't find anything in Spring4D sources or google.
Give me a simple example, please.

@Stefan Glienke

Your example works, my code doesn't. It's identical*.
I spent a lot of hours and energy modifying the code from left to right... I finally found it!

Please add a line in your example before registering classes in the container:

  globalContainer.AddExtension<TActivatorContainerExtension>;

and then check it out...  🙂

I'm very tired of it... give me a tip how to fix it, please.

* - almost

When I comment on one of the constructors, then the factory was working properly.

TSQLDataSuite = class(TInterfacedObject, ISQLDataSuite) 
[...] 
public
//  constructor Create(const aTableName: RawByteString; 
//                     const aSQLKind: TModifyingSQLKind; 
//                     const aProcessSQL : Boolean = True; 
//                     const aBeforeWorkerMethod: TSQLDataSuiteWorkerMethod = nil; 
//                     const aAfterWorkerMethod: TSQLDataSuiteWorkerMethod = nil); overload;

  constructor Create(const aTableName: RawByteString; 
                     const aSQLKind: TModifyingSQLKind; 
                     const aProcessSQL : Boolean); overload;
end;

There is a problem with factory when a class has two active constructors. But I can't understand it.

I add new constructor to TSQLDataSuite:

    constructor Create(const aTableName: RawByteString; const aSQLKind: TModifyingSQLKind; const aProcessSQL : Boolean); overload;

And new factory:

  ISQLDataSuiteFactory = interface(IInvokable) ['{A101FA06-ED33-478A-9066-821BC8C5E2AE}']
  
    function Create(const aTableName: RawByteString;
                    const aSQLKind: TModifyingSQLKind;
                    const aProcessSQL : Boolean ): ISQLDataSuite; overload;
  
    function Create(const aTableName: RawByteString;
                    const aSQLKind: TModifyingSQLKind;
                    const aProcessSQL : Boolean;
                    const aBeforeWorkerMethod: TSQLDataSuiteWorkerMethod;
                    const aAfterWorkerMethod: TSQLDataSuiteWorkerMethod): ISQLDataSuite; overload;
  end;

but after call:
 

var
 fSQLDataSuiteFactory : ISQLDataSuiteFactory;

[...]

  lData := fSQLDataSuiteFactory.Create('TableName', TModifyingSQLKind.SQLInsert, True);

I stiil get exception:

Unsatisfied constructor on type: TSQLDataSuite

How to do it right?

I have problem with one factory.

definition

  TSQLDataSuiteWorkerMethod = procedure(const aDataSuite : ISQLDataSuite) of object;

  TSQLDataSuite = class(TInterfacedObject, ISQLDataSuite)
  [...]
  public
    constructor Create(const aTableName: RawByteString;
                       const aSQLKind: TModifyingSQLKind;
                       const aProcessSQL : Boolean = True;
                       const aBeforeWorkerMethod: TSQLDataSuiteWorkerMethod = nil;
                       const aAfterWorkerMethod: TSQLDataSuiteWorkerMethod = nil); reintroduce;
  end;
  
  {$M+}
  TSQLDataSuiteFactory = reference to function(const aTableName: RawByteString;
                                               const aSQLKind: TModifyingSQLKind;
                                               const aProcessSQL : Boolean = True;
                                               const aBeforeWorkerMethod: TSQLDataSuiteWorkerMethod = nil;
                                               const aAfterWorkerMethod: TSQLDataSuiteWorkerMethod = nil): ISQLDataSuite;
  {$M-}                                             

 
container registration  

  aContainer.RegisterType<TSQLDataSuite>.Implements<ISQLDataSuite>;
  aContainer.RegisterFactory<TSQLDataSuiteFactory>;

 
 
resolve in code:

fSQLDataSuiteFactory : TSQLDataSuiteFactory;

var
  Data: ISQLDataSuite;
begin
  Data := fSQLDataSuiteFactory('TableName', TModifyingSQLKind.SQLInsert, True, nil, nil);

And after last l get exception from Spring4D:

Unsatisfied constructor on TSQLDataSuite

What have I forgotten?

I use in the program dozens of factories, classes and interfaces, all based on the spring container, everything works correctly, only this case I cannot understand.

ps. maybe it's worth opening a subforum for Spring4D?

I have a spring collection, like a IList<T>.

I need to remove all items from it that meet the condition:

type
  TFoo = interface
    function Value : Integer;
  end;

var
  List : IList<TFoo>;
begin
  i := 0;
  while i < List.Count do
  begin
    if List[i].Value < 100 then 
      List.Delete(i)
    else
      Inc(i);
  end;
end;

Can it be done faster, better?

And how can I do that for IDictionary<K, V>?

I use this option for years, without problems.

@Vandrovnik

Please add:

"

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Embarcadero\BDS\19.0\Editor]
"DefaultFileFilter"="Borland.FileFilter.UTF8ToUTF8"

After setting this value Delphi will encode new units in UTF-8 with BOM."

Maybe you're using automatic inline?

{$INLINE AUTO}

from docs:

"Behaves like {$INLINE ON}, with the addition that routines not marked with inline will be inlined if their code size is less than or equal to 32 bytes."

This is Spar.... Embarcadero! 😉

I downloaded hcldemo.zip again, but db still not found.

--- after some time ---

Now is ok, thanks.

Happy birthday.

but when I download and run demo I get exception on db connection (bad path):

Then you may want to consider creating a mailing queue based on e.g. pipes (or tcp/ip). So the DLL would be a server reading the queue/pipe, and the application in the Cobol would work as a client? I don't know what possibilities Cobol has and if it supports pipes api.

https://docs.microsoft.com/en-us/windows/win32/ipc/pipes

Very interesting tool!

Maybe Emba should consider writing a plugin to support Delphi?

I don't think there is a specification of this format anywhere described (I haven't met it).
But from what I understood you want to write data to XML in order to read them in the DLL, so why do you need to know the format?
If you want to have XML for another purpose then you can create it yourself using any XML library.

http://docwiki.embarcadero.com/Libraries/Rio/en/FireDAC.Comp.DataSet.TFDDataSet.SaveToStream

WinRT is dead