Cristian Peța

43 minutes ago, gioma said:

my projects which worked very well with Delphi 12.1, Delphi 11.x, Delphi 10.x.

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?

7 minutes ago, DelphiUdIT said:

I think should be better that you create the Python engine in a START event of controller, and Free it on Destroy event.

 

Execute method is call more times during the "live" state of Service.

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

8 minutes ago, Luca Pretti said:

The problematic line of code of this procedure is the first (line 6398)  : " PyException := PyErr_Occurred;"

 

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?

13 hours ago, Dmitry Onoshko said:

But, if so, this creates a potential problem like the one we used to have when MySQL changed default authorization mechanism and the programs that used older versions of the protocol failed to connect.

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.

11 minutes ago, Jirka52 said:

VerInfo: TVerInfo; //class from unit UVerInfoClass.pas

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

23 hours ago, chkaufmann said:

Just a question regarding Nexus Quality Suite: I looked at it some years ago and I noticed, if you have a big project, the performance for Line Timer / Method Timer was not very good when configuring which methods to trace and which not. Was there an improvement in this regard?

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

I would debug that TestDS server and see where the error occurs.

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.

18 hours ago, terran said:

OLE objects are not common use.

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

On 10/6/2024 at 10:33 AM, dlucic said:

DataSnap server service through TSQLConnection

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.

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;

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....

On 9/24/2024 at 4:31 PM, pyscripter said:

As mentioned above, 12.2 works correctly at 300%,  But maybe there is an issue when running inside a VM.

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.

36 minutes ago, Anders Melander said:

if I drop the list by clicking on the left half of the dropdown arrow, and then close the list with another click, then the open dialog is invoked

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.

22 minutes ago, Anders Melander said:

I just tried with 11.3 and it works exactly the same.

Maybe I'm just not understanding what problem your are experiencing.

 

I'm on Windows 10, BTW.

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.

1 minute ago, new_x said:

I used the following query from pgAdmin4

SHOW SERVER_ENCODING;

 

The result is;

"UTF8" 

 

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

2 minutes ago, new_x said:

I use parameters

Using TSQLMonitor you can see parameters value. If there are wrong characters then is something from FireDAC otherwise is from PostgreSQL.

6 minutes ago, new_x said:

But If I insert the data from pgAdmin4 they are correctly stored. So the DB Encoding is UTF8

This is not the proof that Encoding is UTF8. You need to verify database encoding. Have you?

Personally I would debug the FireDAC code to see where the characters change.

Do you use parameters or the values are in SQL text directly?

I suppose if you use TSQLMonitor the values are already wrong.

Is the database ENCODING = 'UTF8'?

I think it can be specified only when you create it.