Cristian Peța

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.

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.

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

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?

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?

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

PythonEngine appears to be nil. Did you checked there if Self is nil?

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

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

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.

From where is this unit UVerInfoClass?

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;

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);

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.

deleted