مشکل ر درون پرداخت

[bahman2012 13]

سلاممن از کتابخانه درون چرداخت بازار استفاده میکنم

تو نرم افزار جدیدم همچین خطایی میده

 

من دسترسی بازار رو هم تو منیفست گذاشتم ---  اما بازم

 

java.lang.NullPointerException: Attempt to invoke virtual method 'boolean anywheresoftware.b4a.BA.isActivityPaused()' on a null object reference

[vistamobile 1,700]

من سه تا کتابخونه دذون پرداخت دارم به علاوه کتاب خونه کندو و ایران اپس و مایکت. ولی هیچکدوم کیفیت کار اقای شاهدی رو نداره. بدون تغییر مانیفست و با کمترین کد و بیشترین بازدهی رو داره. درون پرداخت یکم سحت بنظر میرسه ولی هیچ چیز خاصی نداره. من حین درون پرداخت موفق یه پنل گذاشتم که مرئی میشه بعد میگه پرداخت موفقیت امیز بود ولی جهت ثبت کامل لطفا برنامه را ببندید بعد یه باتون گذاشتم که برنامه رو میبنده بعد کاربر برنامه رو اجرا میکنه. البته قبلش به بازار ایمیل دادم که سبک کارم اینجوریه گفتن به کاربر اعلام کن در خود برنامه، مشکلی نیس. 

[Hamidbergis 332]

از کتابخونه اقای شاهدی استفاده کنی بهتره

[pourya-man 33]

از دوستان گرامی کسی نمیخواد پاسخ بده ؟

[مهدی ایزدی 9,203]

درود

برنامه رو در حالت Debug اجرا کنید ببینید خط خاصی رو مشخص میکنه که خطا داره یا نه؟ 

[bahman 165]

تو شبیه ساز بازار نصب دارین؟

 

 

اگه دارین

 

 

 

 

علاوه بر دسترسیش کدای فراخونیشو درست قرار دادین ؟

Dim api As String : api = "your api"
	Dim pay As BillingManager3
	Dim binsupport As Boolean
	Dim phone1 As PhoneId

	pay.Initialize("payment",api)
	pay.DebugLogging = True

[bahman2012 13]

این کد منه

Sub Process_Globals
	Dim bazaar As BillingManager3
	Dim p1 As PhoneId
 
End Sub


Sub Activity_Create(FirstTime As Boolean)
	bazaar.Initialize("bazaar","MIHNMA0GCSqGSIb3DQEBAQUAA4G7ADCBtwKBrwDmIe0YyPw993LYSEQNd83btZY9aeGCNZljGGwglvNGVWz8aVvDlxyUSq5THF5Hr2AS8a9ByPBkVhxfVKLfdYP6sNi7JwvqsX+WSK0/4PLJu2VP1XuTBgGdbQKmKpg7GCApA9Z+Hp+2YPKvtXHFmD0SafH9sam65RSsYc0OxacJWki/+6yMd6THzlV74ILKMGyCL7We7jXg2xwtZnaBajdhLz+rUFB7zd59NxipxfMCAwEAAQ==")
	bazaar.DebugLogging = True

End Sub

Sub aa_Click
   	bazaar.RequestPayment("aeinyar","inapp",p1.GetDeviceId)
End Sub

 
Sub bazaar_PurchaseCompleted (Success As Boolean, Product As Purchase)
   If Success = True Then
		bazaar.ConsumeProduct(Product)
	 	lbl_dialog.Text = " خرید شما با موفقیت انجام شد"&CRLF&"محصول به نسخه طلایی ارتقا یافت"

    End if
End sub

[bahman 165]

 

این کد منه

Sub Process_Globals
	Dim bazaar As BillingManager3
	Dim p1 As PhoneId
 
End Sub


Sub Activity_Create(FirstTime As Boolean)
	bazaar.Initialize("bazaar","MIHNMA0GCSqGSIb3DQEBAQUAA4G7ADCBtwKBrwDmIe0YyPw993LYSEQNd83btZY9aeGCNZljGGwglvNGVWz8aVvDlxyUSq5THF5Hr2AS8a9ByPBkVhxfVKLfdYP6sNi7JwvqsX+WSK0/4PLJu2VP1XuTBgGdbQKmKpg7GCApA9Z+Hp+2YPKvtXHFmD0SafH9sam65RSsYc0OxacJWki/+6yMd6THzlV74ILKMGyCL7We7jXg2xwtZnaBajdhLz+rUFB7zd59NxipxfMCAwEAAQ==")
	bazaar.DebugLogging = True

End Sub

Sub aa_Click
   	bazaar.RequestPayment("aeinyar","inapp",p1.GetDeviceId)
End Sub

 
Sub bazaar_PurchaseCompleted (Success As Boolean, Product As Purchase)
   If Success = True Then
		bazaar.ConsumeProduct(Product)
	 	lbl_dialog.Text = " خرید شما با موفقیت انجام شد"&CRLF&"محصول به نسخه طلایی ارتقا یافت"

    End if
End sub

 

 

تو شبیه ساز بازار نصب دارین؟

[bahman2012 13]

اصلا تو گوشی آزمایش میکنم و بازار هم نصب دارم

[vistamobile 1,700]

داداش یه پیشنهاد دارم. کل کدا رو دوباره باز نویسی کن با یه محصول جدید تو یه اکتیویتی جدید. 

[pourya-man 33]

سلام

منم با پرداخت درون برنامه ای مشکل دارم

مشکلمم اینه که وقتی خرید رو میزنم  پنجره بازار باز میشه و میگه محصول وجود ندارد

[مهدی ایزدی 9,203]

از کتابخانه درون پرداخت آقای شاهدی استفاده میکنید ؟

[pourya-man 33]

کد من هم اینه 

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: false
#End Region

Sub Process_Globals
	
End Sub

Sub Globals
Dim bazar As BillingManager3
Dim key As String="MIHNMA0GCSqGSIb3DQEBAQUAA4G7ADCBtwKBrwDB/XWgmsmwHDkBGES7mpdXlTof8RHJeHmMftNADarzrf+u5vxUqY6EfMXtf847YGnj12SCDVk/EgSXyzFHom/jWz46BBQ09jxFLj6NAufZ3UfuFPT8Ygn6oWjxn+lZ5dCfdw1joZg3nlxhk6YU7mK6hR1qoC+uRZ1mISenO1B5a0t2ab3Sgp4I2PEWxxNPsIU2twAUP+zB7E0fYpCC9ROS1sf7VnsExUE1QuJEJmUCAwEAAQ=="
Private BuyApp As ACFlatButton
End Sub

Sub Activity_Create(FirstTime As Boolean)

Activity.LoadLayout("nike")
Work.Theme(Activity)
bazar.Initialize("iab",key)
bazar.DebugLogging=True

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Button1_Click
	bazar.RequestPayment("behsht","inapp","پرداخت انجام شد!!!")
End Sub

Sub iab_purchasecompleted (success As Boolean , product As Purchase)


If success=True Then
 Dim adad As Int=Rnd(0,1000)
 
   Dim s As String=adad
   File.WriteString(File.DirInternalCache,"code.k",s)
   
      File.WriteString(File.DirInternalCache,"bad.k",adad)
   
Msgbox("با موفقیت انجام شد","موفق")

Else
ToastMessageShow("خرید انجام نشد",False)
    End If


End Sub

بازار تو گوشی هست 

 

آموزش پرداخت درون برنامه ای رو کلا بذارید یاد بگیریم

الان من نمیدونم کلا چی میشه و چطوری استفاده میشه از این کتابخونه ها و برنامه چطوری تایید میکنه و ....