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

[rezac 13]

سلام دوستان.

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

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

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

[rezac 13]

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

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

[vistamobile 1,700]

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

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

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

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

AddPermission("android.permission.READ_EXTERNAL_STORAGE")

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

[rezac 13]

فایده نداشت.

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

[rezac 13]

کد زیر رو نوشتم برای نشون دادن 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)

 

[vistamobile 1,700]

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

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

 

[rezac 13]

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

pdf1 = cur1.GetString("text")

دقت کنید.

[vistamobile 1,700]

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

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

pdf1 = cur1.GetString("text")

دقت کنید.

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

[rezac 13]

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

[محمدرضا شاهپیری 5,579]

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

[rezac 13]

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

ممنون