Hi,
ich hab nach dem tutorial InappBilling bei mir eingebunden.
Das sieht in etwa so aus:
Das funktiert auch, aber nicht immer!
Die Funktion scheint nicht immer aufgerufen zu werden.
Kann mir jemand helfen? Hat da schon jemand Erfahung mit?
Schonmal Danke im Vorraus,
Thorsten.
ich hab nach dem tutorial InappBilling bei mir eingebunden.
Das sieht in etwa so aus:
B4X:
Sub Manager_PurchaseStateChange (PurchaseState As Int, ProductId As String, OrderId As String, PurchaseTime As Long, ExtraData As String)
Log("PurchaseStateChange: " & PurchaseState & ", " & ProductId& ", " & OrderId & ", " & DateTime.Time(PurchaseTime) & ", " & ExtraData)
If PurchaseState = Manager.PURCHASE_STATE_PURCHASED Then
CallSub2(Main, "addGold", ProductId)
CallSub2(Main, "ThankYouForPurchasing", ProductId)
Main.isTrial = False
End If
End Sub
Die Funktion scheint nicht immer aufgerufen zu werden.
Kann mir jemand helfen? Hat da schon jemand Erfahung mit?
Schonmal Danke im Vorraus,
Thorsten.