FabDev

Hello,

I'm developing a Delphi FireMonkey (FMX) application that works perfectly when run locally on Windows. However, when the application is deployed through RemoteApp (RDP seamless mode) — for example, on Windows Server 2019 — the application does not appear in the taskbar.

- Here's what I’ve tried so far (with no success):

• Setting BorderStyle := TFmxFormBorderStyle.Single

• Manually setting the form's Visible := True

• Forcing the form to be shown using ShowWindow(...)

• Using Windows API to set WS_EX_APPWINDOW and remove WS_EX_TOOLWINDOW

• Trying to delay taskbar hacks via TThread.Synchronize(...)

• Attempting similar tricks in Loaded, OnCreate, and OnShow

I also tried calling this helper function in FormCreate, but it had no visible effect:

uses
  FMX.Platform.Win, Winapi.Windows;

procedure ForceTaskbarPresence(Form: TForm);
var
  Wnd: HWND;
begin
  if TPlatformServices.Current.SupportsPlatformService(IFMXWindowService) then
  begin
    Wnd := WindowHandleToPlatform(Form.Handle).Wnd;
    SetWindowLong(Wnd, GWL_EXSTYLE,
      GetWindowLong(Wnd, GWL_EXSTYLE) and not WS_EX_TOOLWINDOW or WS_EX_APPWINDOW);
    ShowWindow(Wnd, SW_SHOW);
  end;
end;

Tested in both Delphi 11.X and 12.3.

In contrast, a VCL application behaves correctly in the same RemoteApp environment, especially when setting Application.MainFormOnTaskbar := True.

My goal: make the main FMX window appear in the taskbar under RemoteApp, so the user can interact with it as a normal application window.

My question: Has anyone successfully made a pure FMX application appear in the Windows taskbar under RemoteApp?
If not, is the only reliable workaround to embed FMX inside a VCL host form?
 

Thanks in advance,

Hello,

Thank you for your help.

In the About box, the following information is displayed:
Embarcadero® RAD Studio 12 - Version 29.0.53571.9782

Installed update: 

Delphi 12 and C++ Builder 12 Update 2

RAD Studio 12.2 Patch 1

=> I always apply all the GetIt Update...

So I uninstalled this version Get IT 12.2 Patch 1.0, then re-downloaded RAD Studio from my.embarcadero.com and installed:
RAD Studio 12.1 Patch 1

➜ After this installation, Delphi no longer starts and displays the following error:

"The procedure entry point @Idethme@Utils"

This occurs at startup, before any third-party components are loaded.

Then, when I try to apply RAD Studio 12.1 Patch 2, I get the following error:

"RAD Studio version does not match the target version."

My question:

Does this mean that my Delphi installation is in an inconsistent state, somewhere between 12.1 Patch 1 (which may have failed ?) and 12.2.2?

Two possible solutions:

1. Upgrade to RAD Studio 12.3 and reinstall all my third-party components.
2. Perform a clean installation of RAD Studio 12.3, without keeping the old configuration.

What would be the best approach?

12 minutes ago, FredS said:

Same, I've had to recompile several design time packages to solve this.

For Devexpress or TrichView I have this error :
"The procedure entry point
deth Utils@TIDEDialogRegistryServices@$bcctr$qqrv
could not be found in the dynamic link library:

C:\Comp\DevExpress\Library\RS29\dcldxCoreRS29.bpl"

For TMS or Fast report it is :

"entry point @system@Threading@TParallelArray@$bcctr$qqrv"

For The-Drag-and-Drop-Component-Suite-for-Delphi :

"The procedure entry point
@Idethme@Utils@TIDEDialogRegistryServices@$bcctr$qqrv
could not be found in the dynamic link library:

C:\Users\Public\Documents\Embarcadero\Studio\23.0\Bpl\dclDragDropDR12.bpl"

So upgrade 12.2 to 12.3 is problematic with existing Third-party components ? 

There not such a  problem with 12.1 -> 12.2 update  or 11.2 -> 11.3 update  ...

18 minutes ago, Remy Lebeau said:

Did you have all of the patches for 12.2 installed before you upgraded to 12.3? Patch 1 in particular dealt with package compatibility issues, so if you didn't have it installed then perhaps your packages are not compatible with 12.3.

Yes all updates are installed in Delphi 12.2 (Getit doesn't find anymore update).

Hello,

I'm currently upgrading from Delphi 12.2 Enterprise to 12.3 Enterprise (32 bits IDE) in a Windows 10 64 bits VM, with multiple third-party components installed (TMS, FastReport, DevExpress, etc.). Frameworks MacOS/IOS and Android 64 installed and work fine. Previous migration from Delphi 12.1 to 12.2 work without any problem.

I encountered two issues during the process:

1. At the beginning of the installation, after the automatic GETIT uninstallation, I received the following error:

"No Delphi or C++ Builder installed."

Despite this message, the installation proceeded.

2. After completing the installation, when Delphi's splash screen loads third-party components, I get multiple error messages (for most of third-party components) similar to:

"The procedure entry point @system@Threading@TParallelArray@$bcctr$qqrv was not found in the dynamic link library C:\Users\Public\Documents\Embarcadero\Studio\23.0\Bpl\SVGIconImageListRestClient290.bpl."

This procedure entry point seems related to rtl290.bpl/rtl290.dcp, correct?

I've resolved issue #1 by manually uninstalling GETIT packages. However, issue #2 persists.

I suspect there might be corrupted or incorrect paths somewhere, so I've tried cleaning all Delphi paths (Win32, Win64, Android, etc.) using the "delete incorrect paths" option and restoring from previous VM snapshots.

Unfortunately, this didn't resolve the issue, and occasionally, I also receive an error:

"Failed to get data for 'path36'"

Any insights or suggestions to solve these problems would be greatly appreciated. I'd prefer to resolve this before doing a completely clean installation (without existing Delphi registry entries).

IDE 64 bits work without any problem, certainly because no  third-party components ?

Thank you!

12 hours ago, Dave Nottage said:

In macOS 15, the location for provisioning profiles is in another folder. One solution to fix this is:

1. In Xcode menu, click Xcode > Settings, and select Accounts
2. Select the relevant Apple ID (or add yours if none exists in the list)
3. Click "Download Manual Profiles"

Then PAServer should find the profile

One again Dave, Thank you, it's work !

However, it didn't work the first time; After done it, I had to open a project in Xcode and manually select a profile...

Thank you Alejandro too. But I have an Apple ID linked to Xcode.

Hello,

I have a problem since I have my migrated  MacMini to MacOS Sequoia (15.0).

There is no Provisioning profile in Delphi project (In project/Option/Provisioning).

On the Mac PAServer terminal I see the command :

command_line: "/usr/bin/security" find-identity -v

But nothing append. And Delphi say "No provisioning profil has been found in the build configuration and device selected...".

I have no problem using XCode 15 in the same MacMini. In Xcode / Settings / Accounts all my Certificates seems to be here...

All worked fine in MacOS 14

PS : This doesn't help :

26 minutes ago, Dave Nottage said:

Wherever that information comes from, it's totally wrong.

https://gist.github.com/bananita/8039021

This exists too :

https://github.com/deqline/IPABundler

54 minutes ago, Dave Nottage said:

Yes, .IPA (not .API) files are built with this configuration. You'll need a Distribution Certificate and a Provisioning Profile to match. Please read here: https://docwiki.embarcadero.com/RADStudio/Athens/en/Deploying_Your_iOS_Application_for_Submission_to_the_App_Store

Oops, yes, .IPA (not API) the end of the week is tough! 😉 

Some says that : Move the .app folder into a new folder named "Payload," then compress it into a zip file and change the file extension from .zip to .ipa.

I tried it without success.

Anyway, thanks Dave for your confirmation.

Hello,

I'am trying to upload an application to Apple Store in TestFlight

Problem on my Mac in PAServer\Scratch-dir my application is an .app (extension).

And Transporter (Apple application) need an .api application.

How to convert an .app to .api ? Or how to obtain an .api with Delphi ?

Or does .API is only avalaible for "Application Store" and "Ad Hoc" Configuration ?

I'am using Delphi 12.1

I did not know this CanUndoSelText method, but It's exactly that I need.

Thank you very much !

Hello,

On a basic TMemo (or any TEdit) Undo work by default when the end user modify something.

Problem if you change something by code like a simple :
 

Memo1.Seltext:='Bob';

After this Undo (CTRL + Z ) will not work for the user. If he want to cancel my "Bob".

So how to force a modification by code to be in Undo stack ?

Hello,

I have exactly the same problem here after Delphi 12 installation.

This directory has been created :

C:\Users\Public\Documents\Embarcadero\Studio\23.0\CatalogRepository\AndroidSDK-2525-23.0.50491.5718

But a lot of files are missing in this directory (platforms, build-tools and platforms-tools subdirectories for example).

Maybe because of an existing Delphi 11.3 + Android SDK (AndroidSDK-2525-22.0.47991.2819) always installed ?

Hello,

I have no time to test Delphi 12 for the moment.

Can somebody say which version of Indy is in Delphi 12 ?

Hello,

What is the better code to free a shared resource between thread (lStrings.free) :
 

procedure TForm16.ShowComputedDetail;
begin
TTask.run(
   procedure
   var
     lTstrings:Tstrings;
   begin
     lTstrings:=Tstringlist.create;
     try
         ComputeDetail(lTstrings);
         TThread.Queue(nil,
         procedure
         begin
             MyTMemo.BeginUpdate;
             MyTMemo.lines.Assign(lTstrings);
             MyTMemo.EndUpdate;
             lTstrings.Free;
         end);
     finally

     end;
   end);
end;

or

procedure TForm16.ShowComputedDetail;
begin
TTask.run(
   procedure
   var
     lTstrings:Tstrings;
   begin
     lTstrings:=Tstringlist.create;
     try
         ComputeDetail(lTstrings);
         TThread.Queue(nil,
         procedure
         begin
             MyTMemo.BeginUpdate;
             MyTMemo.lines.Assign(lTstrings);
             MyTMemo.EndUpdate;
             
         end);
     finally
          lTstrings.Free;
     end;
   end);
end;

Thank you very much Dave, It's work fine.

If I understand well with :

• UIFileSharingEnabled
• LSSupportsOpeningDocumentsInPlace

root of document path (= TPath.GetDocumentsPath) become shared.

Great job, you have written one of the most useful libraries Kastri and help HowTo repo (which I have missed !) of Firemonkey.

33 minutes ago, corneliusdavid said:

I did some comparison of the IOUtils paths on various platforms

Hello,

Before I have asked my question here, I have coded an application which do something very close to your

procedure TfrmAppPaths.RefreshPathList;

Result, that confirm Delphi Help of Tpath, a lot the function return '' in IOS...

Hello,

I'am trying to access to shared document directory on IOS.

The one you can found in default "File" application and after "On my Iphone"("sur mon Iphone" in french) :

Application "FileHub", "Firefox" or "FTPManager" can store shared file here, but not me 😉.

I have tried all path in TPath (IoUtils) class/record. Nothing seems to return it. The interesting TPath.GetSharedDocumentsPath return '' on IOS (confirmed by help).

I have began to search it on, the very good, DelphiWorld/Kastri code source (like DW.FilesSelector.iOS.pas) without success for the moment...

4 minutes ago, luciano_f said:

 

How did you manage to run in the Cloud ? Is it for Microsoft terminal server ? 

I would like to say cloud-sync (file, calendar and address book). Yes on Microsoft terminal server. 32 bits executable because it never consume more than 1 GB of memory !

30 minutes ago, luciano_f said:

Tell me what type of company is your project for? Do you have any website ?

Nearly 25 years old CRM software. With hundred of functionalities (Cloud, offline-replication, e-mailing, calendar sync etc.)  that way I need a lot of third party components. Old but still updated to have a "modern user interface": The current version uses DevExpress RIbbon (= look very close to Office 2021) and the new Windows 11 skin...

1 hour ago, Stefan Glienke said:

Could it be that you have some active database connection and live data? That contributes to the memory consumption of the bds.exe process.

No there is a lot of time I have no connexion in design time. The connexion is done after my application is starting (ready state). Of course if you have connexion and heavy queries it's can take a lot of memory, but it's not the case. The question is what Delphi do when opening Search dialog at first time ? I can have the same problem when press F1 on a word or when doing refactoring for first time. Of course before LSP the problem was also in code completion/declaration search ...

1 hour ago, Attila Kovacs said:

You have selected "Search in directories" on that screenshot. 

I never used this feature since I use a proper file manager for tasks like that, but the question that arises is: Is it possible that you have a circular directory link, and Delphi is not able to detect it?

 

No, I do nothing I only select a word and press CTRL + SHIFT + F. At this moment you see the memory used increasing and decreasing after the dialog is shown. I don't press "OK" on search dialog. It's is the search dialog opening which take a lot of memory. Not the search on "Ok".

Like you because of memory problem I use another more powerfull software to search word on directories. But sometime I use Delphi search.

PS : I use search on directory because it's more efficient to search on my own source.

44 minutes ago, Lajos Juhász said:

I cannot reproduce, you must use some memory hungry components. 

Yes my project (> 8 millions of line code) use not far than 40 components libraries like Devexpress (90 % of them component), TMS VCL, IBDAC, Fastreport, Teechart, HTMLEditor, Scalabium, JEDI, Indy, ICS, ImageEN, Jam Software, HTML Editor etc... All components are always up to date to "limit" bug.

PS : I can have same kind of memory using when press F1 on a word.

How to get Out of Memory with Delphi IDE ?

It's so easy !

Open a big project with a lot of files (units, forms, dfm etc..). Select a word and do a search (CTRL + SHIFT + F).

You will see something like :

1 hour ago, Pat Foley said:

Is the IDE set to save files on a compile? Does the error change to corrupted memory when compiling in 64 bit. I have 1.4 Compressed memory even with 8.2 available so I may reboot the machine to clear the Compressed or swap pages out this week. MS fixed some issues doing away with recently used file time line but putting the swap file back in is maddening      

Yes because I have a lot of out of memory I always check "Save on compile". And CTRL + S is my favourite short-cut 😉. Unlike Delphi IDE, despite a very component-rich interfaces (Office 2021 Style and TDI interface), my application very rarely "eat" more than 2 GB of memory. So I only compile in 32 bits.

But I'am sure that's my out of memory errors at compilation time are only consequences of memory full by IDE. That's always show the Task manager of Windows ("maximum working memory range" column).