D
Deleted member 103
Guest
Hi,
I have this procedure that outputs the in-app prices without an error message even without an internet connection.
Is that normal, is the data stored offline somewhere?
I have this procedure that outputs the in-app prices without an error message even without an internet connection.
Is that normal, is the data stored offline somewhere?
B4X:
Public Sub GetAllProductPrice
'make sure that the store service is connected
Wait For (billing.ConnectIfNeeded) Billing_Connected (Result As BillingResult)
If Result.IsSuccess Then
'get the sku details
Dim sf As Object = billing.QuerySkuDetails("inapp", Array(Product_1year, Product_1month, Product_6month))
Wait For (sf) Billing_SkuQueryCompleted (Result As BillingResult, SkuDetailsList As List)
If Result.IsSuccess And SkuDetailsList.Size > 0 Then
Dim mp As Map
mp.Initialize
For Each Sku As SkuDetails In SkuDetailsList
mp.Put(Sku.Sku, Sku.Price)
Log("SKU-Preis= " & Sku.Price)
Next
CallSub2(Main, "ShowInAppBilling", mp)
End If
Else
ToastMessageShow(Starter.language.value("strInAppBillingError"),True)
End If
End Sub
SKU-Preis= 7,49 €
SKU-Preis= 35,99 €
SKU-Preis= 23,99 €