سید رضا

2 ساعت قبل، mahfelsoft گفته است:

سلام . 

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

الان که میخوام برنامه رو بروز کنم با این کتابخونه فایل رو دانلود نمیکنه . دکمه دانلود رو که میزنه میگه unsupported response code 301

 

خیلی گیر کردم  لینک دانلودم هم درسته . لطفا راهنمایی کنید

 

کدهامم میزارم

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

Sub Process_Globals

End Sub

Sub Globals
	Dim downloader As AriaMultiThreadDownload 'ijad kardane downloader
	Dim conf As AriaMultiThreadDownloadConfiguration 'ijad kardane tanzimate downloader
	Private ProgressBar1 As ProgressBar
	Private pnldownload As Panel
'	Private Panel1 As Panel
	Private Label1 As Label
	Private EditText1 As EditText
	Dim rp2 As RuntimePermissions
	Dim stat As StatusBarCompat
	Private pnlbala As Panel
	Private Button1 As Button
	Private Button2 As Button
	Private Button7 As Button
	Private Button10 As Button

End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("dl")
	rp2.CheckAndRequest("android.permission.WRITE_EXTERNAL_STORAGE")
	
	
	downloader.Initialize(conf) ' downloader ro az tariqe tanzimati ke moshakhas shode initialize mikonim
	EditText1.Text="http://safireshgh.net/images/shomaresh_makos.apk"
	

End Sub

Sub Activity_Resume
	
End Sub

Sub Activity_PermissionResult (Permission As String, Result As Boolean)
	If Permission = "android.permission.WRITE_EXTERNAL_STORAGE" Then
	End If

End Sub
Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub AriaMultiThreadDownload_OnFailed(error As String)
	'az tariqe sender mitunin tag ro begirin va befahmin ke maqadiri ke behetun dade marbut be kodum downloade
	'har tagi ke tuye methode download estefade konin inja behetun dade mishe
	Dim tag As Int = Sender
	Select tag
		Case 1
			Label1.Text = "دانلود با شکست مواجه شد ! ,خطا : " & error
	End Select
End Sub
Sub AriaMultiThreadDownload_OnDownloadPaused
	'az tariqe sender mitunin tag ro begirin va befahmin ke maqadiri ke behetun dade marbut be kodum downloade
	'har tagi ke tuye methode download estefade konin inja behetun dade mishe
	Dim tag As Int = Sender
	Select tag
		Case 1
			Label1.Text = "دانلود در حال توقف موقت"
	End Select
End Sub
Sub AriaMultiThreadDownload_OnCompleted

	'az tariqe sender mitunin tag ro begirin va befahmin ke maqadiri ke behetun dade marbut be kodum downloade
	'har tagi ke tuye methode download estefade konin inja behetun dade mishe
	Dim tag As Int = Sender
	Select tag
		Case 1
			ProgressBar1.Progress = 100
			Dim name As String = downloader.Utils.GuessFileNameFromLink(EditText1.Text)
			Label1.Text = "کامل شد - " & name & " - "  & downloader.Utils.CalcSize_EN(File.Size(File.DirRootExternal,name))
			
			Try
				
'				
				If File.Exists(File.DirRootExternal ,"shomaresh_makos.apk") Then
					Dim pckg As PersianPackageManager
					pckg.initialize("pckg")
					pckg.installPackageFromFile(File.DirRootExternal&"/shomaresh_makos.apk")
					

			End If
			Catch
				Msgbox("فایل برنامه دانلود شد و در فایل منیجر شما ذخیره شد جهت نصب به پوشه فایل ها مراجعه و برنامه را نصب کنید .","اتمام دانلود")
			End Try
				
	End Select
End Sub

Sub AriaMultiThreadDownload_OnProgress (finished As Long,total As Long,progress As Int,speed As Long)
	Dim text As String = "در حال دانلود -  " &  downloader.Utils.CalcSize_EN(finished) &" / " & downloader.Utils.CalcSize_EN(total) & " - " & progress & " % - Speed : " & downloader.Utils.CalcSize_EN(speed)
	
	'az tariqe sender mitunin tag ro begirin va befahmin ke maqadiri ke behetun dade marbut be kodum downloade
	'har tagi ke tuye methode download estefade konin inja behetun dade mishe
	Dim tag As Int = Sender
	Select tag
		Case 1
			ProgressBar1.Progress = progress
			Label1.Text = text
	End Select
End Sub




Sub downloadBTN_Click
	Try
	ProgressDialogShow("در حال دریافت اطلاعات...")
	downloader.GetUrlInfo(EditText1.Text)

	Catch
		Msgbox("صفحه را ببندید و دوباره باز کنید","پیام سیستم")
		End Try
End Sub

Sub AriaMultiThreadDownload_GetInfo (info As UrlInfo) ' in sub bad az
	ProgressDialogHide
	
	If info.HasInfo Then 'agar link doros bude bashe va info dashte bashe in meqdar true hast dar qeyre in surat agar link kharab ya eshtebah bashe false
		DateTime.DateFormat = "dd-MM-yyyy" ' baraye tabdil kardane tarikhi ke server mide be halati ke beshe uno khund
		
		Dim t1 As String = "نام فایل : "&CRLF & info.Name &CRLF&CRLF
		Dim t2 As String = "MimeType : "&CRLF & info.MimeType &CRLF&CRLF
		'		Dim t3 As String = "Size EN : "&CRLF & downloader.Utils.CalcSize_EN(info.Length) &CRLF&CRLF
		Dim t4 As String = "حجم فایل : "&CRLF & downloader.Utils.CalcSize_FA(info.Length) &CRLF&CRLF
		Dim t5 As String = "آخرین ویرایش : "&CRLF & DateTime.Date(info.LastModified) &CRLF&CRLF
		Dim t6 As String = "تاریخ : "&CRLF & DateTime.Date(info.Date) &CRLF&CRLF
		
		Msgbox(t1&t2&t4&t5&t6,"اطلاعات لینک دانلود")
End If
End Sub

Sub Button1_Click
	'Start/Resume button (1)
'	CreateRequestAndDownload(EditText1.Text,1)
	CreateRequestAndDownload("http://safireshgh.net/images/taqvimsafireshgh.apk",1)
End Sub

Sub Button2_Click
	'Pause button (1)
	downloader.Pause(1)
End Sub

Sub Button7_Click
	'Delete button (1)
	Try
	If downloader.IsRunning(1) Then 'agar download ba tag 1 dar hale ejra bud
		ToastMessageShow("first pause the task",False)
		Return
	End If
	downloader.Delete(1) ' hazf kardane download ba tag 1
	Label1.Text = "حذف شد"
	ProgressBar1.Progress = 0
		Catch
		Msgbox("صفحه را ببندید و دوباره باز کنید","پیام سیستم")
		End Try
End Sub

Sub Button10_Click
	'GetInfo button (1)
	Try
	ProgressDialogShow("در حال دریافت اطلاعات...")
	downloader.GetUrlInfo(EditText1.Text) ' gereftane etelaate file az server ke javab tuye sub AriaMultiThreadDownload_GetInfo dade mishe
		Catch
		Msgbox("صفحه را ببندید و دوباره باز کنید","پیام سیستم")
		End Try
End Sub

Sub CreateRequestAndDownload(url As String,tag As Int) 'subi ke url va tag ro migire va download ro ijad mikone (in sub marbut be ketabkhune nis va dasti ijad shode)
	If downloader.Utils.IsValidUrl(url) Then ' check kardane sahih budane link
		Dim request As AriaMultiThreadDownloadRequest ' sakhtane requeste jadid
		Dim name As String = downloader.Utils.GuessFileNameFromLink(url) 'gereftane esme file az link (offline)
		request.SetFolder(File.DirRootExternal).SetName(name).SetUrl(url).Build 'moshakhas kardane folder va esme zakhire file va url ya linke download va sakhtane request
		downloader.Download(request,tag) ' download kardane request va moshakhas kardane ye tag baraye ravande un download
	Else
		Msgbox("لینک دانلود صحیح نمی باشد !","خطا !")	' agar link eshtebah bashe error dade she
	End If

End Sub

 

سلام لینکت کار نمیکنه صفحه 404 میزنه

این ارور هم مرتبط میشه به این 

• 301 انتقال دائمی (Moved Permanently): به این معنی است که صفحه یا فایل مورد نظر ما جابجا شده است.

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

۱ ساعت قبل، مهدی عزیزی گفته است:

سلام

منم همین مشکل رو دارم

متاسفانه من چندین روزه پرسیدم کسی پاسخگو نیست 

3 ساعت قبل، محمدرضا شاهپیری گفته است:

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

سورس رو بدون هیچ تغییری رو یه گوشی دیگه هم تست کنید و ایمیل معتبر وارد وارد کنید ببینید چی میشه. در صورت امکان فایل apk رو بزارید که من تست کنم

ممنون نمیخواد چون این سورس و کتابخانه در سطح من نیست به کارم نمیاد من php که پیوست کردم رو باهاش کار میکنم که مال شما سطح بالاست ممنون موفق باشید

۸ ساعت قبل، محمدرضا شاهپیری گفته است:

چه خطایی میده متن خطا یا اسکرین بزارید

اینم گیج کنندس چون آموزش ویدیویی مرتبط به این رو نگذاشتید لطفا اگر میشه برای php بالا یه سمپل بزارید برای شما 10 دقیقه هم زمان نمیبره ممنون میشم که ما هم بتونیم استفاده کنیم لطف میکنید

دقیقن من همین کار رو کردم یوزرها رو هم رفتم دیدم کدوم اکتیو زده کدوم نزده حتی اون مونث و مذکر ولی هر چی میزنم تو فیلد ها ارور میزنه

لطفا پس یه توضیح دمورد سورس retrofit_source_v1_publicApi بدید من نتونستم باهاش از سایتش که توکن گرفتم کار کنم

<?php
$database = [
    'host' => 'localhost',
    'dbname' => '######',
    'user' => '#######',
    'pass' => ',LWgDD1Td_!@'
];

try {
    $db = new PDO(
        "mysql:host={$database['host']};dbname={$database['dbname']}",
        $database['user'],
        $database['pass']
    );
} catch (PDOException $e) {
    die("An error happend, Error: " . $e->getMessage());
}

$stmt = $db->query('SELECT * FROM infomation1');
while ($row = $stmt->fetch()) {
    echo $row['name'] . "\n";echo '<br>';
     echo $row['family'] . "\n";echo '<br>';
      echo $row['serial'] . "\n";echo '<br>';
       echo $row['timee'] . "\n";echo '<br>';
       echo $row['Datee'] . "\n";echo '<br>';
}

?>

من الان php اینه میشه سورس رو تغییر بدید فقط اینا رو از هاست بخونه فقط لاگ کنه ممنون

تو نت هست شما لطفا سورس رو سمپلش رو اصلاح کنید برای php باوشه کی دوست عزیزم الان بودجه هاست پایتون داره ممنون

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

استاد با هزینه یه آموزش نصب و راه اندازی اینی که گفتید رو میتونید انجام بدید به ضورت شخصی یا بزراید فروشگاه ممنون

سلام استاد ای کاش آموزش ها رو با php  و دیتابیس بزارید چون که ما هاست پایتون و جنگو نداریم اکثرا اشتراکی هستیم ممنون

14 دقیقه قبل، محمدرضا شاهپیری گفته است:

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

درمورد اتصال به اینترنت هم تو انجمن تاپیک زیاد هست در موردش جستجو کنید پیدا میکنید

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

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

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

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

اول اینکه این کتابخانه قابلیتی داره که که چک کند به اینترنت متصل هست یا خیر  اگر متصل هست اینترنت کاربر دارد یا خیر 

اگر هست لطفا مثالش رو بزنید ممنون میشم .

دوم اینکه توی آموزش هاتون از php هایی استفاده کردید اون ها هم پیوست هستش آیا ؟

متشکرم 

سلام من مراحل بالا رو پیش رفتم این ارور رو میده 

B4A Version: 12.50
Parsing code.    (0.00s)
    Java Version: 14
Building folders structure.    (0.01s)
Compiling code.    (0.01s)
Compiling layouts code.    (0.00s)
Organizing libraries.    (0.00s)
    (AndroidX SDK)
Compiling resources    (0.11s)
Linking resources    (0.37s)
Compiling generated Java code.    Error
src\b4a\example\main.java:472: error: unreported exception ClassNotFoundException; must be caught or declared to be thrown
        Class<?> clazz = Class.forName(className);
                                      ^
Note: Some input files use or override a deprecated API.
Note: Recompile with -Xlint:deprecation for details.
1 error
only showing the first 1 errors, of 3 total; use -Xmaxerrs if you would like to see more

javac 14.0.1
 

سلام لطفا مثال یا همون سمپلی هم بزارید یه آموزش مختصر ممنون از شما 

لطفا php های مربوطه رو هم پیوست کنید 

در ۱۴۰۰/۱۰/۱۰ در 14:34، DexterFstone گفته است:

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

Dim CR As CornerRadius
	CR.Initialize
	CR.xCR_BottomLeft = 10
	CR.yCR_BottomLeft = 10
	CR.xCR_BottomRight = 10
	CR.yCR_BottomRight = 10
	CR.xCR_TopLeft = 10
	CR.yCR_TopLeft = 10
	CR.xCR_TopRight = 10
	CR.yCR_TopRight = 10
	DGPanel1.CornerRadius = CR
	DGPanel1.SetCornerRadiusAnimated(1000,CR)

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

ممنون از شما

سلام سمپل نداره ؟

	TabStrip1.tabStrip.changeText(1,r)

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

سلام از کجا باید دانلود کنیم ؟

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

Dim dl As PersianFastNetwork
		dl.initialize("dl").BuildPostQuery(all_D_cod.hostname&"/LarnPage/Insert_comment.php","Comments_send") _
		.addParametrs("content",CommentText.Text) _
		.addParametrs("star",5) _
		.addParametrs("Post_id",all_D_cod.profile_me(2)) _
		.addParametrs("type","user") _
		.addParametrs("javab", contentm) _
		.addParametrs("name",all_D_cod.profile_me(3)) _
		.executRequesAsString

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

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

در 11 ساعت قبل، مجید آرتا گفته است :

سلام

به این بخش ها دسترسی دارید »

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

ممنون از توضیحتون بنده خرید رو انجام دادم 

در 4 ساعت قبل، محمدرضا شاهپیری گفته است :

 

سلام و خدا قوت

این اشتراک به صورت چند وقتس ؟

رنگ کاربری هم عضو میشه ؟

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