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

مشکل با PDFViewer


Siaic

سوال

سلام به دوستان

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

Sub Globals
    Dim p1 As PDFViewer
    Private pnl1 As Panel   
End Sub


Sub Activity_Create(FirstTime As Boolean)
    
    
    
    Activity.LoadLayout("lay")
 
    
    p1.init
    pnl1.AddView(p1,10,10,100%x,100%y)
    p1.getpdf(File.Combine(File.DirInternal,"1.pdf"))
     
End Sub

خب تا اینجا مشکلی نیست و نمایش میده

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

کسی میدونه مشکل از کجاست؟

یا خاصیت کتابخونه همینه که 1 فایل باز کنه؟

 

تشکررررررر :gol:

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

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

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

سلام بر شما !

 

چه خطایی رو میده ؟؟؟ عکس ازت قرار بدین لطفا !

احیانا به Initialize کردن گیر نمیده ؟

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

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

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

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

تشکر

http://s6.picofile.com/file/8223945068/test.zip.html

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

حجم سورستون خیلی بالاست

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

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

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

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

تشکر

http://s6.picofile.com/file/8223945068/test.zip.html

همیشه موقع آپلود سعی کنید پوشه Object سورس رو پاک کنید بعد قرار بدید.

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

ببخشید توجه نکرده بودم

 

کمتر از این نتونستم کنم

http://s6.picofile.com/file/8224001926/test.rar.html

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

 

کلا این کدهارو با کد home جایگذین کنید :

ضمنا اسم فایل pdf دومی خودتون رو هم به 2 تغییر بدید !

خیلی ساده فقط رفع مشکل کردیم... در کل روشی که شما دارید میرید اصلا جالب نیست

باید از دیتابیس استفاده کنید اگه تعداد فایل های pdf شما زیاد هست

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: false
#End Region

Sub Process_Globals
	
End Sub

Sub Globals
	Dim p1 As PDFViewer
	Private pnl1 As Panel
	Dim i As Int = 1
End Sub

Sub Activity_Create(FirstTime As Boolean)
	
	
	
	Activity.LoadLayout("lay")
	
	If File.Exists(File.DirInternal,"2.pdf") = False Then
		File.Copy(File.DirAssets,"2.pdf",File.DirInternal,"2.pdf")
	End If
	
	If File.Exists(File.DirInternal,"1.pdf") = False Then
		File.Copy(File.DirAssets,"1.pdf",File.DirInternal,"1.pdf")
	End If
	

	
	p1.init
	pnl1.AddView(p1,10,10,100%x,100%y)
	p1.getpdf(File.Combine(File.DirInternal,"1.pdf"))
	
	If p1.isValid=False Then
		ToastMessageShow("Error",False)
	End If
	
	
	
End Sub

Sub Button1_Click
	If i = 1 Then
	p1.getpdf(File.Combine(File.DirInternal,"2.pdf"))
	ToastMessageShow("دومین پی دی اف لود شد",False)
	i = 2
	else if i = 2 Then
	p1.getpdf(File.Combine(File.DirInternal,"1.pdf"))
	ToastMessageShow("اولین پی دی اف لود شد",False)
	i = 1
	End If	
End Sub


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

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

اومدین توی اکتیویتی دوم فایل 2.pdf رو فراخوانی کردین که اصلا همچین فایلی وجود نداره تو پوشه Files تون. :roomNemishe:

فایل 1.pdf وجود داره ولی پی دی اف دومی اسمش اینه: reparing rar (doostiha.ir).pdf

اسمشو یادتون رفته عوض کنید......... عوض کنید بذارید 2 :'(

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

اومدین توی اکتیویتی دوم فایل 2.pdf رو فراخوانی کردین که اصلا همچین فایلی وجود نداره تو پوشه Files تون. :roomNemishe:

فایل 1.pdf وجود داره ولی پی دی اف دومی اسمش اینه: reparing rar (doostiha.ir).pdf

اسمشو یادتون رفته عوض کنید......... عوض کنید بذارید 2

 

اومدین توی اکتیویتی دوم فایل 2.pdf رو فراخوانی کردین که اصلا همچین فایلی وجود نداره تو پوشه Files تون. :roomNemishe:

فایل 1.pdf وجود داره ولی پی دی اف دومی اسمش اینه: reparing rar (doostiha.ir).pdf

اسمشو یادتون رفته عوض کنید......... عوض کنید بذارید 2 :'(

 

درسته این سورس که برا شما فرستادم اشتباه لپی شد

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

شما روی گوشیتون تست کردی؟

الگوریتمم درسته؟

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

کلا این کدهارو با کد home جایگذین کنید :

ضمنا اسم فایل pdf دومی خودتون رو هم به 2 تغییر بدید !

خیلی ساده فقط رفع مشکل کردیم... در کل روشی که شما دارید میرید اصلا جالب نیست

باید از دیتابیس استفاده کنید اگه تعداد فایل های pdf شما زیاد هست

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: false
#End Region

Sub Process_Globals
	
End Sub

Sub Globals
	Dim p1 As PDFViewer
	Private pnl1 As Panel
	Dim i As Int = 1
End Sub

Sub Activity_Create(FirstTime As Boolean)
	
	
	
	Activity.LoadLayout("lay")
	
	If File.Exists(File.DirInternal,"2.pdf") = False Then
		File.Copy(File.DirAssets,"2.pdf",File.DirInternal,"2.pdf")
	End If
	
	If File.Exists(File.DirInternal,"1.pdf") = False Then
		File.Copy(File.DirAssets,"1.pdf",File.DirInternal,"1.pdf")
	End If
	

	
	p1.init
	pnl1.AddView(p1,10,10,100%x,100%y)
	p1.getpdf(File.Combine(File.DirInternal,"1.pdf"))
	
	If p1.isValid=False Then
		ToastMessageShow("Error",False)
	End If
	
	
	
End Sub

Sub Button1_Click
	If i = 1 Then
	p1.getpdf(File.Combine(File.DirInternal,"2.pdf"))
	ToastMessageShow("دومین پی دی اف لود شد",False)
	i = 2
	else if i = 2 Then
	p1.getpdf(File.Combine(File.DirInternal,"1.pdf"))
	ToastMessageShow("اولین پی دی اف لود شد",False)
	i = 1
	End If	
End Sub


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

بایگانی شده

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

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

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