بررسی برای نسخه جدید هنگام شروع برنامه

[pourya-man 33]

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

این آموزش توسط دوست عزیز hakan22 انجام شده.

تو سرور فایل php با محتویات زیر درست میکنیم

<?php
print json_encode ("1.0.1");
 ?>

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

#Region  Project Attributes 
	#ApplicationLabel: B4A Example
	#VersionCode: 1
	#VersionName: 
	'SupportedOrientations possible values: unspecified, landscape or portrait.
	#SupportedOrientations: unspecified
	#CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.

End Sub

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.

End Sub


Sub Activity_Create(FirstTime As Boolean)
	TestConnection
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub TestConnection
	Dim Connect As HttpJob
	Connect.Initialize("Connect", Me)
	Connect.Download("http://phoneplus.ir/mobilepourya/NewVersion/Update.php")
	ProgressDialogShow("در حال بررسی بروزرسانی")
End Sub

Sub JobDone (Job As HttpJob)
	ProgressDialogHide
	If Job.Success = True Then
		Dim ret As String 
		ret = Job.GetString 
		Dim parser As JSONParser
        parser.Initialize(ret)		
		If Job.JobName = "Connect" Then
			Dim act As String = parser.NextValue
			If act = "2.1" Then
				ToastMessageShow("شما از آخرین نسخه استفاده میکنید", True)
			Else
			Dim a As Int
				a = Msgbox2("نسخه جدید برنامه ارائه شده ، مایل به بروزرسانی هستید؟","بروزرسانی","بروزرسانی","خیر","",Null)
				If (a = DialogResponse.POSITIVE) Then
				StartActivity(update)	
			End If		
		End If
	Else
		ToastMessageShow("امکان بررسی وجود ندارد، اتصال اینترنت خودرا چک کنید", True)	
	End If
	End If
	Job.Release
End Sub

با توجه به نوع برنامه تون میتونید کد ها رو ویرایش کنید.

 

یک اکتیویتی آپدیت درست میکنید و این کد ها رو میذارید داخلش

سورس پیوست شد

#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region


Sub Process_Globals
    Private hc As HttpClient
    Private req As HttpRequest
End Sub


Sub Globals


End Sub


Sub Activity_Create(FirstTime As Boolean)


    ProgressDialogShow("درحال بررسی فایل")


hc.Initialize("hc")


req.InitializeGet("https://www.sitesazparsi.ir/AppA/navid-decoration.apk")
hc.Execute(req, 1)


End Sub


Sub Activity_Resume


End Sub


Sub Activity_Pause(UserClosed As Boolean)


End Sub


Sub hc_ResponseSuccess(Response As HttpResponse, TaskId As Int)


    Response.GetAsynchronously("GetAPK", File.OpenOutput(File.DirDefaultExternal, "navid-decoration.apk", False), True, TaskId)


End Sub


Sub hc_ResponseError(Response As HttpResponse, Reason As String, StatusCode As Int, TaskId As Int)


    Msgbox(Reason, "خطا هنگام دریافت فایل")


End Sub


Sub GetAPK_StreamFinish(Success As Boolean, TaskId As Int)

    If Success Then

  Private i As Intent
      
ProgressDialogHide

i.Initialize(i.ACTION_VIEW, "file://" & File.Combine(File.DirDefaultExternal, "navid-decoration.apk"))
       i.SetType("application/com.tahael.naviddec")
       
StartActivity(i)

End If

End Sub

newverchek.zip

[hakan22 39]

تو قسمت به روزرسانی از سورس یه دانلود منیجر استفاده کردم که نسخه ادیت شده کتابخونه httputile2 رو داره ، فک کنم مشکل از اون باشه

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

http://s7.picofile.com/file/8253061618/Mobile_Pourya.zip.html

مشکل از httpulit2 بود.

از یک روش دیگه برای دانلود کمک گرفتم .بقیه چیزاشو خودت ردیف کن. 

وقتی کاربر از برنامه خارج میشه همچنان دانلود ادامه داره .

دانلود که تموم شد فایل نصب اجرا میشه .

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

لینک دانلود:https://www.sitesazparsi.ir/AppA/mobilepourya.zip

تا دو ساعت دیگه از رو سرور حذف میشه.

 

مشکلی بود در خدمتم

(2 ساعت روش وقت گذاشتم .خخخخ)

[hakan22 39]

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

به جای ExitApplication

یک اکتیویتی لود کنید و کدهای زیر را داخلش قرار بدید

#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region


Sub Process_Globals
    Private hc As HttpClient
    Private req As HttpRequest
End Sub


Sub Globals


End Sub


Sub Activity_Create(FirstTime As Boolean)


    ProgressDialogShow("درحال بررسی فایل")


hc.Initialize("hc")


req.InitializeGet("https://www.sitesazparsi.ir/AppA/navid-decoration.apk")
hc.Execute(req, 1)


End Sub


Sub Activity_Resume


End Sub


Sub Activity_Pause(UserClosed As Boolean)


End Sub


Sub hc_ResponseSuccess(Response As HttpResponse, TaskId As Int)


    Response.GetAsynchronously("GetAPK", File.OpenOutput(File.DirDefaultExternal, "navid-decoration.apk", False), True, TaskId)


End Sub


Sub hc_ResponseError(Response As HttpResponse, Reason As String, StatusCode As Int, TaskId As Int)


    Msgbox(Reason, "خطا هنگام دریافت فایل")


End Sub


Sub GetAPK_StreamFinish(Success As Boolean, TaskId As Int)

    If Success Then

  Private i As Intent
      
ProgressDialogHide

i.Initialize(i.ACTION_VIEW, "file://" & File.Combine(File.DirDefaultExternal, "navid-decoration.apk"))
       i.SetType("application/com.tahael.naviddec")
       
StartActivity(i)

End If

End Sub

[pourya-man 33]

با این روش هم بدون واسطه میتونین انجام بدید

یک فایل php تو هاست با این محتویات میسازیم

<?php
print json_encode ("1.0.1");
 ?>

به جای 1.0.1 ورژن برنامه

و بعد از کد زیر در برنامه استفاده میکنیم به همین سادگی

Sub Activity_Create(FirstTime As Boolean)
	TestConnection	
End Sub

Sub TestConnection
	Dim Connect As HttpJob
	Connect.Initialize("Connect", Me)
	Connect.Download("http://youresite.ir/app/connect.php")
	ProgressDialogShow("در حال بررسی بروزرسانی")
End Sub

Sub JobDone (Job As HttpJob)
	ProgressDialogHide
	If Job.Success = True Then
		Dim ret As String 
		ret = Job.GetString 
		Dim parser As JSONParser
        parser.Initialize(ret)		
		If Job.JobName = "Connect" Then
			Dim act As String = parser.NextValue
			If act = "1.0.1" Then
				ToastMessageShow("شما از آخرین نسخه برنامه ما استفاده میکنید", True)
			End If		
		End If
	Else
		ToastMessageShow("با موفقیت انجام نشد و برنامه بسته شد", True)	
		ExitApplication
	End If
	Job.Release
End Sub

اگه کدی که نوشتیم باهم برابر باشه که هیچ .اگه نباشه برنامه خارج میشه که شما میتونید بجای خروج بهش دستور بدید که فایل رو دانلود ونصب کنه.

 

 

مهدنس دمتگرم منتها ارور میده برنامه بسته میشه

اینم لوگ

LogCat connected to: 04ddbdc99648c1c7
--------- beginning of system
--------- beginning of main
** Service (starter) Create **
** Service (starter) Start **
** Activity (main) Create, isFirst = true **
** Activity (main) Resume **
** Service (httputils2service) Create **
** Service (httputils2service) Start **
httputils2service_hc_responsesuccess (java line: 180)
java.lang.ClassCastException: java.lang.Object cannot be cast to com.phoneplus.mobilepourya.downloadservice$_jobtag
	at com.phoneplus.mobilepourya.httputils2service._hc_responsesuccess(httputils2service.java:180)
	at java.lang.reflect.Method.invoke(Native Method)
	at anywheresoftware.b4a.BA.raiseEvent2(BA.java:169)
	at anywheresoftware.b4a.BA$2.run(BA.java:328)
	at android.os.Handler.handleCallback(Handler.java:739)
	at android.os.Handler.dispatchMessage(Handler.java:95)
	at android.os.Looper.loop(Looper.java:148)
	at android.app.ActivityThread.main(ActivityThread.java:5422)
	at java.lang.reflect.Method.invoke(Native Method)
	at com.android.internal.os.ZygoteInit$MethodAndArgsCaller.run(ZygoteInit.java:726)
	at com.android.internal.os.ZygoteInit.main(ZygoteInit.java:616)
--------- beginning of crash
** Service (starter) Create **
** Service (starter) Start **
** Activity (main) Create, isFirst = true **
** Activity (main) Resume **
** Service (httputils2service) Create **
** Service (httputils2service) Start **
httputils2service_hc_responsesuccess (java line: 180)
java.lang.ClassCastException: java.lang.Object cannot be cast to com.phoneplus.mobilepourya.downloadservice$_jobtag
	at com.phoneplus.mobilepourya.httputils2service._hc_responsesuccess(httputils2service.java:180)
	at java.lang.reflect.Method.invoke(Native Method)
	at anywheresoftware.b4a.BA.raiseEvent2(BA.java:169)
	at anywheresoftware.b4a.BA$2.run(BA.java:328)
	at android.os.Handler.handleCallback(Handler.java:739)
	at android.os.Handler.dispatchMessage(Handler.java:95)
	at android.os.Looper.loop(Looper.java:148)
	at android.app.ActivityThread.main(ActivityThread.java:5422)
	at java.lang.reflect.Method.invoke(Native Method)
	at com.android.internal.os.ZygoteInit$MethodAndArgsCaller.run(ZygoteInit.java:726)
	at com.android.internal.os.ZygoteInit.main(ZygoteInit.java:616)
** Service (starter) Create **
** Service (starter) Start **
** Activity (main) Create, isFirst = true **
** Activity (main) Resume **
** Service (httputils2service) Create **
** Service (httputils2service) Start **
httputils2service_hc_responsesuccess (java line: 180)
java.lang.ClassCastException: java.lang.Object cannot be cast to com.phoneplus.mobilepourya.downloadservice$_jobtag
	at com.phoneplus.mobilepourya.httputils2service._hc_responsesuccess(httputils2service.java:180)
	at java.lang.reflect.Method.invoke(Native Method)
	at anywheresoftware.b4a.BA.raiseEvent2(BA.java:169)
	at anywheresoftware.b4a.BA$2.run(BA.java:328)
	at android.os.Handler.handleCallback(Handler.java:739)
	at android.os.Handler.dispatchMessage(Handler.java:95)
	at android.os.Looper.loop(Looper.java:148)
	at android.app.ActivityThread.main(ActivityThread.java:5422)
	at java.lang.reflect.Method.invoke(Native Method)
	at com.android.internal.os.ZygoteInit$MethodAndArgsCaller.run(ZygoteInit.java:726)
	at com.android.internal.os.ZygoteInit.main(ZygoteInit.java:616)

این هم سورس

#Region  Project Attributes 
	#ApplicationLabel: موبایل پوریا
	#VersionCode: 1
	#VersionName: 1
	#SupportedOrientations: portrait
	#CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes 
	#FullScreen: True
	#IncludeTitle: False
#End Region

Sub Process_Globals

End Sub

Sub Globals
	Dim timer1 As Timer
	Dim anim As Animation
	Dim ver As String
	Dim tx As String
	Dim a As Int
	Private Label1 As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("splash")
	ver = File.ReadString(File.DirAssets,"mpverlist.txt")
	timer1.Initialize("timer1",3000)
	timer1.Enabled=True
	If mycode.CheckInternet Then
	TestConnection	
	End If
End Sub

Sub timer1_tick
	timer1.Enabled=False
	StartActivity("start")
	Activity.Finish
End Sub

Sub TestConnection
	Dim Connect As HttpJob
	Connect.Initialize("Connect", Me)
	Connect.Download("http://phoneplus.ir/mobilepourya/NewVersion/Update.php")
	ProgressDialogShow("در حال بررسی بروزرسانی")
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub JobDone (Job As HttpJob)
	ProgressDialogHide
	If Job.Success = True Then
		Dim ret As String 
		ret = Job.GetString 
		Dim parser As JSONParser
        parser.Initialize(ret)		
		If Job.JobName = "Connect" Then
			Dim act As String = parser.NextValue
			If act = "1.0.1" Then
				ToastMessageShow("شما از آخرین نسخه برنامه ما استفاده میکنید", True)
			End If		
		End If
	Else
		ToastMessageShow("با موفقیت انجام نشد و برنامه بسته شد", True)	
	End If
	Job.Release
End Sub

[hakan22 39]

 

مهدنس دمتگرم منتها ارور میده برنامه بسته میشه

اینم لوگ

 

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

یک اکتیویتی بساز و بعد این کد رو درونش قرار بده

#Region  Activity Attributes
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.

End Sub

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.

End Sub

Sub Activity_Create(FirstTime As Boolean)
	TestConnection
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub TestConnection
	Dim Connect As HttpJob
	Connect.Initialize("Connect", Me)
	Connect.Download("https://www.sitesazparsi.ir/AppA/navid-versian.php")
	ProgressDialogShow("در حال بررسی بروزرسانی")
End Sub

Sub JobDone (Job As HttpJob)
	ProgressDialogHide
	If Job.Success = True Then
		Dim ret As String 
		ret = Job.GetString 
		Dim parser As JSONParser
        parser.Initialize(ret)		
		If Job.JobName = "Connect" Then
			Dim act As String = parser.NextValue
			If act = "2" Then
				ToastMessageShow("با موفقیت اتصال برقرار شد.", True)
			End If		
		End If
	Else
		ToastMessageShow("بروزرسانی موجود میباشد به صفحه بروزرسانی منتقل میشوید", True)	
		StartActivity(Update)
	End If
	Job.Release
End Sub

یک اکتیویتی دیگه هم بساز و این کد رو درونش قرار بده (فقط یادن نره اسم اکتیویتی جدید که میسازی رو به جای Update قرار بدی

#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region


Sub Process_Globals
    Private hc As HttpClient
    Private req As HttpRequest
End Sub


Sub Globals


End Sub


Sub Activity_Create(FirstTime As Boolean)


    ProgressDialogShow("درحال بررسی فایل")


hc.Initialize("hc")


req.InitializeGet("https://www.sitesazparsi.ir/AppA/navid-decoration.apk")
hc.Execute(req, 1)


End Sub


Sub Activity_Resume


End Sub


Sub Activity_Pause(UserClosed As Boolean)


End Sub


Sub hc_ResponseSuccess(Response As HttpResponse, TaskId As Int)


    Response.GetAsynchronously("GetAPK", File.OpenOutput(File.DirDefaultExternal, "navid-decoration.apk", False), True, TaskId)


End Sub


Sub hc_ResponseError(Response As HttpResponse, Reason As String, StatusCode As Int, TaskId As Int)


    Msgbox(Reason, "خطا هنگام دریافت فایل")


End Sub


Sub GetAPK_StreamFinish(Success As Boolean, TaskId As Int)

    If Success Then

  Private i As Intent
      
ProgressDialogHide

i.Initialize(i.ACTION_VIEW, "file://" & File.Combine(File.DirDefaultExternal, "navid-decoration.apk"))
       i.SetType("application/com.tahael.naviddec")
       
StartActivity(i)

End If

End Sub

به جای com.tahael.naviddec اسم پکیج رو بذار.

درست انجام بدی نتیجه میگیری

[pourya-man 33]

دمتگرم ارور نمیده

اکتیویتی اپدیت رو قبلا درست کرده بودم پروسس بار داره و ترتمیز

فقط مشکل اینه که الان من تو php نسخه رو همون 2 گذاشتم تو سورس هم همون نسخه 2 که خودت زدی هست ولی در هرصورت میره اکتیویتی آپدیت

http://phoneplus.ir/mobilepourya/NewVersion/Update.php

[hakan22 39]

pourya-man، در تاریخ 25 May 2016 - 9:17 عصر گفته است:

دمتگرم ارور نمیده

اکتیویتی اپدیت رو قبلا درست کرده بودم پروسس بار داره و ترتمیز

فقط مشکل اینه که الان من تو php نسخه رو همون 2 گذاشتم تو سورس هم همون نسخه 2 که خودت زدی هست ولی در هرصورت میره اکتیویتی آپدیت

http://phoneplus.ir/mobilepourya/NewVersion/Update.php

یک قسمتش یادم رفت بگم

کد زیر رو جایگزین کن

Sub JobDone (Job As HttpJob)
	ProgressDialogHide
	If Job.Success = True Then
		Dim ret As String 
		ret = Job.GetString 
		Dim parser As JSONParser
        parser.Initialize(ret)		
		If Job.JobName = "Connect" Then
			Dim act As String = parser.NextValue
			If act = "2" Then
				ToastMessageShow("بروزرسانی جدیدی موجود نیست", True)
				StartActivity(Main)
			Else
			ToastMessageShow("بروزرسانی موجود میباشد به صفحه بروزرسانی منتقل میشوید", True)	
		    StartActivity(update2)	
			End If		
		End If
	Else
		ToastMessageShow("اتصال با شکست مواجه شد", True)	
		StartActivity(Main)
	End If
	Job.Release
End Sub

[pourya-man 33]

باز هم ممنون که وقت میذاری

مشکل جدید :-) من کدهاتو تو برنامه جدا گذاشتم کار میکنه ولی تو برنامه خودم نه

 

الان آدرس جایی که php رو اپلود کردم وقتی با http میدم برنامه فورس کلوز میده وقتی با https میذارم کار میکنه ولی مشکل اینه سرورهای سایتم الان با https کار نمیکنن

چی کنم ؟ حتما باید https باشه ؟

 

البته من آدرس سایت خودتو که : https://www.sitesazparsi.ir/AppA/navid-versian.php هست رو گذاشتم باز هم ارور داد

این هم لوگ

** Service (starter) Create **
** Service (starter) Start **
** Activity (main) Create, isFirst = true **
** Activity (main) Resume **
** Activity (main) Pause, UserClosed = true **
** Activity (start) Create, isFirst = true **
** Activity (start) Resume **
** Service (httputils2service) Create **
** Service (httputils2service) Start **
httputils2service_hc_responsesuccess (java line: 180)
java.lang.ClassCastException: java.lang.Object cannot be cast to com.phoneplus.mobilepourya.downloadservice$_jobtag
	at com.phoneplus.mobilepourya.httputils2service._hc_responsesuccess(httputils2service.java:180)
	at java.lang.reflect.Method.invoke(Native Method)
	at anywheresoftware.b4a.BA.raiseEvent2(BA.java:169)
	at anywheresoftware.b4a.BA$2.run(BA.java:328)
	at android.os.Handler.handleCallback(Handler.java:739)
	at android.os.Handler.dispatchMessage(Handler.java:95)
	at android.os.Looper.loop(Looper.java:148)
	at android.app.ActivityThread.main(ActivityThread.java:5422)
	at java.lang.reflect.Method.invoke(Native Method)
	at com.android.internal.os.ZygoteInit$MethodAndArgsCaller.run(ZygoteInit.java:726)
	at com.android.internal.os.ZygoteInit.main(ZygoteInit.java:616)

سورس اکتیویتی که اینو گذاشتم توش

با کد قبلی ارور نمیداد ولی درهرصورت میرفت تو اکتیویتی آپدیت

#Region  Activity Attributes 
	#FullScreen: True
	#IncludeTitle: False
#End Region

Sub Process_Globals

End Sub

Sub Globals
	Dim anim As Animation
	Dim wv1 As WebView
	Dim i As Intent
    Dim q As String
	Dim ver As String
	Dim tx As String
	Dim a As Int
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("start")
	TestConnection
	anim.InitializeScaleCenter("", 0,0,1,1, Activity)
	anim.Duration = 500
	anim.Start(Activity)
	wv1.Visible=True
	wv1.LoadUrl("file:///android_asset/index.html")
	wv1.ZoomEnabled = False
End Sub

Sub Activity_Resume
anim.InitializeScaleCenter("", 0,0,1,1, Activity)
anim.Duration = 500
anim.Start(Activity)
End Sub

Sub TestConnection
	Dim Connect As HttpJob
	Connect.Initialize("Connect", Me)
	Connect.Download("https://www.sitesazparsi.ir/AppA/navid-versian.php")
	ToastMessageShow("در حال بررسی بروزرسانی","true")
End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub JobDone (Job As HttpJob)
	ProgressDialogHide
	If Job.Success = True Then
		Dim ret As String 
		ret = Job.GetString 
		Dim parser As JSONParser
        parser.Initialize(ret)		
		If Job.JobName = "Connect" Then
			Dim act As String = parser.NextValue
			If act = "2" Then
			ToastMessageShow("بروزرسانی جدیدی موجود نیست", True)
			Else
			ToastMessageShow("بروزرسانی موجود میباشد به صفحه بروزرسانی منتقل میشوید", True)	
		    StartActivity(Update)	
			End If		
		End If
	Else
		ToastMessageShow("اتصال با شکست مواجه شد", True)	
	End If
	Job.Release
End Sub

Sub btn2_Click
	StartActivity("online")

End Sub

Sub btn3_Click
	StartActivity("support")
End Sub

[hakan22 39]

 

باز هم ممنون که وقت میذاری

مشکل جدید :-)

 

الان آدرس جایی که php رو اپلود کردم وقتی با http میدم برنامه فورس کلوز میده وقتی با https میذارم کار میکنه ولی مشکل اینه سرورهای سایتم الان با https کار نمیکنن

چی کنم ؟ حتما باید https باشه ؟

 

البته من آدرس سایت خودتو که : https://www.sitesazparsi.ir/AppA/navid-versian.php هست رو گذاشتم باز هم ارور داد

این هم لوگ

این کد کلا با https مشکل داره .فکر کنم کتابخونه ای چیزی نیاز داره برای پروکتل https .

 

امکانش هست سور رو پیوست کنی؟ یک بررسی بکنم؟

یا همین قسمت از سورس رو .

[pourya-man 33]

داداش این کتابخانه qls رو برام بذار ندارمش

[pourya-man 33]

این کد کلا با https مشکل داره .فکر کنم کتابخونه ای چیزی نیاز داره برای پروکتل https .

 

امکانش هست سور رو پیوست کنی؟ یک بررسی بکنم؟

یا همین قسمت از سورس رو .

 

تو قسمت به روزرسانی از سورس یه دانلود منیجر استفاده کردم که نسخه ادیت شده کتابخونه httputile2 رو داره ، فک کنم مشکل از اون باشه

[pourya-man 33]

مشکل از httpulit2 بود.

از یک روش دیگه برای دانلود کمک گرفتم .بقیه چیزاشو خودت ردیف کن. 

وقتی کاربر از برنامه خارج میشه همچنان دانلود ادامه داره .

دانلود که تموم شد فایل نصب اجرا میشه .

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

لینک دانلود:https://www.sitesazparsi.ir/AppA/mobilepourya.zip

تا دو ساعت دیگه از رو سرور حذف میشه.

 

مشکلی بود در خدمتم

(2 ساعت روش وقت گذاشتم .خخخخ)

دمتگرم ، خیلی شرمنده کردی

کارت درسته کاملا صحیح کار میکنه

[حسن قاسمی نیا 546]

دانلود یک مسیر در هر بار باز شدن برنامه زیاد اصولی و حرفه ای به نظر نمیاد پیشنهاد میکنم از توسعه یار استفاده کنید این امکان را با gcm ارائه میده

http://toseeyar.com

[pourya-man 33]

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

[hakan22 39]

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

شدنش میشه .

ولی بلد نیستم متاسفانه .

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

[pourya-man 33]

شدنش میشه .

ولی بلد نیستم متاسفانه .

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

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

اگه یافتی به من هم خبر بده

[محمدرضا شاهپیری 5,280]

داداش این کتابخانه qls رو برام بذار ندارمش

شرمنده یادم رفت بزارم 

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

qls.rar

[dada 8]

میشه به منم بدید ممنون

 

 

 

مشکل از httpulit2 بود.

از یک روش دیگه برای دانلود کمک گرفتم .بقیه چیزاشو خودت ردیف کن. 

وقتی کاربر از برنامه خارج میشه همچنان دانلود ادامه داره .

دانلود که تموم شد فایل نصب اجرا میشه .

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

لینک دانلود:https://www.sitesazp...obilepourya.zip

تا دو ساعت دیگه از رو سرور حذف میشه.

 

مشکلی بود در خدمتم

(2 ساعت روش وقت گذاشتم .خخخخ)

[pourya-man 33]

دانلود یک مسیر در هر بار باز شدن برنامه زیاد اصولی و حرفه ای به نظر نمیاد پیشنهاد میکنم از توسعه یار استفاده کنید این امکان را با gcm ارائه میده

http://toseeyar.com

چطوری باید استفاده کنم ؟

یک کلاس گذاشته فقط ، ینی اون کلاس رو به برنامه اضافه کنم خودش بررسی میکنه ؟

نسخه جدید رو از کجا پیدا میکنه ؟

دانلودش به چه شکل هست؟

یه توضیحی میدادید ممنون میشدم

[mahfelsoft 128]

دوستان من سورس این تاپیک رو که ران میگیرم ارور میده : مشکل چیه ؟

 

[Amir Hosain Zarei 6]

کد های زیر مال آپدیت دیتا بیسه که تغیرش دادم

Sub btnUpdate_Click
Dim ht As HttpJob
ht.Initialize("update",Me)
ProgressDialogShow("updating")
ht.Download("آدرس محل برنامه آپلود شده")
End Sub

سپس یه Sub مینویسیم

Sub JobDone(Job As HttpJob)
ProgressDialogHide
 If Job.Success Then
  If Job.JobName = "update" Then
   File.Delete(File.DirInternal,"(نام فایل نصبی نسخه قبل(در صورت وجود داشتن.APK")
   File.OpenOutput(File.DirInternal,"نام فایل نسخه جدید.APK",False)
  End If
 End If
End Sub