graphicomid

در خواست حل مشکل در دریافت تصاویر از دیتابیس آنلاین

1 ارسال در این موضوع قرار دارد

سلام به اساتید

من یک سورس نوشتم که از دیتابیس آنلاینی که دارم اطلاعات دریافت می کند که دیتابیس من دارای یک جدول با آیتم های

id , title , text , imgname

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

حالا اگر 10 تا یا بی نهایت اطلاعات ارسال می کنم به همراه تصاویر مختلف می خوام دریافت اطلاعات کنم بوسیله  Hitex_LayoutView  دقیقا شبیه برنامه شیپور باید چکار کنم

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

Sub Process_Globals
	Public ItemList As List
End Sub

Sub Globals
	Private LV As Hitex_LayoutView
'	Dim MyFont = Typeface.LoadFromAssets("Entezar1.ttf") As Typeface
'	Type Model (Title As String,Text As String,image As Bitmap )
	Type Adapter (Title As String,Text As String,img_1 As String )
	Dim Glide As Hitex_Glide
	
End Sub

Sub Activity_Create(FirstTime As Boolean)
	
	LV.Initializer("LV").ListView.FastScrollType(3).Build
	
	Activity.AddView(LV,0,0,100%x,100%y)
	
	ItemList.Initialize
	
	LV.FastScroller.HandleColor(0xFF179AEB)
	
	LV.Show
	
	LV.Divider.Add2(Colors.Gray,1dip,12dip,12dip)
	
	ProgressDialogShow("در حال دریافت اطلاعات ...")

	Goto("SELECT * FROM omid86","Job1")
	
End Sub
Sub LV_onCreateViewHolder (Parent As Panel, ViewType As Int)      '💎 onCreate 💎'
'	Dim Label As Label : Label.Initialize("")
'	Label.Typeface = MyFont
'	Label.Gravity = Gravity.CENTER_VERTICAL
'	Parent.AddView(Label,5dip,2dip,95%x,10%y)

	Parent.LoadLayout("1")
	
End Sub
Sub LV_onBindViewHolder (Parent As Panel, Position As Int)         '💠 onBind 💠'
	
	Dim Panel1 As Panel = Parent.GetView(0)
	
	Dim img_1 As ImageView = Panel1.GetView(0)
	Dim Label1 As Label = Panel1.GetView(1) 
	Dim Label2 As Label = Panel1.GetView(2)
	Label1.TextColor=Colors.Black
	Label2.TextColor=Colors.Black
	
	
	Dim Item = ItemList.Get(Position) As Adapter

	Label1.Text = Item.title
	Label2.Text =  Item.text
	Glide.Load2("http://graphicomid.000webhostapp.com/aaa/images").Into(img_1)
	
	Parent.Height = 25%y
End Sub

Sub LV_GetItemCount As Int 								        '💯 ItemCount 💯'
 	Return ItemList.Size
End Sub
Sub LV_ItemClick (ClickedItem As Panel, Position As Int)
	Dim Item = ItemList.Get(Position) As Adapter
	Main2.Text = Item.text
	StartActivity(Main2)
End Sub
Sub Goto (Name As String, Event As String)
	Dim job1 As HttpJob : job1.Initialize(Event,Me)

	job1.PostString("https://graphicomid.000webhostapp.com/aaa/show.php",Name)
End Sub

Sub JobDone (Job As HttpJob)
	If Job.Success Then
	
			Dim JSON As JSONParser
			JSON.Initialize(Job.GetString)
			Dim List As List = JSON.NextArray
		
			For i = 0 To List.Size -1
			
				Dim Map As Map = List.Get(i)
						
				Dim Item As Adapter
				Item.Initialize
				Item.title = Map.Get("title")
		    	Item.text = Map.Get("text")
  
				Item.img_1 = Map.Get("imgname")
							
				ItemList.Add(Item)
	
		
			Next
		
			LV.notifyDataSetChanged
			ProgressDialogHide
		End If
	
End Sub

 

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


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

برای ارسال دیدگاه یک حساب کاربری ایجاد کنید یا وارد حساب خود شوید

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

ایجاد یک حساب کاربری

برای حساب کاربری جدید در سایت ما ثبت نام کنید. عضویت خیلی ساده است !

ثبت نام یک حساب کاربری جدید

ورود به حساب کاربری

دارای حساب کاربری هستید؟ از اینجا وارد شوید

ورود به حساب کاربری