Jump to content


  • Content Count

  • Joined

  • Last visited

  • Days Won


Clément last won the day on August 26 2019

Clément had the most liked content!

Community Reputation

62 Excellent

Technical Information

  • Delphi-Version
    Delphi 10.3 Rio

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Clément

    Reproducible AV in Sydney

    Let's hope E. can fixed it on the next patch. Very annoying!
  2. Clément

    Reproducible AV in Sydney

    @Lars Fosdal Thanks for confirming it! QP Issue : https://quality.embarcadero.com/browse/RSP-29845
  3. Clément

    Reproducible AV in Sydney

    Before reporting I wanted to be sure others could duplicate the problem.
  4. Hi, I manage to reproduce the following AV with very simple steps. As the AV happens in coreide270, it's impossible to save the project, unit, close Delphi. "End Task" is the only way to close the IDE and loose any unsaved work. Here are the steps: Start an empty VCL Project. Drop a ImageCollection component Add a few PNG images (Click add and select 3 or 4 PNG images) Click Apply, then OK to get back to the form Left click the form to call the context menu Select "View as Text" (The AV might happen here) Left Click the dfm to call the context menu, and select "View as Form" (The AV might happen here) Try to save the project (The AV might happen here) The AV will happen either on step 7, or 9 or 11. The only work around is to save the form (returning from step 4). If you don't save, you will see the AV I attached below (Image and details). Can someone please try to duplicate? Clément Details>> [208CCA97]{coreide270.bpl} DocModul.TCodeIDocModule.GetFileName (Line 2248, "DocModul.pas" + 1) + $5 [0A3287FD]{IDELSP270.bpl} Baselspserver.TLSPServer.DoSendString + $51 [0A36CCDD]{IDELSP270.bpl} Lspmgr.CreateLSPMgr + $5041 [0A36C9A4]{IDELSP270.bpl} Lspmgr.CreateLSPMgr + $4D08 [0A36C88D]{IDELSP270.bpl} Lspmgr.CreateLSPMgr + $4BF1 [0A36DF37]{IDELSP270.bpl} Lspmgr.CreateLSPMgr + $629B [0A369851]{IDELSP270.bpl} Lspmgr.CreateLSPMgr + $1BB5 [0A3699E8]{IDELSP270.bpl} Lspmgr.CreateLSPMgr + $1D4C [208BCAB9]{coreide270.bpl} IDEServices.TIDEServices.SendFileNotification (Line 5041, "IDEServices.pas" + 😎 + $10 [208BD16A]{coreide270.bpl} IDEServices.FileNotification (Line 5301, "IDEServices.pas" + 1) + $9 [208B72A6]{coreide270.bpl} IDEServices.TIDEServices.BeginProjectGroupClose (Line 2794, "IDEServices.pas" + 2) + $F [2101ABC5]{designide270.bpl} Events.TEvent.Send (Line 165, "Events.pas" + 2) + $11 [20559EEC]{coreide270.bpl} ProjectGroup.TProjectGroup.BeforeDestruction (Line 924, "ProjectGroup.pas" + 10) + $8 [5006025D]{rtl270.bpl } System.@BeforeDestruction (Line 19087, "System.pas" + 10) + $0 [20559E56]{coreide270.bpl} ProjectGroup.TProjectGroup.Destroy (Line 899, "ProjectGroup.pas" + 0) + $2 [5005FA2C]{rtl270.bpl } System.TObject.Free (Line 17683, "System.pas" + 1) + $4 [205606B6]{coreide270.bpl} ProjectGroup.TProjectGroupWrapper.Close (Line 2834, "ProjectGroup.pas" + 2) + $5 [004ABE8F]{bds.exe } AppMain.TAppBuilder.DestroyProjectGroup (Line 2664, "AppMain.pas" + 15) + $9 [004AF26C]{bds.exe } AppMain.TAppBuilder.WindowCloseQuery (Line 3918, "AppMain.pas" + 19) + $3 [50E554D1]{vcl270.bpl } Vcl.Forms.TCustomForm.CloseQuery (Line 7459, "Vcl.Forms.pas" + 😎 + $14 [50E553F9]{vcl270.bpl } Vcl.Forms.TCustomForm.Close (Line 7431, "Vcl.Forms.pas" + 4) + $4 [01734013]{vclwinx270.bpl} Vcl.TitleBarCtrls.TCustomTitleBarPanel.TitleButtonCloseClick (Line 1414, "Vcl.TitleBarCtrls.pas" + 2) + $7 [50CF731F]{vcl270.bpl } Vcl.Controls.TControl.Click (Line 7596, "Vcl.Controls.pas" + 9) + $8 [50EA6CAC]{vcl270.bpl } Vcl.Buttons.TCustomSpeedButton.Click (Line 1918, "Vcl.Buttons.pas" + 0) + $4 [50EA6C96]{vcl270.bpl } Vcl.Buttons.TCustomSpeedButton.MouseUp (Line 1911, "Vcl.Buttons.pas" + 25) + $10 [50CF7750]{vcl270.bpl } Vcl.Controls.TControl.DoMouseUp (Line 7724, "Vcl.Controls.pas" + 2) + $25 [50CF77DE]{vcl270.bpl } Vcl.Controls.TControl.WMLButtonUp (Line 7737, "Vcl.Controls.pas" + 9) + $6 [50CF6DC6]{vcl270.bpl } Vcl.Controls.TControl.WndProc (Line 7480, "Vcl.Controls.pas" + 91) + $6 [50F4C99F]{vcl270.bpl } Vcl.Styles.TCustomStyle.SourceLoaded (Line 3310, "Vcl.Styles.pas" + 1) + $13 [50F4C8E0]{vcl270.bpl } Vcl.Styles.TCustomStyle.GetEnabled (Line 3290, "Vcl.Styles.pas" + 0) + $4 [50DF394F]{vcl270.bpl } Vcl.Themes.TStyleManager.GetIsCustomStyleActive (Line 5646, "Vcl.Themes.pas" + 0) + $7 [50DF7615]{vcl270.bpl } Vcl.Themes.TCustomStyleEngine.HookCBProc (Line 7563, "Vcl.Themes.pas" + 3) + $0 [50DF77C6]{vcl270.bpl } Vcl.Themes.TCustomStyleEngine.HookCBProc (Line 7614, "Vcl.Themes.pas" + 54) + $18 [50CF6A00]{vcl270.bpl } Vcl.Controls.TControl.Perform (Line 7258, "Vcl.Controls.pas" + 10) + $8 [50CFB4BC]{vcl270.bpl } Vcl.Controls.TWinControl.IsControlMouseMsg (Line 10190, "Vcl.Controls.pas" + 15) + $29 [50CFBB02]{vcl270.bpl } Vcl.Controls.TWinControl.WndProc (Line 10367, "Vcl.Controls.pas" + 112) + $6 [1D085DB9]{cxLibraryRS27.bpl} Cxcontainer. + $0 [50CFB230]{vcl270.bpl } Vcl.Controls.TWinControl.MainWndProc (Line 10120, "Vcl.Controls.pas" + 3) + $6 [50181184]{rtl270.bpl } System.Classes.StdWndProc (Line 17989, "System.Classes.pas" + 😎 + $0 [50E5A71F]{vcl270.bpl } Vcl.Forms.TApplication.ProcessMessage (Line 11002, "Vcl.Forms.pas" + 23) + $1 [50E5A762]{vcl270.bpl } Vcl.Forms.TApplication.HandleMessage (Line 11032, "Vcl.Forms.pas" + 1) + $4 [50E5AA95]{vcl270.bpl } Vcl.Forms.TApplication.Run (Line 11170, "Vcl.Forms.pas" + 26) + $3 [0051E104]{bds.exe } bds.bds (Line 222, "" + 13) + $2
  5. Clément

    Something the comunity should be aware of

    It's a fact that one could always download previous licenses. There was always an upgrade path to a newer version. And occasionally some discounts to force users to get a newer version. Emb is the only who can tell if that worked at all. And of course, you could always request a reload if you made several installations. I would not call that "extremely", thought. I understand this statement differently. You can still use your Delphi 7 or Delphi XE version today. (license without time limit), but you still have the bump dependency problem. Previous versions of delphi where a lot more popular I guess. It's a fact that some still keep Delphi 7 or Delphi XE because the produced executable is very small compared to newer versions. It wouldn't surprise me that people still need small executable to run in limited devices. Again, only Emb can tell how demanding older IDE version can get. They could event let Delphi 7 download for free... why not? (One can always dream) Not directly. I'm always using the newest version, although it's getting harder and harder to keep it up, Delphi Sydney most probably will be my last subscribed version. The forcing upgrade is not an issue, but the cost/benefit. I have no way to downgrade my Enterprise subscription and for the price/quality there's a LOT to complain about. I'm not using Datasnap, I'm not using RAD Server, I'm not using WSDL wizard (I wrote my own), there are components that took so long to be available that I was had to buy, or write my own) . If you are using those technologies, it's ok to pay for them, but if you're not? This is what makes Delphi extremely expensive, and new managers just won't pay for a product they are not 100% sure is able too solve their problem. (Technical, documentation, developer availablilty, SDK integration ( lot's of C#, C++, Java etc, but no Delphi) ) Emb itself is not sure who it's target is, and nothing is done to help find it out. One solution would be to have several SKUs: RAD Studio Small Business, RAD Studio Standard Business, RAD Studio Large Business and a combination with Bronze, Silver, Gold, Platinum Licenses that would allow us to get access to the products we need. Moving to a different platform is getting real every day.
  6. I like my constructors to construct No loading, no process, no fancy stuff inside the constructor other than parameter assignment, variable initialization or other class creation.
  7. Clément

    language updates in 10.4?

    I'm not the only one who runs out of coffee! .
  8. ARC! I need coffee for my memory management
  9. I was not using FMX for serious development, so for me nothing will change at all. Except, maybe I will give FMX another try. Hopefully FMX will improve faster without ARM. There's a lot to catch either to match VCL counter part or Android Studio! What I really want to see: Bug Fixes RTL Improvement / optimization Debugger Stability Win32 AND Win64 IDE Quality Language Server Protocol for Delphi Language Enhancements: Managed Records Unified memory management across all platforms VCL High DPI Styles Support VCL Per Control Styling New VCL Components Updated VCL styles for HighDPI Windows API Updates
  10. Clément

    Biometric Template type

    That was fast! I past so many times over those pages but I guess I needed an extra pair of eyes! Thank you
  11. Hi, I'm using our beloved Delphi to capture fingerprints from a device and send them to another device. Usually, small Biometric Desktop USB device is used to capture fingerprints, and I send the data to controller (Door, etc). I specifically asked the controller manufacturer to have his device compatible with ANSI378-2004, as the biometric Desktop USB supposably captured in that format. The Controller manufacturer is saying that ANSI378-2004 template should begin with 46 4D, but of course none of the templates I capture begins with those bytes. And the desktop manufacturer says the format of his device is ANSI378-2004. Is there any library (or application) that can help me identify the biometric template format? I was ask to find something, but as it seems there's a strong copyright over those modules, there's no much information. Anyway, maybe someone can shed some light. Thanks
  12. TStringList has a Direct access of O(1), if you are accessing it unsorted, and this is as fast as it gets. But, when used as a dictionary, TStringlist must be sorted, and that's another ball game! When you add an element to a sorted list it goes through binary search ( O log n ) , same happens if you delete. When you need a lookup structure, TDictionary is the way to go as it's always O(1).
  13. Actually both. I needed to write a small interface between SAP (text files with a +/- ten thousand records) and another system that needed to check if a RFID card number was in a list. Depending on some card property (returned by the associated class, I had to call a certain REST API). I was using a simple sorted StringList, when I switched to TDictionary the performance boost was noticeable. Routines dropped from minutes to seconds. I replaced: idx := fCardList.indexof( aCardNumber ); if idx>-1 then lObj := TMyObject( fCardList.Objects[idx] ) with if fCardlist.TryGetValue( aCardNumber, lObj ) then case lObj.RoleType of [..] end; Faster and more readable! It depends. When performance is the key, I usually write a lot of comment to compensate the lack of readability. In those cases I know the routine must be lean and mean I will use the fastest data structure. When the routine is simpler, not called very much, or performance is not an issue then I move to a "more readable" coding approach.
  14. Actually I guess is the other way around! The more expert I get the more refactoring I do! As @Lars Fosdal said, cryptic code, WTF was I thinking code, Code that could benefit from modern RTL code if there's no performance penalty. For example: For lPair in SomeObjectList is slower than for i:= 0 to SomeobjectList.count-1. So I won't refactor it. Depending where the code is placed, I will use one form or the other. Replacing TStringList (used as dictionary) with a TDictionary/TDictionaryObject makes a huge diference!
  15. Have you compared your results with: https://github.com/maximmasiutin/FastMM4-AVX ?