ساخت عکس انلاین در موتی پنل انلاین

[amirmahdi3744 5]

سلام خسته نباشید.من یک دیتابیس انلاین با اموزش اقا شهاب عزیز ساختمو به برنامه متصل کردم و یک مولتی پنل درست کردم که درون آن دو تا لیبل قرار دارد که متن رو از دیتبیس میگرن.تا اینجا کار به خوبی انجام میشه .

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

 

این کد من است

Sub Globals
'''''''''''''''''''''''page''''''''''''''

	Dim cas As MSCardView
'''''''''''''''''''''''page''''''''''''''

	Dim p As Panel
Dim ht As HttpJob
Dim ht2 As HttpJob
	Dim ht3 As HttpJob
Dim sql2 As SQL
Dim cur2 As Cursor
Dim stop2 As Int = 5%y
Dim ms As MSCardView

Private ImageView1 As ImageView
Private Label2 As Label
Private Label1 As Label

Private ScrollView1 As ScrollView

Dim rowCount As Int
	
	Private Button1 As Button
End Sub

این از تعاریف

این کد کریت هست

	Activity.LoadLayout("skr")
	
	If File.Exists(File.DirInternal,"dbon.db") = False Then
	File.Copy(File.DirAssets,"dbon.db",File.DirInternal,"dbon.db")
	End If
	sql2.Initialize(File.DirInternal,"dbon.db",False)
	cur2 = sql2.ExecQuery("SELECT * FROM tbl")
	For i = 0 To cur2.RowCount-1   
	cur2.Position=i
	p.Initialize("p")
	ScrollView1.Panel.AddView(p,0,stop2,100%x,100%y)
	p.LoadLayout("1")
  	ms.Elevation = 10dip
	ms.MaxElevation = 14dip
	ms.Radius = 10dip
		Label2.Text= cur2.GetString("fname")
	Label1.Text=cur2.GetString("lname")
	
		stop2 = stop2 + 70%y
	ScrollView1.Panel.Height = stop2
		'	ImageView1.Tag=cur2.GetString("img")
	

	Next
ht.Initialize("job1",Me)
	ht2.Initialize("job2",Me)

ImageView1.Tag=cur2.GetString("img")
ht3.Initialize("ht3",Me)
'download the image'
ht3.Download(ImageView1.Tag)


End Sub

اینهم از کد جاب دان

Sub jobdone (job As HttpJob)
	
	
	
	If job.Success = True Then
		
		
		If job.JobName = "job1" Then
			
					cur2 = sql2.ExecQuery("SELECT * FROM tbl")
					rowCount = cur2.RowCount
					
					If job.GetString > rowCount Then
						
						cur2 = sql2.ExecQuery("SELECT * FROM tbl")
						rowCount = cur2.RowCount
						
						ht2.PostString("'این بخش ادرس دارد به دلیل امنیت برنامه این رو پاک می کنم","tedad="& rowCount &"")
						showlist
						
					Else
						ToastMessageShow("db is up to date!!!",False)
						ProgressDialogHide
					End If
					
		else if job.JobName = "job2" Then
					If job.GetString = "nothing" Then
						ToastMessageShow("error",False)
					Else 
						Dim str1() As String = Regex.Split("<br>",job.GetString)
						For i = 0 To str1.Length - 1
							Dim str2() As String = Regex.Split("#",str1(i))
							Try
								sql2.ExecNonQuery("INSERT INTO tbl (id,fname,lname) VALUES (null,'"&str2(1)&"','"&str2(2)&"')")
								showlist
								
							Catch
								Log(LastException)
							End Try
						Next
						ProgressDialogHide
					
					End If
					
		End If
	End If 

		
If job.JobName = "ht3" Then
	If job.Success = True Then
		
			ImageView1.Bitmap = job.GetBitmap
		End If
		
End If



End Sub

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

خواهش می کنم کمکم کنید

[محمد رشوند 1,208]

سلام

وقتی میگین که عکس دانلود میشه و همه چی درسته و مولتی پنل هم میاد نیازی به کد های اضافه مثل جاب دان نبود

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

خب شما این کد هارو بیاین به جای کد های اکتویتی کریت قرار بدید و جواب تستش رو بهم بگین دوباره

	Activity.LoadLayout("skr")
	ht.Initialize("job1",Me)
	ht2.Initialize("job2",Me)
	ht3.Initialize("ht3",Me)
	
	If File.Exists(File.DirInternal,"dbon.db") = False Then
	File.Copy(File.DirAssets,"dbon.db",File.DirInternal,"dbon.db")
	End If
	
	sql2.Initialize(File.DirInternal,"dbon.db",False)
	cur2 = sql2.ExecQuery("SELECT * FROM tbl")
	For i = 0 To cur2.RowCount-1   
	cur2.Position=i
	p.Initialize("p")
	ScrollView1.Panel.AddView(p,0,stop2,100%x,100%y)
	p.LoadLayout("1")
  	ms.Elevation = 10dip
	ms.MaxElevation = 14dip
	ms.Radius = 10dip
		Label2.Text= cur2.GetString("fname")
	Label1.Text=cur2.GetString("lname")
	
		stop2 = stop2 + 70%y
	ScrollView1.Panel.Height = stop2
		'save url in tag
	ImageView1.Tag=cur2.GetString("img")
	'download the image'
ht3.Download(ImageView1.Tag)
	Next

[میلاد 441]

سلام 

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

 

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

ImageView1.Tag=cur.GetString("اسم فیلد ادرس عکسا")

اینم کد دانلود عکس که میتونی در ادامه کد مولتی قرار بدی

        Dim tr As DefaultTarget
	tr.Initialize("picture",ImageView1)
	Dim images As String
	images = ImageView1.Tag
	picasso.LoadUrl(images).Fetch(tr)

اینم کد sub پیکاسو 

Sub picture_Success(Bitmap1 As Bitmap, Tag As Object)
	Dim im As ImageView
	im = Tag
	'im.SetBackgroundImage(Bitmap1)
	
	Dim ou As OutputStream
	ou = File.OpenOutput(File.DirInternal,"temp.png",False)
	Bitmap1.WriteToStream(ou,100,"PNG")
	ou.Close
	
	im.SetBackgroundImage(LoadBitmap(File.DirInternal,"temp.png"))
	
End Sub

[amirmahdi3744 5]

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

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