in manifest i have already added this :

android:usesCleartextTraffic="true">

same on delphi 10.4.2

yes same result

'http://10.11.10.50/APplusTest7/masterdata/Artikel.asmx'

result :

Project Client_Wms.apk raised exception class ESOAPHTTPException with message 'Unauthorized (401) - 'http://10.11.10.50/APplusTest7/masterdata/Artikel.asmx''.

the url is an internal one and is working if i run on windows , i tried to modify to https://masterdata/Artikel.asmx" but the connection is refused by the server under windows too.

please tell my what to change

Hi All,

I have a D11 small fmx app consuming a Soap web service authorized by user/password , if i run on WIndows all is working good, if i try to run on Android i Have this error :

Project Client_Wms.apk raised exception class ESOAPHTTPException with message 'Unauthorized (401) - 'http:/masterdata/Artikel.asmx''.

this is the code :

hi all ,

Apple will discontinue notification in binary mode at the end of march and will work only in HTTP/2 mode.

anybody has a working example?

Thanks in advance

Beppe

thank you very much !!!!

thank you Wil ,

do you have a small code example ?

Beppe

Hi all ,

there is in delphi 10.4.2 a way to understand if MAC is in dark mode and switch theme ?

Thanks in advance

Beppe

i have the same issue , delphi 10.4.1 ,xcode 12.3 ios 14.3

Beppe

20 hours ago, emailx45 said:

FMX.Platform.TPlatformServices.SupportsPlatformService(...) = OK???

??

17 hours ago, Dave Nottage said:

You didn't answer my other question, i.e:

 

 

   PushService :=   TPushServiceManager.Instance.GetServiceByName(TPushService.TServiceNames.FCM);  

 if PushService <> nil then  

  begin

......

remain nil !

17 hours ago, emailx45 said:

Here all step-by-step to use Sydney / Android / TPushService / Firebase Support

 

uses 
   FMX.PushNotification.Android;
  
 procedure TFormMain.FormCreate(Sender: TObject);
 var 
   PushService: TPushService;
   ServiceConnection: TPushServiceConnection;
   Notifications: TArray<TPushServiceNotification>;
 begin
   PushService := TPushServiceManager.Instance.GetServiceByName(TPushService.TServiceNames.FCM);
   ServiceConnection := TPushServiceConnection.Create(PushService);
   ServiceConnection.Active := True;
   ServiceConnection.OnChange := OnServiceConnectionChange;
   ServiceConnection.OnReceiveNotification := OnReceiveNotificationEvent;
   //
   FDeviceId := PushService.DeviceIDValue[TPushService.TDeviceIDNames.DeviceId];
   MemoLog.Lines.Add('DeviceID: ' + FDeviceId);
   MemoLog.Lines.Add('Ready to receive!');
  //
   // Checks notification on startup, if application was launched fromcold start
   // by tapping on Notification in Notification Center
   Notifications := PushService.StartupNotifications;
   if Length(Notifications) > 0 then
   begin
       MemoLog.Lines.Add('-----------------------------------------');
       MemoLog.Lines.Add('DataKey = ' + Notifications[0].DataKey);
       MemoLog.Lines.Add('Json = ' + Notifications[0].Json.ToString);
       MemoLog.Lines.Add('DataObject = ' + Notifications[0].DataObject.ToString);
       MemoLog.Lines.Add('-----------------------------------------');
   end;
 end;

 

// it's good idea verify if the service was started!
if (PushService.Status = TPushService.TStatus.Started) then
begin
... 
end

 

http://docwiki.embarcadero.com/RADStudio/Sydney/en/Firebase_Android_Support

 

hug

hi ,

this example do not compile on 10.4.1 , 

 PushService: TPushService;   
 ServiceConnection: TPushServiceConnection;   
 Notifications: TArray<TPushServiceNotification>;

these variables remain in red , may be are not more defined in 

FMX.PushNotification.Android;

if i include

System.PushNotification;

the sample compile but hang

up

15 hours ago, Dave Nottage said:

What do you mean by hang? Have you checked to see if PushService is non-nil when executing this line?

ServiceConnection := TPushServiceConnection.Create(PushService);   

PushService :=   TPushServiceManager.Instance.GetServiceByName(TPushService.TServiceNames.GCM);    

ServiceConnection := TPushServiceConnection.Create(PushService);    

ServiceConnection.Active := True;<<<<---- app hang here

13 minutes ago, emailx45 said:

have tryed add the "KEYs/IDs" in project as expected when using a API services by Google/Apple etc..?

yes the same as 10.3.3

16 minutes ago, emailx45 said:

https://stackoverflow.com/questions/62264578/delphi-android-firebase-cloud-messaging-application-crashes-on-notification-re

this is not my case , on 10.3.3 my app is working , the problem is on 10.4.1

Hi Dave,

i tried TPushService.TServiceNames.FCM but same result ,the program hang when execute 

ServiceConnection.Active := True;

There is a tutorial or an example for 10.4.1 ? 

Thanks 

Beppe

hi all,

i have an application builded with Delphi  10.3.3 and android firebase notification are working good.

I tried to move the application to Delphi 10.4.1 but the app hang when try to connect the server.

PushService :=   TPushServiceManager.Instance.GetServiceByName(TPushService.TServiceNames.GCM);    

ServiceConnection := TPushServiceConnection.Create(PushService);    

ServiceConnection.Active := True;

i Tried with a small example from the scratch but the same result.

anybody has a working example on 10.4.1 ?

Thanks in advance 

Beppe