Newest questions tagged c++builder - Stack Overflow

How can I compile an SQLite amalgamation version in C++ Builder CE?

2026-03-27T20:46:30Z

To make a static library with an amalgamation version of SQLite to use in my C++ Builder program I created a static lib project and added 4 files from sqlite.org (C source code as an amalgamation version 3.51.3): shell.c, sqlite3.c, sqlite3.h, and sqlite3ext.c. I placed them in one folder.

As a result I got errors. Some symbols are undefined, _O_WTEXT, etc.:

What is the reason for these errors and how can I fix them?

Update C++Builder Rio from 10.3.2 to 10.3.3

2026-01-22T16:23:42Z

Using C++Builder 10.3 Rio Update 2, I tried to build OpenSSL, but unit tests fail.

So, I think about updating to 10.3 Update 3 (to be sure, most components should continue to work).

In the downloads, I saw 15 downloads concerning 10.3.3 (ISO is 7GB, Web Install is 10.3.2), but I didn't see any "patch" to go from 10.3.2 to 10.3.3. Any hint?

Is there any "update" path, or do I have to remove the whole software and reinstall all components one by one (and hoping unit tests for OpenSSL will work this time)?

How to copy C++ Builder control TEdit text into char * variable

2025-12-10T22:55:28Z

I'm using C++ Builder version 13. I've created a new application, but I am copying code from an old C++ Builder 2009 application into it. I've got a lot of code that looks like this:

char str[1024]="";
StrPCopy(str, edit1->Text);

Where edit1 is a TEdit control.

This works fine in C++Builder 2009, but in C++Builder 13 I get a compile error:

call to 'StrPCopy' is ambiguous

I have seen the advice to precede the call with System::SysUtils:: but that results in another error:

no member named 'SysUtils' in namespace 'System'

I know there are alternatives to StrPCopy, but I need to import thousands of lines of code from this old application, and I would very much like to use it as-is.

What especially puzzles me is that I have other applications created in C++Builder 13 where I use StrPCopy() as above and they work fine. So, I guess I've got some compiler option set incorrectly, but I can't figure out what it is.

How to use Pjsip library in Embarcadero C++Builder

2025-11-19T10:55:26Z

I'm trying to use the Pjsip library in a win32 program with Embarcadero C++Builder 13. I managed to compile the Pjsip library with Visual Studio Community 2026, thus obtaining the static *.lib libraries. Unfortunately, however, if I convert the libraries using coff2omf.exe to use them in C++Builder, I get very small files compared to the originals which therefore do not actually contain the library functions. Has anyone managed to use the Pjsip libraries in C++Builder or can help me do so?

Thanks

Why does my VCL form created inside a DLL disappear when minimised

2025-11-19T08:35:32Z

I have a Windows VCL application written in C++Builder. Some of the UI is implemented inside a DLL rather than directly in the main EXE.

The DLL exports a function that creates and shows a VCL form, something like:

extern "C" __declspec(dllexport)
void __stdcall show_plugin_form()
{
  auto *f(new TPluginForm(nullptr));
  f->Show();
}

Owner is intentionally nullptr because the form is created inside a DLL and I don't want it auto-destroyed by the EXE's main form.

The form displays correctly and behaves normally until I minimise it. As soon as it is minimised:

the form does not appear on the taskbar;
it also doesn't appear in the Alt+Tab list.

It seems to vanish, even though the process is still running. It becomes impossible to restore unless I explicitly call f->Show().

I checked common properties:

FormStyle = fsNormal;
BorderIcons includes biSystemMenu and biMinimize;
BorderStyle is sizeable;
WindowState = wsNormal.

Old functions suddenly being loaded from a different Windows DLL (that doesn't exist on Windows 7)

2025-11-12T08:41:49Z

I upgraded to C++Builder 13 not long after it came out, all patches applied, coming from 12.3 and having gone through all versions since 11.0 for this particular project.

The code did not change much, a few features added, but nothing related to this issue (I checked).

It appears that the 64-bit 'modern' build doesn't work on Windows 7 anymore (32-bit still works fine). This flew under the radar (I did not expect this issue to suddenly occur) and it is now being reported by people in a Beta build with a final release just around the corner.

I was also blindsided by the fact that Windows 7 is not officially supported anymore by the new toolset. Too many people still use Windows 7. Annoying.

To the point. I noticed that CommandLineToArgvW() and SHStrDupW() are now loaded from SHCORE.dll. This DLL does not exist on Windows 7 systems.

But why? These functions, in all previous builds, were always loaded from different DLLs (that DO exist on Windows 7):

CommandLineToArgvW -> SHELL32.dll
SHStrDupW -> SHLWAPI32.dll

I figure that this is due to included headers. However, it is very much out of my comfort zone to mess with compiler installed headers. I also don't know how much of this is baked into VCL and other pre-compiled toolset-installed libraries.

Any idea why this is happening with the new IDE? Why they might have changed this (if purposely changed)? How could I possibly work around this for my upcoming release?

I can, of course, go back to 12.3, and I checked, those builds still work fine. But first, I'd like to explore this.

I also reported a 'bug' with Embarcadero, but I had no idea they removed Windows 7 support. I did not see it announced anywhere, but I fear they won't look at it.

RSS-4590: 64 bit 'modern' builds don't run on W7 anymore (32 bit builds still work)

TImage image is being truncated

2025-11-10T11:16:14Z

I have written a Print Preview option for a larger application. Mostly it works to my satisfaction, except sometimes the image is truncated.

The code below is a much cut-down version that shows the problem. I have a TPanel on which I am putting a TImage, which for now is just a white rectangle with a red line going from the top left corner to the bottom right.

In the larger application, I want to choose between A4 portrait size and A4 landscape. My little app here has two buttons to choose which page size is required.

Here's the problem. When I start the app and select Portrait, it works correctly:

But, when I then click Landscape, the image is truncated. You can see which way the red line is going:

On the other hand, when I stop the app and restart it and select Landscape, it works ok:

When I then click Portrait, it is this image that is now truncated:

How can I get this to work?

My code is below:

const float A4width = 8.27/4, A4height = 11.69/4;

__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner)
{
    image = new TImage(Owner);
    image->Parent = Panelpreview;
    image->Left = 16;
    image->Top = 16;
}

// Portrait button click
void __fastcall TForm1::BportraitClick(TObject *Sender)
{
    fheight = A4height;
    fwidth = A4width;

    showPreview();
}

//Landscape button click
void __fastcall TForm1::BlandscapeClick(TObject *Sender)
{
    fheight = A4width;
    fwidth = A4height;

    showPreview();
}

// Draw the picture
void TForm1::showPreview()
{
    int pagewidth, pageheight;
    TRect imagerect;

    pagewidth = fwidth * Canvas->Font->PixelsPerInch;
    pageheight = fheight * Canvas->Font->PixelsPerInch;
    imagerect = TRect(0, 0, pagewidth, pageheight);

    image->Width = pagewidth;
    image->Height = pageheight;

    image->Canvas->Brush->Color = clWhite;
    image->Canvas->FillRect(imagerect);
    image->Canvas->Pen->Color = clRed;
    image->Canvas->MoveTo(0, 0);
    image->Canvas->LineTo(pagewidth, pageheight);
}

Indy IdHTTPWebBrokerBridge linker error in Embarcadero C++Builder 12.1 Community Edition

2025-11-05T03:36:38Z

I used the SOAP app wizard to create a shell for a simple web interface. My RAD Studio C++Builder 12.1 has lots of Indy and SOAP components in the Palette, so it seems to be installed. But I get a linker error:

[ld.lld Error] ld.lld: error: Could not locate the file 'IdHTTPWebBrokerBridge.o'

Which is not surprising since there are no files with that name of any extension.

I've looked at GetIt but no Indy options (thinking it was not actually installed maybe).

Suggestions?

C++Builder 13 Console Window is Truncated [closed]

2025-10-28T20:54:59Z

I've revisited an old console app that generates output of more than 25 lines. Unlike my earlier experiences with C++Builder, the output window using C++Builder 13 truncates to 25 lines. I am prevented from rolling back over earlier output information. Is there a fix for this?

Porting C++ Builder 2009 to version 13

2025-10-27T23:21:31Z

I'm trying to take a project made with C++ Builder 2009 and build it on C++ Builder 13 (Florence). I'm getting a whole bunch of errors on statements like this:

StrPCopy(str, UTF8String(edit2->Text).c_str());

The error is:

error E2015: E2015 Ambiguity between '_fastcall System::Sysutils::StrPCopy(char *,const System::AnsiStringT<0>)

Is there a way I can quickly re-configure the project to avoid this error, or do I need to do something to each of my calls to StrCopy? I'm trying to avoid as much re-doing of the application as possible.

C++Builder 12 problem with XML prefixes - property Text from IXMLNode is always empty

2025-09-30T10:59:03Z

If I try to read an XML document without prefixes, it works fine. But with prefixes, I'm not getting the content.

Sample:

<rsm:CrossIndustryInvoice xmlns:a="urn:un:unece:uncefact:data:standard:QualifiedDataType:100"
    xmlns:rsm="urn:un:unece:uncefact:data:standard:CrossIndustryInvoice:100"
    xmlns:qdt="urn:un:unece:uncefact:data:standard:QualifiedDataType:100"
    xmlns:ram="urn:un:unece:uncefact:data:standard:ReusableAggregateBusinessInformationEntity:100"
    xmlns:xs="http://www.w3.org/2001/XMLSchema"
    xmlns:udt="urn:un:unece:uncefact:data:standard:UnqualifiedDataType:100">
    <rsm:ExchangedDocumentContext>
        <ram:BusinessProcessSpecifiedDocumentContextParameter>
            <ram:ID>urn:fdc:peppol.eu:2017:poacc:billing:01:1.0</ram:ID>
            <ram:GuidelineSpecifiedDocumentContextParameter>
                <ram:ID>urn:cen.eu:en16931:2017</ram:ID>
            </ram:GuidelineSpecifiedDocumentContextParameter>
        </ram:BusinessProcessSpecifiedDocumentContextParameter>
    </rsm:ExchangedDocumentContext>
    <rsm:ExchangedDocument>
        <ID>RE-88443</ID>
        <ram:TypeCode>380</ram:TypeCode>
        <ram:IssueDateTime>
            <udt:DateTimeString format="102">20250425</udt:DateTimeString>
        </ram:IssueDateTime>
    </rsm:ExchangedDocument>
</rsm:CrossIndustryInvoice>

IXMLNode* node = GetEDoc()->ChildNodes->FindNode("rsm:CrossIndustryInvoice");
IXMLNode* ExchangedDocument = node->ChildNodes->FindNode("rsm:ExchangedDocument");
if (ExchangedDocument == NULL) return "ExchangedDocument -> NULL";
IXMLNode* ID = ExchangedDocument->ChildNodes->FindNode("ram:ID");
if (ID == NULL) return "ID -> NULL";
UnicodeString value = ID->Text;

The ID is always empty.

If I remove the rsm: and ram: from the XML, and change the code to remove rsm: and ram:, I'm getting the value from the ID.

That's what I expect also with the prefixes.

I also tried to use:

ExchangedDocument->ChildNodes->FindNode("ID", "ram");

or :

ExchangedDocument->ChildNodes->FindNode("ID");

And if I start with below, no node is found:

GetEDoc()->ChildNodes->FindNode("CrossIndustryInvoice", "rsm");

How to prevent dithering when rendering a 24 bpp bitmap with GDI+?

2025-09-18T16:07:09Z

In C++Builder, I have a small VCL application that creates a 100 x 100 pixel, 24 bpp Gdiplus::Bitmap and fills it with the default form background color (clBtnFace / COLOR_BTNFACE). A TPaintBox fills an area of 100 x 100 pixels with the same color on the left, renders the generated bitmap on the right and outputs the Gdiplus::Color components on the bottom.

Here's the code for the OnPaint event handler of the TPaintBox:

void __fastcall TForm1::PaintBox1Paint (TObject *Sender)
{
    Gdiplus::Color Color;
    Color.SetFromCOLORREF(GetSysColor(COLOR_BTNFACE));

    PaintBox1->Canvas->TextOut(0, 108, ColorToStr(Color));

    Gdiplus::SolidBrush Brush(Color);
    Gdiplus::Pen Pen(Gdiplus::Color::Black);

    Gdiplus::Bitmap Bitmap(100, 100, PixelFormat24bppRGB);

    if (Bitmap.GetLastStatus() == Gdiplus::Ok)
    {
        Gdiplus::Graphics g(&Bitmap);

        g.FillRectangle(&Brush, 0, 0, 100, 100);

        if (g.GetLastStatus() != Gdiplus::Ok)
            return;
    }
    else
        return;

    Gdiplus::Graphics g(PaintBox1->Canvas->Handle);

    g.FillRectangle(&Brush, 0, 0, 100, 100);
    g.DrawImage(&Bitmap, 100, 0);
    g.DrawRectangle(&Pen, 0, 0, 200, 100);
    g.DrawLine(&Pen, 100, 0, 100, 100);
}

When I run the application on my local PC, the areas on the left and right have a solid color (R: 224, G: 223, B: 227), exactly as output by the application.

When I run the application via a Remote Desktop connection with 16 bpp, the area on the left (rendered by Graphics::FillRectangle()) has a solid color. However, the area on the right (the bitmap rendered by Graphics::DrawImage()) is dithered, as shown in the screenshot below.

Here's what it looks like, when I zoom in:

When I save the generated Gdiplus::Bitmap on the remote PC to a .BMP file and open it in a photo editor, the bitmap contains a solid color (R: 224, G: 223, B: 227), exactly as output by the application. That means the generated bitmap is not dithered and the dithering must occur in the Graphics::DrawImage() call.

The form background color (clBtnFace / COLOR_BTNFACE) is in the 16 bpp color palette, otherwise the area on the left wouldn't be a solid color that exactly matches the color output by the application.

How do I prevent Graphics::DrawImage() using dithering when rendering the (full color) bitmap?

C++Builder 13 fails to link while Webroot SecureAnywhere is running

2025-09-13T07:12:06Z

C++Builder 13 cannot find file MyApp.tds while Webroot SecureAnywhere is running. Compile and link are possible only when Webroot SecureAnywhere has been shut down.

Is there a way to keep Webroot SecureAnywhere running but not interfere with compiling and linking?

How to read a TBitmap property from an old DFM stream into a TPicture property in C++Builder 1?

2025-09-12T12:16:38Z

In C++Builder 1 (ancient, I know), I have a class TGlyph with a Graphics::TBitmap property:

class TGlyph : public TPersistent
{
    typedef TPersistent inherited;

    private:
        Graphics::TBitmap* FBitmap;
    
        void __fastcall SetBitmap (Graphics::TBitmap* Value);
        void __fastcall BitmapChanged (TObject *Sender);
    
    public:
        __fastcall TGlyph ();
        __fastcall ~TGlyph ();

    __published:
        __property Graphics::TBitmap* Bitmap = {read=FBitmap, write=SetBitmap};
};
    
    
__fastcall TGlyph::TGlyph () : inherited()
{
    FBitmap = new Graphics::TBitmap();
    FBitmap->OnChange = BitmapChanged;
}
    
__fastcall TGlyph::~TGlyph ()
{
    delete FBitmap;
}
    
void __fastcall TGlyph::SetBitmap (Graphics::TBitmap* Value)
{
    FBitmap->Assign(Value);
}

The TGlyph class is used by my custom control class TMyControl.

When I view a form that contains a TMyControl as text or copy/paste the TMyControl control into Notepad, I see the Bitmap property stored as binary data in Glyph.Bitmap.Data as follows:

object MyControl1: TMyControl
  Left = 8
  Top = 8
  Width = 86
  Height = 64
  Caption = 'ABORT'
  TabOrder = 0
  Glyph.Bitmap.Data = {
    2E0D0000424D2E0D0000000000007600000028000000AC000000250000000100
    040000000000B80C000000000000000000000000000000000000000000000000
    80000080000000808000800000008000800080800000C0C0C000808080000000
    FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
    6666666666666666666666666666666666666666666666666666666666666666
    666666666666666666666666666666666666666666666FFFFFFFFFFFFFFFFFF6
    6666666666666666666666666666666600006666666666666666666666666666
    6666660000000000000000006666666666666666666666666666666666666666
    66666666666666666666666666668888888888888888886F6666666666666666
    666666666666666600006666666666666666666666666666666660FFFFFFFFFF
    FFFFFFFF06666666666666666666666666666666666666666666666666666666
    66666666666866666666666666666686F6666666666666666666666666666666
    0000666666666666666666666666666666660FFFFFFFFFFFFFFFFFFFF0666666
    6666666666666666666666666666666666666666666666666666666666866666
    66666666666666686F6666666666666666666666666666660000666666666666
    66666666666666666660FF999999999999999999FF0666666666666666666666
    6666666666666666666666666666666666666666686666666666666666666666
    86F6666666666666666666666666666600006666666666666666666666666666
    660FF99999999999999999999FF0666666666666666666666666666666666666
    666666666666666666666666866666666666666666666666686F666666666666
    66666666666666660000666666666666666666666666666660FF999999999999
    9999999999FF0666666666666666666666666666666666666666666666666666
    666666686666666666666666666666666686F666666666666666666666666666
    000066666666666666666666666666660FF999999999999999999999999FF066
    6666666666666666666666666666666666666666666666666666668666666666
    666666666666666666686F666666666666666666666666660000666666666666
    6666666666666660FF99999999999999999999999999FF066666666666666666
    6666666666666666666666666666666666666866666666666666666666666666
    666686F66666666666666666666666660000666666666666666666666666660F
    F9999999999999999999999999999FF066666666666666666666666666666666
    6666666666666666666686666666666666666666666666666666686F66666666
    6666666666666666000066666666666666666666666660FF9999999999999999
    99999999999999FF066666666666666666666666666666666666666666666666
    6668666666666666666666666666666666666686F66666666666666666666666
    00006666666666666666666666660FF99999999999999999999999999999999F
    F06666666666666666666666666666666666666666666666668F666666666666
    666666666666666666666668F666666666666666666666660000666666666666
    6666666666660FF99999999999999999999999999999999FF066666666666666
    66666666666666666666666666666666668F66666FFFF6666FF66666FFF666FF
    66666668F6666666666666666666666600006666666666666666666666660FF9
    99FFFF9999FF99999FFF999FF999999FF0666666666666666666666666666666
    6666666666666666668F66668888FF6688F6666888FF688F66666668F6666666
    666666666666666600006666666666666666666666660FF99FFFFFF999FF9999
    FFFFF99FF999999FF06666666666666666666666666666666666666666666666
    668F666888888F6688F66688888FF88F66666668F66666666666666666666666
    00006666666666666666666666660FF99FF99FF999FF999FFF9FFF9FF999999F
    F06666666666666666666666666666666666666666666666668F666886688F66
    88F668886888F88F66666668F666666666666666666666660000666666666666
    6666666666660FF999999FF999FF999FF999FF9FF999999FF066666666666666
    66666666666666666666666666666666668F666666688F6688F6688F6688F88F
    66666668F6666666666666666666666600006666666666666666666666660FF9
    9999FFF999FF999FF999FF9FF999999FF0666666666666666666666666666666
    6666666666666666668F66666688866688F6688F6688F88FFFF66668F6666666
    666666666666666600006666666666666666666666660FF9999FFF9999FF999F
    F999FF9FFFFF999FF06666666666666666666666666666666666666666666666
    668F66666888666688F6688F6688F88888FF6668F66666666666666666666666
    00006666666666666666666666660FF999FFF99999FF999FF999FF9FFFFFF99F
    F06666666666666666666666666666666666666666666666668F666688866666
    88F6688F6688F888888F6668F666666666666666666666660000666666666666
    6666666666660FF99FFF999999FF999FF999FF9FF99FF99FF066666666666666
    66666666666666666666666666666666668F66688866666688F6688F6688F88F
    688F6668F6666666666666666666666600006666666666666666666666660FF9
    9FF9999999FF999FF999FF9FF99FF99FF0666666666666666666666666666666
    6666666666666666668F66688F66FF6688F6688FF688F88F688F6668F6666666
    666666666666666600006666666666666666666666660FF99FF99FF999FF999F
    FF9FFF9FF99FF99FF06666666666666666666666666666666666666666666666
    668F66688FF88F6F88FFF888F888688FF88F6668F66666666666666666666666
    00006666666666666666666666660FF99FFFFFF9FFFFFF99FFFFF99FFFFFF99F
    F066666666666666666666666666666FF666666FFFFFFF66668F666888888688
    8888F6888886688888866668F666666666666666666666660000666600666666
    0000000666660FF999FFFF99FFFFFF999FFF999FFFFF999FF066666666666666
    6666666666666688F666668888888F66668F6666888866888888666888666888
    88666668F6666666666666666666666600006666006666660000000666660FF9
    9999999999999999999999999999999FF0666666666666666666666666666688
    F666668888888666668F666666666666666666666666666666666668F6666666
    666666666666666600006666006666660006666666660FF99999999999999999
    999999999999999FF0666666666666666666666666666688F66666888F666666
    6686F66666666666666666666666666666666668666666666666666666666666
    000066660066666660006666666660FF999999999999999999999999999999FF
    06666666666666666666666666666688F666666888F6666666686F6666666666
    6666666666666666666666866666666666666666666666660000666600666666
    660006666666660FF9999999999999999999999999999FF06666666666666666
    6666666666666688FFFFF666888F6666666686F6666666666666666666666666
    6666686666666666666666666666666600006666000000666660006666666660
    FF99999999999999999999999999FF0666666666666666666666666666666688
    8888F6666888F6666666686F6666666666666666666666666666866666666666
    6666666666666666000066660000006666660006666666660FF9999999999999
    99999999999FF066666666666666666666666666666666888888666FF6888F66
    66666686F6666666666666666666666666686666666666666666666666666666
    0000666600666666006660066666666660FF9999999999999999999999FF0666
    66666666666666666666666666666688F6666688F6688F66666666686F666666
    6666666666666666668666666666666666666666666666660000666600666666
    0066600666666666660FF99999999999999999999FF066666666666666666666
    6666666666666688FFFFFF88FFF88F666666666686F666666666666666666666
    6866666666666666666666666666666600006666000000060000000666666666
    6660FF999999999999999999FF06666666666666666666666666666666666688
    88888F888888866666666666686F666666666666666666668666666666666666
    66666666666666660000666600000006600000666666666666660FFFFFFFFFFF
    FFFFFFFFF0666666666666666666666666666666666666888888866888886666
    666666666686F666666666666666666866666666666666666666666666666666
    00006666666666666666666666666666666660FFFFFFFFFFFFFFFFFF06666666
    6666666666666666666666666666666666666666666666666666666666686FFF
    FFFFFFFFFFFFFF86666666666666666666666666666666660000666666666666
    6666666666666666666666000000000000000000666666666666666666666666
    6666666666666666666666666666666666666666666688888888888888888866
    666666666666666666666666666666660000}
end

The binary data starts with a 32-bit length field (0x000002DE = 3374 bytes), followed by a BITMAPFILEHEADER struct, etc.

The Bitmap property is now deprecated and replaced by a Graphics::TPicture property. The object is to read the deprecated Bitmap property and place it in the Picture property, discarding the Bitmap property from the DFM when it's saved.

I use DefineProperties() to define a fake Bitmap property with only a reader callback procedure, like this:

class TGlyph : public TPersistent
{
    typedef TPersistent inherited;
    
    private:
        Graphics::TPicture* FPicture;

        void __fastcall SetPicture (Graphics::TPicture* Value);
        void __fastcall PictureChanged (TObject *Sender);
        void __fastcall ReadBitmap (TStream *Stream);
    
    protected:
        virtual void __fastcall DefineProperties (TFiler *Filer);
    
    __published:
        __property Graphics::TPicture* Picture = {read=FPicture, write=SetPicture};
};
    
    
__fastcall TGlyph::TGlyph () : inherited()
{
    FPicture = new Graphics::TPicture();
    FPicture->OnChange = PictureChanged;
}
    
__fastcall TGlyph::~TGlyph ()
{
    delete FPicture;
}
    
void __fastcall TGlyph::SetPicture (Graphics::TPicture* Value)
{
    FPicture->Assign(Value);
}
    
void __fastcall TGlyph::ReadBitmap (TStream *Stream)
{
    FPicture->Graphic->LoadFromStream(Stream);
}
    
void __fastcall TGlyph::DefineProperties (TFiler *Filer)
{
    inherited::DefineProperties(Filer);
    
    Filer->DefineBinaryProperty("Bitmap.Data", ReadBitmap, NULL, false);
}

Now when I open the form that contains the MyControl1 control, I see this error message:

Error creating form: Error reading MyControl1.Glyph.Bitmap.Data: Property does not exist.

I reverted my TGlyph class to the way it was before and could open the form without any problems; the bitmap data is still there.

How do I fix this?

How to resolve missing static library error for AsyncPro in RAD Studio 12 (C++Builder project)?

2025-09-08T04:47:30Z

I'm trying to build an C++Builder project in RAD Studio 12 for serial communication.

After opening the project in RAD Studio 12, the build fails with errors related to missing static library files.

I have:

Downloaded the AsyncPro source code from TurboPack/AsyncPro on GitHub
Opened the AsyncProCD and AsyncProCR project and built the runtime and design-time packages successfully
Verified that the .bpl files were generated
Added the output directories to the Library Path.

My project still fails to link, asking for .lib files

Questions:

How do I correctly generate or locate the .lib files required by my C++Builder project?
Are there any additional steps needed to make AsyncPro fully compatible with C++ projects in RAD Studio 12?

Any guidance would be appreciated. Thanks!

Not valid Win32 application on XP

2025-09-02T07:29:13Z

I'm using Embarcadero C++Builder 12 Version 29.0.53982.0329 to build a 32-bit app. It runs fine on Windows 7 32-bit, and on Windows 10 and 11. But, when I try to run it on XP, I get the message:

<path> is not a valid Win32 application

Should I be able to run an app developed with this version of C++Builder on XP?

Is it that some DLL or BPL files are missing?

It worked fine when built with a previous version of C++Builder.

How to use character arrays with Win32 APIs in C++ Builder 12

2025-08-13T20:18:42Z

I am experimenting with C++Builder 12, trying to port some old code from C++Builder 2009.

In that old code, all character strings are defined, for example, like this:

char testString[256]="This is a test";

If I try to use this string in MessageBox(), for example, I get an error:

no matching function for call to MessageBoxW

I can get it to work like this:

MessageBox(NULL, L"This is a test", L"Test", 0);

I'm pretty sure I can get my old code compiled by using some compiler option, but I can't figure it out. In Visual C++, I would fix this by setting the "Character Set" option to "Not Set" instead of "Use Unicode".

Can someone help me out with this?

Problem with TVirtualTreeView EditLink assignment in C++Builder

2025-08-13T09:03:24Z

I have a problem with assigning an EditLink to TVirtualStringTree in Embarcadero C++Builder. When I try to assign a new editor class, only the default editor is working.

Only the constructor is called in the OnCreateEditor event. After the editor is created and assigned to EditLink, actually my custom editor is not called any more, or even deleted. Only the built-in editor is working.

class TFormMain : public TForm, public EcuCommListenerItem
{
__published:    // IDE-managed Components
    TVirtualStringTree *VST;

    void __fastcall VSTCreateEditor(TBaseVirtualTree *Sender, PVirtualNode Node,
          TColumnIndex Column, IVTEditLink *EditLink);

private:    // User declarations


public:     // User declarations
    __fastcall TFormMain(TComponent* Owner);
};


typedef struct {
    unsigned Id;
    String Caption;
}MyRecord;


//---------------------------------------------------------------------------
__fastcall TFormMain::TFormMain(TComponent* Owner)
    : TForm(Owner),
{
    VST->NodeDataSize = sizeof(MyRecord);
    VST->RootNodeCount = 3;
}


class TPropertyEditor : public TInterfacedObject, public IVTEditLink
{
private:
    TWinControl* m_Edit;
    TVirtualStringTree* m_Tree;
    PVirtualNode m_Node;
    int m_Column;

public:
    __fastcall TPropertyEditor() //:
        IVTEditLink(),
        TInterfacedObject()
    {
        DEBUG_FUNC("\n");
        m_Edit = nullptr;
        m_Tree = nullptr;
        m_Node = nullptr;
        m_Column = 0;
    }

    __fastcall ~TPropertyEditor() {
        DEBUG_FUNC("\n");
        delete m_Edit;
    }

    HRESULT __stdcall QueryInterface(const GUID& IID, void **Obj) override {
        return GetInterface(IID, Obj) ? S_OK : E_NOINTERFACE;
    }

    ULONG __stdcall AddRef() override  {
        return TInterfacedObject::_AddRef();
    }
    ULONG __stdcall Release() override {
        return TInterfacedObject::_Release();
    }

    bool __stdcall BeginEdit() override {
        DEBUG_FUNC("\n");
        m_Edit->Show();
        static_cast<TComboBox*>(m_Edit)->DroppedDown = true;
        m_Edit->SetFocus();

        return true;
    }

    bool __stdcall CancelEdit() override {
        DEBUG_FUNC("\n");
        m_Edit->Hide();

        return true;
    }

    bool __stdcall EndEdit() override {
        DEBUG_FUNC("\n");

        m_Edit->Hide();
        m_Tree->SetFocus();

        return true;
    }

    bool __stdcall PrepareEdit(TBaseVirtualTree* Tree, PVirtualNode Node, Virtualtrees::Types::TColumnIndex Column) override {

        DEBUG_FUNC("PrepareEdit\n");

        m_Tree = reinterpret_cast<TVirtualStringTree*>(Tree);
        m_Node = Node;
        m_Column = Column;

        delete m_Edit;
        m_Edit = nullptr;

        m_Edit = new TComboBox( Tree );
        m_Edit->Parent = Tree;
        m_Edit->Visible = false;
        static_cast<TComboBox*>(m_Edit)->Items->Add(L"Option 1");
        static_cast<TComboBox*>(m_Edit)->Items->Add(L"Option 2");
        static_cast<TComboBox*>(m_Edit)->Items->Add(L"Option 3");

        return true;
    }

    void __stdcall ProcessMessage(Winapi::Messages::TMessage &Message) override {
        m_Edit->WindowProc(Message);
    }

    void __stdcall SetBounds(const System::Types::TRect &R) override {
        //FTree.Header.Columns.GetColumnBounds(FColumn, Dummy, R.Right);
        DEBUG_FUNC("\n");
        m_Edit->BoundsRect = R;
    }

};


void __fastcall TFormMain::VSTCreateEditor(TBaseVirtualTree *Sender, PVirtualNode Node,
          TColumnIndex Column, IVTEditLink *EditLink)
{
    EditLink = new TPropertyEditor();

    DEBUG_FUNC("\n");
}

EDIT:

I found the TVirtualTreeView::OnCreateEditorEvent prototype and it is different than what is created by the IDE:

__interface DELPHIINTERFACE IVTEditLink;
typedef System::DelphiInterface<IVTEditLink> _di_IVTEditLink;


typedef void __fastcall (__closure *TVTCreateEditorEvent)(TBaseVirtualTree* Sender, PVirtualNode Node, Virtualtrees::Types::TColumnIndex Column, /* out */ _di_IVTEditLink &EditLink);

How to use it properly?

New 64-bit dev (Old 32-bit dev) : Why is my 64-bit executable so huge?

2025-07-12T17:36:48Z

I have been developing in C++Builder since v3. Most of my work was done in v5 and v6. I am just now getting back into it after a few years away, trying out the Community Edition and the 64-bit world.

I have ported a small utility as a first project in the new environment. It uses only standard Windows controls (TEdit, TButton, TCheckBox, etc) and a single TClientSocket. It's less than 400 lines of code for a single Windows form.

When I compile successfully, the executable is over 17 MB (!!) Why? What can I do to reduce it? That seems absurdly large to me, for what it is.

I tried using the current version of C++Builder the way I have always used it in the past, configured to produce a single, self-contained executable (no RTL, etc). The executable compiles to 540 KB in v6. I was not expecting over 17 MB for the same code in the current version.

formMain.h

#ifndef formMainH
#define formMainH
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
#include <Registry.hpp>
#include <Vcl.Buttons.hpp>
#include <System.Win.ScktComp.hpp>
//---------------------------------------------------------------------------
class TfMain : public TForm
{
__published:    // IDE-managed Components
    TEdit *eScan;
    TComboBox *cbPrinter;
    TSpeedButton *bClear;
    TLabel *lDecoded;
    TCheckBox *ckAutoPrint;
    TBitBtn *bPrint;
    TBitBtn *bClose;
    TLabel *lScan;
    TLabel *lDecode;
    TLabel *lPrinter;
    TLabel *lPrinterIPAddress;
    TClientSocket *Sock;
    void __fastcall bCloseClick(TObject *Sender);
    void __fastcall FormShow(TObject *Sender);
    void __fastcall cbPrinterSelect(TObject *Sender);
    void __fastcall eScanChange(TObject *Sender);
    void __fastcall bPrintClick(TObject *Sender);
    void __fastcall SockConnect(TObject *Sender, TCustomWinSocket *Socket);
    void __fastcall SockDisconnect(TObject *Sender, TCustomWinSocket *Socket);
    void __fastcall eScanKeyPress(TObject *Sender, System::WideChar &Key);
    void __fastcall bClearClick(TObject *Sender);
    void __fastcall SockError(TObject *Sender, TCustomWinSocket *Socket, TErrorEvent ErrorEvent, int &ErrorCode);
    void __fastcall FormClose(TObject *Sender, TCloseAction &Action);

private:    // User declarations
    TStringList *printerNames;
    TStringList *printerIPAddresses;
    AnsiString selectedIPAddress;
    AnsiString defaultPrinter;
    int __fastcall isCPSBarcode(AnsiString Str);
    int __fastcall isIPAddress(AnsiString Str);
public:     // User declarations
    __fastcall TfMain(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TfMain *fMain;
//---------------------------------------------------------------------------
#endif

formMain.cpp

#include <vcl.h>
#pragma hdrstop

#include "formMain.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfMain *fMain;
//---------------------------------------------------------------------------
__fastcall TfMain::TfMain(TComponent* Owner) : TForm(Owner)
{
    printerNames = new TStringList;
   printerIPAddresses = new TStringList;
}
//---------------------------------------------------------------------------
void __fastcall TfMain::FormShow(TObject *Sender)
{
    AnsiString thisPort("");
    AnsiString defaultPrinter("");
    int defaultPrinterIdx = -1;
    TRegistry *Reg = new TRegistry;

    // Get network printer names and IP addresses from Windows registry

    // Locally connected printers are skipped since we will be using a TCP
    // socket to communicate with the printer

    Reg->RootKey = HKEY_LOCAL_MACHINE;
    if(Reg->OpenKeyReadOnly("\\SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\Print\\Printers")){
        Reg->GetKeyNames(printerNames);
        Reg->CloseKey();
        for(int i = 0; i < printerNames->Count; i++){
            if(Reg->OpenKeyReadOnly(
                    "\\SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\Print\\Printers\\"
                    + printerNames->Strings[i])){
                thisPort = Reg->ReadString("Port");
                if(isIPAddress(thisPort)){
                    cbPrinter->Items->Add(printerNames->Strings[i]);
                    printerIPAddresses->Add(thisPort);
                }
                Reg->CloseKey();
            }
        }
    }
    else{
        if(Application->MessageBox(L"Unable to open registry!",L"Error",MB_OK))
            Close();
    }

    delete Reg;

    // Get default printer from last run

    Reg = new TRegistry;

    if(Reg->OpenKey("\\SOFTWARE\\TCC\\BinLabelShrink", true)){
        if(Reg->ValueExists("DefaultPrinter"))
            defaultPrinter = Reg->ReadString("DefaultPrinter");

        if(Reg->ValueExists("AutoPrint"))
            ckAutoPrint->Checked = Reg->ReadBool("AutoPrint");

        if(defaultPrinter.Length())
            for(int i = 0; i < cbPrinter->Items->Count; i++)
                if(cbPrinter->Items->Strings[i] == defaultPrinter)
                    defaultPrinterIdx = i;

        if(defaultPrinterIdx > -1){
            cbPrinter->ItemIndex = defaultPrinterIdx;
            cbPrinterSelect(cbPrinter);
        }
        else if(Reg->ValueExists("DefaultPrinter"))  // The defaultPrinter wasn't found, so clear it
            Reg->WriteString("DefaultPrinter","");

        Reg->CloseKey();
    }

    delete Reg;
}
//---------------------------------------------------------------------------
void __fastcall TfMain::bCloseClick(TObject *Sender)
{
     Close();
}
//---------------------------------------------------------------------------
void __fastcall TfMain::cbPrinterSelect(TObject *Sender)
{
    selectedIPAddress = printerIPAddresses->Strings[((TCustomCombo*)Sender)->ItemIndex];
    lPrinterIPAddress->Caption = selectedIPAddress;

    if(isCPSBarcode(eScan->Text))
        bPrint->Enabled = true;

    eScan->SetFocus();
}
//---------------------------------------------------------------------------
void __fastcall TfMain::eScanChange(TObject *Sender)
{
    int strLen;
    int semiColonIdx;
    int dashIdx;
    AnsiString fullStr;


    // Sample scan string "A:19:18:1;0-12680bB"

    Sleep(100);

    if(eScan->Text[eScan->Text.Length()] == ' '){
        eScan->Text = eScan->Text.TrimRight();
        eScan->SelStart = eScan->Text.Length();
        eScan->SelLength = 0;
    }

    if(isCPSBarcode(eScan->Text)){

        eScan->Font->Style = TFontStyles() << fsBold; // Once it's good, go bold

        // Display the decoded bin spec
        semiColonIdx = eScan->Text.Pos(";");
        lDecoded->Caption = eScan->Text.SubString(1,semiColonIdx - 1) + ":" +
                eScan->Text.SubString(eScan->Text.Length(),1);

        // If a printer is selected, we're ready to print
        if(cbPrinter->ItemIndex > -1){
            bPrint->Enabled = true;

            if(ckAutoPrint->Checked)    // Fire off print if we're on auto
                bPrintClick(this);
        }
    }
    else{
        if(eScan->Text.Length()){
            eScan->Color = clWindow;
            eScan->Font->Color = clWindowText;
            eScan->Font->Style = TFontStyles();
            if(eScan->Text.Pos("<select")){  // Clear out eScan to receive text
                eScan->Text = "";
            }
        }

        // Disable print until good scan string has been entered/received
        bPrint->Enabled = false;
    }
}
//---------------------------------------------------------------------------

void __fastcall TfMain::eScanKeyPress(TObject *Sender, System::WideChar &Key)
{
    if(isCPSBarcode(eScan->Text))
        bClearClick(this);
}
//---------------------------------------------------------------------------

void __fastcall TfMain::bClearClick(TObject *Sender)
{
    eScan->Color = clAqua;
    eScan->Font->Color = clGrayText;
    eScan->Font->Style = TFontStyles();
    eScan->Text = "<select before scanning>";
    lDecoded->Caption = "";
    bPrint->Enabled = false;
}
//---------------------------------------------------------------------------

int __fastcall TfMain::isCPSBarcode(AnsiString Str)
{
    int colonCount = 0;
    int semiColonCount = 0;
    int dashCount = 0;
    int lastColonIdx = 0;
    int s;
    AnsiString tmpStr;

    s = Str.Length();

    if(s >= 17 && isupper(Str[s])){     // Check for min length and upper case end
        TStringList *tok = new TStringList;

        // Parse string and count delimiters

        for(int i = 1; i <= s; i++){
            switch(Str[i]){
                case ':':
                    colonCount++;

                    if(colonCount == 1) // First token has no leading colon
                        tok->Add(Str.SubString(1,1));
                    else
                        tok->Add(Str.SubString(lastColonIdx + 1, i - lastColonIdx - 1));

                    lastColonIdx = i;
                    break;
                case ';':
                    semiColonCount++;
                    tok->Add(Str.SubString(lastColonIdx + 1, i - lastColonIdx - 1));
                    break;
                case '-':
                    dashCount++;
                default:    break;
            }
        }

        // Now test the format

        if(colonCount == 3 && semiColonCount == 1 && dashCount == 1){
            if(isalpha(Str[s-1]) && isalpha(Str[s])){       // Last 2 chars are letters
                try{    // ToInt() failure will throw an exception
                    tmpStr = tok->Strings[0];
                    if(isalpha(tmpStr[1]) &&                    // First token is a letter
                            tok->Strings[1].ToInt() > 0 &&  // 2nd token is a positive number
                            tok->Strings[2].ToInt() > 0 &&  // 3rd token is a positive number
                            tok->Strings[3].ToInt() > 0){   // 4th token is a positive number

                        delete tok;
                        return true;  // Seems legit
                    }
                }
                catch(...){
                    delete tok;
                    return false;
                }
            }
        }
        else{
            delete tok;
            return false;
        }
    }
    else
        return false;

    return false;   // Keep compiler from complaining
}
//---------------------------------------------------------------------------
int __fastcall TfMain::isIPAddress(AnsiString Str)
{
    int dotCount = 0;
    int prevDotIdx = 0;
    int thisOctet = 0;
    int s;

    s = Str.Length();

    if(s < 7 || 15 < s)     // Check for valid length
        return false;

    try{        // ToInt() function throws an exception if str to int conversion fails
        for(int i = 1; i <= s; ++i){
            if(Str[i] == '.'){
                ++dotCount;

                if(!prevDotIdx){    // This is the first dot. Octet begins at start of Str
                    thisOctet = Str.SubString(1, i-1).ToInt();
                    prevDotIdx = i;
                }
                else{                   // Octets begins and ends with a dot
                    thisOctet = Str.SubString(prevDotIdx + 1, i - prevDotIdx - 1).ToInt();
                    prevDotIdx = i;
                }
            }
            else if(i == s){ // Last octet with no dot at the end
                thisOctet = Str.SubString(prevDotIdx + 1, i - prevDotIdx).ToInt();
            }
            if(thisOctet < 0 || 255 < thisOctet)
                return false;
        }
        if(dotCount == 3)   // If all octets are ints and are in range, finally check dot count
            return true;
    }
    catch(...){   // Conversion of a token to int failed
        return false;
    }

    return false;   // Keep compiler from complaining
}
//---------------------------------------------------------------------------

void __fastcall TfMain::bPrintClick(TObject *Sender)
{
    this->Cursor = crHourGlass;
    cbPrinter->Cursor = crHourGlass;
    for(int i = 0; i < this->ControlCount; i++)
        this->Controls[i]->Cursor = crHourGlass;

    eScan->SetFocus();

    if(!selectedIPAddress.IsEmpty()){
        Sock->Address = selectedIPAddress;
        Sock->Open();
    }
}
//---------------------------------------------------------------------------

void __fastcall TfMain::SockConnect(TObject *Sender, TCustomWinSocket *Socket)
{
    AnsiString S1, S2, printStr;
    int colonIdx[3];
    int colonCount = 0;

    // Sample scan string "A:19:18:1;0-12680bB"
    //
    // Parse scan string to embed in ZPL code

    for(int i = 1; i < eScan->Text.Length(); i++){
        if(eScan->Text[i] == ':')
            colonIdx[colonCount++] = i;
    }

    S1 = eScan->Text.SubString(1, colonIdx[2] - 1);
    S2 = eScan->Text.SubString(colonIdx[2] + 1, 1) + ":" +
            eScan->Text.SubString(eScan->Text.Length(),1);

    // Send the ZPL code to print the label
    //
    // ^FX lines in ZPL are comments

    printStr = "^XA"
            "^FO 80,80 ^A0,200 ^FD" + S1 + "^FS\r\n";   // Top text line: Section:Aisle:Rack

    if(S2[1] == '1'){           // Down arrow
        printStr += "^FO 100,330 ^GB0,190,15^FS"
                "^FO 60,440 ^GD40,100,15,B,L^FS"
                "^FO 100,440 ^GD40,100,15,B,R^FS\r\n";
    }
    else if(S2[1] == '2'){  // Up arrow
        printStr += "^FO 100,330 ^GB0,190,15^FS"
                "^FO 60,330 ^GD40,100,15,B,R^FS"
                "^FO 100,330 ^GD40,100,15,B,L^FS\r\n";
    }

    printStr += "^FO 180,360 ^A0,220 ^FD" + S2 + "^FS"      // Bottom text: Shelf:Bin
            "^FO 520,320 ^BXN,13,200 ^FD" + eScan->Text + "^FS" // 2D barcode
            "^XZ\r\n";

    Socket->SendText(printStr);
    Sleep(250); // Non-blocking connection, so give it a chance to finish before closing
    Socket->Close();
}
//---------------------------------------------------------------------------

void __fastcall TfMain::SockDisconnect(TObject *Sender, TCustomWinSocket *Socket)
{
    this->Cursor = crDefault;
    cbPrinter->Cursor = crDefault;
    for(int i = 0; i < this->ControlCount; i++)
        this->Controls[i]->Cursor = crDefault;
}
//---------------------------------------------------------------------------

void __fastcall TfMain::SockError(TObject *Sender, TCustomWinSocket *Socket,
        TErrorEvent ErrorEvent, int &ErrorCode)

{
    AnsiString errorMsg;

    this->Cursor = crDefault;
    cbPrinter->Cursor = crDefault;
    for(int i = 0; i < this->ControlCount; i++)
        this->Controls[i]->Cursor = crDefault;

    errorMsg = L"Error printing to " + cbPrinter->Text + L" at " + Sock->Address;

    Application->MessageBox(WideString(errorMsg).c_bstr(), L"Printing Error", MB_OK);

    ErrorCode = 0;
}
//---------------------------------------------------------------------------

void __fastcall TfMain::FormClose(TObject *Sender, TCloseAction &Action)
{
    TRegistry *Reg = new TRegistry;

    // Write out the current control values as defaults for the next run

    Reg->RootKey = HKEY_CURRENT_USER;
    if(Reg->OpenKey("\\SOFTWARE\\TCC\\BinLabelShrink", true)){
        if(cbPrinter->ItemIndex > -1)
            Reg->WriteString("DefaultPrinter", cbPrinter->Text);

        Reg->WriteBool("AutoPrint", ckAutoPrint->Checked);

        Reg->CloseKey();
    }

    delete Reg;
}
//---------------------------------------------------------------------------

Relevant Project settings:

Release configuration - Windows 64-bit (Modern) platform

C++ Compiler --> Debugging --> Debug information: false

... --> Optimizations --> Generate smallest possible code (-O1): true

C++ Linker --> Full debug information: false

... --> Link with Dynamic RTL: false

... --> Link with Delphi Runtime Library: false

Packages --> Design packages (Causes IDE to crash if I disable too many)

... --> Runtime Packages --> Runtime package import libraries --> Inherit: false

C++Builder with BluetoothLE dongle using Windows 11

2025-07-07T16:13:55Z

How can I get a PC to operate BluetoothLE using C++Builder on Windows 11 and a Bluetooth 5.3 UB500 dongle?

I have installed CMake 4.0.3. I have downloaded SimpleBLE from GitHub. In a Command Prompt, I make a directory called build in the root of SimpleBLE, and go to that build directory. The system environment path includes the bin subdirectory containing cmake-gui.exe; and the root directory of SimpleBLE.

In the Command Prompt I do:

cmake .. -DBUILD_SHARED_LIBS=OFF -DSIMPLEBLE_ENABLE_BACKEND_WINRT=ON -DCMAKE_BUILD_TYPE=Release

The response is:

CMake Warning:  Ignoring extra path from command line:   ".."
CMake Error: The source directory "C:/SimpleBLE" does not appear to contain CMakeLists.txt.

There is no CMakeLists.txt file in the directory, though there are several different ones in subdirectories. I tried removing and reinstalling CMake and SimpleBLE, with the same result. I tried going up a directory to the root of SimpleBLE, or removing the .. from the command, or both, but with the same result.

I tried copying a CMakeLists.txt file from a subdirectory into the SimpleBLE root directory, but this gave several error messages containing could not find requested file, no such file or directory, not set, etc. I tried running the instruction from a subdirectory of SimpleBLE (which contains a CMakeLists.txt), but with the same result.

Any help would be appreciated please, the simpler the better. A different driver or a different dongle would be OK if it is easier, though I prefer to stay with C++Builder.

C++Builder - linker errors trying to use throwFileName and throwLineNumber

2025-07-05T18:07:06Z

I am trying to catch an exception and get the line and source file where the error occurred. I was using __throwLineNumber and __throwFileName and it compiles, but I am receiving linker errors:

[ilink32 Error] Error: '__ThrowFileName()' unresolved
[ilink32 Error] Error: '__ThrowLineNumber()' unresolved

Why does file not exist after calling TRegistry::SaveKey() using C++Builder?

2025-06-09T15:03:32Z

Using C++Builder 12 Athens Community Edition under Windows 10.

My S: drive is where I keep my source code. FOE is the name of the current program I'm developing to watch file associations in the registry and tell me when they've changed.

What I'm trying to do is to take a snapshot of the registry key I'm interested in and everything under it, so I can compare it later and see what's changed.

Everything seems to work OK, and the TRegistry::SaveKey() method doesn't seem to leave a value in the TRegistry::LastError property, but I can't find the file.

This is only ever going to run locally on my PC, so the long key name should not change.

#define ROOTKEY HKEY_USERS

void __fastcall TOptionsForm::SnapShot(void)
{
    // Take a snapshot of the file extensions currently under HKEY_USERS
    TRegistry *WinReg;
    UnicodeString WinKey;
    UnicodeString fPath;
    UnicodeString msg;

    fPath.sprintf(L"S:\\FOE\\Keys\\FileExts");
    WinReg = new TRegistry(KEY_ALL_ACCESS);
    WinReg->RootKey = ROOTKEY;
    WinKey.sprintf(L"S-1-5-21-192366507-594344067-2320108307-1001\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Explorer\\FileExts");

    if (WinReg->OpenKey(WinKey,false))
    {
        ListBox1->Items->Add(fPath);

        WinReg->SaveKey(WinKey,fPath);

        if (WinReg->LastError)
        {
            msg.sprintf(L"Error %d",WinReg->LastError);
            ListBox1->Items->Add(msg);
            msg = WinReg->LastErrorMsg;
            ListBox1->Items->Add(msg);
        }
    }
    WinReg->CloseKey();
    delete WinReg;
}

FireMonkey - how to get bitmap from TLayout including TText?

2025-05-25T04:16:19Z

I have a RAD Studio 12 C++ project which has a TLayout on a form. The TLayout has a number of TRectangle children, and some of them have TText children.

The TRectangles have their own bitmap images in them.

This all displays well on the form, I see the TRectangles and their images, and I see the TText.

However, when I try to capture a bitmap from the TLayout, I get the TLayout and the TRectangles but not the TText. This is the case if the TText is a child of the TLayout or a child of a TRectangle.

I am capturing the bitmap using the Canvas of the TLayout:

void __fastcall TFillScreenForm::CaptureToBitmap(Graphics::TBitmap * Bitmap)
{
    if (Bitmap)
    {
        Bitmap->SetSize(FillLayout->Width, FillLayout->Height);
        // Create a canvas for the bitmap
        TCanvas* Canvas = Bitmap->Canvas;

        // Begin drawing on the canvas
        TRectF Rect(0, 0, Layout->Width, Layout->Height);
        if (Canvas->BeginScene())
        {
            try
            {
                // Clear the canvas
                Canvas->Clear(TAlphaColors::Null);

                // Render the layout onto the canvas
                Layout->PaintTo(Canvas, Rect);
            }
            catch (...)
            {
                // Handle any exceptions if necessary
            }
            // End the drawing scene
            Canvas->EndScene();
        }
    }
}

Is there another way of capturing the TLayout or the TForm in FireMonkey so I also get the TText?

As an example, this is the form with the TLayout:

And here is the captured bitmap:

I have also tried the snapshot function in TLayout:

Bitmap->SetSize(Layout->Width, Layout->Height);
Bitmap->Assign(Layout->MakeScreenshot());

Both capture only the graphics, not the TText.

I am not sure if this is a FireMonkey bug. If I add a TLabel, this is correctly copied into the bitmap. I need to use TText as I want its greater flexibility.

To make sure it isn't anything to do with drawing order, I tried adding a TText on its own away from the other TRectangle objects, but this also is not copied into the bitmap, but displays correctly on the form.

How to make a TDbLookUpComboBox equivalent using LiveBindings?

2025-05-20T07:53:23Z

I am using RAD Studio 12.2. The data source is an SQLite table.

How to create an analogue of TDbLookUpComboBox using LiveBindings? Is it possible without code?

The articles I found do not help.

Unresolved external 'IdnToAscii'

2025-04-19T17:18:17Z

When trying to use the following overload of the TIPAddress::Create() method:

#include <System.Net.Socket.hpp>
...
System::Net::Socket::TIPAddress::Create(L"192.168.99.3");

The program fails to build in release with the following error:

[ilink64 Error] Error: Unresolved external 'IdnToAscii' referenced from C:\SOFT\EMBARCADERO\STUDIO\23.0\LIB\WIN64\RELEASE\RTL.A|System.Net.Socket.o

When building in debug or using another overload of Create, the build succeeds. How can I fix this?

FMX Project, C++Builder 12.

Resizing a form C++Builder FMX (Delphi)

2025-04-17T07:19:18Z

My task is to implement a standard mechanism for resizing a form. I have the main form TForm frmMain.

frmMain->Transperent = true.

On the form is placed the TPanel PanelRoot

PanelRoot->Align = Client.
PanelRoot->Padding = 6

I need to resize the main form using PanelRoot
Here is a part of my code.
But there are some problems:

it is impossible to resize quickly - the cursor needs to be moved very slowly
if the cursor goes outside the window and then returns, the cursor remains crSizeWE or crSizeNS and the form is resized even without the left mouse button pressed

//---------------------------------------------------------------------------
    void __fastcall TfrmMain::FormCreate(TObject* Sender)
    {
        IsResizingHorz              = false;
        IsResizingVert              = false;
    }
//---------------------------------------------------------------------------
void __fastcall TfrmMain::PanelRootMouseDown(TObject* Sender, TMouseButton Button, TShiftState Shift, float X, float Y)
{
    if (Button == TMouseButton::mbLeft) {
        bool IsNearRightEdge  = (X <= 4 || X >= Width - 4);
        bool IsNearBottomEdge = (Y <= 4 || Y >= Height - 4);

        if (IsNearRightEdge) {
            IsResizingHorz = true;
            StartX         = X;
            InitialWidth   = Width;
        } else if (IsNearBottomEdge) {
            IsResizingVert = true;
            StartY         = Y;
            InitialHeight  = Height;
        }
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::PanelRootMouseUp(TObject* Sender, TMouseButton Button, TShiftState Shift, float X, float Y)
{
    if (Button == TMouseButton::mbLeft) {
        IsResizingHorz    = false;
        IsResizingVert    = false;
        PanelRoot->Cursor = crDefault;
    }
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::PanelRootMouseMove(TObject* Sender, TShiftState Shift, float X, float Y)
{

    if (X <= 4 || X >= Width - 4) {
        PanelRoot->Cursor = crSizeWE;
    } else if (Y <= 4 || Y >= Height - 4) {
        PanelRoot->Cursor = crSizeNS;
    } else
        PanelRoot->Cursor = crDefault;

    if (IsResizingHorz) {
        auto NewWidth = InitialWidth + (X - StartX);
        SetBounds(Left, Top, NewWidth, Height);

    } else if (IsResizingVert) {
        auto NewHeight = InitialHeight + (Y - StartY);
        SetBounds(Left, Top, Width, NewHeight);
    }
}
//---------------------------------------------------------------------------

Using Address Sanitizer (ASAN) with VCL in Embarcadero C++Builder 12.3

2025-04-08T15:15:06Z

Has anyone had any luck using the Address Sanitizer with VCL forms in C++Builder 12.3? I can't get it to work with even the most trivial of forms.

When running C++Builder with ASAN enabled (Win64X target), I get exceptions like (0xc0000005 encountered at address...) in the IDE, or "The application was unable to start correctly (0xc0000142)" when executing under a Windows command prompt. I've tried static and dynamic linking, with and without runtime packages, etc.

Has anyone gotten this to work? Any tips?

IDE Callback Stack:

:00007FFF1EB63F80 __asan::PoisonShadow(unsigned long long, unsigned long long, unsigned char)()
:00007FFF1EB4A62E __sanitizer::SizeClassAllocator64<__asan::AP64<__sanitizer::LocalAddressSpaceView>>::MapWithCallbackOrDie(unsigned long long, unsigned long long, char const*)()
:00007FFF1EB4A520 __sanitizer::SizeClassAllocator64<__asan::AP64<__sanitizer::LocalAddressSpaceView>>::Init(int, unsigned long long)()
:00007FFF1EB47FEC __asan::Allocator::InitLinkerInitialized(__asan::AllocatorOptions const&)()
:00007FFF1EB6B7A0 __asan::AsanInitInternal()()
:00007FFF1EB7414F __do_global_ctors()
:00007FFF1EB741A0 __main()
:00007FFF1EB213F5 __DllMainCRTStartup()
:00007FFF1EB212C2 DllMainCRTStartup()
:00007FFFA0CD8B8F RtlActivateActivationContextUnsafeFast()
:00007FFFA0D1D63D RtlEnumerateEntryHashTable()
:00007FFFA0D1D3EE RtlEnumerateEntryHashTable()
:00007FFFA0D1D460 RtlEnumerateEntryHashTable()
:00007FFFA0D8EE69 LdrInitShimEngineDynamic()
:00007FFFA0D7AB16 EtwLogTraceEvent()
:00007FFFA0D24523 LdrInitializeThunk()
:00007FFFA0D2444E LdrInitializeThunk()

Sample Test Code:

#include <vcl.h>
#pragma hdrstop

#include "MyAsanTest.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    MyCB->Checked = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::TestButtonClick(TObject *Sender)
{
    if (MyCB->Checked) 
    {
        Memo1->Lines->Append("MyCB is checked");
    }
    else
    {
        Memo1->Lines->Append("MyCB is not checked");
    }
}

Sample Header:

//---------------------------------------------------------------------------

#ifndef MyAsanTestH
#define MyAsanTestH
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TCheckBox *MyCB;
    TMemo *Memo1;
    TCheckBox *My2ndCB;
    TButton *TestButton;
    void __fastcall TestButtonClick(TObject *Sender);
private:    // User declarations
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

Indy10 network library - openssl 3.X and TLS1.3 support

2025-04-07T07:08:55Z

I am currently using Indy10 library along with OpenSSL 1.0.2u to support TLS1.2 in my application. Could you please share details about how I can support TLS1.3 in my application? Do I have to upgrade the Indy10 along with OpenSSL to 3.X version?

Has Indy 10 started supporting OpenSSL 3.X and TLS1.3?

I am using RAD Studio XE5 for my development.

Regards Nilesh

Using CreateOleObject in C++Builder

2025-04-02T23:30:47Z

In Delphi 12.3, this compiles and works to create a new empty Access database file:

Uses ComObj;
    
procedure TForm1.Button1Click(Sender: TObject);
var
  AdoX: OleVariant;    
begin
  AdoX := CreateOleObject('ADOX.Catalog');
  AdoX.Create('Provider=Microsoft.ACE.OLEDB.12.0; Data Source=test.accdb');
end;

But I am struggling to do the same in C++Builder 12.3.

I started with the following:

#include <ComObj.hpp>
    
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    OleVariant AdoX;
    
    AdoX = CreateOleObject(L"ADOX.Catalog");
    AdoX.Create(L"Provider=Microsoft.ACE.OLEDB.12.0; Data Source=test.accdb");
}

However, the Windows 64-bit (Modern) compiler gives this error:

[bcc64x Error] Unit1.cpp(29): use of overloaded operator '=' is ambiguous (with operand types 'System::OleVariant' and '_di_IDispatch' (aka 'DelphiInterface< ::IDispatch>'))

If I use _di_IDispatch like so:

#include <ComObj.hpp>
    
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    _di_IDispatch AdoX;
    
    AdoX = CreateOleObject(L"ADOX.Catalog");
    AdoX.Create(L"Provider=Microsoft.ACE.OLEDB.12.0; Data Source=test.accdb");
}

Then the line with CreateOleObject() compiles, but the next line doesn't compile because _di_IDispatch has no Create() method:

[bcc64x Error] Unit1.cpp(30): no member named 'Create' in   System::DelphiInterface<IDispatch>'.

C++ argument parsing is incorrect when the executable file path contains spaces

2025-03-29T09:40:50Z

I am having problems with arguments in C++ console programs built under C++Builder 12 Community Edition.

If the executable is in a folder with spaces in its name, eg. "test dir", and I invoke it from a console session in a DIFFERENT folder, then the arguments extracted by my code are incorrect. If the executable file path has no spaces, everything works fine. If I run it within the IDE, it's OK, too. Code built under Visual Studio 22 also works OK.

CPPtest.cpp

#include <iostream.h>

int main(int argc, char* argv[])
{
    cout << "argc: " << argc << "\n"; 
    cout << "argv0: " << argv[0] << "\n"; 
    cout << "argv1: " << argv[1] ; 
    return 0 ;`
}

The executable is located in a directory named "Misc projects", CWD is "C:\Junk":

C:\Junk>C:\"Misc projects"\CPPtest 3 8
argc: 2 ## INCORRECT: Should be 3
argv0: c:\Misc projects\CPPtest.exe
argv1: projects\CPPtest 3 8 # INCORRECT should be 8

Identical code when ran inside Visual Studio 22 performs correctly.