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

نشان دادن فایل pdf در بیسیک فور اندروید


rezac

سوال

سلام دوستان.

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

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

لطفا راهنمایی کنید.

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

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

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

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

لطفا راهنمایی کنید. کدش رو نوشتم اما وقتی میزنم که اجرا شه یه تست مسیج نمایش داده میشه با پیام No permision و پی دی اف اجرا نمیشه.

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

در 15 دقیقه قبل، rezac گفته است :

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

لطفا راهنمایی کنید. کدش رو نوشتم اما وقتی میزنم که اجرا شه یه تست مسیج نمایش داده میشه با پیام No permision و پی دی اف اجرا نمیشه.

سلام داداش دسترسی میخواد از اندروید 5 به بعد :

AddPermission("android.permission.READ_EXTERNAL_STORAGE")

اینو تست کنید. دقیق نمیدونم درست نوشتم یا نه. 

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

فایده نداشت.

بازم خطای No premission رو میده

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

کد زیر رو نوشتم برای نشون دادن pdf:

Sub QuickListView_ketab_ItemClick (Index As Int, Value As Object)
	
	cur1 = sql1.ExecQuery("SELECT * FROM tbl")
	cur1.Position = Index
	pdf1 = cur1.GetString("text")
	
	If File.Exists(File.DirDefaultExternal,pdf1)=False Then
		File.Copy(File.DirAssets,pdf1,File.DirDefaultExternal,pdf1)
	End If
	
	
		Dim name_file_pdf = "file://"& File.DirDefaultExternal &pdf1
		Dim intent1 As Intent
		intent1.Initialize(intent1.ACTION_VIEW,name_file_pdf)
		intent1.SetType("application/pdf")
		intent1.WrapAsIntentChooser("یک پی دی اف خوان انتخاب کنید")
		StartActivity(intent1)
	
End Sub

اما خطای زیر رو داخل تست مسیج بهم نشون میده:

Cannot Display PDF(filesketab.pdf cannot be opened)

 

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

داداش شرمنده من نتونستم کدها رو درک کنم. الان :

If File.Exists(File.DirDefaultExternal,pdf1)=False Then
		File.Copy(File.DirAssets,pdf1,File.DirDefaultExternal,pdf1)
	End If

کجاش پی دی اف هستش؟ شما نوشتین اگر pdf1 نبود کپی کن. فکر کنم اینجوری درسته:

 

If File.Exists(File.DirDefaultExternal,pdf1.pdf)=False Then
		File.Copy(File.DirAssets,pdf1.pdf,File.DirDefaultExternal,pdf1.pdf)
	End If

 

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

pdf1 یک متغیر از نوع string هست.

pdf1 = cur1.GetString("text")

دقت کنید.

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

در 15 دقیقه قبل، rezac گفته است :

pdf1 یک متغیر از نوع string هست.


pdf1 = cur1.GetString("text")

دقت کنید.

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

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

از کتابخونه pdfView استفاده کنید

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

اگه امکانش هست آموزشش و خود کتابخونش رو بدید.

ممنون♥

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

بایگانی شده

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

  • کاربران آنلاین در این صفحه   0 کاربر

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