رفتن به مطلب
  • 0

خطای درون پرداخت بازار


amirex128

سوال

من کتابخانه درون پرداخت بازار رو خریدم و به وسیله آموزش های داده شده در فیلم چند بخش از برنامه خود رو درون پرداخت کردم و دکمه ای در پایین صفحه قرار دادم برای ارتقای برنامه و به درستی کار میکنه.
مشکل اینجاس اگر اپلیکیشن بازار در گوشی نصب نباشد با این ارور مواجع میشویم .و به خاطر همین موضوع بازار به برنامه من گیر میده و اجازه انتشار نمیده.
NullPointerException
اگه بازار نصب باشد همچین اروری نمیده ها و به خوبی و درستی کار میکنع .
کسی میدونع باید چکار کنم بجای این ارور به کاربر بگه برو بازار رو نصب کن.
من دقیقا این اموزش پیش رفتم

photo_2015_10_25_10_14_31.jpg

لینک ارسال
به اشتراک گذاری در سایت های دیگر

11 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

سلام

والا اینجور که خودتون می گید کدتون درست کار میده و دلیل بازار به خاطر اون پیغام نصب نبودن هستش.خب شما بیا بجای پیغام دادن از کلمه Return اسفاده کن تا هیچ پیغامی رو نشون نده.

وکلا شما قبل از هرکاری با اجرا شدن برنامه ، توضیحی در مورد برنامه و نصب بودن بازار رو به صورت راهنمای برنامه قرار بدید.

میشه یکم بیشتر توضیح بدید باید دقیقا چکار کنم کجا از returnباید استفاده کنم؟

آخه ما که مثل شما مهندس نیستیم که .

داریم با کمک شما وسایت تون یاد میگیریم!!!

لینک ارسال
به اشتراک گذاری در سایت های دیگر

سلام شما بیاید از کتابخانه استاد شاهدی استفاده کنید ب این شکل :

Dim Aria as AriaLib

و بیاین به این شکل نصب بودن بازار رو چک کنید 

If Aria.isAppInstalled("com.farsitell.bazaar") = True Then
'// درون پرداخت رو انجام بده
Else If Aria.isAppInstalled("com.farsitell.bazaar") = False Then
ToastMessageShow("بازار بر روی گوشی شما نصب نیست" , True)
End If

بازم پکیج نیم بازارو نمیدونم دقیق شما چک کنید

 

http://answercenter.ir/topic/2714-%DA%A9%D8%AA%D8%A7%D8%A8%D8%AE%D8%A7%D9%86%D9%87-arialib-%D8%A7%D8%B4%D8%AA%D8%B1%D8%A7%DA%A9-%DA%AF%D8%B0%D8%A7%D8%B1%DB%8C/

 

موفق ترین باشید :ok:

لینک ارسال
به اشتراک گذاری در سایت های دیگر

خوب این طبیعی هست شما دارید از پرداخت بازار استفاده می کنید . برای جلوگیری از خطا از دستور 

try
کدهای شما
catch
کدهایی که می خواهید هنگام خطا دادن اجرا بشن
end try
لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

من میتونم سورس رو به شما بدم یک نگاه بندازید ببنید مشکل از کجاست .؟؟؟

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

من میتونم سورس رو به شما بدم یک نگاه بندازید ببنید مشکل از کجاست .؟؟؟

 

عذر میخوام من پکیج نیم بازارو اشتباه داده بودم :roomNemishe:

 

مجددا امتحان کنید :

Dim Aria As AriaLib
If Aria.isAppInstalled("com.farsitel.bazaar") = True Then
'// درون پرداخت رو انجام بده
Else If Aria.isAppInstalled("com.farsitel.bazaar") = False Then
ToastMessageShow("بازار بر روی گوشی شما نصب نیست" , True)
End If
لینک ارسال
به اشتراک گذاری در سایت های دیگر

عذر میخوام من پکیج نیم بازارو اشتباه داده بودم :roomNemishe:

 

مجددا امتحان کنید :

Dim Aria As AriaLib
If Aria.isAppInstalled("com.farsitel.bazaar") = True Then
'// درون پرداخت رو انجام بده
Else If Aria.isAppInstalled("com.farsitel.bazaar") = False Then
ToastMessageShow("بازار بر روی گوشی شما نصب نیست" , True)
End If
وقتی که بازار نصب نباشد برنامه ارور میده که بازار رو نصب کنید و برای همین هم بازار برنامه من رو قبول نمیکنه.وقتی از این کد استفاده میکنم مشکل حل میشه بجای ارور میگه بازار را نصب کنید ولی وقتی بازر نصب شود باز به خاطر این کدها ارور میده؟
لینک ارسال
به اشتراک گذاری در سایت های دیگر

شما یه لطفی کنید کدهای مربوط به درون پرداختتون رو قرار بدید ما بررسی کنیم

سورس کد نزارید !!! فقط کد

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

Sub Process_Globals

End Sub

Sub Globals

	Private Button1 As Button
	Private Button2 As Button
	Private Button3 As Button
	Private Button4 As Button
	Private Button5 As Button
	Private Button6 As Button
    Private Button7 As Button
	Private Button8 As Button
	Private Button9 As Button
	Private Button10 As Button
	Private Button11 As Button
    Dim pay As BillingManager_b4a_org
    Dim blnSupport As Boolean
    Dim phone1 As PhoneId
    Dim api As String : api = "MIHNMA0GCSqGSIb3DQEBAQUAA4G7ADCBtwKBrwDhzfoCufyeE9zmuvv/1kD/w8qllz+Q0dAFitQGMNPC1sBHJY9pVqivp4sbtXe/5rI6dffClsKFvT3HWdhm0ijyrakFsfF17T+rySYlPFmgHvShAra+FEYR8CkWcMqmoXCKcocZiZtuplYC/+77EByaSObptj713MTkMBJWgDJbcmhUqJ19Ou5/tsJJyy5JSp9mZX1WwRx/OIrL4OuVJgrqJvt3u/a5CaFV1bS0ytkCAwEAAQ=="
	Private Button12 As Button
	Private Button13 As Button
	Private Button14 As Button
	Private btn5 As Panel
	Private btn6 As Panel
	Private btn7 As Panel
	Private btn8 As Panel
	Private Panel2 As Panel
	Private Panel3 As Panel
	Private Panel6 As Panel
	Private Panel4 As Panel
	Private Panel5 As Panel
	Private Button15 As Button
End Sub




Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("fehrest")
'کدی که به من دادن رو اینحا کذاشتم
Dim Aria As AriaLib
If Aria.isAppInstalled("com.farsitel.bazaar") = True Then


	pay.Initialize("Ashora",api)
    pay.DebugLogging = True
	
Else If Aria.isAppInstalled("com.farsitel.bazaar") = False Then
ToastMessageShow("بازار بر روی گوشی شما نصب نیست" , True)
End If

    If File.Exists(File.DirInternal,"upgrade") Then
Button5.Enabled = True
 Button6.Enabled = True
   Button7.Enabled = True
  Button8.Enabled = True
  Button10.Enabled = True
End If




If File.Exists(File.DirInternal,"pardakht.txt") = False Then
	
			btn5.Visible=True
			btn6.Visible=True
			btn7.Visible=True
			btn8.Visible=True
	Else
btn5.Visible=False
btn6.Visible=False
btn7.Visible=False
btn8.Visible=False	
End If



End Sub

Sub Ashora_BillingSupported (Supported As Boolean, Message As String)
	blnSupport = Supported
End Sub




Sub Button1_Click	
StartActivity(Menu1)
	
End Sub
Sub Button2_Click
		StartActivity(Menu11)
End Sub
Sub Button3_Click
	StartActivity(menu3)
End Sub
Sub Button4_Click
	StartActivity(menu4)
End Sub
Sub Button5_Click
	
	StartActivity(menu5)

End Sub
Sub Button6_Click
	StartActivity(menu6)
End Sub
Sub Button7_Click
	StartActivity(menu7)
End Sub
Sub Button8_Click
	StartActivity(menu8)
End Sub
Sub Button9_Click
StartActivity(Galleryy)
End Sub
	
Sub Button10_Click
	
	StartActivity(salavat)
End Sub

Sub Button11_Click
	Msgbox("برای ارتقای برنامه می بایست حتما اپلیکیشن بازار بر روی اسمات فون شما نصب باشد در غیر این صورت با خطا مواجه می شوید","ارتقای برنامه به نسخه فول ورژن")
	If blnSupport = False Then
 Msgbox("ارتقا انجام نشد لطفا دسترسی به اینترنت و هم چنین از نصب بود بازار اطمینان حاصل فرمایید","error")
 Return
Else
pay.RequestPayment("Ashora","inapp",phone1.GetDeviceId)
 End If

End Sub


Sub Button12_Click
	
Dim sh As ShareApp
	StartActivity(sh.ShareApps("ارسال برنامه به دوستان"))
End Sub

Sub Button13_Click
	
	StartActivity(ahd)
End Sub


Sub Ashora_PurchaseCompleted (Success As Boolean, Product As Purchase)
	If Success = True Then
 ToastMessageShow("برنامه با موفقیت ارتقا داده شد.از اعتماد شما سپاس گذاریم",False)
Button5.Enabled = True
  Button6.Enabled = True
 Button7.Enabled = True 
 Button8.Enabled = True
Button10.Enabled = True
 File.WriteString(File.DirInternal,"upgrade","true")
End If

'اینجا هم فکر کنم مشکل دار باشه
End Sub






Sub pardakht
		Dim i As Int
	i=Msgbox2("برای مشاهده این بخش لطفا برنامه رو ارتقا دهید","ارتقای برنامه","ارتقای برنامه","بعدا ارتقا میدم","",Null)
	If i= DialogResponse.POSITIVE Then
pay.RequestPayment("Ashora","inapp",phone1.GetDeviceId)
		btn5.Visible=False
		btn6.Visible=False
btn7.Visible=False
btn8.Visible=False	
		File.writestring(File.dirinternal,"pardakht.txt","ok")
	End If
End Sub





Sub btn5_Click
	pardakht
End Sub
Sub btn6_Click
	pardakht
End Sub
Sub btn7_Click
		pardakht
End Sub
Sub btn8_Click
		pardakht
End Sub

من مشکلم با درون پرداخت حل نشد.چند روش دیگه رو هم امتحان کردم وقتی برنامه بازار نصب باشه درون پرداخت به خوبی کار میکنه ولی اگه نباشه ارور میده به خاطر همین بازار گیر میده.من مشکلم با درون پرداخت حل نشد.چند روش دیگه رو هم امتحان کردم وقتی برنامه بازار نصب باشه درون پرداخت به خوبی کار میکنه ولی اگه نباشه ارور میده به خاطر همین بازار گیر میده.
لینک ارسال
به اشتراک گذاری در سایت های دیگر

شما یه لطفی کنید کدهای مربوط به درون پرداختتون رو قرار بدید ما بررسی کنیم

سورس کد نزارید !!! فقط کد

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

سلام

والا اینجور که خودتون می گید کدتون درست کار میده و دلیل بازار به خاطر اون پیغام نصب نبودن هستش.خب شما بیا بجای پیغام دادن از کلمه Return  اسفاده کن تا هیچ پیغامی رو نشون نده.

وکلا شما قبل از هرکاری با اجرا شدن برنامه ، توضیحی در مورد برنامه و نصب بودن بازار رو به صورت راهنمای برنامه قرار بدید.

لینک ارسال
به اشتراک گذاری در سایت های دیگر

شما یه لطفی کنید کدهای مربوط به درون پرداختتون رو قرار بدید ما بررسی کنیم

سورس کد نزارید !!! فقط کد

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

Sub Process_Globals

End Sub

Sub Globals

	Private Button1 As Button
	Private Button2 As Button
	Private Button3 As Button
	Private Button4 As Button
	Private Button5 As Button
	Private Button6 As Button
    Private Button7 As Button
	Private Button8 As Button
	Private Button9 As Button
	Private Button10 As Button
	Private Button11 As Button
    Dim pay As BillingManager_b4a_org
    Dim blnSupport As Boolean
    Dim phone1 As PhoneId
    Dim api As String : api = "MIHNMA0GCSqGSIb3DQEBAQUAA4G7ADCBtwKBrwDhzfoCufyeE9zmuvv/1kD/w8qllz+Q0dAFitQGMNPC1sBHJY9pVqivp4sbtXe/5rI6dffClsKFvT3HWdhm0ijyrakFsfF17T+rySYlPFmgHvShAra+FEYR8CkWcMqmoXCKcocZiZtuplYC/+77EByaSObptj713MTkMBJWgDJbcmhUqJ19Ou5/tsJJyy5JSp9mZX1WwRx/OIrL4OuVJgrqJvt3u/a5CaFV1bS0ytkCAwEAAQ=="
	Private Button12 As Button
	Private Button13 As Button
	Private Button14 As Button
	Private btn5 As Panel
	Private btn6 As Panel
	Private btn7 As Panel
	Private btn8 As Panel
	Private Panel2 As Panel
	Private Panel3 As Panel
	Private Panel6 As Panel
	Private Panel4 As Panel
	Private Panel5 As Panel
	Private Button15 As Button
End Sub




Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("fehrest")
'کدی که به من دادن رو اینحا کذاشتم
Dim Aria As AriaLib
If Aria.isAppInstalled("com.farsitel.bazaar") = True Then


	pay.Initialize("Ashora",api)
    pay.DebugLogging = True
	
Else If Aria.isAppInstalled("com.farsitel.bazaar") = False Then
ToastMessageShow("بازار بر روی گوشی شما نصب نیست" , True)
End If

    If File.Exists(File.DirInternal,"upgrade") Then
Button5.Enabled = True
 Button6.Enabled = True
   Button7.Enabled = True
  Button8.Enabled = True
  Button10.Enabled = True
End If




If File.Exists(File.DirInternal,"pardakht.txt") = False Then
	
			btn5.Visible=True
			btn6.Visible=True
			btn7.Visible=True
			btn8.Visible=True
	Else
btn5.Visible=False
btn6.Visible=False
btn7.Visible=False
btn8.Visible=False	
End If



End Sub

Sub Ashora_BillingSupported (Supported As Boolean, Message As String)
	blnSupport = Supported
End Sub




Sub Button1_Click	
StartActivity(Menu1)
	
End Sub
Sub Button2_Click
		StartActivity(Menu11)
End Sub
Sub Button3_Click
	StartActivity(menu3)
End Sub
Sub Button4_Click
	StartActivity(menu4)
End Sub
Sub Button5_Click
	
	StartActivity(menu5)

End Sub
Sub Button6_Click
	StartActivity(menu6)
End Sub
Sub Button7_Click
	StartActivity(menu7)
End Sub
Sub Button8_Click
	StartActivity(menu8)
End Sub
Sub Button9_Click
StartActivity(Galleryy)
End Sub
	
Sub Button10_Click
	
	StartActivity(salavat)
End Sub

Sub Button11_Click
	Msgbox("برای ارتقای برنامه می بایست حتما اپلیکیشن بازار بر روی اسمات فون شما نصب باشد در غیر این صورت با خطا مواجه می شوید","ارتقای برنامه به نسخه فول ورژن")
	If blnSupport = False Then
 Msgbox("ارتقا انجام نشد لطفا دسترسی به اینترنت و هم چنین از نصب بود بازار اطمینان حاصل فرمایید","error")
 Return
Else
pay.RequestPayment("Ashora","inapp",phone1.GetDeviceId)
 End If

End Sub


Sub Button12_Click
	
Dim sh As ShareApp
	StartActivity(sh.ShareApps("ارسال برنامه به دوستان"))
End Sub

Sub Button13_Click
	
	StartActivity(ahd)
End Sub


Sub Ashora_PurchaseCompleted (Success As Boolean, Product As Purchase)
	If Success = True Then
 ToastMessageShow("برنامه با موفقیت ارتقا داده شد.از اعتماد شما سپاس گذاریم",False)
Button5.Enabled = True
  Button6.Enabled = True
 Button7.Enabled = True 
 Button8.Enabled = True
Button10.Enabled = True
 File.WriteString(File.DirInternal,"upgrade","true")
End If

'اینجا هم فکر کنم مشکل دار باشه
End Sub






Sub pardakht
		Dim i As Int
	i=Msgbox2("برای مشاهده این بخش لطفا برنامه رو ارتقا دهید","ارتقای برنامه","ارتقای برنامه","بعدا ارتقا میدم","",Null)
	If i= DialogResponse.POSITIVE Then
pay.RequestPayment("Ashora","inapp",phone1.GetDeviceId)
		btn5.Visible=False
		btn6.Visible=False
btn7.Visible=False
btn8.Visible=False	
		File.writestring(File.dirinternal,"pardakht.txt","ok")
	End If
End Sub





Sub btn5_Click
	pardakht
End Sub
Sub btn6_Click
	pardakht
End Sub
Sub btn7_Click
		pardakht
End Sub
Sub btn8_Click
		pardakht
End Sub

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...