Jump to content

egroups

Members
  • Content Count

    20
  • Joined

  • Last visited

Everything posted by egroups

  1. Spring4d 2.0 is out,but not compatible with 1.2. Of course its open source,but is any simply changelog between 1.2 and 2.0,what's new etc? And is any manual for easy convert Project with spring4d 1.2 for using with spring4d 2.0?
  2. Hi there, I convert legacy application to using Spring4D container for dependency injection. For memory leaks using FastMM4. Occasionally appear memory leak in different places and I solve them gradually. The problem is with the use of dependency injections, FatsMM generates very large log file (aka 2GB) and very long time.Some registered class in container not call Destroy (memory leaks in dependency graph). Is there any way to more easily and quickly detect places where there is a memory leak? Any extension for container or different method?
  3. Thanks Stefan,I try LeakCheck and Registry.FindAll
  4. egroups

    Upgrade from Spring4d 1.2 to Spring4d 2.0

    Super,many thanks.
  5. egroups

    Upgrade from Spring4d 1.2 to Spring4d 2.0

    I switched from Delphi 10.2 to Delphi 11 and for now I'm using Spring4d 1.2. When GetIt is functional, I'll install Delphi 11 at home and then I'll test with Spring4d 2.0.
  6. egroups

    Upgrade from Spring4d 1.2 to Spring4d 2.0

    Collections,Container,Logging,Persistence,Events,TActions,TProcs...
  7. egroups

    Spring4D + DSharp = RAD Alexandria

    if LMethod.IsClassMethod and LMethod.IsStatic then begin {$IF CompilerVersion >= 35} if not Assigned(FGetter) and (LMethod.MethodKind = mkClassFunction) and LMethod.HasName('Get' + FDependencyProperty.Name) then {$ELSE} if not Assigned(FGetter) and (LMethod.MethodKind = mkClassFunction) and SameText(LMethod.Name, 'Get' + Name) then {$IFEND} This work for me.
  8. Is anyway how can get list all classes in project,inherited from specific class and have specific property? By refactoring I can clear properties in descendant,which is defined in parent class.
  9. I have many registrations in spring4d container. In DEBUG mode start application OK but in RELEASE before show first SplashScreen I get error: Cannot resolve type: xxxxType Hi can I quickly identify where is problem? Cannot use brakpoints,container logging etc. My xxxxType is very much used accros application and inject in many places.
  10. After many test,create private logging in Spring units I detect the cause.I use Resolving in DataModule who initialized in initialization section,before Container Build.
  11. How I can setup/activate this feature?
  12. egroups

    Text file to FastReport

    Is any very simplest way,how to print simple ASCII text file throw FastReports by the code?
  13. Own framework?Do you trying Spring4d ORM?
  14. Hi, I need get Expiration Date from certificate. I tryed this code with libeay32: function TSOpenSSL.CertificatePKCS12Expirate(const pFileName, pPassword: string): TDateTime; var buffer: Array [0..1023] of char; ca: pSTACK_OFX509; certfile: pBIO; lTime: pASN1_TIME; p12: pPKCS12; pCertificate: pX509; pkey: pEVP_PKEY; begin certfile:=BIO_new(BIO_s_file()); if (certfile = nil) then raise Exception.Create('Error creating BIO.'); BIO_read_filename(certfile, PAnsiChar(UTF8Encode(pFileName))); p12:=d2i_PKCS12_bio(certfile, nil); PKCS12_parse(p12, PAnsiChar(pPassword), pkey, pCertificate, ca); //here is allways pCertificate=nil PKCS12_free(p12); p12:=nil; BIO_free(certfile); if (pCertificate = nil) then raise Exception.Create('Unable to read certificate from file ' + pFileName + '.'); lTime:=pCertificate.cert_info.validity.notAfter; end; I wrote in comment where pCertificate is allways nil and I cannot of course read any data from this. Why? Password I have correct.I tryed this on some certificate files.
  15. Thanks for your answer.I tried ICS and now working for me.
  16. Hello, I tryed generate LiveBindings by Code. I am used from example this code procedure Bind(const Source: TObject; const SourcePropertyName: string; const Target: TObject; const TargetPropertyName: string); var lSrcProperty,lDstProperty:string; lAssocInput,lAssocOutput:IScope; lManaged:TBindingExpression; begin lAssocInput:=TBindings.CreateAssociationScope([Associate(Source,'Src')]); lAssocOutput:=TBindings.CreateAssociationScope([Associate(Target, 'Dst')]); lSrcProperty:='Src.'+ SourcePropertyName; lDstProperty:='Dst.'+ TargetPropertyName; lManaged:=TBindings.CreateManagedBinding( [lAssocInput],lSrcProperty, [lAssocOutput],lDstProperty, nil, nil,[coNotifyOutput]); BindingExpressions.Add(lManaged); end; This is OK if I used for example: Bind(srcViewModel,'String',dstEdit,'Text') Bind(srcViewModel,'Number',dstEdit,'Text') Bind(srcViewModel,'Boolean',dstCheckBox,'Checked') But I have srcViewModel.Container.DataSource and on form DBGrid (I NEED DBGrid). When I Use Bind(srcViewModel,'Container.DataSource',dstDBGrid,'DataSource') is OK,but when I use TBindings.Notify application says DBGrid don't have property DataSource. Why? What problem when I binding DataSource to DataSource?
  17. egroups

    LiveBinding at runtime

    I tryed Bind(srcViewModel.Container,'DataSource',dstDBGrid,'DataSource'),no error,but DataSource not binded,DBGrid.DataSource not Assigned. In srcViewModel I call TBindings.Notify(self,'Container'); //nothing TBindings.Notify(self,'Container.DataSource'); //nothing
  18. Do you have any framework for dynamically create forms?
×