Buona giornata a tutti, sto cercando inserire su Google Play Console una mia app e vorrei venderla
tramite un abbonamento annuale con rinnovo automatico compresa una settimana di prova gratuita.
Quindi dovrei utilizzare la libreria Billing, che non ben capito come funziona; Le costante BILLING_KEY,
la licenza?, penso di averla recuperata, sono 392 caratteri, è normale?
la costante ADS_SDK_ID cosa è e dove la reupero? Penso che piu di qualcuno di voi ha esperienza in questo,
ecco gradirei delle spiegazioni in tal senso, sia per la libreria sie per l'abbonamento. Ho scaricato l'esempio
della libreria, in questa trovo la sub di sotto riportata, che non capisco a cosa serve, tradotto sembra che rimuove gli annunci
ma quali? ADS_SDK_ID è un array? che dati ci sono all'interno? Scusatemi ma sono davvero al digiuno di tutto
tramite un abbonamento annuale con rinnovo automatico compresa una settimana di prova gratuita.
Quindi dovrei utilizzare la libreria Billing, che non ben capito come funziona; Le costante BILLING_KEY,
la licenza?, penso di averla recuperata, sono 392 caratteri, è normale?
la costante ADS_SDK_ID cosa è e dove la reupero? Penso che piu di qualcuno di voi ha esperienza in questo,
ecco gradirei delle spiegazioni in tal senso, sia per la libreria sie per l'abbonamento. Ho scaricato l'esempio
della libreria, in questa trovo la sub di sotto riportata, che non capisco a cosa serve, tradotto sembra che rimuove gli annunci
ma quali? ADS_SDK_ID è un array? che dati ci sono all'interno? Scusatemi ma sono davvero al digiuno di tutto
B4X:
Sub btnRemoveAds_Click
'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("subs", Array(ADS_SDK_ID))
Wait For (sf) Billing_SkuQueryCompleted (Result As BillingResult, SkuDetails As List)
' If Result.IsSuccess And SkuDetails.Size = 1 Then
' Result = billing.LaunchBillingFlow(SkuDetails.Get(0))
' If Result.IsSuccess Then Return
' End If
If Result.IsSuccess Then
If SkuDetails.Size > 0 Then
Dim offers As List = SkuDetails.Get(0).As(JavaObject).RunMethod("getSubscriptionOfferDetails", Null)
Dim offer As JavaObject = offers.Get(0)
Dim OfferToken As String = offer.RunMethod("getOfferToken", Null)
' Result = billing.LaunchBillingFlow(SkuDetails.Get(0))
Result = LaunchBillingFlow(billing, SkuDetails.Get(0), OfferToken)
If Result.IsSuccess Then Return
Else
ToastMessageShow("Error SKU not found", True)
Return
End If
End If
End If
ToastMessageShow("Error starting billing process", True)
End Sub