Jump to content

Cristian Peța

Members
  • Content Count

    392
  • Joined

  • Last visited

  • Days Won

    5

Everything posted by Cristian Peța

  1. Do you have thousand record types? Then you have some work... If there are not so many record types and you need to use both 32 and 64 bit versions then I would make for every record an old version that has Cardinal instead of pointer just for reading from and writing to the stream. And two procedures to copy data between old and new record. The old record with Cardinal will be used only to stream data. If you want to do more then use old records with Cardinal instead of pointer only for reading. And save data in a new format like JSON.
  2. Cristian Peța

    TClientDataSet's odd behavior with hyphens in string fields

    ftString size is default to 20. If you want not to set the size then you can use ftMemo.
  3. Cristian Peța

    Free profiler?

    Intel VTune with map2pdb
  4. With pointers like Alexander suggested or an array or records.
  5. Cristian Peța

    FastMM 5 Performance

    If someone do have an issue that is possible solved in latest commit why not trying? I can't think that an commit is made without testing first.
  6. Cristian Peța

    FastMM 5 Performance

    Have you checked https://github.com/pleriche/FastMM5/activity?ref=master ? Latest commit is 6 nov. "Handle a potential race condition in FastMM_DetectClassInstance: If another thread frees a block while it is being evaluated as a potential class then an A/V could occur. This indirectly affects other functionality, like FastMM_LogStateToFile." You can download sources if you don't use git to clone repository: https://github.com/pleriche/FastMM5/archive/refs/heads/master.zip
  7. Cristian Peța

    Problema com TEdit Delphi 12

    Windows or something else? You can try to delete .dproj and see if that helps.
  8. Cristian Peța

    Problema com TEdit Delphi 12

    This is all we need to reproduce? Can you reproduce in a small test project?
  9. Cristian Peța

    Windows Arm is still not ready. It is still in the cook.

    Personally I wouldn't buy Windows ARM because incompatibilities. 20 hours without charge is nice but is not a must have for me.
  10. Cristian Peța

    Windows Arm is still not ready. It is still in the cook.

    Apple is giving you no choice. With Windows people can choose and there are not so many eager to embrace this change.
  11. Cristian Peța

    Copy table data between two different databases.

    Maybe I'm wrong, but CopyDataSet doesn't use ArrayDML. Only if speed matters.
  12. Delphi 11.3 I have a project that when built for Debug Win64 the blue dots are where there should be but when I run with debugging the blue dots are shifted upwards and do not stop if I put a breakpoint. For Win32 is working as expected. All other projects I tried do not have this issue. First image is before run, second is after run. The blue dots are how they should be but shifter upwards. I tried to delete and recreate again dproj file. Same behavior. I checked and endings are with CR-LF. All units in the project are affected. The shift is more or less upwards somehow depending on the unit size. Same units (files) used in other projects do not have this issue. Issue is linked somehow only to one project. I appreciate any advice.
  13. Cristian Peța

    Debug for Win64 - blue dots are shifted

    Probably something went wrong with first attempt to recreate dproj file. I tried again to delete it and now debugging works for x64.
  14. Cristian Peța

    Debug for Win64 - blue dots are shifted

    Thank you. In this project I have included units from packages that for sure are not rebuilt for x64. Building the project works because I have included all the files from packages but there are old .dcu files from building the packages. Will try tomorrow to rebuild all packages also for x64. Usually I'm doing this only for x32. I need to debug for x64 because it behaves different from x32 and debugging with messages and so on is so painful and slow.
  15. Cristian Peța

    Thread and free

    The first will not ensure that lTstrings will be freed. I would use the second but with TThread.Synchronize() because Queue() will continue the execution and lTstrings will be freed most probably before it will be used.
  16. Cristian Peța

    Help me to fix compilation error for iOS

    I also had issues with iOS platform in the past and solution was to install MacOS platform too.
  17. Cristian Peța

    Connection to registration server

    Do you have same WAN IP on both machines? There was a case where someone used a VPN internet connection and his WAN IP was from other country and who knows for what this IP was used for and rejected by some server firewalls.
  18. Cristian Peța

    Android app - reading barcodes/QR codes

    Attached. Wanted to try also with Delphi 11.3.1 but something is wrong in my environment because also an empty app do not install (package invalid). No time to dig just now into this. aTestApp.dpr P.S. But nothing special regarding FMX or Android. Just added "..\" to all files and new units to the project.
  19. Cristian Peța

    Android app - reading barcodes/QR codes

    Just tried with Delphi 10.4.2 the demo project aTestApp and is working very nice on Android 13. But dpr do need to be a little updated because some folders moved and there are some new library units not included into the project.
  20. Cristian Peța

    Android app - reading barcodes/QR codes

    I suppose the test app is crashing. But you need the library and it is not so hard to use. fScanBitmap is a FMX.Graphics.TBitmap ScanManager := TScanManager.Create(TBarcodeFormat.Auto, nil); try ReadResult := ScanManager.Scan(fScanBitmap); finally ReadResult.Free; ScanManager.Free; end;
  21. This probably means that there is no memory leak but memory fragmentation. You have 118MB memory split into thousands of block separated by small free blocks. @PizzaProgram if fragmentation then this can be solved by running as 64 bit. Are you not using 4 GB? {$SetPEFlags $0020} // Winapi.Windows.IMAGE_FILE_LARGE_ADDRESS_AWARE { App can handle >2gb addresses } Or better try 64 bit if possible.
  22. Cristian Peța

    User Drawing of Lines and Curves

    Path1.Data.FlattenToPolygon will return an array of points. Use DistanceFromPointToLine procedure LineEcuation(var a, b, c: Double; x1, y1, x2, y2: Double); begin if Abs(x1*y2 - x2*y1) < 1E-20 then begin if (Abs(x1) > 1E-20) or (Abs(x2) > 1E-20) then begin//Ecuation a*x + y = 0 if (Abs(x1) > 1E-20) then a := -y1 / x1 else a := -y2 / x2; b := 1; c := 0; end else begin//Ecuation x = 0 a := 1; b := 0; c := 0; end; end else begin//Ecuation a*x + b*y + 1 = 0 b := (x2 - x1) / (x1*y2 - x2*y1); a := (y1 - y2) / (x1*y2 - x2*y1); c := 1; end; end; //X0, Y0 point //Xd1, Yd1, Xd2, Yd2 - points of the line function DistanceFromPointToLine(X0, Y0, Xd1, Yd1, Xd2, Yd2: Double): Double; var a, b, c: Double; begin LineEcuation(a, b, c, Xd1, Yd1, Xd2, Yd2); Result := Abs(a * X0 + b * Y0 + c) / Hypot(a, b); end; I also think so.
  23. Cristian Peța

    Splitting up quotes doesn't work anymore

    For years I asked me how are you doing this. Now i know. Then I found a solution that I supposed you are using: if you still see the message that you want to quote after starting your message then you can go to that post, insert the text and press "Quote selection". It will insert the quote where the cursor is in you new message. I have not tried if this works going back on an other page.
  24. If not encrypted is working (it is?) then must to be the encryption-decryption that is changing something.
  25. It is because calling convention Right-to-left parameter order?
×