باز کردن فایل pdf

[h e 2]

سلام خدمت اساتید عزیز

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

می خوام فایل pdf در internal گوشی ذخیره بشه. بعد از اونجا بازش کنم.

File.Copy(File.DirAssets,"1.pdf",File.DirInternal,"1.pdf")

	Dim path As String
	Dim intent1 As Intent
	path = "file://" & File.DirInternal & "/1.pdf"
	intent1.Initialize(intent1.ACTION_VIEW, path)
	intent1.SetType("application/pdf")
	intent1.WrapAsIntentChooser("انتخاب پی دی اف خوان")
	StartActivity(intent1)

 

آیا permission خاصی نیاز است؟

لطفا" کمکم کنید. ممنون

 

 

[Salar82 919]

سلام

به این صورت بنویسید:

Sub OpenPDF(FileName As String)
  Dim i As Intent 
  i.Initialize(i.ACTION_VIEW, FileName)
  i.SetType("application/pdf")
  i.WrapAsIntentChooser("Choose PDF Viewer")
  StartActivity(i)
End Sub

این ساب رو به کلاس اضاف کنید و بصورت زیر استفاده کنید:

OpenPDF("file://" & File.Combine(File.DirInternal, "1.pdf"))