آموزش ساده برای محصولات مصرفی با درون پرداخت (ConsumeProduct)
سه شنبه, ۳ شهریور ۱۳۹۴، ۱۲:۰۴ ب.ظ
آموزش ساده برای محصولات مصرفی با درون پرداخت (ConsumeProduct)
یه عده از دوستان توی محصولات مصرفی و کار با ConsumeProduct مشکل داشتن که استفاده از اون به این صورت :
شما اول میاین درخواست خرید رو میدین (RequestPayment) و بعد ساب PurchaseCompleted اجرا میشه که 2تا مقدار رو بهتون میده ، یکی Success که از نوع بولین و یه Product از نوع Purchase که باید توی این ساب محصول رو Cunsume یا مصرف شدنی تعریف کنید .
چیز هایی که گفتم کدش به این صورت میشه:
Sub Globals Dim manager As BillingManager_b4a_org End Sub Sub Activity_Create(FirstTime As Boolean) manager.Initialize("manager", "") manager.DebugLogging=True End Sub Sub button1_click manager.RequestPayment(Productid, Producttype,DeveloperPayload) End Sub Sub manager_PurchaseCompleted (Success As Boolean, Product As Purchase) If Success Then ToastMessageShow("kharid anjam shod",False) manager.ConsumeProduct(Product) ' inja Mahsul masrafi mishe ' Else ToastMessageShow("kharid anjam nashod",False) End If End Sub