مولتی پنل و دریافت اطلاعات به صورت انلاین

[majid08 266]

سلام

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

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

 

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

و هم اموزش دانلود عکس و نمایش در اسکرل ویو رو خریدم

[sejil 180]

یه فنی زدم اوکی شد ببین

 

httpjob db.rar

[sejil 180]

آدرس اینترنتی عکسو ذخیره میکنی یا مثلا image/test.png

 

اگه اینترنتی باشه شما میای اونو میریزی تو استیرینگ بعد به httpjob میدی که دانلود کنه ، بعد که دانلود کرد ...

اگه میشه یکم بیشتر توضیح بده

[ehsankhan 256]

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

[majid08 266]

آدرس اینترنتی عکسو ذخیره میکنی یا مثلا image/test.png

 

اگه اینترنتی باشه شما میای اونو میریزی تو استیرینگ بعد به httpjob میدی که دانلود کنه ، بعد که دانلود کرد ...

اگه میشه یکم بیشتر توضیح بده

ادرس کامل رو تو دیتابیس دارم

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

[sejil 180]

اول تئوری میگم بعد عملی

1- شما میای دیتابیسو فراخونی میکنی

2- میای همون سطری که میخوای لینکو بگیری به httpjob میدی که دانلود کنه

3- بعد توی ساب جاب میای اونو به مثلا ایمیح ویوو میدی

همین..

Sub Process_Globals
	Dim SQL1 As SQL
	Dim cur1 As Cursor
End Sub

Sub Globals
	Dim link1 As HttpJob
	Private ImageView1 As ImageView
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("main")
	link1.Initialize("link1",Me)
	
	If File.Exists(File.DirInternal,"data.db")=False Then
		File.Copy(File.DirAssets,"data.db",File.DirInternal,"data.db")
	End If
	
	SQL1.Initialize(File.DirInternal,"data.db",True)
	cur1 = SQL1.ExecQuery("SELECT * FROM tbl")
	
	For i=0 To 0
		cur1.Position = i
	Next
	
	link1.Download(cur1.GetString("link"))
	
End Sub

Sub jobdone(job As HttpJob)
	If job.Success=True Then
		ImageView1.Bitmap = job.GetBitmap
	End If
End Sub

توی این کد م اومدیم سطری به نام link رو از دیتابیس فراخونی کردیم

 

اینم سورس اگه متوجه نشدی عزیز

httpjob db.rar

[majid08 266]

اول تئوری میگم بعد عملی

1- شما میای دیتابیسو فراخونی میکنی

2- میای همون سطری که میخوای لینکو بگیری به httpjob میدی که دانلود کنه

3- بعد توی ساب جاب میای اونو به مثلا ایمیح ویوو میدی

همین..

Sub Process_Globals
	Dim SQL1 As SQL
	Dim cur1 As Cursor
End Sub

Sub Globals
	Dim link1 As HttpJob
	Private ImageView1 As ImageView
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("main")
	link1.Initialize("link1",Me)
	
	If File.Exists(File.DirInternal,"data.db")=False Then
		File.Copy(File.DirAssets,"data.db",File.DirInternal,"data.db")
	End If
	
	SQL1.Initialize(File.DirInternal,"data.db",True)
	cur1 = SQL1.ExecQuery("SELECT * FROM tbl")
	
	For i=0 To 0
		cur1.Position = i
	Next
	
	link1.Download(cur1.GetString("link"))
	
End Sub

Sub jobdone(job As HttpJob)
	If job.Success=True Then
		ImageView1.Bitmap = job.GetBitmap
	End If
End Sub

توی این کد م اومدیم سطری به نام link رو از دیتابیس فراخونی کردیم

 

اینم سورس اگه متوجه نشدی عزیز

سلام

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