مشکل با PDFViewer

[Siaic 88]

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

من از کد زیر برا نشون دادن 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 فایل باز کنه؟

 

تشکررررررر

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

سلام بر شما !

 

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

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

[Siaic 88]

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

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

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

تشکر

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

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

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

[پژمان نیکروان 6,055]

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

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

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

تشکر

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

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

[Siaic 88]

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

 

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

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

[Siaic 88]

 

کلا این کدهارو با کد 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

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

[پژمان نیکروان 6,055]

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

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

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

[Siaic 88]

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

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

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

 

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

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

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

 

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

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

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

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

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

کلا این کدهارو با کد 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

[Siaic 88]

ممنون اقای ایزدی میشه یه راهنمایی کنید چجوری تو دیتابس بزارم؟