Newest questions tagged delphi - Stack Overflow

Building Delphi package, using $LIBSUFFIX option. Compiler cannot find .bpl w/o suffix

2026-09-26T20:11:57Z

I am trying to update a Delphi package that was previously done by manually naming the package with a suffix, and I now want to use the $LIBSUFFIX option.

It ALMOST works. It builds the .bpl file with the expected suffix. It builds the .dcp, .bpi and .lib files without the suffix. But, the compiler generates an apparently spurious error message that it cannot find the .bpl file without the suffix name. I can manually install the .bpl (with suffix) into the IDE and it works fine.

In fact, I would just live with the error message, but I plan to shortly host it on GitHub, and don't want to post something that I have to explain the error message.

I first asked Google AI, and it suggested to clean out the old .dcp and .bpl files, and I did. It said to make sure I'm not referencing the package with the suffix in a requires statement, and I'm not.

I'm currently using Delphi 13 Community Edition, but I also have Delphi 10.2 Tokyo Professional, and it has the same issue.

EDIT:

The compiler itself generates the error. I attempted to add a screenshot but I'm not seeing the picture. The $LIBSUFFIX is "D13Florence". The compiler generated PMemo7D13Florence.bpl as expected. But the error message says:

Can't load package PMemo7.bpl. The system cannot find the file specified.

EDIT:

Commenters asked how I am specifying the {$LIBSUFFIX} value. And it was suggested that I use {$LIBSUFFIX AUTO}. I opted to not use AUTO for two reasons:

I wanted it to create the same .bpl name as the old packages did, when the product came with individual .dpk/.dproj files for each version of Delphi.
I didn't like the names that AUTO would come up with. It would create names like PMemo7370.bpl. Ultimately it doesn't matter. But I do wish the AUTO option would include an underscore so it would be something like PMemo7_370.bpl.

Therefore, I created an include file, PM_LibSuffix.bpl. Here is a snippet:

{$IFDEF VER340}  {$LIBSUFFIX 'Sydney'}  {$ENDIF}
{$IFDEF VER350}  {$LIBSUFFIX 'D11Alexandria'} {$ENDIF}
{$IFDEF VER360}  {$LIBSUFFIX 'D12Athens'} {$ENDIF}
{$IFDEF VER370}  {$LIBSUFFIX 'D13Florence'} {$ENDIF}
{$IFDEF VER380}  {$LIBSUFFIX '_380'} {$ENDIF}
{$IFDEF VER390}  {$LIBSUFFIX '_390'} {$ENDIF}
{$IFDEF VER400}  {$LIBSUFFIX '_400'} {$ENDIF}

Then, in my .dpk file, the top line before the package statement, I have {$I PM_LibSuffix.inc}.

EDIT

I went ahead and tried just using the {$LIBSUFFIX AUTO} option. I renamed the project to PlusMemo, so for D13 Florence, it created PlusMemo370.bpl, as expected. I get basically the same error. The compiler now says it cannot find PlusMemo.bpl even though it created PlusMemo370.bpl, as it was supposed to. And I can install PlusMemo370.bpl into the IDE and it works fine.

EDIT

Facepalm. Sigh. Okay, so, I removed the line {$LIBSUFFIX AUTO} from my .dpk file. Used the project options to add $AUTO to the lib suffix, which gets added to the .proj file. Now I get the exact opposite problem! It now creates PlusMemo.bpl without the suffix, but the compiler says it can't find PlusMemo370.bpl. Once again, I can manually add PlusMemo.bpl into the IDE and it works fine. ARGH!!!

EDIT

Okay, I put the {$LIBSUFFIX AUTO} back in the .dpk file and it works. It's not exactly what I wanted, but I guess I will accept it. I guess we can consider this question closed.

Embarcadero packages binary compatibility issues in minor IDE releases

2026-09-24T15:25:47Z

It is a well-known fact that major version upgrades (e.g. Delphi 11 to Delphi 12) break binary compatibility explicitly. Nobody expects files compiled in Delphi 11 to work in Delphi 12 and vice versa.

However, for minor / point releases (e.g. 12.0 to 12.1), Embarcadero officially aims to maintain binary compatibility. Files compiled in Delphi 7 should work in Delphi 7.1 and vice versa. Same should be for Delphi 12 <-> Delphi 12.1.

That is because minor releases, e.g. Delphi 7 and 7.1, as well as Delphi 12 and 12.1 and 12.2, are considered to be the "same IDE". One cannot have Delphi 7 and 7.1, or Delphi 12 and 12.1 and 12.2, installed on the same machine at the same time. But, you can install major releases at the same time, e.g. Delphi 7 and Delphi 12.2.

It is also a well-known fact that Embarcadero messed this up sometimes. When they started to release major upgrades as minor releases (like introducing a new platform in a minor release). I may be mistaken, but there were breaking binary compatibility issues of various degrees in 10.2, 10.3, 10.4, 11, 12, and now in 13. This is getting ridiculous. My packages compiled in 13.2 can't be loaded in 13.1 due to missing imports from RTL/VCL packages.

How would you work around this issue for shipping your packages to other people? If I compile my packages in some minor IDE release (like 13.2) - these packages can't be loaded in another minor IDE release (like 13.1 or 13). I can't install Delphi 13, Delphi 13.1 and Delphi 13.2 at the same time to have 3 versions of my packages for each IDE update.

How to change library and browsing paths through OTAPI?

2026-09-24T11:14:59Z

I am writing a Delphi IDE plugin which allows me to change global library and browsing paths for a specific platform, by directly modifying an appropriate Registry key under HKEY_CURRENT_USER\...\Library\<PlatformName>.

After the Registry key is successfully changed, opening the "Options" dialog still shows the old settings. It will pick up new values from the Registry only after I restart the IDE.

According to How instruct to the Delphi IDE refresh the modified syntax highlight colors using OTA (Open Tools API)?, there is no way I can force the IDE to reload its Registry settings.

Is there a way to change the global library and browsing paths for specified platforms through OTAPI instead of modifying the Registry?

Understanding how TImageList, TActionToolBar and TActionManager Work Together Related to the Image Size

2026-09-18T22:05:10Z

I am working with Delphi's TImageList, TActionToolBar, and TActionManager controls to setup a toolbar in my application. I'm not understanding why the images in the image list are showing up smaller in the toolbar than what the actual image size is in the image list. The PNG images in the image list are currently 128x128. I understand that DPI Scaling could be a factor here but I presently have that option disabled in my development environment (/highdpi:unaware from the command-line). The images in the toolbar appear to alwasy be the same size regardless of actual image size, and when I run the application they appear even smaller then they do in the IDE form.

I've attempted to set the height of the toolbar, but the system resets the value back to 26. I'm trying t understand the relationship of how these controls all work together to show the selected images from the image list at the actual size of the image because I'm missing something that's for sure.

Missing platform selection in Delphi 13 CE

2026-09-07T07:53:54Z

After trying out the Delphi 13 trial version for 30 days, I installed the Community Edition once it became available. I had uninstalled the previous version beforehand. Although I selected both Windows and Android during installation, only Windows 64-bit appears in the IDE. It is not possible to activate Android or install the Android platform; the relevant menu options are either grayed out or do not appear at all. I have gone through the entire process twice—with the same result each time.

How can I activate/use the Android platform alongside the Windows 64-bit version in Delphi 13 CE?

How to handle linefeeds in data fields using a CSV file [duplicate]

2026-08-15T07:43:29Z

I have a test app that loads a CSV file into a ListView using Stringlists.

The app works fine when there are no additional linefeeds in any of the data fields.

If a linefeed is present in any of the data field then the routine is broken and additional rows are created.

How do I handle linefeeds that are embedded in a CSV file data field?

This is the form code:

object frmMain: TfrmMain
  Left = 0
  Top = 0
  Caption = 'Main'
  ClientHeight = 609
  ClientWidth = 1036
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object gbImport_File: TGroupBox
    Left = 0
    Top = 0
    Width = 1036
    Height = 63
    Align = alTop
    Caption = 'Import File'
    TabOrder = 0
    object lbFile_Name: TLabel
      Left = 8
      Top = 26
      Width = 50
      Height = 13
      Caption = 'File Name:'
    end
    object lbFile_Name_Display: TLabel
      Left = 64
      Top = 26
      Width = 3
      Height = 13
    end
    object btnSelect_File: TBitBtn
      Left = 817
      Top = 15
      Width = 217
      Height = 46
      Align = alRight
      Caption = '&Select File'
      Glyph.Data = {
        36030000424D3603000000000000360000002800000010000000100000000100
        18000000000000030000130B0000130B00000000000000000000D4D4D4D4D4D4
        D4D4D4D4D4D4D4D4D4D4D4D4D4D4D4D4D4D4D4D4D4D4D4D4D4D4D4D4D4D4D4D4
        D4BACFDCCBC8CCFAF8F9D4D4D4D4D4D4D4D4D4D4D4D4D4D4D4D4D4D4D4D4D4D4
        D4D4D4D4D4D4D4D4D4D4D4D4D4D486A7C6259AE568A2C6DDE2E1D4D4D4D4D4D4
        D4D4D4D4D4D4D4D4D4D4D4D4D4D4D4D4D4D4D4D4D4D4D4D4D4D4D48AB1D01497
        E48CE3FD85E4FBC1DFF0D4D4D4D4D4D4D4D4D4D4D4D4D4D4D4D4D4D4D4D4D4D4
        D4D4D4D4D4D4D4D484A1C31996EA87E1F977DDF67EC1E9D4D4D4D4D4D4D4D4D4
        D4D4D4D4D4D4D4D4D4D4D4D4D4D4D4D4D4D4D4D4D493BAD51B9AE892E2FC7EDE
        F78FCDEBD4D4D4D4D4D4D4D4D4D4D4D4D4D4D4D4D4D4C5B7B9BAA8AACEC6C7D4
        D4D4D4D4D49CAFC079CDEC82E1F883C4E5D4D4D4D4D4D4D4D4D4D4D4D4D4D4D4
        A38E909E877ED5CAC2E4DEDDD8CDC8BAA9A3B2A2A4C5B4B3B6C7D79ED4EED4D4
        D4D4D4D4D4D4D4D4D4D4D4D4D4957F7FC19987FFF4D8FDFEEAFEFFFBFFFFF0FC
        F3DBDBC3B6C9BBB8D4D4D4D4D4D4D4D4D4D4D4D4D4D4D4D4D4D4DFD8D9A87C68
        FFD1A9FEE3C2FFF6DBFDFDE5FFF8DEFEEACAFBD0B2CEBDACD4D4D4D4D4D4D4D4
        D4D4D4D4D4D4D4D4D4D4B3A3A2DD9E7DFCC393FFD4ADFDE1BEFCE7C6FFE4C1FC
        D7B1FFC59BE4B99DE3DBDDECECECECECECECECECECECECECECECAE9694EC9E6D
        F5B179FCC192FECDA4FDCCA6FCCAA0FCC99CFAC88CF0BC91D9D2D2ECECECECEC
        ECECECECECECECECECECB8A8A4E4A26CFBC28BFFD7A2FEE1B2FDE8BCFFE8BAFD
        E2B0FFD5A2EAC09DDEDDDEECECECECECECECECECECECECECECECE0D9DABA8D7A
        FFD6A2FFE5B6FFF0C6FDF2D0FFF2CEFEEFC8FFE2B4D5BFB4ECECECECECECECEC
        ECECECECECECECECECECECECECB9A29FDEBB99FFF3C6FDF7D4FBF8E0FFFADEFE
        F5D4EAD3B9E2D9DBECECECECECECECECECECECECECECECECECECECECECECECEC
        C2B0A9C7B3A1F3E5D2FAF5E7EFE6D7D8CABBDBD1D3ECECECECECECECECECECEC
        ECECECECECECECECECECECECECECECECECECECECE8E5D3CBC8D6CAC6DFD5D6F3
        EFF0ECECECECECECECECECECECECECECECECECECECECECECECEC}
      TabOrder = 0
      OnClick = btnSelect_FileClick
    end
  end
  object lvResults: TListView
    Left = 0
    Top = 63
    Width = 1036
    Height = 409
    Align = alClient
    Columns = <>
    GridLines = True
    MultiSelect = True
    RowSelect = True
    SortType = stBoth
    TabOrder = 1
    ViewStyle = vsReport
  end
  object Memo1: TMemo
    Left = 0
    Top = 472
    Width = 1036
    Height = 137
    Align = alBottom
    ScrollBars = ssVertical
    TabOrder = 2
  end
end

The is the underlining code:

unit uMain;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls, Vcl.StdCtrls, Vcl.Buttons,
  System.StrUtils{PosEx};

const
  Con_NewLine = #13;

  {$REGION 'Delimiter'}
  Con_Comma_Deliminter = ',';
  {$ENDREGION 'Delimiter'}

type
  TfrmMain = class(TForm)
    gbImport_File: TGroupBox;
    btnSelect_File: TBitBtn;
    lvResults: TListView;
    Memo1: TMemo;
    lbFile_Name: TLabel;
    lbFile_Name_Display: TLabel;
    procedure btnSelect_FileClick(Sender: TObject);
  private
    { Private declarations }
    function Load_CSV_To_ListView(TheListView: TListView; const InitialDir: String; const Row_Delimiter, Column_Delimiter: String; const Use_First_Col_As_Row_No: Boolean): String;
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;

implementation

{$R *.dfm}

procedure TfrmMain.btnSelect_FileClick(Sender: TObject);
begin
  lbFile_Name_Display.Caption := Load_CSV_To_ListView(lvResults{TheListView}, 'C:\Temp'{InitialDir},
                                                      Con_NewLine{Row_Delimiter}, Con_Comma_Deliminter{Column_Delimiter}, True{Use_First_Col_As_Row_No});
end;

function TfrmMain.Load_CSV_To_ListView(TheListView: TListView; const InitialDir: String; const Row_Delimiter, Column_Delimiter: String; const Use_First_Col_As_Row_No: Boolean): String;
var
  slAll_Rows,
  slSingle_Row: TStringList;
  Row, Col, Start_Pos: Integer;
  NewItem: TListItem;
  NewColumn: TListColumn;
  OpenDialog1: TOpenDialog;
begin
  Result := '';
  OpenDialog1 := TOpenDialog.Create(nil);
  try
    OpenDialog1.InitialDir := InitialDir;
    OpenDialog1.Filter := 'CSV|*.csv';
    {$REGION 'if OpenDialog1.Execute then'}
    if OpenDialog1.Execute then
    begin
      Result := OpenDialog1.FileName;
      slAll_Rows := TStringList.Create;
      slSingle_Row := TStringList.Create;

      try
        {$REGION 'StringList All Rows'}
        slAll_Rows.LoadFromFile(OpenDialog1.FileName);
        slAll_Rows.Delimiter := Con_NewLine;
        slAll_Rows.StrictDelimiter := True;
        {$ENDREGION 'StringList All Rows'}

        {$REGION 'StringList Single Row'}
        slSingle_Row.Delimiter := Con_Comma_Deliminter;
        slSingle_Row.StrictDelimiter := True;
        {$ENDREGION 'StringList Single Row'}

        Memo1.Clear;

        // Freeze UI updates for better performance
        TheListView.Items.BeginUpdate;
        try
          TheListView.Clear;
          TheListView.Columns.Clear;
          TheListView.ViewStyle := vsReport; // Ensure report view is used

          slSingle_Row.DelimitedText := slAll_Rows[0];

          {$REGION 'Use_First_Col_As_Row_No?'}
          if Use_First_Col_As_Row_No then
          begin
            NewColumn := TheListView.Columns.Add;
            NewColumn.Caption := 'Row No';
            NewColumn.Alignment := taCenter; // Doesnt work on the first column
            NewColumn.Width := 90;
          end;
          {$ENDREGION 'Use_First_Col_As_Row_No?'}

          {$REGION '1. Process the Header Row (Line 0) to build columns'}
          for Col := 0 to slSingle_Row.Count - 1 do
          begin
            NewColumn := TheListView.Columns.Add;
            NewColumn.Caption := slSingle_Row[Col];
            NewColumn.Width := 90; // Set default column width
          end;
          {$ENDREGION '1. Process the Header Row (Line 0) to build columns'}

          {$REGION '2. Process Data Rows (Lines 1 to End)'}
          for Row := 1 to slAll_Rows.Count - 1 do
          begin
            slSingle_Row.DelimitedText := slAll_Rows[Row];

            NewItem := TheListView.Items.Add;

            {$REGION 'Use_First_Col_As_Row_No?'}
            // The first column data goes into the Caption
            if Use_First_Col_As_Row_No then
            begin
              NewItem.Caption := Row.ToString;
              Start_Pos := 0;
            end
            else
            begin
              NewItem.Caption := slSingle_Row[0];
              Start_Pos := 1;
            end;
            {$ENDREGION 'Use_First_Col_As_Row_No?'}

            {$REGION 'Loop through the Columns'}
            for Col := Start_Pos to slSingle_Row.Count - 1 do
            begin
              NewItem.SubItems.Add(slSingle_Row[Col]);
            end;
            {$ENDREGION 'Loop through the Columns'}
          end;
          {$ENDREGION '2. Process Data Rows (Lines 1 to End)'}
        finally
          // Unfreeze UI and repaint
          TheListView.Items.EndUpdate;
        end;

      finally
        slAll_Rows.Free;
        slSingle_Row.Free;
      end;
    end; // if OpenDialog1.Execute then
    {$ENDREGION 'if OpenDialog1.Execute then'}
  finally
    OpenDialog1.Free;
  end;
end;

end.

Test 1 .csv file:

Expense No,Submission No,First Name,Last Name,User Reference,Department,Job Number,"Category ",Category Reference,Description,Expense Date,Submission Date,VAT Code,VAT Amount,Net Amount,Gross Amount,Notes
EI27064346,EI4981279,Adam,Martin,,ENGINEERING,24/1188/,ENTERTAINMENT,,Client drinks,01/07/2026,31/07/2026,Y,0.00,56.80,56.80,
EI27064396,EI4981279,Adam,Martin,,ENGINEERING,24/1218/,ENTERTAINMENT,,Client breakfast,02/07/2026,31/07/2026,Y,0.00,79.35,79.35,
EI27064467,EI4981279,Adam,Martin,,ENGINEERING,24/1218/,ENTERTAINMENT,,Client coffee,02/07/2026,31/07/2026,Y,0.00,17.68,17.68,

Test 1 results (ok):

Test 2 .csv file with extra line feed on last data field:

Expense No,Submission No,First Name,Last Name,User Reference,Department,Job Number,"Category ",Category Reference,Description,Expense Date,Submission Date,VAT Code,VAT Amount,Net Amount,Gross Amount,Notes
EI27134276,EI4995828,Rob,Elms,,ENGINEERING,24/1218/,ENTERTAINMENT,,"Entertainment ",04/08/2026,04/08/2026,Y,0.00,79.99,79.99,Witnessing lunch
EI27137034,EI4996305,Rob,Elms,,ENGINEERING,24/1218/,MATERIALS FOR SITE,,"Snagging materials ",04/08/2026,04/08/2026,X,19.23,96.16,115.39,"
"
EI27133560,EI4995533,Siobhan,Watson,,ENGINEERING,25/1335/,TRAVEL,,Travel Card - Weekly,26/07/2026,04/08/2026,Y,0.00,64.20,64.20,

Test 2 results (creates an extra row):

Test 3 .csv file with extra line feed on 2nd to last data field:

Expense No,Submission No,First Name,Last Name,User Reference,Department,Job Number,"Category ",Category Reference,Description,Expense Date,Submission Date,VAT Code,VAT Amount,Net Amount,Gross Amount,Notes,Accounts Only
EI27134276,EI4995828,Rob,Elms,,ENGINEERING,24/1218/,ENTERTAINMENT,,"Entertainment ",04/08/2026,04/08/2026,Y,0.00,79.99,79.99,Witnessing lunch,
EI27137034,EI4996305,Rob,Elms,,ENGINEERING,24/1218/,MATERIALS FOR SITE,,"Snagging materials ",04/08/2026,04/08/2026,X,19.23,96.16,115.39,"
",
EI27133560,EI4995533,Siobhan,Watson,,ENGINEERING,25/1335/,TRAVEL,,Travel Card - Weekly,26/07/2026,04/08/2026,Y,0.00,64.20,64.20,,

Test 3 results (creates an extra row):

In all three test I want just 3 data rows.

I dont have control of what gets exported.

If additional linefeeds are present in any data field then I need to somehow not treat it as a new row.

Excel can handle all three test examples and displays the three data rows only.

How to fill in color between two lines of a series in TMS FNC Charts?

2026-08-14T23:17:28Z

Can someone please help me? I have Delphi code that draws lines in a TMS FNC Chart like this:

I would like for it to look more as shown in the image below, where it fills in color between the lines:

I have been stuck on this for weeks now and can not get it to be coloured as shown. I have no idea how to do this or if it is even possible in the charts.

This is my code:

unit MainForm;

interface

uses
  System.UITypes,
  FMX.Forms,
  FMX.Types,
  FMX.TMSFNCChart,
  FMX.TMSFNCGraphicsTypes;

type
  TMainChartForm = class(TForm)
    procedure FormCreate(Sender: TObject);
  end;

var
  MainChartForm: TMainChartForm;

implementation

{$R *.fmx}

procedure TMainChartForm.FormCreate(Sender: TObject);
begin
  var FirstAge := 17.0;
  var LastAge := 100.0;
  var BodyWeightRangeColor: TAlphaColor := $FF1B5E20;
  var CVRangeColor: TAlphaColor := $FF1A237E;
  var DDR02BodyWeightStandard: TArray<Double> := [
    0.0, 1650.0, 1700.0, 1725.0, 1750.0, 1770.0, 1790.0, 1805.0,
    1820.0, 1833.0, 1844.0, 1853.0, 1861.0, 1869.0, 1877.0, 1885.0,
    1893.0, 1901.0, 1909.0, 1917.0, 1925.0, 1933.0, 1941.0, 1949.0,
    1957.0, 1965.0, 1972.0, 1978.0, 1983.0, 1987.0, 1990.0, 1992.0,
    1993.0, 1994.0, 1994.0, 1995.0, 1995.0, 1996.0, 1996.0, 1997.0,
    1997.0, 1998.0, 1998.0, 1999.0, 1999.0, 2000.0, 2000.0, 2001.0,
    2001.0, 2002.0, 2002.0, 2003.0, 2003.0, 2004.0, 2004.0, 2005.0,
    2005.0, 2006.0, 2006.0, 2007.0, 2007.0, 2008.0, 2008.0, 2009.0,
    2009.0, 2010.0, 2010.0, 2011.0, 2011.0, 2012.0, 2012.0, 2013.0,
    2013.0, 2014.0, 2014.0, 2015.0, 2015.0, 2016.0, 2016.0, 2017.0,
    2017.0, 2018.0, 2018.0, 2019.0];

  var Chart := TTMSFNCChart.Create(Self);
  Chart.Parent := Self;
  Chart.Align := TAlignLayout.Client;

  Chart.BeginUpdate;
  try
    Chart.Title.Text := '';
    Chart.Legend.Visible := True;
    Chart.Series.Clear;

    var BodyWeightLower := Chart.Series.Add;
    var BodyWeightUpper := Chart.Series.Add;
    var CVLower := Chart.Series.Add;
    var CVUpper := Chart.Series.Add;
    var AllRangeSeries: TArray<TTMSFNCChartSerie> :=
      [BodyWeightLower, BodyWeightUpper, CVLower, CVUpper];

    for var Series in AllRangeSeries do
    begin
      Series.ChartType := ctLine;
      Series.Mode := smMathematical;
      Series.Stroke.Kind := gskDash;
      Series.Stroke.Width := 5;
      Series.Fill.Kind := gfkNone;
      Series.Markers.Visible := False;
      Series.Labels.Visible := False;
      Series.AutoXRange := arDisabled;
      Series.MinX := FirstAge;
      Series.MaxX := LastAge;
      Series.XValues.MajorUnit := 3;
      Series.XValues.MajorUnitFormat := '%.0f';
    end;

    var BodyWeightSeries: TArray<TTMSFNCChartSerie> :=
      [BodyWeightLower, BodyWeightUpper];
    for var Series in BodyWeightSeries do
    begin
      Series.Stroke.Color := BodyWeightRangeColor;
      Series.AutoYRange := arDisabled;
      Series.MinY := 1400;
      Series.MaxY := 2300;
      Series.YValues.MajorUnit := 100;
      Series.YValues.MajorUnitFormat := '%.0f';
    end;

    BodyWeightLower.LegendText :=
      'Body Weight Optimum Range (95-105%)';
    BodyWeightLower.ShowInLegend := True;
    BodyWeightLower.XValues.Positions := [xpBottom];
    BodyWeightLower.XValues.Title.Text := 'Age (weeks)';
    BodyWeightLower.YValues.Positions := [ypLeft];
    BodyWeightLower.YValues.Title.Text := 'Body weight (g)';
    BodyWeightUpper.LegendText := '';
    BodyWeightUpper.ShowInLegend := False;
    BodyWeightUpper.XValues.Positions := [];
    BodyWeightUpper.YValues.Positions := [];

    for var StandardIndex := 0 to High(DDR02BodyWeightStandard) - 1 do
      for var Tenth := 0 to 9 do
      begin
        var StandardWeight := DDR02BodyWeightStandard[StandardIndex] +
          (DDR02BodyWeightStandard[StandardIndex + 1] -
           DDR02BodyWeightStandard[StandardIndex]) * Tenth / 10.0;
        if StandardWeight <= 0 then
          Continue;

        var AgeValue := FirstAge + StandardIndex + Tenth / 10.0;

        with BodyWeightLower.Points.Add do
        begin
          XValue := AgeValue;
          YValue := StandardWeight * 0.95;
        end;
        with BodyWeightUpper.Points.Add do
        begin
          XValue := AgeValue;
          YValue := StandardWeight * 1.05;
        end;
      end;

    var CVSeries: TArray<TTMSFNCChartSerie> := [CVLower, CVUpper];
    for var Series in CVSeries do
    begin
      Series.Stroke.Color := CVRangeColor;
      Series.AutoYRange := arDisabled;
      Series.MinY := 0;
      Series.MaxY := 32;
      Series.YValues.MajorUnit := 4;
      Series.YValues.MajorUnitFormat := '%.1f';
      Series.XValues.Positions := [];
    end;

    CVLower.LegendText := 'CV Optimum Range (7-8%)';
    CVLower.ShowInLegend := True;
    CVLower.YValues.Positions := [ypRight];
    CVLower.YValues.Title.Text := 'CV (%)';
    CVUpper.LegendText := '';
    CVUpper.ShowInLegend := False;
    CVUpper.YValues.Positions := [];

    with CVLower.Points.Add do
    begin
      XValue := FirstAge;
      YValue := 7;
    end;
    with CVLower.Points.Add do
    begin
      XValue := LastAge;
      YValue := 7;
    end;
    with CVUpper.Points.Add do
    begin
      XValue := FirstAge;
      YValue := 8;
    end;
    with CVUpper.Points.Add do
    begin
      XValue := LastAge;
      YValue := 8;
    end;

    Chart.InteractionOptions.Panning := False;
  finally
    Chart.EndUpdate;
  end;
end;

end.

Does anyone know how to achieve this, please?

Striped lines are not following the entire series in TMS FNC Charts

2026-08-14T23:10:41Z

I have Delphi code that draws striped lines on a TMS FNC Chart like this:

Notice how the green "Body Weight Optimum Range" series only has striped lines in the beginning and then for some reason they don't have striped lines anymore for the rest of the lines.

This is my code to create the chart:

unit MainForm;

interface

uses
  System.UITypes,
  FMX.Forms,
  FMX.Types,
  FMX.TMSFNCChart,
  FMX.TMSFNCGraphicsTypes;

type
  TMainChartForm = class(TForm)
    procedure FormCreate(Sender: TObject);
  end;

var
  MainChartForm: TMainChartForm;

implementation

{$R *.fmx}

procedure TMainChartForm.FormCreate(Sender: TObject);
begin
  var FirstAge := 17.0;
  var LastAge := 100.0;
  var BodyWeightRangeColor: TAlphaColor := $FF1B5E20;
  var CVRangeColor: TAlphaColor := $FF1A237E;
  var DDR02BodyWeightStandard: TArray<Double> := [
    0.0, 1650.0, 1700.0, 1725.0, 1750.0, 1770.0, 1790.0, 1805.0,
    1820.0, 1833.0, 1844.0, 1853.0, 1861.0, 1869.0, 1877.0, 1885.0,
    1893.0, 1901.0, 1909.0, 1917.0, 1925.0, 1933.0, 1941.0, 1949.0,
    1957.0, 1965.0, 1972.0, 1978.0, 1983.0, 1987.0, 1990.0, 1992.0,
    1993.0, 1994.0, 1994.0, 1995.0, 1995.0, 1996.0, 1996.0, 1997.0,
    1997.0, 1998.0, 1998.0, 1999.0, 1999.0, 2000.0, 2000.0, 2001.0,
    2001.0, 2002.0, 2002.0, 2003.0, 2003.0, 2004.0, 2004.0, 2005.0,
    2005.0, 2006.0, 2006.0, 2007.0, 2007.0, 2008.0, 2008.0, 2009.0,
    2009.0, 2010.0, 2010.0, 2011.0, 2011.0, 2012.0, 2012.0, 2013.0,
    2013.0, 2014.0, 2014.0, 2015.0, 2015.0, 2016.0, 2016.0, 2017.0,
    2017.0, 2018.0, 2018.0, 2019.0];

  var Chart := TTMSFNCChart.Create(Self);
  Chart.Parent := Self;
  Chart.Align := TAlignLayout.Client;

  Chart.BeginUpdate;
  try
    Chart.Title.Text := '';
    Chart.Legend.Visible := True;
    Chart.Series.Clear;

    var BodyWeightLower := Chart.Series.Add;
    var BodyWeightUpper := Chart.Series.Add;
    var CVLower := Chart.Series.Add;
    var CVUpper := Chart.Series.Add;
    var AllRangeSeries: TArray<TTMSFNCChartSerie> :=
      [BodyWeightLower, BodyWeightUpper, CVLower, CVUpper];

    for var Series in AllRangeSeries do
    begin
      Series.ChartType := ctLine;
      Series.Mode := smMathematical;
      Series.Stroke.Kind := gskDash;
      Series.Stroke.Width := 5;
      Series.Fill.Kind := gfkNone;
      Series.Markers.Visible := False;
      Series.Labels.Visible := False;
      Series.AutoXRange := arDisabled;
      Series.MinX := FirstAge;
      Series.MaxX := LastAge;
      Series.XValues.MajorUnit := 3;
      Series.XValues.MajorUnitFormat := '%.0f';
    end;

    var BodyWeightSeries: TArray<TTMSFNCChartSerie> :=
      [BodyWeightLower, BodyWeightUpper];
    for var Series in BodyWeightSeries do
    begin
      Series.Stroke.Color := BodyWeightRangeColor;
      Series.AutoYRange := arDisabled;
      Series.MinY := 1400;
      Series.MaxY := 2300;
      Series.YValues.MajorUnit := 100;
      Series.YValues.MajorUnitFormat := '%.0f';
    end;

    BodyWeightLower.LegendText :=
      'Body Weight Optimum Range (95-105%)';
    BodyWeightLower.ShowInLegend := True;
    BodyWeightLower.XValues.Positions := [xpBottom];
    BodyWeightLower.XValues.Title.Text := 'Age (weeks)';
    BodyWeightLower.YValues.Positions := [ypLeft];
    BodyWeightLower.YValues.Title.Text := 'Body weight (g)';
    BodyWeightUpper.LegendText := '';
    BodyWeightUpper.ShowInLegend := False;
    BodyWeightUpper.XValues.Positions := [];
    BodyWeightUpper.YValues.Positions := [];

    for var StandardIndex := 0 to High(DDR02BodyWeightStandard) - 1 do
      for var Tenth := 0 to 9 do
      begin
        var StandardWeight := DDR02BodyWeightStandard[StandardIndex] +
          (DDR02BodyWeightStandard[StandardIndex + 1] -
           DDR02BodyWeightStandard[StandardIndex]) * Tenth / 10.0;
        if StandardWeight <= 0 then
          Continue;

        var AgeValue := FirstAge + StandardIndex + Tenth / 10.0;

        with BodyWeightLower.Points.Add do
        begin
          XValue := AgeValue;
          YValue := StandardWeight * 0.95;
        end;
        with BodyWeightUpper.Points.Add do
        begin
          XValue := AgeValue;
          YValue := StandardWeight * 1.05;
        end;
      end;

    var CVSeries: TArray<TTMSFNCChartSerie> := [CVLower, CVUpper];
    for var Series in CVSeries do
    begin
      Series.Stroke.Color := CVRangeColor;
      Series.AutoYRange := arDisabled;
      Series.MinY := 0;
      Series.MaxY := 32;
      Series.YValues.MajorUnit := 4;
      Series.YValues.MajorUnitFormat := '%.1f';
      Series.XValues.Positions := [];
    end;

    CVLower.LegendText := 'CV Optimum Range (7-8%)';
    CVLower.ShowInLegend := True;
    CVLower.YValues.Positions := [ypRight];
    CVLower.YValues.Title.Text := 'CV (%)';
    CVUpper.LegendText := '';
    CVUpper.ShowInLegend := False;
    CVUpper.YValues.Positions := [];

    with CVLower.Points.Add do
    begin
      XValue := FirstAge;
      YValue := 7;
    end;
    with CVLower.Points.Add do
    begin
      XValue := LastAge;
      YValue := 7;
    end;
    with CVUpper.Points.Add do
    begin
      XValue := FirstAge;
      YValue := 8;
    end;
    with CVUpper.Points.Add do
    begin
      XValue := LastAge;
      YValue := 8;
    end;

    Chart.InteractionOptions.Panning := False;
  finally
    Chart.EndUpdate;
  end;
end;

end.

Does anyone know how to fix this?

Delphi FMX Billing-8.0.0

2026-07-31T15:26:25Z

I'm using RAD Studio 13.1 Florence. I want to upgrade the Billing library to 8.0.0. I'm successfully submitting products linked to Google Play, but the onProductDetailsResponse event never triggers. However, when I revert the library version to Billing-7.1.1, the code works without any problems.

How can I upgrade my application to Billing-8.0.0? I'm sharing the code:

procedure TfrmSG_AnaForm.Urunleri_Sorgula;
var
  ProductList: JArrayList;
  Product: JQueryProductDetailsParams_Product;
  QueryParamsBuilder: JQueryProductDetailsParams_Builder;
  QueryParams: JQueryProductDetailsParams;
begin
try
  if not Assigned(FBillingClient) or not FBillingClient.isReady then
  begin
    //frmSG_AnaForm.Bildirim_Mesaji('Billing servisi henüz hazır değil!', True, False);
    ShowMessage( 'Billing servisi henüz hazır değil!' );
    Exit;
  end;

  ProductList := TJArrayList.JavaClass.init;


  // --- ÜRÜN 1 ---
  Product := TJQueryProductDetailsParams_Product.JavaClass.newBuilder
    .setProductId(StringToJString(frmGoogle_Play_Satis.Elmas_100))
    .setProductType(TJBillingClient_ProductType.JavaClass.INAPP)
    .build;
  ProductList.add(Product);

  // --- ÜRÜN 2 ---
  Product := TJQueryProductDetailsParams_Product.JavaClass.newBuilder
    .setProductId(StringToJString(frmGoogle_Play_Satis.Elmas_500))
    .setProductType(TJBillingClient_ProductType.JavaClass.INAPP)
    .build;
  ProductList.add(Product);

  // --- ÜRÜN 3 ---
  Product := TJQueryProductDetailsParams_Product.JavaClass.newBuilder
    .setProductId(StringToJString(frmGoogle_Play_Satis.Elmas_1000))
    .setProductType(TJBillingClient_ProductType.JavaClass.INAPP)
    .build;
  ProductList.add(Product);

  // --- ÜRÜN 4 ---
  Product := TJQueryProductDetailsParams_Product.JavaClass.newBuilder
    .setProductId(StringToJString(frmGoogle_Play_Satis.Elmas_10000))
    .setProductType(TJBillingClient_ProductType.JavaClass.INAPP)
    .build;
  ProductList.add(Product);

  // --- ÜRÜN 5 ---
  Product := TJQueryProductDetailsParams_Product.JavaClass.newBuilder
    .setProductId(StringToJString(frmGoogle_Play_Satis.Elmas_100000))
    .setProductType(TJBillingClient_ProductType.JavaClass.INAPP)
    .build;
  ProductList.add(Product);

 { if ProductList.size > 0 then
      ShowMessage( 'İçi Dolu ' );   }

  //ShowMessage( 'ürünleri ekledi.' );

  // --- QUERY PARAMS OLUŞTURMA (DÜZELTİLEN KISIM) ---
    QueryParamsBuilder := TJQueryProductDetailsParams.JavaClass.newBuilder;

  // 2. ArrayList'i JList interface'ine Wrap ederek Builder'a veriyoruz
    QueryParamsBuilder.setProductList(TJList.Wrap(ProductList));

  // 3. Son olarak parametre nesnesini build ediyoruz
    QueryParams := QueryParamsBuilder.build;

  //ShowMessage( 'paketlendi.' );

  // --- SORGULAMA ---
  ProductListener := TProductDetailsResponseListener.Create;

  FBillingClient.queryProductDetailsAsync(QueryParams, ProductListener);

  //FBillingClient.queryPurchasesAsync( QueryParams, ProductListener  );

  //ShowMessage( 'paketler yüklendi.' );

except on e : Exception do
  TThread.Synchronize( nil,
  procedure
  begin
    ShowMessage( e.Message );
  end );
end;
end;

procedure TfrmSG_AnaForm.OnBillingConnected;
begin
  // Bağlantı %100 başarılı!
  //Bildirim_Mesaji( 'Google Play Billing v8 Servisine Başarıyla Bağlanıldı! 🚀', True, True);
  Urunleri_Sorgula;
end;

procedure TfrmSG_AnaForm.OnBillingDisconnected;
begin
  // Bağlantı koptuğunda çalışır (örneğin Google Play Store güncellenirse)
  //ShowMessage('Billing Servis Bağlantısı Koptu, Yeniden Bağlanılıyor...');
  // İsterseniz burada SetupBilling; çağırarak tekrar bağlanmayı deneyebilirsiniz.
end;

constructor TProductDetailsResponseListener.Create;
begin
  inherited Create;
  ShowMessage( 'Create Tetiklendi.' );
end;

procedure TProductDetailsResponseListener.onProductDetailsResponse(
  billingResult: JBillingResult; productDetailsList: JList); cdecl;
var
  ResCode: Integer;
  DebugMsg: string;
  I : Integer;
  Details: JProductDetails;
begin
  TThread.Queue( nil,
  procedure
  begin
    ShowMessage( 'Veri Geldi ' );
  end );

  ResCode := billingResult.getResponseCode;
  DebugMsg := JStringToString(billingResult.getDebugMessage);

    // 1. Durum: Google Başarılı Yanıt Dündü
    if ResCode = TJBillingClient_BillingResponseCode.JavaClass.OK then
    begin
      if Assigned(productDetailsList) and (productDetailsList.size > 0) then
      begin
        frmSG_AnaForm.FProductDetailsList.Clear;

        for I := 0 to productDetailsList.size - 1 do
        begin
          Details := TJProductDetails.Wrap(productDetailsList.get(I));
          frmSG_AnaForm.FProductDetailsList.Add(Details);
        end;

        frmSG_AnaForm.Bildirim_Mesaji('BAŞARILI: ' + IntToStr(productDetailsList.size) + ' adet ürün yüklendi!', False, False);
      end
      else
      begin
        // Google 'OK' dedi ama liste BOMBOŞ döndü!
        frmSG_AnaForm.Bildirim_Mesaji('GOOGLE BOŞ DÖNDÜ: IDler eşleşmiyor veya Play Console ürünü aktif değil!', True, False);
      end;
    end
    else
    begin
      // 2. Durum: Google Hata Döndürdü
      frmSG_AnaForm.Bildirim_Mesaji('GOOGLE HATA KODU: ' + IntToStr(ResCode) + ' - ' + DebugMsg, True, False);
    end;

end;

Can´t debug Delphi exception in RAD Studio

2026-07-30T14:31:59Z

I have some strange behavior of my IDE or Project.

Two projects, same code.

For example: to reproduce an exception, I declare stringlist and try to add string into it without creating a list.

procedure TForm1.Button1Click(Sender: TObject);
var
  sl: TStringList;
begin
  try
    sl.Add('bla');
  except
    on E: Exception do
    begin
      Memo1.Lines.Add(')))');
      raise Exception.Createfmt('Fehlermeldung', ['']);
    end;
  end;
end;

I place a debug breakpoint on

Memo1.Lines.Add(')))');

Project one: I click button, get only one notification from my IDE "access violation"

I click forward and it goes on to the debug point.

Project two: I do the same steps like in project one and it jumping over exception block. I click button, get notification from my IDE, click forward on notification and now I get infinity notifications over Debugger -Exception "EIntOverflow"... "Integeroverflow"

But only in debug mode, if I start the .exe, it works.

IDispatch::Invoke crashes server-side COM framework for basic IAccessible implementation for child count 1+ for IAccessible::get_accChildCount

2026-07-25T23:42:14Z

I'm trying to implement basic accessibility support for a custom GUI (server-side) - all GUI controls are custom/non-MS - via IAccessible. However, my COM framework keeps crashing. Even pure skeletal definitions crash.

The crash appears to be centered around IDispatch::Invoke(). Whenever IAccessible::get_accChildCount() is called and returns 1 or more for the child count, IDispatch::Invoke() is called thereafter and crashes the app. Even a bare "non-implemented" version of IDispatch crashes at Invoke(). The value for iid for Invoke() is also not IID_NULL.

I'm using "Accessibility Insights for Windows" and "Visual UIA Verify" as client apps to probe my app/test the COM framework.

I code in Borland Delphi 3 Professional (32-bit) using Object Pascal, and wish to implement the COM framework as pure binary vTables and standard COM functions using stdcall.

OleVariant seems unstable in Delphi 3. I have swapped it out for tcomvar (16 bytes for 32-bit and 24 bytes for 64-bit). I have tried various different function parameter definitions, higher-level object/interface definitions, even imported IAccessible using the "Import Type Library" function in Delphi 3, but all to no success. I even tried the COM framework in Borland Delphi 7 with no change, it still crashes.

I am new to COM, but understand the basic design principal governing its function.

However, everything I have tried to date has failed to fix the IDispatch::Invoke() error. I suspect it is something simple I have overlooked. But trying to get precise, accurate, and detailed information at this low level in Object Pascal from the Internet has been a real challenge.

I have tried Copilot and Google's AI extensively over days. Both are helpful, but lack the technical background and accuracy to get right down to the nitty gritty detail where it counts.

I could simply deny the request for the IID_IDispatch interface in QueryInterface(), but I suspect it is required for proper/broad client app support, e.g. scripting engines etc, and also, I'd like to understand what the error actually is, and what I have done wrong, so I can fix it.

I've included a stripped down demo version of the COM framework hooked to a standard TForm for the WM_GETOBJ message for testing purposes only.

Any help is much appreciated.

unit com1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, com2,
  ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
  private
    procedure wmgetobj(var Message: TMessage); message wm_getobject;
  public

  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.wmgetobj(var Message: TMessage);
var
  m                  :twinmessage;
begin
  if not form1.showing then exit;

  m.r                   :=0;
  m.l                   :=message.lparam;
  m.w                   :=message.wparam;
  m.m                   :=message.msg;

  if auto__wmgetobject(nil,m) then message.result:=m.r;
end;

end.

unit com2;

interface

{$ifdef WIN64}{$define 64bit}{$endif}

uses sysutils;

const
  VT_EMPTY                     =0;
  VT_NULL                      =1;
  VT_I4                        =3;
  VT_DISPATCH                  =9;
  VT_BYREF                     =$4000;
  min32                        =-2147483647-1;
  max32                        = 2147483647;
  maxcore                      =999;//gui
  WM_GETOBJECT                 =61;
  OBJID_WINDOW                 =0;
  OBJID_CLIENT                 =-4;
  S_OK                         =$00000000;
  S_FALSE                      =$00000001;
  E_FAIL                       =$80004005;//10apr2026
  E_NOINTERFACE                =$80004002;
  E_INVALIDARG                 =$80070057;
  E_NOTIMPL                    =$80004001;//17jul2026
  DISP_E_BADINDEX              =$8002000B;
  DISP_E_MEMBERNOTFOUND        =$80020003;
  DISP_E_UNKNOWNNAME           =$80020006;
  DISP_E_UNKNOWNINTERFACE      =-2147352575;
  iid_null                     :tguid='{00000000-0000-0000-0000-000000000000}';
  iid_unknown                  :tguid='{00000000-0000-0000-C000-000000000046}';//IUnknown
  iid_dispatch                 :tguid='{00020404-0000-0000-C000-000000000046}';//automation/scripting interface (VB,office, etc)
  iid_accessible               :tguid='{618736E0-3C3D-11CF-810C-00AA00389B71}';//IAccessible
  ROLE_SYSTEM_APPLICATION      =14;
  ROLE_SYSTEM_OUTLINE          =35;
  ROLE_SYSTEM_PUSHBUTTON       =43;
  DISPATCH_METHOD              =1;
  DISPATCH_PROPERTYGET         =2;
  DISPATCH_PROPERTYPUT         =4;
  DISPATCH_PROPERTYPUTREF      =8;

type
  longint32                    =longint;
  longint64                    =comp;
  {$ifdef 64bit}
  iauto                        =longint64;
  hauto                        =longint64;
  {$else}
  iauto                        =longint32;
  hauto                        =longint32;
  {$endif}
  pauto                        =pointer;
  bstr                         =pauto;
  uint32                       =longint32;//32 bit only
  pwinmessage                  =^twinmessage;
  twinmessage                  =record//09jan2025

    m                           :iauto;
    w                           :iauto;
    l                           :iauto;
    r                           :iauto;

  end;

  pint64                       =^tint64;
  tint64                       =packed record
    case longint of

      0:(val:longint64);
      1:(cmp:comp);
      2:(cur:currency);
      3:(dbl:double);
      4:(bytes:array[0..7] of byte);
      5:(wrds:array[0..3] of word);
      6:(ints:array[0..1] of longint);
      7:(bits:set of 0..63);
      8:(datetime:tdatetime);

  end;

  pcomvar                      =^tcomvar;
  tcomvar                      =packed record

    vt                          :word;
    wreserved1                  :word;
    wreserved2                  :word;
    wreserved3                  :word;//8 bytes

    case longint32 of
      vt_i4                       :(i32:longint32);
      vt_dispatch                 :(dispatch:pauto);

      vt_byref or vt_i4           :(pi32:^longint32);
      vt_byref or vt_dispatch     :(pdispatch:^pauto);

      max32                       :(a:pauto;b:pauto);//8 bytes (32-bit) or 16 bytes (64-bit)

  end;

  tbasiccontrol                =tobject;//sample GUI control

  pautoslot                    =^tautoslot;
  tautoslot                    =record

    vtable                      :pauto;
    flist                       :array[0..28] of pauto;
    cok                         :boolean;
    c                           :tbasiccontrol;
    slot                        :longint32;

  end;

  pautoinfo                    =^tautoinfo;
  tautoinfo                    =record

    timer1000                   :longint64;
    active                      :boolean;
    lasttime                    :longint64;
    slotCount                   :longint32;//number of COM slots in use
    mcount                      :longint32;//message count -> "wmgetobject" requests
    qcount                      :longint32;//call count for "queryInterface"
    ucount                      :longint32;//call count for IUnknown
    dcount                      :longint32;//call count for IDispatch
    acount                      :longint32;//call count for IAccessible
    temp                        :longint32;

  end;

var
  auto_list                    :array[-1..maxcore] of tautoslot;//18jul2026
  auto_info                    :tautoinfo;

//automation procs
procedure auto__init;
function  auto__connect(const xcontrol:tbasiccontrol):longint32;
procedure auto__connectBySlot(const xcontrol:tbasiccontrol;const xslot:longint32);
procedure auto__disconnect(const xcontrol:tbasiccontrol;var xcontrolSlot:longint32);
function  auto__root(const xslot:longint32):pautoslot;
function auto__wmgetobject(const g:tobject;var m:twinmessage):boolean;

//support procs
function rollid32(var x:longint32):longint32;
function com__guidMatch(const s,d:tguid):boolean;
function com__makebstr(const x:string):pauto;
function bolstr(const x:boolean):string;
function low__cls(const x:pointer;const xsize:longint32):boolean;
procedure showbasic(const x:string);
function win____MessageBox(hWnd:hauto; lpText, lpCaption: PChar; uType: uint32): longint32; stdcall; external 'user32.dll' name 'MessageBoxA';
function win____LresultFromObject(const refiid:TGUID;wparam:iauto;punk:IUnknown):iauto;stdcall; external 'oleacc.dll' name 'LresultFromObject';
function win____DefWindowProc(hWnd: hauto; Msg: iauto; wParam: iauto; lParam: iauto): iauto; stdcall; external 'user32.dll' name 'DefWindowProcA';
function win____CoInitializeEx(pvReserved: pauto; coInit: Longint): hauto; stdcall; external 'ole32.dll' name 'CoInitializeEx';
function win____CoInitialize(pvReserved: pauto): hauto; stdcall; external 'ole32.dll' name 'CoInitialize';
function win____SysAllocString(x:pauto):pauto; stdcall; external 'oleaut32.dll' name 'SysAllocString';

//comvar procs
function comvar__ok(var x:tcomvar):boolean;
function comvar__vt(var x:tcomvar):longint32;
function comvar__i32OK(var x:tcomvar):boolean;
function comvar__i32(var x:tcomvar):longint32;
function comvar__i32b(var x:tcomvar;const xdefVal:longint32):longint32;
function comvar__dispatchOK(var x:tcomvar):boolean;
function comvar__dispatch(var x:tcomvar):pauto;
procedure comvar__init(var x:tcomvar);
procedure comvar__setnull(var x:tcomvar);
procedure comvar__setempty(var x:tcomvar);
procedure comvar__seti32(var x:tcomvar;const v:longint32);
procedure comvar__setDispatch(var x:tcomvar;const v:pauto);

implementation

uses forms, com1;

//automation procs
function auto__iunknown__addref(self:pauto):longint32;stdcall;
begin
  result             :=2;
end;

function auto__iunknown__queryinterface(self:pauto;const iid:tguid;out obj):longint32;stdcall;
begin
  rollid32( auto_info.ucount );

  if com__guidMatch( iid ,iid_unknown    ) or
     com__guidMatch( iid ,iid_dispatch   ) or
     com__guidMatch( iid ,iid_accessible ) then

  begin
    rollid32( auto_info.qcount );

    result             :=s_ok;
    pauto(obj)         :=self;
  end

  else begin
    result             :=e_nointerface;
    pauto(obj)         :=nil;
  end;

end;

function auto__iunknown__release(self:pauto):longint32;stdcall;
begin
  result                :=1;
end;

function auto__idispatch__GetTypeInfoCount(self:pauto;out count:longint32):longint32;stdcall;
begin
  rollid32(auto_info.dcount);
  result                :=E_NOTIMPL;
  count:=0;
end;

function auto__idispatch__GetTypeInfo(self:pauto;index,localeid:longint32;out typeinfo):longint32;stdcall;
begin
  rollid32(auto_info.dcount);
  result                :=E_NOTIMPL;
  pauto(typeinfo):=nil;
end;

function auto__idispatch__GetIDsOfNames(self:pauto;const IID:TGUID;names:pauto;nameCount,localeid:longint32;dispids:pauto):longint32;stdcall;
begin
  rollid32(auto_info.dcount);
  result                :=E_NOTIMPL;
end;

function auto__idispatch__Invoke(self:pauto;xdispid:longint32;const iid:tguid;localeid:longint32;flags:word;var Params;varresult:pcomvar; excepinfo,argerr:pauto ):longint32;stdcall;
begin
  rollid32(auto_info.dcount);
  result                :=E_NOTIMPL;

  //note: inbound "iid" should be "iid_null" but it's not
  if com__guidMatch(iid,iid_null) then
  begin
    //triggers a crash when "const" is removed from above function definition
  end;

  if (varresult<>nil) then
  begin
    varresult^.vt:=vt_null;//triggers a crash
  end;

  excepinfo   :=nil;
  argerr      :=nil;
end;

function auto__get_accParent(self:pauto;out ppdispParent:IDispatch):longint32;stdcall;
begin
  rollid32(auto_info.acount);
  result      :=s_ok;

  if (self=@auto_list[0]) then ppdispParent:=nil
  else                         ppdispParent:=idispatch( @auto_list[0] );

end;

function auto__get_accChildCount(self:pauto;out pcountChildren:longint32):longint32;stdcall;
begin
  rollid32(auto_info.acount);

  //simulate root control (auto_list[0]) with 10 children
  if (self=@auto_list[0]) then
  begin
    result                :=s_ok;
    pcountChildren        :=10;//triggers call to idispatch::invoke which crashes app
    end
  else begin
    result                :=E_NOTIMPL;
    pcountChildren        :=0;
  end;
end;

function auto__get_accChild(self:pauto;vChild:tcomvar;out ppdispChild:IDispatch):longint32;stdcall;
begin
  rollid32(auto_info.acount);

  case comvar__i32(vchild) of
    1..max32:begin
      result                :=s_ok;
      ppdispChild           :=idispatch( @auto_list[1] );
    end;

  else begin
      result                :=E_NOTIMPL;
      ppdispChild           :=nil;
    end;
  end;//case

end;

function auto__get_accName(self:pauto;vChild:tcomvar;out pszName:bstr):longint32;stdcall;
begin
  rollid32(auto_info.acount);
  result                :=s_ok;
  pszName               :=com__makebstr('control.name.'+inttostr(comvar__i32b(vchild,-999)));//25jul2026
end;

function auto__get_accValue(self:pauto;vChild:tcomvar;out pszValue:bstr):longint32;stdcall;
begin
  rollid32(auto_info.acount);
  result                :=DISP_E_MEMBERNOTFOUND;
  pszvalue              :=nil;
end;

function auto__get_accDescription(self:pauto;vChild:tcomvar;out pszDescription:bstr):longint32;stdcall;
begin
  rollid32(auto_info.acount);
  result                :=DISP_E_MEMBERNOTFOUND;
  pszDescription        :=nil;
end;

function auto__get_accRole(self:pauto;vChild:tcomvar;pvarRole:pcomvar):longint32;stdcall;
begin
  rollid32(auto_info.acount);
  result                :=E_INVALIDARG;

  if (pvarRole<>nil) then
  begin
    result             :=s_ok;
    comvar__seti32(pvarRole^,ROLE_SYSTEM_PUSHBUTTON);
  end;

end;

function auto__get_accState(self:pauto;vChild:tcomvar;out pvarState:pcomvar):longint32;stdcall;
begin
  rollid32(auto_info.acount);
  result                :=DISP_E_MEMBERNOTFOUND;//E_INVALIDARG;
  if (pvarState<>nil) then comvar__setempty(pvarState^);
end;

function auto__get_accHelp(self:pauto;vChild:tcomvar;out pszHelp:bstr):longint32;stdcall;
begin
  rollid32(auto_info.acount);
  result                :=DISP_E_MEMBERNOTFOUND;
  pszHelp               :=nil;
end;

function auto__get_accHelpTopic(self:pauto;out pszHelpFile:bstr;vChild:tcomvar;out pidTopic:longint32):longint32;stdcall;
begin
  rollid32(auto_info.acount);
  result                :=DISP_E_MEMBERNOTFOUND;
  pszHelpFile           :=nil;
  pidTopic              :=0;
end;

function auto__get_accKeyboardShortcut(self:pauto;vChild:tcomvar;out pszShortcut:bstr):longint32;stdcall;
begin
  rollid32(auto_info.acount);
  result                :=DISP_E_MEMBERNOTFOUND;
  pszShortcut           :=com__makebstr('Ctrl+F');//dummy value
  result                :=s_ok;
end;

function auto__get_accFocus(out pvarChild:pcomvar): longint32;stdcall;
begin
  rollid32(auto_info.acount);
  result                :=DISP_E_MEMBERNOTFOUND;

  if (pvarChild<>nil) then
  begin
    result             :=s_ok;
    comvar__seti32(pvarChild^,3);//return child 3 as focused
  end;

end;

function auto__get_accSelection(self:pauto;out pvarChildren:pcomvar):longint32;stdcall;
begin
  rollid32(auto_info.acount);
  result                :=DISP_E_MEMBERNOTFOUND;
end;

function auto__get_accDefaultAction(self:pauto;vChild:tcomvar;out pszDefaultAction:bstr):longint32;stdcall;
begin
  rollid32(auto_info.acount);
  result                :=s_false;
  pszDefaultAction      :=nil;
end;

function auto__accSelect(self:pauto;flagsSelect:longint32;varChild:tcomvar):longint32;stdcall;
begin
  rollid32(auto_info.acount);
  result                :=s_false;//or DISP_E_MEMBERNOTFOUND;
end;

function auto__accLocation(self:pauto;out pxLeft,pyTop,pcxWidth,pcyHeight:longint32;out varChild:pcomvar):longint32;stdcall;
begin
  rollid32(auto_info.acount);
  result                :=DISP_E_MEMBERNOTFOUND;
  pxLeft                :=0;
  pyTop                 :=0;
  pcxWidth              :=0;
  pcyHeight             :=0;
end;

function auto__accNavigate(self:pauto;navDir:longint32;varStart:tcomvar;out pvarEndUpAt:pcomvar):longint32;stdcall;
begin
  rollid32(auto_info.acount);
  result                :=s_false;//or DISP_E_MEMBERNOTFOUND;
end;

function auto__accHitTest(self:pauto;xLeft,yTop:longint32;out pvarChild:pcomvar):longint32;stdcall;
begin
  rollid32(auto_info.acount);
  result                :=s_false;//or DISP_E_MEMBERNOTFOUND;
end;

function auto__accDoDefaultAction(self:pauto;varChild:tcomvar):longint32;stdcall;
begin
  rollid32(auto_info.acount);
  result                :=DISP_E_MEMBERNOTFOUND;
end;

function auto__put_accName(self:pauto;varChild:tcomvar;const pszName:widestring):longint32;stdcall;
begin
  rollid32(auto_info.acount);
  result                :=E_NOTIMPL;//discontinued
end;

function auto__put_accValue(self:pauto;vChild:tcomvar;const pszName:widestring):longint32;stdcall;
begin
  rollid32(auto_info.acount);
  result                :=DISP_E_MEMBERNOTFOUND;
end;

//gui level procs
procedure auto__init;
var
  p                  :longint32;

begin

  //init -------------------------------------------------------------------------

  ismultithread:=true;
  win____CoInitialize(nil);

  low__cls( @auto_info ,sizeof(auto_info) );
  low__cls( @auto_list ,sizeof(auto_list) );

  auto__connectBySlot( nil ,-1 );//emergency fallback slot

  //make dummy controls
  for p:=0 to 99 do auto__connect( tbasiccontrol.create );

end;

function auto__connect(const xcontrol:tbasiccontrol):longint32;
var
  p                  :longint32;

begin

  //defaults
  result                :=-1;

  //check
  if (xcontrol=nil) then exit;

  //find existing
  for p:=0 to high(auto_list) do
  begin

    if auto_list[p].cok and (auto_list[p].c=xcontrol) then
    begin

      result             :=p;
      exit;

    end;

  end;//p

  //find new
  for p:=0 to high(auto_list) do
  begin

    if not auto_list[p].cok then
    begin
      result             :=p;
      break;
    end;

  end;//p

  //at capacity
  if (result=-1) then exit;

  //connect
  auto__connectBySlot( xcontrol ,result );

end;

procedure auto__connectBySlot(const xcontrol:tbasiccontrol;const xslot:longint32);
var
  findex                       :longint32;

  procedure fadd(const f:pauto);
  begin

    if ( findex <= high(auto_list[0].flist) ) then
    begin

      if (f<>nil) then
      begin

        auto_list[xslot].flist[ findex ] :=f;

        inc( findex );

      end;

    end

    else begin

      showbasic('Warning: COM function exceeds capacity for tautoslot');

    end;

  end;

begin

  //check
  if (xslot<low(auto_list)) or (xslot>high(auto_list)) then exit;


  //set root vars ----------------------------------------------------------------

  auto_list[xslot].c              :=xcontrol;
  auto_list[xslot].cok            :=(xcontrol<>nil);
  auto_list[xslot].slot           :=xslot;//25jul2025

  //add COM interfaces -----------------------------------------------------------

  //.unknown
  with auto_list[xslot] do
  begin

    vtable                          :=@flist[0];
    flist[0]                        :=@auto__iunknown__queryinterface;
    flist[1]                        :=@auto__iunknown__addref;
    flist[2]                        :=@auto__iunknown__release;
    findex                          :=3;

  end;

  //.dispatch
  fadd( @auto__idispatch__GetTypeInfoCount    );
  fadd( @auto__idispatch__GetTypeInfo         );
  fadd( @auto__idispatch__GetIDsOfNames       );
  fadd( @auto__idispatch__Invoke              );

  //.accessible
  fadd( @auto__get_accParent                  );
  fadd( @auto__get_accChildCount              );
  fadd( @auto__get_accChild                   );
  fadd( @auto__get_accName                    );
  fadd( @auto__get_accValue                   );
  fadd( @auto__get_accDescription             );
  fadd( @auto__get_accRole                    );
  fadd( @auto__get_accState                   );
  fadd( @auto__get_accHelp                    );
  fadd( @auto__get_accHelpTopic               );
  fadd( @auto__get_accKeyboardShortcut        );
  fadd( @auto__get_accFocus                   );
  fadd( @auto__get_accSelection               );
  fadd( @auto__get_accDefaultAction           );
  fadd( @auto__accSelect                      );
  fadd( @auto__accLocation                    );
  fadd( @auto__accNavigate                    );
  fadd( @auto__accHitTest                     );
  fadd( @auto__accDoDefaultAction             );
  fadd( @auto__put_accName                    );
  fadd( @auto__put_accValue                   );

end;

procedure auto__disconnect(const xcontrol:tbasiccontrol;var xcontrolSlot:longint32);
var
  p                  :longint32;

begin

  //check
  if (xcontrol=nil) then exit;

  //fast
  if (xcontrolSlot>=0) and (xcontrolSlot<=high(auto_list)) and (auto_list[xcontrolSlot].cok) and (auto_list[xcontrolSlot].c=xcontrol) then
  begin

    auto_list[xcontrolSlot].cok  :=false;
    auto_list[xcontrolSlot].c    :=nil;
    xcontrolSlot                 :=-1;
    exit;

  end;

  //slow
  for p:=0 to high(auto_list) do
  begin

    if auto_list[p].cok and (auto_list[p].c=xcontrol) then
    begin

      auto_list[p].cok   :=false;
      auto_list[p].c     :=nil;
      xcontrolSlot       :=-1;
      exit;

    end;

  end;

  //fallback
  xcontrolSlot          :=-1;

end;

function auto__root(const xslot:longint32):pautoslot;
begin
  if (xslot>=0) and (xslot<=high(auto_list)) and auto_list[xslot].cok then result:=@auto_list[xslot]
  else                                                                     result:=@auto_list[-1];//fallback
end;

function auto__wmgetobject(const g:tobject;var m:twinmessage):boolean;
begin

  //defaults
  result      :=false;

  //iaccessible
  if (m.l=OBJID_Window) then
  begin
    rollid32( auto_info.mcount );
    result   :=true;
    m.r      :=win____LresultFromObject( iid_accessible ,m.w ,iunknown( @auto_list[0] ) );
  end

  else if (longint32(m.l)=OBJID_CLIENT) then
  begin
    rollid32( auto_info.mcount );
    result   :=true;
    m.r      :=win____LresultFromObject( iid_accessible ,m.w ,iunknown( @auto_list[0] ) );
  end;

end;


//support procs
function rollid32(var x:longint32):longint32;//1..max32, never <=0
begin
  if      (x<=0)    then x:=1
  else if (x<max32) then x:=x+1
  else                   x:=1;

  result:=x;
end;

function com__guidMatch(const s,d:tguid):boolean;//18jul2026
begin
  result      :=
                ( s.d1    = d.d1    ) and
                ( s.d2    = d.d2    ) and
                ( s.d3    = d.d3    ) and
                ( s.d4[0] = d.d4[0] ) and
                ( s.d4[1] = d.d4[1] ) and
                ( s.d4[2] = d.d4[2] ) and
                ( s.d4[3] = d.d4[3] ) and
                ( s.d4[4] = d.d4[4] ) and
                ( s.d4[5] = d.d4[5] ) and
                ( s.d4[6] = d.d4[6] ) and
                ( s.d4[7] = d.d4[7] );
end;

function com__makebstr(const x:string):pauto;//COM basic string
var
  a        :widestring;
begin
  a           :=x;
  result      :=win____sysallocstring( pwidestring(a) );
end;

function bolstr(const x:boolean):string;
begin
  if x then result:='1' else result:='0';
end;

function low__cls(const x:pointer;const xsize:longint32):boolean;
begin
  result:=(x<>nil);
  if result then fillchar(x^,xsize,0);
end;

procedure showbasic(const x:string);
begin
  win____MessageBox( 0 ,pchar(x) ,'Information' ,$00000000+$40 );
end;

function comvar__ok(var x:tcomvar):boolean;
begin

  case x.vt of
    vt_empty                     :result:=true;
    vt_null                      :result:=true;
    vt_i4                        :result:=true;
    vt_i4 or vt_byref            :result:=true;
    vt_dispatch                  :result:=true;
    vt_dispatch or vt_byref      :result:=true;
  else                            result:=false;
  end;//case

end;

function comvar__vt(var x:tcomvar):longint32;
begin
  result                       :=x.vt;
end;

function comvar__i32OK(var x:tcomvar):boolean;
begin
  case x.vt of
    vt_i4                        :result:=true;
    vt_i4 or vt_byref            :result:=true;
  else                            result:=false;
  end;//case
end;

function comvar__i32(var x:tcomvar):longint32;
begin
  case x.vt of
    vt_i4                        :result:=x.i32;
    vt_i4 or vt_byref            :result:=x.pi32^;
  else                            result:=0;
  end;//case
end;

function comvar__i32b(var x:tcomvar;const xdefVal:longint32):longint32;
begin
  case x.vt of
    vt_i4                        :result:=x.i32;
    vt_i4 or vt_byref            :result:=x.pi32^;
  else                            result:=xdefVal;
  end;//case
end;

function comvar__dispatchOK(var x:tcomvar):boolean;
begin
  case x.vt of
    vt_dispatch                  :result:=true;
    vt_dispatch or vt_byref      :result:=true;
  else                            result:=false;
  end;//case
end;

function comvar__dispatch(var x:tcomvar):pauto;
begin
  case x.vt of
    vt_dispatch                  :result:=x.dispatch;
    vt_dispatch or vt_byref      :result:=x.pdispatch^;
  else                            result:=nil;
  end;//case
end;

procedure comvar__init(var x:tcomvar);
begin
  low__cls(@x,sizeof(x));
end;

procedure comvar__setnull(var x:tcomvar);
begin
  x.vt                         :=vt_null;
end;

procedure comvar__setempty(var x:tcomvar);
begin
  x.vt                         :=vt_empty;
end;

procedure comvar__seti32(var x:tcomvar;const v:longint32);
begin
  x.vt                         :=vt_i4;
  x.i32                        :=v;
end;

procedure comvar__setDispatch(var x:tcomvar;const v:pauto);
begin
  x.vt                         :=vt_dispatch;
  x.dispatch                   :=v;
end;

initialization
  auto__init;

end.

Delphi 13 , compile error using old source code with DUNITX

2026-07-01T11:52:31Z

I have moved my code over many Delphi versions - without any change on the code base .

The upgrade from Delphi 10.4 to Delphi 13 for my dunitx testcases failed :

Working code Delphi 10.4

assert.AreEqual(aList.Count, 3, 'Items count OK ?');

New Working code Delphi 13.1

assert.AreEqual<Integer>(aList.Count,Integer(3), 'Items count OK ?');

Did the Delphi compiler become worse ? ..... because the compiler cannot automatically determine the type parameter for the generic any longer ??

Has my previous old solution been wrong ?

Only final project in Project Group (bpg) runs correctly

2026-06-29T15:55:09Z

My Delphi project group (.bpg) has three projects:

PROJECTS = Proj1.exe Proj2.exe Proj3.exe

When loaded in the IDE, I can switch between (activate) projects. All projects build correctly and can be debugged. The EXEs can also be launched from outside the IDE.

The problem is the 'Run Without Debugging' option in the IDE. Only the final project (Proj3) is able to use 'Run Without Debugging'... all the others produce an error:

System Error. Code 2.The system cannot find the file specified.

I have tried the following:

Changed the order of projects in the .bpg. The result is the same: only the final project can use 'Run Without Debugging' - the others produce error code 2. Regardless of the order, all projects build correctly and can be debugged.
Closed the project group and loaded each project separately in their own IDE. The result is that all work correctly: build, can be debugged, and can use 'Run Without Debugging'.

Is this the only way around this problem?

Delphi IDE issue "no code formatting possible"

2026-06-28T14:17:24Z

I have a strange issue with a recent installation of Delphi 13: The functions "Format Source" and "Refactor" are disabled. What happened to my installation? Where can I fix this issue?

Screen dump: "Format Source Ctrl+D" is disabled in the context menu.

Possible Delphi Win64 Debugger Bug: Volatile registers (RCX/RDX) truncated to 32-bit after breakpoints under heavy multithreaded load

2026-06-23T13:52:22Z

I am developing a high-performance PS/PDF RIP workflow engine in Delphi (Win64 target). The rendering engine relies heavily on multithreading and custom assembly blocks (AVX/YMM instructions for RLE processing).

I recently encountered a severe “Heisenbug”: the application runs flawlessly in Release mode, “Run without debugging” (Ctrl+Shift+F9) or even “Run” (F9) in Debug mode. However, when breakpoints are used, stepping over certain breakpoints causes random, catastrophic Access Violations deep inside the assembly routines.

Since placing breakpoints altered the timing and masked the issue, I wrote a custom, nearly zero-overhead, lock-free logger using lock xadd and rdtsc instructions to time-stamp the event and dump raw CPU registers into a pre-allocated memory block without waking the OS thread scheduler.

What the lock-free logger revealed was shocking. Under heavy thread contention, if a thread hits a breakpoint and pauses, resuming it (F9) occasionally causes 64-bit parameter register corruption (RCX, RDX, etc.). This happened when I placed the breakpoint right on the place I called the virtual assembly routine from (logging immediately before the call, and at the very first line of the assembly routine).

For example, my logger captured RCX entering a routine as a valid 64-bit pointer:
PRE-BREAKPOINT: 00007FF49F698690

After the IDE paused on the breakpoint and I pressed F9 to resume, the immediate next instruction logged the exact same register as:
POST-BREAKPOINT: 000000009F698690

The upper 32 bits were completely zeroed out, effectively decapitating the pointer and causing an immediate access violation when dereferenced.

This likely does not happen in a simple, single-threaded test app. It only manifests under heavy CPU load, with dozens of threads actively rendering and allocating memory, and only after multiple iterations of hitting a breakpoint.

Such a decapitated CPU register strongly points to a possible registers’ restoration bug in Delphi. Moreover, I can’t see how a thread can affect other threads’ CPU data.

So, is this a known (or at least suspectable) architectural flaw in the Delphi 64-bit debugger's context restoration under stress? Or, Delphi is right here and there is rather a deeply obscure bug in my code?

Embarcadero® Delphi 13 Version 37.0.59082.6021 (32-bit)

How to find Google Drive's assigned letter?

2026-06-19T09:02:11Z

I have a Delphi program which needs to know Google Drive's drive letter. It appears that the default friendly name is "Google Drive", so I enumerate my drives and look for that text. This works, but this friendly name can be modified by the user.

How can I find Google Drive's drive letter more reliably? I searched the registry, but couldn't find the currently assigned drive letter (default, "G:\").

OS is Windows 11.

In Delphi, how to use the 'implements' directive with a generic interface type?

2026-06-16T11:17:29Z

I want to contain an interface instance inside a container instance while being able to:

synchronize lifetime
not alter the contained instance
be able to resolve the inner interface from the outer, and vice versa

The problem is that the implements directive does not support generic types. It gives this error:

interface type required

  IStoreOption = interface
    ['{FC40203E-104F-488D-B7B7-4B0D831F6150}']
    procedure Read(Value: IConnection);
    procedure Write(Value: IConnection);
  end;

  ITest = interface
    ['{84F0DD99-34C6-433D-9FA1-5DAB8BED3386}']
    procedure SayHello;
  end;

  TTest = class(TInterfacedObject, ITest)
  protected
    procedure SayHello;
  end;

  TStoreOption<T: IInterface> = class(TInterfacedObject, IStoreOption, T)
  private
    fValue: T;
  protected
    property Value: T read fValue implements T;
  public
    constructor Create(Value: T);
    procedure Read(Value: IConnection);
    procedure Write(Value: IConnection);
  end;

  function GetTest: ITest;
  begin
    var StoreOption := TStoreOption<ITest>.Create(TTest.Create) as IStoreOption;
    Supports(StoreOption, ITest, Result);
  end;

  procedure Save(Value: IInterface);
  begin
    var StoreOption: IStoreOption;
    if Supports(Value, IStoreOption, StoreOption) then
      StoreOption.Write(Connection);
  end;

  procedure RunTest;
  begin
    Save(GetTest);
  end;

How can I implement this correctly so it works?

How to migrate Indy to 64bit OpenSSL DLLs?

2026-06-08T17:09:39Z

I'm in the process of migrating my Delphi 12 apps from 32bit to 64bit. Currently I'm using Indy with the 32bit OpenSSL DLLs (libeay32.dll and ssleay32.dll).

When I change to 64bit and try to run the app, I get the 'Could not load SSL library' error. Then I went to GitHub to download 64bit versions of these DLLs from https://github.com/IndySockets/OpenSSL-Binaries.

Downloaded the file, but there are a lot of folders inside like:

openssl-1.0.2q-x64_86-win64
openssl-1.0.2r-x64_86-win64
openssl-1.0.2s-x64_86-win64

Tried to use the first one, but still get the same exception. Which one should I use? Even the DLLs inside the x64 folders have '32' in their name, so I'm confused.

AfterPost or AfterDelete

2026-06-05T11:56:53Z

I’m working with Delphi 10.4.2, VCL, FireDAC and EhLib.

In a real application, I have a TFDMemTable connected to EhLib data-aware controls, mainly TDBGridEh and TDBEditEh. The dataset is loaded from JSON, using CreateDataSet() / Append() / field assignment / Post(). During the JSON load I temporarily disable dataset events and restore them afterwards.

The issue is that in the application, in Release mode, the TFDMemTable fires BeforePost and BeforeDelete, but it does not fire AfterPost or AfterDelete. The same TFDMemTable does fire those After* events in an isolated test.

Some relevant details:

TFDMemTable
VCL application
Delphi 10.4.2
EhLib controls: TDBGridEh, TDBEditEh
Delete is triggered from TDataSetDelete / grid UI
UpdateOptions.AutoCommitUpdates = True
ResourceOptions.SilentMode = True
BeforePost fires
BeforeDelete fires
AfterPost does not fire
AfterDelete does not fire
In an isolated test, the events do fire

Is there any known interaction between EhLib data-aware controls and TFDMemTable that could prevent AfterPost / AfterDelete from being fired, or alter the dataset state/action flow in a way that skips those events?

Interlocked functions on unsigned variables

2026-06-04T15:49:10Z

what is the safe and correct way to atomically write unsigned variables using the Interlocked* functions or TInterlocked?

In the function below, are (A) and (B) fully atomic and threadsafe?
Or is (C) or (D) required?

procedure TForm1.Button3Click(Sender: TObject);
var
  tLastReload: UInt64;
begin
  TInterlocked.Exchange(Int64(tLastReload),1);  //A
  InterlockedExchange64(Int64(tLastReload),2);  //B

  TInterlocked.Exchange(PInt64(@tLastReload)^,3); //C
  InterlockedExchange64(PInt64(@tLastReload)^,4); //D
end;

DELPHI : [dcc64 Fehler] E1026 File not found : 'DUnitX.Loggers.GUI.VCL.dfm'

2026-06-04T13:27:15Z

I need some help getting my DUNIT testcases up and compiling again after the upgrade to DELPHI 11.

This is the top of my command-line testcase program; it is compiling and functional.

{$IFNDEF TESTINSIGHT}
{$APPTYPE CONSOLE}
{$ENDIF}{$STRONGLINKTYPES ON}
uses
  {$IFDEF TESTINSIGHT}
  TestInsight.DUnitX,
  {$ENDIF }
  System.SysUtils,
  DUnitX.Loggers.Console,
  DUnitX.Loggers.Xml.NUnit,
  //DUnitX.Loggers.GUI.VCL,
  DUnitX.TestFramework,

The GUI Version is basically the same, but here the unit : 'DUnitX.Loggers.GUI.VCL.dfm' is needed .

{$R *.res}
uses
  Vcl.Forms,
  System.SysUtils,
  DUnitX.Loggers.XML.NUnit,
  DUnitX.Test,
  DUnitX.TestFixture,
  DUnitX.TestFramework,
  DUnitX.TestResult,
  DUnitX.RunResults,
  DUnitX.TestRunner,
  DUnitX.Utils,
  DUnitX.WeakReference,
  DUnitX.Windows.Console,
  DUnitX.Loggers.Null,
  DUnitX.MemoryLeakMonitor.Default,
  DUnitX.AutoDetect.Console,
  DUnitX.ConsoleWriter.Base,
  DUnitX.Extensibility,
  DUnitX.Extensibility.PluginManager,
  DUnitX.FixtureProviderPlugin,
  DUnitX.FixtureResult,
  DUnitX.Generics,
  DUnitX.InternalInterfaces,
  DUnitX.IoC,
  DUnitX.Loggers.Console,
  DUnitX.CommandLine.OptionDef,
  DUnitX.CommandLine.Options,
  DUnitX.CommandLine.Parser,
  DUnitX.OptionsDefinition,
  DUnitX.Banner,
  DUnitX.FilterBuilder,
  DUnitX.Filters,
  DUnitX.CategoryExpression,
  DUnitX.TestNameParser,
  // DUnitX.Loggers.GUI.VCL,
  DUnitX.Timeout,
  DUnitX.Exceptions,
  DUnitX.ResStrs,

The compiler claims the unit has not been found. If I try to remove this unit, compilation fails here

Application.CreateForm(TGUIVCLTestRunner, GUIVCLTestRunner);

Q: how to fix my DUNITX installation , why is this unit not found

DELPHI : Working with many different monitor config's

2026-06-03T08:38:37Z

I'm using Delphi 11 and have upgraded from Delphi 10.4. Since the upgrade, I've noticed some very weird behavior in the Delphi IDE. Whenever I load a new project, the IDE shrinks to a minimized/tiny window (about 300 px × 50 px) on my monitor. I then have to click the maximize button (top-right) to restore it.

Moreover, some of the dialog windows do not match in size correctly, therefore the "OK" button is not visible and I can't use the function.

Additionally, Delphi always jumps to my first monitor, but I want Delphi to always stay on Monitor #2.

I have several physical workplaces, and each place has a different monitor configuration. In my home office, I have the laptop display and 2 additional 4K monitors with different resolutions.

I want Delphi always to open on monitor #2 and full window mode.

Possible race in TIdUDPServer.CloseBinding: listener thread keeps raw Binding reference while CloseBinding closes it before WaitFor

2026-06-03T02:50:21Z

I am investigating an intermittent AV during rapid TIdUDPServer.Active := False/True cycles in a Delphi 12.2 application.

The crash happens in the UDP close path, at:

TIdUDPServer.CloseBinding
  LListener.Binding.CloseSocket;

I checked the stock Indy source shipped with Delphi 12.2:

C:\Program Files (x86)\Embarcadero\Studio\23.0\source\Indy10\Core\IdUDPServer.pas

The relevant code has this ownership/order pattern:

procedure TIdUDPServer.CloseBinding;
begin
  LListenerThreads := FListenerThreads.LockList;
  try
    while LListenerThreads.Count > 0 do begin
      LListener := TIdUDPListenerThread(LListenerThreads[0]);

      LListener.Stop;
      LListener.Binding.CloseSocket;
      LListener.WaitFor;
      LListener.Free;
      LListenerThreads.Delete(0);
    end;
  finally
    FListenerThreads.UnlockList;
  end;
end;

The listener thread also touches the same binding from its own thread:

procedure TIdUDPListenerThread.AfterRun;
begin
  inherited AfterRun;
  FBinding.CloseSocket;
end;

The listener stores the binding as a raw object reference:

TIdUDPListenerThread = class(TIdThread)
protected
  FBinding: TIdSocketHandle;

TIdThread.Stop only sets the stopped/terminated state. It does not wait for the thread to finish. WaitFor is called only after LListener.Binding.CloseSocket.

So the ownership model seems to be:

TIdUDPServer.Bindings owns the TIdSocketHandle objects.
TIdUDPListenerThread stores a non-owning FBinding reference to one of them.
CloseBinding locks only the listener list, not the binding lifetime.
TIdSocketHandle.CloseSocket locks the socket handle fields of a live object, but it does not pin the lifetime of the TIdSocketHandle object itself.
The listener thread may still run AfterRun and touch FBinding while the owner thread is already in CloseBinding.

In an instrumented run I saw a listener that was created with a valid socket handle, then during shutdown its FBinding.Handle became a garbage value before the AV:

bind #0 handle=972
bind #1 handle=1084
listener #0 STARTED
listener #1 STARTED
CloseBinding -> listener #0
AfterRun: listener #0 closes handle=3145776
AV at LListener.Binding.CloseSocket

This does not look like a harmless double CloseSocket on the same live object. If both threads reached the same live TIdSocketHandle, FConnectionHandle inside TIdSocketHandle.CloseSocket should serialize the close. The problem appears to be that the listener's FBinding reference is no longer a coherent live binding object by the time shutdown code uses it.

Questions:

Is TIdUDPServer.CloseBinding intended to be safe under rapid Active := False / Active := True cycles?
Is the ordering in CloseBinding correct? In particular, should it call LListener.Binding.CloseSocket before LListener.WaitFor, while the listener thread can still execute AfterRun and use FBinding?
Is there an official Indy workaround? For example:
- avoid auto-created dual IPv4/IPv6 bindings and explicitly create one binding;
- never clear/change Bindings after activation;
- serialize Active changes externally;
- patch CloseBinding to stop/wake/wait in a different order.

Update

I investigated this further, and I think the original suspicion about TIdUDPServer.CloseBinding() was probably wrong.

The real issue in my code is most likely that I call TIdUDPServer.SendBuffer() from one thread while another thread controls the server lifecycle (Active := False/True, reconnect/shutdown).

In my application the UDP reader path can send packets, and the owner/runtime thread can also send packets and recreate the UDP server. I could not find a clear statement that all TIdUDPServer access has to be serialized by the application, or that SendBuffer() must not race with Active.

This small repro shows the part that surprised me:

program IndyUdpAvMvp;

{$APPTYPE CONSOLE}

uses
  System.SysUtils,
  System.Classes,
  Winapi.Windows,
  IdGlobal,
  IdSocketHandle,
  IdUDPServer;

type
  TEvents = class
    procedure UDPException(AThread: TIdUDPListenerThread; ABinding: TIdSocketHandle;
      const AMessage: string; const AExceptionClass: TClass);
  end;

  TSender = class(TThread)
  protected
    procedure Execute; override;
  end;

var
  S: TIdUDPServer;
  Events: TEvents;

procedure TEvents.UDPException(AThread: TIdUDPListenerThread; ABinding: TIdSocketHandle;
  const AMessage: string; const AExceptionClass: TClass);
begin
  Writeln('OnUDPException: ', AExceptionClass.ClassName, ': ', AMessage);
end;

procedure TSender.Execute;
var
  B: TIdBytes;
begin
  SetLength(B, 1);
  Sleep(50);
  If not Terminated then
    S.SendBuffer('127.0.0.1', 54000, Id_IPv4, B);
end;

var
  T: TSender;

begin
  Events := TEvents.Create;
  S := TIdUDPServer.Create(nil);
  try
    S.DefaultPort := 54000;
    S.OnUDPException := Events.UDPException;
    S.Active := true;
    T := TSender.Create(false);
    try
      S.Active := false;
      T.WaitFor;
    finally
      T.Free;
    end;
    S.Bindings.ClearAndResetID;
    S.Binding.CloseSocket;
  finally
    S.Free;
    Events.Free;
  end;
end.

On my machine this raises:

Exception EAccessViolation in module IndyUdpAvMvp.exe ...
Read of address 0000000000000000

OnUDPException is not called.

My current understanding is:

TIdUDPServer.SendBuffer() is not just a passive send operation. It goes through Binding, and for TIdUDPServer accessing Binding may allocate and bind sockets and start listener threads.
Therefore, calling SendBuffer() after or during Active := False can effectively activate the server again.
So the correct fix on my side is to serialize SendBuffer() with server lifecycle changes, or avoid base TIdUDPServer.SendBuffer() in late-send paths and send only through an already-existing live binding.

Is this interpretation correct? In other words, should TIdUDPServer.SendBuffer() be treated as lifecycle-affecting and not safe to race with Active changes?

How to load Excel date cell

2026-05-20T11:06:41Z

I'm using OfficeXML4D library for Delphi and when I do something like this:

Sheet.Cell['F2'].AsDateTime := Now;

What happens is that the date will show 2096-05-20, instead of 2026-05-20.

I checked .AsDateTime, which is:

procedure TExcelCell.SetAsDateTime(const Value: TDateTime);
begin
  FDateTimeValue := Value;
  FFloatValue := Value + ExcelDateOffset;
  FCellType := TCellType.DateTime;
end;

So, the problem seems to be in:

FFloatValue := Value + ExcelDateOffset;

If I remove ExcelDateOffset, the date will be loaded just fine. Can anyone explain why this is like this and if it is ok to remove that from the code?

How to notify a (Spring4D) TObjectDataSet when a bound object property has changed

2026-05-11T15:42:18Z

The value shown in an attached grid is updated when using

  ObjectDataSet.FieldByName('Description').AsString:='Bob';

But not when calling

  ObjectDataSet.GetCurrentModel<TSaleLine>.Description:='Bob';

This is understandable as the TObjectDataSet is not monitoring the object properties and therefore unaware of the change.

I want to add onpropertychanged support to TObjectDataSet to monitor changes to the current model which will then in turn fire a DataEvent(deFieldChange,<field>) as the field change does but am unable to figure out how to trigger it.

I have tried the following but no dice.

type
  TL = class(TGridDataLink);

begin
  ObjectDataSet.GetCurrentModel<TSaleLine>.Description:='Bob';

  var G:=TGridDataLink.Create(Grid);
  TL(G).RecordChanged(ObjectDataSet.FieldByName('Description'));
  G.Free;
end;

How get screenshot of offscreen window?

2026-05-11T13:19:18Z

How to get a continuous screenshot of a window that is not visible on the screen (offscreen)?

I have the following code that initially seemed to work, but this got only the first frame (when the target window is updated, the screenshot still is the first frame). Are there other approaches to achieve this?

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function ActiveCaption: string;
var
  Handle: THandle;
  Len: LongInt;
  Title: string;
begin
  Result := '';
  Handle := GetForegroundWindow;
  if Handle <> 0 then
  begin
    Len := GetWindowTextLength(Handle) + 1;
    SetLength(Title, Len);
    GetWindowText(Handle, PChar(Title), Len);
    ActiveCaption := TrimRight(Title);
  end;
end;

procedure ScreenShotWindow;
var
  DC: HDC;
  wRect: TRect;
  Bmp: TBitmap;
  Width, Height: Integer;
  H: HWnd;
  title: array[0..MAX_PATH]of char;
begin
  H := FindWindow(nil, PWideChar(ActiveCaption));  
  if H = 0 then
    Exit;

  DC := GetWindowDC(H);
  try
    Bmp := TBitmap.Create;
    try
      GetWindowRect(H, wRect);
      Width := wRect.Right - wRect.Left;
      Height := wRect.Bottom - wRect.Top;
      Bmp.SetSize(Width, Height);
      BitBlt(Bmp.Canvas.Handle, 0, 0, Width, Height, DC, 0, 0, SRCCOPY);
      Form1.Canvas.Draw(0, 0, Bmp);
    finally
      Bmp.Free;
    end;
  finally
    ReleaseDC(H, DC);
  end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   ScreenShotWindow;
end;

end.

Edit:

I still have hope that it is possible, otherwise, I understood that it is a system limitation:

TWebBrowser.Silent = TRUE still shows "bad certificate" error

2026-05-06T10:46:28Z

I have a TWebBrowser with the .Silent property set to True, but it's still popping up the message

Revocation information for the security certificate for this site is not available. Do you want to proceed?

unit browsertest;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleCtrls, SHDocVw;

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  self.WebBrowser1.Silent := True;
  self.WebBrowser1.Navigate('http://...');
end;

end.

How can I solve this so the popup doesn't appear? It must be done programatically, so editing Internet Preferences is out of question (as this is distributed to thousands of clients).

This message appears on some computers, but not in all of them.

Delphi + PAServer: How to correctly export iOS app with Notification Service Extension (appex) – missing provisioningProfiles in exportOptions.plist

2026-04-26T11:32:32Z

I’m deploying an iOS app built with Delphi (FMX) using PAServer. The app includes a Notification Service Extension (.appex).

The build succeeds, but the export step fails with:

error: exportArchive "NotificationService.appex" requires a provisioning profile.

Context

App structure:

MyApp.app/
  PlugIns/
    NotificationService.appex/

Bundle identifiers:

Main app: com.example.myapp
Extension: com.example.myapp.notificationservice

Both App Store provisioning profiles exist and are valid.

Problem

PAServer generates this exportOptions.plist:

<key>provisioningProfiles</key>
<dict>
  <key>com.example.myapp</key>
  <string>com.example.myapp</string>
</dict>

But the extension is missing. It should be:

<key>provisioningProfiles</key>
<dict>
  <key>com.example.myapp</key>
  <string>com.example.myapp</string>
  <key>com.example.myapp.notificationservice</key>
  <string>com.example.myapp.notificationservice</string>
</dict>

Without this, xcodebuild -exportArchive fails.

Question

Is there a way to make Delphi / PAServer include app extensions in exportOptions.plist?

Or is manually exporting with xcodebuild the only solution when using .appex extensions?

Generic TForm in hiearchy

2026-04-23T08:44:33Z

I'm building a fmx app in Delphi 12.2.

I would like to create a view hierarchy that includes a 3rd party generic TForm descendent. This 3rd party TForm does not have an fmx file. It does not appear in the list of inheritable items when I create a new fmx TForm.

TForm
T3rdPartyForm<T> = class(TForm) (no fmx file)
TViewBase<T> = class(T3rdPartyForm<T>)
TAppView1 = class(TViewBase<TAClass>)

I have created the hierarchy. It compiles and runs. TAppView1 has an .fmx file that I can edit in the IDE and which appears correctly at run time.

But, every time I start Delphi, I get 2 error messages:

Error creating form in View.Base.fmx: Error in module: Declaration of call TViewBase is missing or incorrect.

Error in module: Declaration of call TViewBase is missing or incorrect.

I also get the second message when I click the Design tab of TViewBase<T>. I don't know if the error is because T3rdPartyForm<T> is generic or because it has no .fmx file.

I would like to be able to edit TViewBase<T> in the IDE design editor so that its components, as well as its code, can be inherited. I would also like for code completion to work completely and correctly for all forms at the level of TAppView1, and to reduce the number of fake LSP errors I see when editing TAppView1 and its siblings. I think that all of this is impacted by the errors I am seeing.

How do I get the hierarchy I want without errors?

How to load a Delphi TService driver early?

2026-04-15T22:53:18Z

I am wondering what the best approach is to writing a Delphi service (using the TService class) to load my basic driver that simply writes a message to a file on disk. No network access is needed, or anything advanced.

I am unsure of the StartType setting and LoadGroup name I need to use. AI keeps suggesting a load group of "System Reserved" from a quick search, but I want better real-world advice from developers that have implemented Delphi TService apps that use early loading for executing a driver load.

I use ZwLoadDriver directly, in case this matters, as I don't use the Service Control Manager that is built-in to Windows.

Any suggestions for loading a very basic "Hello world!" driver from an early-started service?