Private Sub billmanager_OwnedProducts (Success As Boolean, purchases As Map)
...
End Sub
Private Sub GetOwnedProductsOffline
...
End Sub
Private Sub SavLizenzFileMap(mp As Map, PurchaseTime As Long)
...
End Sub
Private Sub billmanager_ProductConsumed (Success As Boolean, Product As Purchase)
'Meldung anzeigen das die Lizenz abgelaufen ist.
If Success Then
CallSubDelayed2(Me, "ShowMessageLizenzExpired", Product.ProductId)
End If
End Sub
Private Sub ShowMessageLizenzExpired(ProductId As String)
...
End Sub
Private Sub billmanager_PurchaseCompleted (Success As Boolean, Product As Purchase)
...
End Sub
Private Sub ShowPurchaseCompleted(ProductId As String)
...
End Sub
Public Sub GetOwnedProducts
'Prüfen ob Lizenzprodukten vorhanden sind, aber erst prüfen ob Internet vorhanden.
' Log("CheckInternetConnection")
' Log(" ")
CallSubDelayed(Me, "CheckInternetConnection")
End Sub
Private Sub CheckInternetConnection
Dim job As HttpJob
job.Initialize("IsInternet", Me)
job.Download("http://www.google.com")
End Sub
Sub JobDone(Job As HttpJob)
If Job.Success Then
Select Job.JobName
Case "IsInternet"
Log("JobDone: Starter.billmanager.GetOwnedProducts")
Starter.billmanager.GetOwnedProducts
Case Else
End Select
Else
Log("JobDone: GetOwnedProductsOffline")
GetOwnedProductsOffline
End If
Job.Release
StopService(HttpUtils2Service)
End Sub