B4i Library RevenueCat

RevenueCat is a platform that simplifies in-app subscriptions and purchases for mobile apps. It provides tools for managing subscription billing, analytics, and user retention across iOS, Android, and web, without needing to build a backend. Usage is free for apps with less than $2,500 in monthly tracked revenue (MTR).

In-App Subscriptions Made Easy – RevenueCat

The world’s best apps use RevenueCat to power in-app purchases, manage customer data, and grow revenue across iOS, Android, and the web.

www.revenuecat.com

I use the library in CleanTasks, I have only tested the whole thing in B4I.

RevenueCat
Author: Alexander Stolte
Version: 1.00

• RevenueCat
  • Functions:
    • Class_Globals As String
    • CreatePurchase (ProductId As String, Product As Object) As ResumableSub
      Records a purchase for a Customer from iOS, Android, or Stripe and will create a Customer if they don't already exist.
      https://www.revenuecat.com/docs/api-v1#tag/transactions/operation/receipts
      Product - In B4I the ProductInformation Object in B4A the Receipt Token
    • GetCustomer As ResumableSub
      Gets the latest Customer Info for the customer with the given App User ID, or creates a new customer if it doesn't exist.
      https://www.revenuecat.com/docs/api-v1#tag/customers/operation/subscribers
    • GUID As String
      Generates a new GUID
    • Initialize (API_KEY As String, AppUserId As String, lst_ProductIdentifier As List) As String
      Initializes the object. You can add parameters to this method if needed.
      <code>RevCat.Initialize("RevenueCatAPIKey",RevCatUserId,Array As String("all_access_1_year","all_access_1_month"))</code>
    • IsInitialized As Boolean
      Tests whether the object has been initialized.
• RevenueCat_Error
  • Fields:
    • ErrorMessage As String
    • IsInitialized As Boolean
      Tests whether the object has been initialized.
    • Success As Boolean
  • Functions:
    • Initialize
      Initializes the fields to their default value.
• RevenueCat_Subscription
  • Fields:
    • AutoResumeDate As Long
    • BillingIssuesDetectedAt As Long
    • Error As RevenueCat_Error
    • ExpiresDate As Long
    • GracePeriodExpiresDate As Long
    • IsInitialized As Boolean
      Tests whether the object has been initialized.
    • isSandbox As Boolean
    • OriginalPurchaseDate As Long
    • OwnershipType As String
    • PeriodType As String
    • ProductIdentifier As String
    • PurchaseDate As Long
    • RefundedAt As Long
    • Store As String
    • StoreTransactionId As String
    • UnsubscribeDetectedAt As Long
  • Functions:
    • Initialize
      Initializes the fields to their default value.

Changelog

• 1.00
  • Release

Have Fun

If you have errors or questions, then please create a new thread

 

[Cristian Achim]

Hi!

I replaced

RevCat.Initialize("RevenueCatAPIKey",RevCatUserId,Array As String("all_access_1_year","all_access_1_month"))

with

RevCat.Initialize("appl_BwXDhxxxxxxxxxxxxxxx", RevCatUserId, Array As String("rto_silver", "rto_gold", "rto_platinum"))

and I received this error:

ResponseError: request completed with error, status code: 404
{"code":7117,"message":"Page not found."}
01/01/1970 02:00:00
Has Premium? false

Also I see that

Dim RevCatUserId As String = KeyValue.GetDefault("RevCatUserId",RevCat.GUID)
Log(RevCatUserId)

(empty string)

Is there anything else to change?

 

[Alexander Stolte]

and I received this error:

Make sure you have followed all the steps in the documentation:

iStore - In App Purchases

The iStore library allows you to use the store In-App Purchases features inside your app. You can let the user purchase digital products from inside your app. (Unsurprisingly) the configuration required is a bit tedious. In order to test this feature (and later release it) you need to create...

www.b4x.com

Setting up RevenueCat | In-App Subscriptions Made Easy – RevenueCat

Register for a free account

www.revenuecat.com

only when you see all products from the apple dev console in revenuecat can you start testing.

 

[Cristian Achim]

I already made all steps.
The products in RevenueCat, I imported them from App Store, I didn't create them manually.
That means that App Store communicate with RevenueCat.
Thank you!

 

[Alexander Stolte]

I have updated the example project, the user id is now saved.

It is best to execute the following again after initializing:

KeyValue.Remove("RevCatUserId")

 

[Alexander Stolte]

It is best to execute the following again after initializing:

KeyValue.Remove("RevCatUserId")

So that your empty string is removed and assigned a correct value. You can then delete the line again.

 

[Cristian Achim]

Still not working

I think RevCat.GUID doesn't generate anything.

Is mandatory to create an integration like Webhook or else in RevenueCat?

 

[Alexander Stolte]

I think RevCat.GUID doesn't generate anything.

Yes, because an empty string has already been saved! Delete the key and execute the code again.

Is mandatory to create an integration like Webhook or else in RevenueCat?

I dont think so.

 

[Cristian Achim]

 

[Alexander Stolte]

Try Log(RevCat.GUID)

 

[Cristian Achim]

Nothing has happened

 

[Alexander Stolte]

I'm using this exact code:

[B4X] GUID

Sub GUID As String Dim sb As StringBuilder sb.Initialize For Each stp As Int In Array(8, 4, 4, 4, 12) If sb.Length > 0 Then sb.Append("-") For n = 1 To stp Dim c As Int = Rnd(0, 16) If c < 10 Then c = c + 48 Else c = c + 55...

www.b4x.com

 

[Cristian Achim]

I'm using this exact code:

[B4X] GUID

Sub GUID As String Dim sb As StringBuilder sb.Initialize For Each stp As Int In Array(8, 4, 4, 4, 12) If sb.Length > 0 Then sb.Append("-") For n = 1 To stp Dim c As Int = Rnd(0, 16) If c < 10 Then c = c + 48 Else c = c + 55...

www.b4x.com

That's how it works. Thank you very much for your patience.

 

[Alexander Stolte]

hat's how it works. Thank you very much for your patience.

yes, but the code has to work, regardless of whether it is in my class or separated code. Its working now with the code in the link?

 

[Cristian Achim]

yes, but the code has to work, regardless of whether it is in my class or separated code. Its working now with the code in the link?

Now I have problem on purchase

 

[Alexander Stolte]

Now I have problem on purchase

Please make a new thread for further questions, thanks

 

[Robert Valentino]

Be nice to see example for B4a

Maybe help some of us take Google out of the loop

PS: Looks nice and promising