Jump to content

Cristian Peța

Members
  • Content Count

    392
  • Joined

  • Last visited

  • Days Won

    5

Everything posted by Cristian Peța

  1. Cristian Peța

    Switch from JCL to EurekaLog

    EurekaLog can send data to a bug tracker. See https://www.eurekalog.com/help/eurekalog/index.php?bug_trackers_setup.php We use MadExcept and data are sent to Mantis that uses MySQL (actually MariaDB). An SQL server can handle a huge amount of data.
  2. Cristian Peța

    for loop variable value after the loop

    I think this should be reported. Something like this I discovered in FastReport and it surfaced in rare circumstances. First when I reported it was ignored till I come with a case to reproduce. Because this, the report should have also the link to documentation.
  3. Cristian Peța

    for loop variable value after the loop

    https://docwiki.embarcadero.com/RADStudio/Athens/en/W1037_FOR-Loop_variable_'%s'_may_be_undefined_after_loop_(Delphi)
  4. Cristian Peța

    P4D Android visual component

    tqdm is a text output "progress bar" for a console app. And you want to show this text output along a graphic ProgressBar from FMX? Probably in something like TMemo component?
  5. Cristian Peța

    Delphi 12.2 Patch 1

    You installed 12.2 Patch 1 that is binary compatible with 12.1 but not with 12.2. If you installed some components compiled for 12.2 then it is understandable that your 12.2 Patch 1 IDE is unstable. Can this be the case or you are sure all your third-party components are compatible with 12.2 Patch 1 and 12.1?
  6. Cristian Peța

    Using Python4Delphi library in a Windows service

    But then it should setup Python engine to run in other thread context. I don't think it is worth.
  7. Cristian Peța

    Using Python4Delphi library in a Windows service

    PythonEngine appears to be nil. Did you checked there if Self is nil?
  8. Cristian Peța

    Using Python4Delphi library in a Windows service

    I am not sure right now but I suppose ServiceCreate and ServiceExecute are not in the same thread. Why not creating PythonEngine in ServiceExecute?
  9. Cristian Peța

    Distributing application that connects remote MySQL/MariaDB servers

    The protocol doesn't change suddenly. You need to install a new MySQL version for that to happen. In this case you need to check that the library you use for connection supports that version: https://docwiki.embarcadero.com/Status/en/FireDAC_Database_Support Same for MyDAC: https://www.devart.com/mydac/compatibility.html
  10. Cristian Peța

    "Divided by zero" exception

    As a side note. unit Vcl.Edge; .... initialization FSetExceptMask(femALLEXCEPT); SHDocVw, Vcl.Edge and other units set the mask. If someone is using TWebWrowser for example all exceptions are masked but not on all machines is so and I do not have time now to investigate why.
  11. Cristian Peța

    x32->x64

    From where is this unit UVerInfoClass?
  12. Cristian Peța

    x32->x64

    Actually this is what I have and is working x32 and x64. procedure GetFileVersion(const AFileName: string; var V1, V2, V3, V4: Integer); var FileName: string; InfoSize, Wnd: DWORD; VerBuf: Pointer; FI: PVSFixedFileInfo; VerSize: DWORD; begin V1 := 0; V2 := 0; V3 := 0; V4 := 0; // GetFileVersionInfo modifies the filename parameter data while parsing. // Copy the string const into a local variable to create a writeable copy. FileName := AFileName; UniqueString(FileName); InfoSize := GetFileVersionInfoSize(PChar(FileName), Wnd); if InfoSize <> 0 then begin GetMem(VerBuf, InfoSize); try if GetFileVersionInfo(PChar(FileName), Wnd, InfoSize, VerBuf) then if VerQueryValue(VerBuf, PathDelim, Pointer(FI), VerSize) then begin V1 := FI.dwFileVersionMS shr 16; V2 := FI.dwFileVersionMS and $FFFF; V3 := FI.dwFileVersionLS shr 16; V4 := FI.dwFileVersionLS and $FFFF; end; finally FreeMem(VerBuf); end; end; end;
  13. Cristian Peța

    x32->x64

    Is this working? I have something like this in my code and is working for both x32 and x64. var Size: DWORD; Handle: DWORD; FileName: String; begin if ModuleName = '' then FileName := OAExeName else FileName := ModuleName; UniqueString(FileName); Size := GetFileVersionInfoSize(PChar(FileName), Handle);
  14. Cristian Peța

    What are the performance profilers for Delphi 12?

    I use it from 2016 on a project with 400k LOC and do not see any lag if you "Disable Profile Status For All"/"Disable Tracking For All" and then enable only for what you need. Nothing changed from 2016 to now either line timer or method timer.
  15. I would debug that TestDS server and see where the error occurs.
  16. Cristian Peța

    Delphi 11, Android, deploy .db file, will not overwrite previous

    You can put a unit before System.StartUpCopy in uses section and in initialization section of that unit you can decide to delete the old files.
  17. Cristian Peța

    "Divided by zero" exception

    Also not only OLE object but any dll. Look at how many dll's an app loads: 0b520000 security.dll 10.0.19041.1 C:\WINDOWS\SYSTEM32 50a00000 atlthunk.dll 10.0.19041.3636 C:\WINDOWS\SYSTEM32 59e80000 ntshrui.dll 10.0.19041.4355 C:\WINDOWS\SYSTEM32 59f90000 PhotoMetadataHandler.dll 10.0.19041.4355 C:\WINDOWS\system32 5a000000 DropboxExt.76.0.dll 1.0.76.0 C:\Program Files (x86)\Dropbox\Client 5a6b0000 drivefsext.dll 97.0.1.0 C:\Program Files\Google\Drive File Stream\97.0.1.0\x86 5bf80000 NetworkExplorer.dll 10.0.19041.4355 C:\WINDOWS\system32 5bfa0000 rdpendp.dll 10.0.19041.3636 C:\WINDOWS\SYSTEM32 5bff0000 MMDevApi.dll 10.0.19041.4355 C:\WINDOWS\System32 5c060000 DevDispItemProvider.dll 10.0.19041.3636 C:\Windows\System32 5c0d0000 dlnashext.dll 10.0.19041.4355 C:\Windows\System32 5c120000 twinapi.dll 10.0.19041.4355 C:\Windows\System32 5c1b0000 davclnt.dll 10.0.19041.3636 C:\WINDOWS\System32 5c1d0000 ntlanman.dll 10.0.19041.4842 C:\WINDOWS\System32 5c290000 StructuredQuery.dll 7.0.19041.4355 C:\WINDOWS\System32 5c320000 uiautomationcore.dll 7.2.19041.4355 C:\Windows\System32 5c5a0000 tiptsf.dll 10.0.19041.4355 C:\Program Files (x86)\Common Files\microsoft shared\ink 5c670000 DUser.dll 10.0.19041.3636 C:\WINDOWS\SYSTEM32 5c6f0000 DUI70.dll 10.0.19041.4355 C:\WINDOWS\SYSTEM32 60010000 bthprops.cpl 10.0.19041.4355 C:\WINDOWS\SYSTEM32 60220000 browcli.dll 10.0.19041.3636 C:\WINDOWS\SYSTEM32 602c0000 dfscli.dll 10.0.19041.1 C:\WINDOWS\System32 602d0000 thumbcache.dll 10.0.19041.4355 C:\Windows\System32 60320000 Msftedit.DLL 10.0.19041.4355 C:\WINDOWS\SYSTEM32 60a00000 apphelp.dll 10.0.19041.4842 C:\WINDOWS\SYSTEM32 60b50000 Windows.Globalization.dll 10.0.19041.4355 C:\Windows\System32 60ca0000 bcp47mrm.dll 10.0.19041.4355 C:\Windows\System32 64700000 LINKINFO.dll 10.0.19041.3636 C:\WINDOWS\SYSTEM32 647b0000 c_g18030.dll 10.0.19041.3636 C:\WINDOWS\system32 647f0000 dcomp.dll 10.0.19041.4597 C:\WINDOWS\system32 64960000 d3d11.dll 10.0.19041.4355 C:\WINDOWS\system32 650b0000 msxml6.dll 6.30.19041.4355 C:\Windows\System32 65510000 twinapi.appcore.dll 10.0.19041.4597 C:\WINDOWS\system32 656b0000 d2d1.dll 10.0.19041.4355 C:\WINDOWS\system32 65ea0000 dxgi.dll 10.0.19041.4842 C:\WINDOWS\system32 65f70000 DAVHLPR.dll 10.0.19041.3636 C:\WINDOWS\System32 66230000 drprov.dll 10.0.19041.3636 C:\WINDOWS\System32 662c0000 IdnDL.dll 10.0.19041.1 C:\WINDOWS\SYSTEM32 662d0000 c_iscii.dll 10.0.19041.1 C:\WINDOWS\system32 66440000 globinputhost.dll 10.0.19041.4355 C:\WINDOWS\SYSTEM32 66630000 OneCoreCommonProxyStub.dll 10.0.19041.4597 C:\Windows\System32 66670000 dataexchange.dll 10.0.19041.4355 C:\WINDOWS\system32 66870000 explorerframe.dll 10.0.19041.4842 C:\WINDOWS\system32 66a50000 c_is2022.dll 10.0.19041.3636 C:\WINDOWS\system32 66a60000 usp10.dll 10.0.19041.3636 C:\WINDOWS\SYSTEM32 66bc0000 SHFolder.dll 10.0.19041.1 C:\WINDOWS\SYSTEM32 66be0000 cscapi.dll 10.0.19041.3636 C:\WINDOWS\SYSTEM32 66c20000 wkscli.dll 10.0.19041.3636 C:\WINDOWS\System32 66c40000 olepro32.dll 10.0.19041.3636 C:\WINDOWS\SYSTEM32 66c60000 FaultRep.dll 10.0.19041.4355 C:\WINDOWS\SYSTEM32 66cd0000 windowscodecs.dll 10.0.19041.4648 C:\WINDOWS\system32 66e50000 CoreUIComponents.dll 10.0.19041.3636 C:\WINDOWS\SYSTEM32 670d0000 CoreMessaging.dll 10.0.19041.4474 C:\WINDOWS\SYSTEM32 67170000 textinputframework.dll 10.0.19041.4651 C:\WINDOWS\SYSTEM32 67230000 DWrite.dll 10.0.19041.4355 C:\WINDOWS\SYSTEM32 67440000 TextShaping.dll C:\WINDOWS\SYSTEM32 674e0000 oledlg.dll 10.0.19041.4355 C:\WINDOWS\SYSTEM32 67510000 msvcp110_win.dll 10.0.19041.3636 C:\WINDOWS\SYSTEM32 67580000 policymanager.dll 10.0.19041.4597 C:\WINDOWS\SYSTEM32 67c30000 SAMLIB.dll 10.0.19041.3996 C:\WINDOWS\SYSTEM32 67d30000 amsi.dll 10.0.19041.4355 C:\WINDOWS\SYSTEM32 67dc0000 Bcp47Langs.dll 10.0.19041.4355 C:\Windows\System32 67eb0000 wintypes.dll 10.0.19041.4717 C:\WINDOWS\SYSTEM32 68e00000 Windows.FileExplorer.Common.dll 10.0.19041.4842 C:\Windows\System32 6b970000 ncryptsslp.dll 10.0.19041.3636 C:\WINDOWS\system32 6baa0000 cldapi.dll 10.0.19041.3636 C:\Windows\System32 6bb30000 FLTLIB.DLL 10.0.19041.3636 C:\Windows\System32 6bb40000 schannel.dll 10.0.19041.4597 C:\WINDOWS\System32 6bbc0000 propsys.dll 7.0.19041.4355 C:\WINDOWS\SYSTEM32 6bca0000 ncrypt.dll 10.0.19041.4412 C:\WINDOWS\SYSTEM32 6bd10000 NTASN1.dll 10.0.19041.3636 C:\WINDOWS\SYSTEM32 6bd40000 mskeyprotect.dll 10.0.19041.3636 C:\WINDOWS\SYSTEM32 6bd50000 edputil.dll 10.0.19041.4355 C:\WINDOWS\SYSTEM32 6bd70000 urlmon.dll 11.0.19041.4894 C:\WINDOWS\SYSTEM32 6c7f0000 webio.dll 10.0.19041.3636 C:\WINDOWS\SYSTEM32 6cfc0000 WINNSI.DLL 10.0.19041.3636 C:\WINDOWS\SYSTEM32 6d840000 WINSTA.dll 10.0.19041.3636 C:\WINDOWS\SYSTEM32 6dca0000 rasadhlp.dll 10.0.19041.3636 C:\Windows\System32 6de60000 Fwpuclnt.dll 10.0.19041.4123 C:\WINDOWS\SYSTEM32 6dfc0000 MpOav.dll 4.18.24080.9 C:\ProgramData\Microsoft\Windows Defender\Platform\4.18.24080.9-0\X86 6e110000 iertutil.dll 11.0.19041.4894 C:\Windows\System32 6f650000 srvcli.dll 10.0.19041.3636 C:\Windows\System32 6f870000 DEVOBJ.dll 10.0.19041.4355 C:\WINDOWS\SYSTEM32 6f8a0000 sxs.dll 10.0.19041.3636 C:\WINDOWS\SYSTEM32 6f930000 dhcpcsvc6.dll 10.0.19041.3636 C:\WINDOWS\SYSTEM32 6fb60000 ntmarta.dll 10.0.19041.3636 C:\WINDOWS\SYSTEM32 71d50000 hid.dll 10.0.19041.3636 C:\WINDOWS\SYSTEM32 71d60000 profapi.dll 10.0.19041.4355 C:\WINDOWS\SYSTEM32 71d80000 dhcpcsvc.dll 10.0.19041.3636 C:\WINDOWS\SYSTEM32 71da0000 dwmapi.dll 10.0.19041.4355 C:\WINDOWS\SYSTEM32 71dd0000 Wldp.dll 10.0.19041.4780 C:\WINDOWS\SYSTEM32 71e00000 CRYPTBASE.DLL 10.0.19041.3636 C:\WINDOWS\SYSTEM32 71fe0000 windows.storage.dll 10.0.19041.4894 C:\WINDOWS\SYSTEM32 72600000 dbgcore.DLL 10.0.19041.4355 C:\WINDOWS\SYSTEM32 73420000 MSASN1.dll 10.0.19041.3636 C:\WINDOWS\SYSTEM32 734c0000 kernel.appcore.dll 10.0.19041.3758 C:\WINDOWS\SYSTEM32 734d0000 NETUTILS.DLL 10.0.19041.3636 C:\WINDOWS\SYSTEM32 735a0000 samcli.dll 10.0.19041.3636 C:\WINDOWS\SYSTEM32 735c0000 DPAPI.DLL 10.0.19041.3636 C:\WINDOWS\SYSTEM32 73670000 SSPICLI.DLL 10.0.19041.4239 C:\WINDOWS\SYSTEM32 73be0000 winmm.dll 10.0.19041.3636 C:\WINDOWS\SYSTEM32 73c10000 WININET.dll 11.0.19041.4717 C:\WINDOWS\SYSTEM32 74070000 winhttp.dll 10.0.19041.4717 C:\WINDOWS\SYSTEM32 74240000 oleacc.dll 7.2.19041.3636 C:\WINDOWS\SYSTEM32 742a0000 uxtheme.dll 10.0.19041.4894 C:\WINDOWS\system32 74420000 comctl32.dll 6.10.19041.4355 C:\WINDOWS\WinSxS\x86_microsoft.windows.common-controls_6595b64144ccf1df_6.0.19041.4355_none_a865f0c28672571c 74630000 mswsock.dll 10.0.19041.3636 C:\WINDOWS\system32 74690000 gdiplus.dll 10.0.19041.4597 C:\WINDOWS\WinSxS\x86_microsoft.windows.gdiplus_6595b64144ccf1df_1.1.19041.4597_none_d954b6f7e1016a2a 74800000 winspool.drv 10.0.19041.4597 C:\WINDOWS\SYSTEM32 74880000 iphlpapi.dll 10.0.19041.3636 C:\WINDOWS\SYSTEM32 748c0000 netapi32.dll 10.0.19041.3636 C:\WINDOWS\SYSTEM32 748e0000 SECUR32.DLL 10.0.19041.3636 C:\WINDOWS\SYSTEM32 748f0000 MPR.dll 10.0.19041.3636 C:\WINDOWS\SYSTEM32 74990000 msimg32.dll 10.0.19041.3636 C:\WINDOWS\SYSTEM32 749a0000 dbghelp.dll 10.0.19041.3996 C:\WINDOWS\SYSTEM32 74b30000 wsock32.dll 10.0.19041.1 C:\WINDOWS\SYSTEM32 74c30000 DNSAPI.dll 10.0.19041.4474 C:\WINDOWS\SYSTEM32 74cc0000 USERENV.dll 10.0.19041.4355 C:\WINDOWS\System32 74cf0000 version.dll 10.0.19041.3636 C:\WINDOWS\SYSTEM32 74d00000 WTSAPI32.DLL 10.0.19041.3636 C:\WINDOWS\SYSTEM32 75000000 msvcp_win.dll 10.0.19041.3636 C:\WINDOWS\System32 75080000 KERNELBASE.dll 10.0.19041.4894 C:\WINDOWS\System32 752c0000 MSCTF.dll 10.0.19041.4842 C:\WINDOWS\System32 75510000 bcryptPrimitives.dll 10.0.19041.3636 C:\WINDOWS\System32 75570000 SHLWAPI.dll 10.0.19041.4355 C:\WINDOWS\System32 755c0000 sechost.dll 10.0.19041.4597 C:\WINDOWS\System32 75640000 setupapi.dll 10.0.19041.4355 C:\WINDOWS\System32 75a80000 coml2.dll 10.0.19041.4355 C:\WINDOWS\System32 75ae0000 oleaut32.dll 10.0.19041.3636 C:\WINDOWS\System32 75c10000 comdlg32.dll 10.0.19041.4355 C:\WINDOWS\System32 75d20000 ws2_32.dll 10.0.19041.3636 C:\WINDOWS\System32 75d90000 bcrypt.dll 10.0.19041.3636 C:\WINDOWS\System32 75db0000 Normaliz.dll 10.0.19041.3636 C:\WINDOWS\System32 75dc0000 crypt32.dll 10.0.19041.4894 C:\WINDOWS\System32 75ec0000 clbcatq.dll 2001.12.10941.16384 C:\WINDOWS\System32 75f40000 advapi32.dll 10.0.19041.4597 C:\WINDOWS\System32 75fc0000 user32.dll 10.0.19041.4894 C:\WINDOWS\System32 76160000 ole32.dll 10.0.19041.4355 C:\WINDOWS\System32 76250000 NSI.dll 10.0.19041.3636 C:\WINDOWS\System32 76260000 combase.dll 10.0.19041.4894 C:\WINDOWS\System32 764e0000 msvcrt.dll 7.0.19041.3636 C:\WINDOWS\System32 765a0000 WINTRUST.dll 10.0.19041.4780 C:\WINDOWS\System32 765f0000 ucrtbase.dll 10.0.19041.3636 C:\WINDOWS\System32 76710000 psapi.dll 10.0.19041.3636 C:\WINDOWS\System32 76720000 KERNEL32.DLL 10.0.19041.4842 C:\WINDOWS\System32 76810000 shell32.dll 10.0.19041.4894 C:\WINDOWS\System32 76e50000 win32u.dll 10.0.19041.4894 C:\WINDOWS\System32 76e70000 shcore.dll 10.0.19041.4522 C:\WINDOWS\System32 76f00000 GDI32.dll 10.0.19041.4474 C:\WINDOWS\System32 76f30000 IMM32.DLL 10.0.19041.4474 C:\WINDOWS\System32 76f60000 gdi32full.dll 10.0.19041.4894 C:\WINDOWS\System32 77050000 cfgmgr32.dll 10.0.19041.3996 C:\WINDOWS\System32 77090000 IMAGEHLP.DLL 10.0.19041.3636 C:\WINDOWS\System32 770b0000 RPCRT4.dll 10.0.19041.4597 C:\WINDOWS\System32 77180000 ntdll.dll 10.0.19041.4842 C:\WINDOWS\SYSTEM32
  18. I suppose the TSQLConnection uses the DataSnap Driver. Then it is better to change TSQLConnection.Driver.CommunicationProtocol from default tcp/ip to http. TCP/IP connections are fragile over wifi. EDIT: CommunicationProtocol is in TSQLConnection.Params but can be changed also from TSQLConnection.Driver in object inspector.
  19. Compiler error var foo: Integer = 10; //E2195 Cannot initialize local variables begin foo := 20; This compiles {$WRITEABLECONST ON} const foo: Integer = 10; begin foo := 20;
  20. Cristian Peța

    Evaluate class field inside anonymous method

    Comp is captured and I can confirm debugger evaluator is not working. Declare LComp: TADOQuery in anonymous method and assign LComp := Comp. Then it will work to evaluate LComp....
  21. Cristian Peța

    TTaskDialogs not working with Delphi Styles

    Just installed Delphi 12.2 in the same VM as 11.3 with 150% and I can confirm that drop-down works correctly in 12.2.
  22. Cristian Peța

    TTaskDialogs not working with Delphi Styles

    My Delphi is in VM with Windows 11. For me the left half will open the list at mouse-down. At mouse-up the open dialog will show.
  23. Cristian Peța

    TTaskDialogs not working with Delphi Styles

    D 11.3, 150% dpi and it work only if I click the right half of the arrow. The red zone will open the dialog.
  24. Cristian Peța

    Storing Unicode Characters in PostGreSQL DB table

    Not exactly the database ENCODING. Every database can have other encoding but probably it is OK.
×