سلام برنامم رو با پرداخت درون برنامه برای بررسی در بازار آپلود کردم وبازار این پاسخ رو داد :
"مشکلی در پیاده‌سازی پرداخت درون‌برنامه‌ای وجود دارد. پس از انتخاب گزینهٔ «پرداخت» برنامه با پیغام "Error occured" مواجه می‌شود و امکان بررسی نسخهٔ کامل وجود ندارد. لطفاً این مورد را اصلاح نمایید."
کد این قسمت :
Sub ListView1_ItemClick (Position As Int, Value As Object)
Fasl=Value
Dim cur As Cursor
cur=SQL1.ExecQuery("SELECT * FROM table1")
cur.Position=Value-1
If cur.GetInt("kharid")=1 Then
StartActivity(matlab)
Else
Dim p As Int
p = Msgbox2("تنها با پرداخت 1500 تومان از سایر مطالب جذاب کتاب لذت ببرید","پرداخت درون برنامه","پرداخت ","انصرف","",LoadBitmap(File.DirAssets ,"pay.png"))
If p=DialogResponse.POSITIVE Then
pardakht.RequestPayment("inapppay","inapp","pardakht1")
End If
End If
End Sub
و همچنین :
Sub pardakht_PurchaseCompleted (Success As Boolean, Product As Purchase)
Dim cur As Cursor
cur=SQL1.ExecQuery("SELECT * FROM table1")
If Success=True Then
For j=0 To cur.RowCount
SQL1.ExecNonQuery("update matlab set kharid=1 where id="&j)
Next
ToastMessageShow("پرداخت با موفقیت انجام شد",False)
Else
ToastMessageShow("پرداخت انجام نشد",False)
End If
End Sub
من روی گوشی و تبلت خودم و youwave تست کردم و با مشکلی مواجه نشدم لطفا کمک کنید تا این مشکل رو رفع کنم
سوال
mehdi1376 44
سلام برنامم رو با پرداخت درون برنامه برای بررسی در بازار آپلود کردم وبازار این پاسخ رو داد :
"مشکلی در پیاده‌سازی پرداخت درون‌برنامه‌ای وجود دارد. پس از انتخاب گزینهٔ «پرداخت» برنامه با پیغام "Error occured" مواجه می‌شود و امکان بررسی نسخهٔ کامل وجود ندارد. لطفاً این مورد را اصلاح نمایید."
کد این قسمت :
Sub ListView1_ItemClick (Position As Int, Value As Object) Fasl=Value Dim cur As Cursor cur=SQL1.ExecQuery("SELECT * FROM table1") cur.Position=Value-1 If cur.GetInt("kharid")=1 Then StartActivity(matlab) Else Dim p As Int p = Msgbox2("تنها با پرداخت 1500 تومان از سایر مطالب جذاب کتاب لذت ببرید","پرداخت درون برنامه","پرداخت ","انصرف","",LoadBitmap(File.DirAssets ,"pay.png")) If p=DialogResponse.POSITIVE Then pardakht.RequestPayment("inapppay","inapp","pardakht1") End If End If End Subو همچنین :
Sub pardakht_PurchaseCompleted (Success As Boolean, Product As Purchase) Dim cur As Cursor cur=SQL1.ExecQuery("SELECT * FROM table1") If Success=True Then For j=0 To cur.RowCount SQL1.ExecNonQuery("update matlab set kharid=1 where id="&j) Next ToastMessageShow("پرداخت با موفقیت انجام شد",False) Else ToastMessageShow("پرداخت انجام نشد",False) End If End Subمن روی گوشی و تبلت خودم و youwave تست کردم و با مشکلی مواجه نشدم لطفا کمک کنید تا این مشکل رو رفع کنم
پیشاپیش ممنون از راهنماییتون
لینک ارسال
به اشتراک گذاری در سایت های دیگر
5 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.