Obiettivi: integrare le push notification Firebase (FCM) in una app realizzata con Delphi per iOS senza l’ausilio di librerie di terze parti. Avere lo stesso base code nella applicazione e nei server per la gestione delle push in Delphi uguale a quello utilizzato per Android. Ambiente di test utilizzato: VM Delphi 11 Alexandria Ent.…
Leggi tutto
RAD Studio 11 Alexandria push notification con Android tramite Firebase. Obiettivi: 1 – Ricevere le notifiche push sulla mia app Android 2 – Avere un sistema server di invio delle notifiche push Presupposti da cui sono partito per questo test: 1 – Avere un account Google Firebase: https://console.firebase.google.com/ 2 – Avere una app pubblicata…
Leggi tutto
Apple MacOSX is a fantastic OS, when your app goes in the background it consumes few resources, this is a fantastic thing if you do not plan to run processes in the background or if it is not a server application. To avoid that your application is not slowed down I have created a very…
Leggi tutto
Delphi is truly a cool development environment, with the right libraries it becomes unbeatable. Now with version 11 and all the IDE in HDPI it is a pleasure to work with. fmxLinux is the library that comes with Delphi to allow you to create visual applications on Linux with Firemonkey and it works great. TMS…
Leggi tutto
To force quit an application by application name in MS-Windows you can use “taskkill” command. To kill an application by app name using taskkill you can write:
|
1 |
taskkill /f /t /im julius.exe |
In this example we kill our application “JuliuS” .
To detect device orientation change, you can use the following example:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
uses System.Messaging, FMX.Platform; var FId: Integer; // Subscribe to TOrientationChangedMessage FId := TMessageManager.DefaultManager.SubscribeToMessage(TOrientationChangedMessage, DoOrientationChanged); // Write orientation change handler: procedure TMyForm.DoOrientationChanged(const Sender: TObject; const M: TMessage); var s: IFMXScreenService; begin if TPlatformServices.Current.SupportsPlatformService(IFMXScreenService, s) then begin case s.GetScreenOrientation of TScreenOrientation.Portrait: ; TScreenOrientation.Landscape: ; TScreenOrientation.InvertedPortrait: ; TScreenOrientation.InvertedLandscape: ; end; end; end; // Unsubscribe the TOrientationChangedMessage TMessageManager.DefaultManager.Unsubscribe(TOrientationChangedMessage, FId); |
