اضافه کردن چند فایل pdf به نرم افزار و اجرای آنها

[hamidaxel 10]

سلام به همه دوستای عزیز

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

[/font][/size]Dim intent1 As Intentintent1.Initialize(intent1.ACTION_VIEW, "1.pdf")
intent1.SetType("application/pdf")
intent1.WrapAsIntentChooser("Choose PDF Viewer")

StartActivity(intent1)[size=4][font=arial black]

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

نام فایل تو این کد 1.pdf هست که درون پوشه files گذاشتمش.

پیشاپیش از راهنماییتون ممنونم.

[مهران محمودی 778]

سلام،  کتابخانه Phone رو اضافه کنید، با استفاده از یه PackageManager میتونید چک کنید که آیا برنامه ای برای نمایش فایل Pdf نصب هستش یا نه، از این کدها استفاده کنید:

	 If File.Exists(File.DirRootExternal,"1.pdf")=False Then
		File.copy(File.DirAssets,"1.pdf",File.DirRootExternal,"1.pdf")
	End If
	Dim pm As PackageManager
    Dim Intent1 As Intent
    Intent1.Initialize(Intent1.ACTION_VIEW, "file://" & File.Combine(File.DirRootExternal&"/", "1.pdf"))
    Intent1.SetType("application/pdf")
	If pm.QueryIntentActivities(Intent1).Size = 0 Then
		Msgbox("برنامه ای برای نمایش فایل نصب نیست.","خطا")
	Else
		Intent1.WrapAsIntentChooser("نمایش با:")
		StartActivity(Intent1)
	End If

موفق باشید...

[esmaeil57 64]

سلام

از کتابخانه pdfViewer استفاده کنید. سرچ کنید هستش اگه نبود بگین بذارم. البته ناگفته نمونه که من دل خوشی ازش ندارم!!!!!!!!! بعضی وقتا قاطیه !!!!!!!!!

[مهدی ایزدی 9,203]

دوست عزیز شما معنی این خط کد رو میدونید؟ *che?*

File.copy(File.DirAssets,Null,File.DirInternal,"1.pdf")

لطفا فارسیش رو بگید

[esmaeil57 64]

دوست عزیز ، همون که قبلا گفتم بهترینش استفاده از کتابخونه است ، حالا باید یکی از اساتیدی که میدونن لطف کنن اگه امکانش هست یه کتابخونه بهتری سراغ دارن بذارن تا اون مشکل قاطی بودنش هم حل شه لطف بزرگی درحق همه کردن .*give_heart*

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

یا علی

[esmaeil57 64]

یعنی هیچی رو بردار کپی کن توی حافظه داخلی گوشی*laugh2*

[مجید آرتا 5,874]

دوست عزیز شما معنی این خط کد رو میدونید؟ *che?*

File.copy(File.DirAssets,Null,File.DirInternal,"1.pdf")

لطفا فارسیش رو بگید

دقیقه سوال منم همین بود.*r24*

[vistamobile 1,700]

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

   	If File.Exists(File.DirInternal,"[color=#333333]1.pdf[/color]")=False Then
File.copy(File.DirAssets,"deb.db",File.DirInternal,"[color=#333333]1.pdf[/color]")
End If

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

[hamidaxel 10]

دوست عزیز شما معنی این خط کد رو میدونید؟ *che?*

File.copy(File.DirAssets,Null,File.DirInternal,"1.pdf")

لطفا فارسیش رو بگید

والا چه ارض کنم !!! امان از آماتور بودن ! خود برنامه میگه به جای null باید source بزارم منم نمیدونستم چه سورسی منظورشه برای همین null گذاشتم. حالا شما لطف کنید بگید منظورش از سورس چیه ؟ یعنی همون 1.pdf رو باید بزارم ؟ یه چیزی هم بگم من نمیخوام فایل پی دی اف تو برنامه ساخنه بشه ها ! فقط میخوام پی دی افی که ساختم و گذاشتم توی پوشه files پروزه از طریق یه button داخل برنامه نمایش داده بشه

[[email protected] 3]

سلام دوستان یه سوال این کد الان میاد پی دی اف ها رو تو حافظه داخلی کپی میکنه اگه بخوای توی یه پوشه مخصوص کپی کنه از چه کدی میتونیم استفاده کنیم برای این که جلوی چشم نباشه مثلا توی پوشه android  تو حافطه داخلی ممنون میشم سریع بهم پاسخ بدید 

[hamidaxel 10]

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

       If File.Exists(File.DirInternal,"[color=#333333]1.pdf[/color]")=False Then
File.copy(File.DirAssets,"deb.db",File.DirInternal,"[color=#333333]1.pdf[/color]")
End If

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

میشه یه توضیح کوتاه در باره deb.db بدید ؟ اگر مربوط به دیتابیس باشه که من تو نرم افزارم از دیتابیس استفاده نکردم. باید استفاده کنم ؟

[hamidaxel 10]

به جای deb.db از null استفاده کردم . کل کد این شکلی شد :

Sub bottun_Click    If File.Exists(File.DirInternal,"1.pdf")=False Then
File.copy(File.DirAssets,Null,File.DirInternal,"1.pdf")
End If
   Dim Intent1 As Intent


   Intent1.Initialize(Intent1.ACTION_VIEW, "file://" & File.Combine(File.DirInternal & "/", "1.pdf"))
   Intent1.SetComponent("android/com.android.internal.app.ResolverActivity")
   Intent1.SetType("application/pdf")


   StartActivity(Intent1)
End Sub

الان وارد ادوب ریدر میشه ولی ارور تغییر کرد به : the document path is not valid

[مجید آرتا 5,874]

سلام

دوستم File.DirInternal فایل هارو توی پوشه ی Data  مربوط به برنامه کپی میکنه.

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

و یا می تونید اطلاعات PDF رو توی دیتابیس انکریپت شده قرار بدید.

[[email protected] 3]

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

 

 

[vistamobile 1,700]

والا چه ارض کنم !!! امان از آماتور بودن ! خود برنامه میگه به جای null باید source بزارم منم نمیدونستم چه سورسی منظورشه برای همین null گذاشتم. حالا شما لطف کنید بگید منظورش از سورس چیه ؟ یعنی همون 1.pdf رو باید بزارم ؟ یه چیزی هم بگم من نمیخوام فایل پی دی اف تو برنامه ساخنه بشه ها ! فقط میخوام پی دی افی که ساختم و گذاشتم توی پوشه files پروزه از طریق یه button داخل برنامه نمایش داده بشه

داداش شرمنده ایراد از ذهن مشوش بنده بود. شما ببخش :

If File.Exists(File.DirInternal,"1.pdf")=False Then

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

End If

[hamidaxel 10]

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

Sub Button1_ClickIf File.Exists(File.DirInternal,"1.pdf")=False Then
File.copy(File.DirAssets,"1.pdf",File.DirInternal,"1.pdf")
End If
Dim intent1 As Intent
intent1.Initialize(intent1.ACTION_VIEW, "1.pdf")
intent1.SetType("application/pdf")
intent1.WrapAsIntentChooser("Choose PDF Viewer")
StartActivity(intent1)

End Sub

اینم تصویر از ارو :

[vistamobile 1,700]

کد باتون اجرای پی دی اف چیه؟ میشه اینجا بزارین؟ (رویداد باتون برای اجرای pdf)

[hamidaxel 10]

همینیبود که نوشتم :

Sub Button1_Click

If File.Exists(File.DirInternal,"1.pdf")=False Then

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

End If

Dim intent1 As Intent

intent1.Initialize(intent1.ACTION_VIEW, "1.pdf")

intent1.SetType("application/pdf")

intent1.WrapAsIntentChooser("Choose PDF Viewer")

StartActivity(intent1)

End Sub

[m007moh 181]

 If File.Exists(File.DirRootExternal,"1.pdf")=False Then
File.copy(File.DirAssets,"1.pdf",File.DirRootExternal,"1.pdf")
End If
    Dim Intent1 As Intent
    Intent1.Initialize(Intent1.ACTION_VIEW, "file://" & File.Combine(File.DirRootExternal&"/", "1.pdf"))
    Intent1.SetType("application/pdf")
    StartActivity(Intent1)

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

[مجتبی قاسمی 53]

 If File.Exists(File.DirRootExternal,"1.pdf")=False Then
File.copy(File.DirAssets,"1.pdf",File.DirRootExternal,"1.pdf")
End If
    Dim Intent1 As Intent
    Intent1.Initialize(Intent1.ACTION_VIEW, "file://" & File.Combine(File.DirRootExternal&"/", "1.pdf"))
    Intent1.SetType("application/pdf")
    StartActivity(Intent1)

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

 

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

[hamidaxel 10]

دوستان کسی نظری نداره ؟ که چکار باید کرد ؟