Gary Wardell

Hi, Ok, that fixed that. Now I am getting this. What is wrong. What am I missing. Or what needs to be updated. Gary paclient command line for "MacInCloud" c:\program files (x86)\embarcadero\studio\20.0\bin\paclient.exe -u8 --Put="/Users/admin/Library/MobileDevice/Provisioning Profiles/85f6874d-4c0d-4d84-82fc-7f8d699f0edc.mobileprovision,App4.app,embedded.mobileprovision" MacInCloud paclient command line for "MacInCloud" c:\program files (x86)\embarcadero\studio\20.0\bin\paclient.exe -u8 --codesign="App4.app,'iPhone Distribution: Gary Wardell (H97PU85Q74)',App4.app\..\App4.entitlements" MacInCloud [PAClient Error] Error: E0264 Unable to execute '"/usr/bin/codesign" --deep -s "iPhone Distribution: Gary Wardell (H97PU85Q74)" -f "/Users/admin/PAServer/scratch-dir/gwardell-MacInCloud/App4.app"' (Error 1) [PAClient Error] Error: E0264 iPhone Distribution: Gary Wardell (H97PU85Q74): ambiguous (matches "iPhone Distribution: Gary Wardell (H97PU85Q74)" and "iPhone Distribution: Gary Wardell (H97PU85Q74)" in /Users/admin/Library/Keychains/login.keychain) Failed Elapsed time: 00:02:15.8

Hi, I'm trying to build a simple test app without the alerts, just to make sure it runs. But I am getting an error in the Provisioning saying the Bundle Identifier doesn't match. What is the Bundle Identifier and how do I find out what it should be. Gary

That article doesn't give directions on how to implement iOS the way Marco's blog post does for Android. > The new demo can be found here. I guess I have to download the demo and sort it out from that. I am not clear on what link to use to download the whole project. Or do I have to download each file individually. Gary

Hi Dave, Oh my. I was using Kinvey till they raised their prices out of my sight. I seem to have more users using iOS than Android and the usage has way dropped since I left kinvey. So does your article actually work on iOS in the real world? I have a test Android app written in Rio 10.2 using Firebase that seems to work great. Will you be available if I need help in getting it to work? Gary

Hi, I was given this link that helped me get my Android test app working. http://docwiki.embarcadero.com/RADStudio/Rio/en/Firebase_Android_Support Now I need to build an iOS app and get that working. I did some searching on docwiki but found nothing about iOS alerts in Rio. I did find some things about Delphi 8. Can anyone provide me with a link about building an iOS app to receive push notifications from Firebase using Rio 10.2. Or 10.3. Thanks, Gary

Hi, I found the problem so this question can be closed. My test app is now working and receiving notifications.

Hi, Ok. I put the file in there and in the remote directory I think he said. And I saw the Deploy button, do I clicked that and it made the apk file. I copied that to my phone and installed it. But now when I tap on the app icon Android says the App has stopped. So, now can we get into debugging why the app has stopped? I am not familiar with how to debug apps on an Android phone. The apps I have written some time ago all just ran. They were all using Kinvey for alerts. It never displayed the one form it has in it. The phone is Motorola Z2 Play. Running android 8.0.0. I don't know if it makes a difference, I didn't code sign the app. Gary

Hui, Thanks. I looked through the IDE and didn't see that. Gary

Hi, New problem. I can't find this. ----- 14. Navigate to Project > Deployment Manager and add the strings.xml file from your FireMonkey application project folder, i.e. C:\MyFireBaseApplication (see step 7). ----- How do I find the Deployment Manager? Where is it and step by step how do I get to it. I did some Google searches but that didn't help. Gary

Hi, I looked and saw a BtnClick. I tried assigning that to the ServiceConection.OnChange and it didn't get an error. So I declared those procedures the same way and it worked. Sure helps to have examples that work. So now on to the next step. Thanks for your help. Gary

Like this? procedure TForm1.FormCreate(Sender: TObject); var PushService: TPushService; ServiceConection: TPushServiceConnection; FDeviceID: string; procedure BtnClick(Sender: TObject); procedure FormCreate(Sender: TObject); begin PushService := TPushServiceManager.Instance.GetServiceByName(TPushService.TServiceNames.GCM); ServiceConection := TPushServiceConnection.Create(PushService); ServiceConection.Active := True; ServiceConection.OnChange := OnServiceConnectionChange; ServiceConection.OnReceiveNotification := OnReceiveNotificationEvent; FDeviceID := PushService.DeviceIDValue[TPushService.TDeviceIDNames.DeviceID]; MemoLog.Lines.Add('DeviceID: ' + FDeviceID); MemoLog.Lines.Add('Ready to receive.'); end; That didn't help. BTW. I have programed Pascal many years ago. And Delphi 7 and 8 some years ago. But I had some time doing other stuff and for got some things. And this bit seems not all that simple.

Ok. I am following the examples that Marco wrote in that blog article. He obviously left out some details. Doing this: type TForm1 = class(TForm) Edit1: TEdit; Label1: TLabel; Label2: TLabel; Button1: TButton; MemoLog: TMemo; procedure BtnClick(Sender: TObject); procedure FormCreate(Sender: TObject); Corrected that error. Now I am getting this error: Two lines of the code, copied from the blog article.: ServiceConection.OnChange := OnServiceConnectionChange; ServiceConection.OnReceiveNotification := OnReceiveNotificationEvent; [DCC Error] Unit1.pas(51): E2003 Undeclared identifier: 'OnServiceConnectionChange' [DCC Error] Unit1.pas(52): E2003 Undeclared identifier: 'OnReceiveNotificationEvent'

I'll look at the link. What I meant is I added TForm1. to the name. If you look at the listing above you can see it was missing.

When I do this: procedure TForm1.OnServiceConnectionChange(Sender: TObject; PushChanges: TPushService.TChanges); begin end; procedure TForm1.OnReceiveNotificationEvent(Sender: TObject; const ServiceNotification: TPushServiceNotification); begin end; I get this: [DCC Error] Unit1.pas(42): E2003 Undeclared identifier: 'OnServiceConnectionChange' [DCC Error] Unit1.pas(42): E2029 ';' expected but '(' found [DCC Error] Unit1.pas(46): E2003 Undeclared identifier: 'OnReceiveNotificationEvent' [DCC Error] Unit1.pas(46): E2029 ';' expected but '(' found Sorry, but I am a bit of a novice. Gary

Yes it was. It was late and I missed that. Now I am getting this: [DCC Error] Unit1.pas(59): E2009 Incompatible types: 'method pointer and regular procedure' [DCC Error] Unit1.pas(60): E2009 Incompatible types: 'method pointer and regular procedure' This is my code: procedure OnServiceConnectionChange(Sender: TObject; PushChanges: TPushService.TChanges); begin end; procedure OnReceiveNotificationEvent(Sender: TObject; const ServiceNotification: TPushServiceNotification); begin end; procedure TForm1.FormCreate(Sender: TObject); var PushService: TPushService; ServiceConection: TPushServiceConnection; FDeviceID: string; begin PushService := TPushServiceManager.Instance.GetServiceByName(TPushService.TServiceNames.GCM); ServiceConection := TPushServiceConnection.Create(PushService); ServiceConection.Active := True; ServiceConection.OnChange := OnServiceConnectionChange; <--------- ServiceConection.OnReceiveNotification := OnReceiveNotificationEvent; <--------- FDeviceID := PushService.DeviceIDValue[TPushService.TDeviceIDNames.DeviceID]; MemoLog.Lines.Add('DeviceID: ' + FDeviceID); MemoLog.Lines.Add('Ready to receive.'); end;