آپدیت نرم افزار از درون خود نرم افزار

[mahfelsoft 130]

سلام دوستان .

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

[Mickket 32]

باید با کتابخانه HTTPUtils کار کنید و ارتباط بین برنامه و هاست رو برقرار کنید.

البته بازار به این کار گیر میده و اصلا نمیذاره برنامتون رو منتشر کنید

[mahfelsoft 130]

من اصلا نمیخوام توی بازار بزارم  . میخوام توی هاست خودم فقط آپلود کنم .

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

[shahab.es 5,429]

سلام هموطن

منظورت از اپدیت نرم افزار اپدیت مطالب دیتابیسه؟

اگر اینه منظورت که هم اموزشش رو قرار دادیم هم سورسش رو

http://answercenter.ir/topic/9817-اپدیت-دیتابیس-افلایناز-طریق-بانک-انلاین/

 

اگه میخوای در صورت وجود یه نسخه جدید از خود برنامه، بتونی دانلوش کنی، بهترین روش اینه به نظرم

همون موقع قرار دادن نسخه اول برنامه، یه فایل تکست هم بذار به اسم ,myversion.txt

توش نسخه برنامه رو بنویس

مثلا میگم ، 1

خوب

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

کار این فایل اینه که هر زمان نسخه جدیدی گذاشتی توی یه ادرس مشخص توی هاستت، عدد ورژن رو عوض میکنی

و چک میکنی که الان باید دان شه یا نه

خوب بریم پای کد نویسیش.....

فقط، اسم فایل توی هاست مثلا هست appversion.txt

اسم فایل اپدیت هم باید همیشه ثابت باشه ، مثلا app.apk

خوب، من میام و عدد ورژن توی هاست رو با عدد ورژن توی برنامه چک میکنم، اگر بزرگتر بود یعنی یه اپدیت جدید اومده و شما نسخه رو دستی عوض کردی دیگه، میام فایل رو میگیرم و عدد موجود توی فایل myversion.txt اندروید رو ، با عدد موجود تو هاست یکی میکنم تا اپدیت بعدی.....

Sub Globals
Dim ht As HttpJob
Dim ht2 As HttpJob
End Sub

Sub Activity_Create(FirstTime As Boolean)
	If File.Exists(File.DirInternal,"myversion.txt") = False Then
		File.Copy(File.DirAssets,"myversion.txt",File.DirInternal,"myversion.txt")
	End If
	ht.Initialize("job1",Me)
	ht2.Initialize("job2,",Me)
	
	ht.PostString("http://myhost.ir/appversion.txt","")

End Sub

Sub jobdone(job As HttpJob)
	
	If job.Success = True Then
		If job.JobName = "job1" Then
			Dim str As String
			str = File.ReadString(File.DirInternal,"myversion.txt")
			If job.GetString > str Then
				ht2.Download("http://myhost.ir/app.apk")
				File.WriteString(File.DirInternal,"myversion.txt",job.GetString)
			Else
				ToastMessageShow("application is up to date")
			End If
		else If
			'inja dg app download shode , mitooni zakhire koni nasb koni ya harchi'
			'anjame amaliat nasb barname ya harchizi'
		End If
	End If

End Sub

[mahfelsoft 130]

ممنونم دوست عزیز .

فقط اونجا که گفتی فایل متنی رو توی هاست ذخیره کنم و توش عدد 1 رو بزارم . هر زمان که نسخه جدیدی از برنامه آپلود کردم اون عدد رو هم توی فایل تکست توی هاست باید عوض کنم ؟(البته قاعدتا باید عوض بشه واسه اطمینان می پرسم )

و اینکه توی برنامه از این کد عددش عوض میشه دیگه ؟ از این خط :

File.WriteString(File.DirInternal,"myversion.txt",job.GetString)

[shahab.es 5,429]

 

ممنونم دوست عزیز .

فقط اونجا که گفتی فایل متنی رو توی هاست ذخیره کنم و توش عدد 1 رو بزارم . هر زمان که نسخه جدیدی از برنامه آپلود کردم اون عدد رو هم توی فایل تکست توی هاست باید عوض کنم ؟(البته قاعدتا باید عوض بشه واسه اطمینان می پرسم )

و اینکه توی برنامه از این کد عددش عوض میشه دیگه ؟ از این خط :

File.WriteString(File.DirInternal,"myversion.txt",job.GetString)

اره دلاور

شما وقتی نسخه 3 رو مثلا میذاری توی فایلت باید بنویسی 3

و این عدد یعنی 3 رو کپی میکنه تو فایل موجود تو برنامه برای کنترل اپدیت بعدی

[mahfelsoft 130]

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

[shahab.es 5,429]

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

شایان شجاعی عزیز قرار داده بود

باید سرچ کنی.....

[حاج حسین 2,098]

منظور شهاب فک کنم اینه 

کتاب خانه SInstaller ||| نصب فایل apk (از هر آدرسی)