Android Archivi - Synaptica srl

Delphi HTTP Clear Text Traffic on FMX Android

by Ivan Revelli
in Uncategorized
on April 20, 2022

0

Environment: Delphi 11.1 ( used from Delphi XE 10) Android 12 32bit/64bit supported from Android 9 but work with Android 6.0 too In many cases it may be necessary to access HTTP content on the network where SSL is not available for example: A server within your local network, on a VPN You have an…
Read more

Delphi 11 – Firebase Cloud Messaging ( FCM ) – iOS app Push Notification

by Ivan Revelli
in Apple iOS
on March 24, 2022

0

Goals: Integrate Firebase push notifications (FCM) into an app built with Delphi for iOS without the help of third-party libraries. Having the same base code in the application and in the servers for managing pushes in Delphi the same as that used for Android. Test environment used: VM Delphi 11 Alexandria Ent. Edition on…
Read more

Delphi 11 – Firebase Cloud Messaging ( FCM ) – Android Push Notification

by Ivan Revelli
in Delphi, Delphi, Delphi, Delphi, Delphi, Posts, Posts, Posts, Posts, Posts
on March 14, 2022

0

RAD Studio 11 Alexandria push notification with Android via Firebase. Targets: 1 – Receive push notifications on my Android app 2 – Have a server system for sending push notifications Assumptions from which I started for this test: 1 – Have a Google Firebase account: https://console.firebase.google.com/ 2 – Have an app published on the…
Read more

Detect device orientation change Delphi Firemonkey

by Ivan Revelli
in Android, Android, Android, Android, Android, Android
on July 28, 2021

0

To detect device orientation change, you can use the following example:

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

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;

// Unsubscribe the TOrientationChangedMessage

TMessageManager.DefaultManager.Unsubscribe(TOrientationChangedMessage, FId);

Xtumble4Delphi – not a simple API framework

by Ivan Revelli
in Apple iOS, Programmazione, Programmazione, Xtumble
on December 28, 2020

0

Xtumble library for Delphi Xtumble4Delphi is native delphi library, cross platform ( Windows, Android, iOS, macOSX, Linux64) that allow you to integrate all cloud functonalitty of the XTumble platform in your application. If you create an XTumble Account you can have a dedicated ERP, e-commerce, Cluod Drive, CRM Mail with SMTP and POS system in the cluod. Creating an…
Read more

Android App Version with Delphi

by Ivan Revelli
in Delphi, Posts, Programmazione
on November 8, 2017

0

Using the JPackageInfo class is simple to retrive the version of your Android application. This class is already wrapped by Embarcadero in the following unit: Androidapi.JNI.GraphicsContentViewText {code} {$IFDEF ANDROID} var PackageManager: JPackageManager; PackageInfo: JPackageInfo; begin PackageManager := SharedActivityContext.getPackageManager; PackageInfo := PackageManager.getPackageInfo (SharedActivityContext.getPackageName, 0); result := JStringToString(PackageInfo.versionName); End; {$ENDIF}

Category: Android