mahfelsoft

فهمیدم مشکل چی بود . لینک فقط https از سایتم میشه دانلود کرد من توی سورسی زده بودم http

15 ساعت قبل، سید رضا گفته است:

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

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

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

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

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

سلام . 

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

الان که میخوام برنامه رو بروز کنم با این کتابخونه فایل رو دانلود نمیکنه . دکمه دانلود رو که میزنه میگه 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="https://biaupload.com/do.php?downf=org-29428beaa4fc1.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

و اینکه موقع خروجی همه این ارورها رو هم تحویل میگیرم 

Organizing libraries.    (0.00s)
Generating R file.    Error
e:\sdk\tools\..\extras\b4a_remote\com\android\support\coordinatorlayout\28.0.0\unpacked-coordinatorlayout-28.0.0\res\values\values.xml:28: error: Attribute "layout_anchorGravity" already defined with incompatible format.
e:\sdk\tools\..\extras\b4a_remote\androidx\coordinatorlayout\coordinatorlayout\1.1.0\unpacked-coordinatorlayout-1.1.0\res\values\values.xml:33: Original attribute defined here.
e:\sdk\tools\..\extras\b4a_remote\com\android\support\coordinatorlayout\28.0.0\unpacked-coordinatorlayout-28.0.0\res\values\values.xml:67: error: Attribute "layout_insetEdge" already defined with incompatible format.
e:\sdk\tools\..\extras\b4a_remote\androidx\coordinatorlayout\coordinatorlayout\1.1.0\unpacked-coordinatorlayout-1.1.0\res\values\values.xml:70: Original attribute defined here.
e:\sdk\tools\..\extras\b4a_remote\com\android\support\coordinatorlayout\28.0.0\unpacked-coordinatorlayout-28.0.0\res\values\values.xml:84: error: Attribute "layout_dodgeInsetEdges" already defined with incompatible format.

فقط یه چیزی رو بهم بگید این فایل اکسل من که اسمش export.csv هست MIMEtype چی هست ؟؟؟؟ اینو نمیدونم

برای ارسال فایل اکسل من این خط رو نوشتم

ShareFile("export.csv",datatype)

اما اون دیتا تایپ رو نمیونم چی بنویسم ؟؟؟؟؟؟؟؟؟؟؟

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

فایل item_vertical.xml رو باز کنید و مقادر app:srcCompat رو به android:src تغییر بدین

آیا در این کتابخانه میشه منوی درختواره ای هم درست کرد ؟ مثل همون شکلی که توی دو تا پیام قبلیم گفتم

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

دوست عزیز این کتابخونه نزدیک به ده ساعت آموزش تصویری داره. به این سرعت که نمیتونید روش مسلط بشید باید تمرین کنید.

این کتابخونه با پکیجهای androidx نوشته شده. حتما باید sdk تون رو به androidx ارتقا بدین. توی پست اول اموزش راه اندازیش هست. لطفا آموزشا رو ببینید.

مشکل maven رو حل کردم . الان ارور دیگه ای دارم . لطف کنید راهنمای کنید 

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

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

مثلا مثل شکل زیر . ( البته میخوام شکل ظاهریش رو خودم طراحی کنم برای هر کدوم از آیتم ها. و روی هر کدوم هم که کلیک بشه مطلبش رو نمایش بده در صفحه دیگه )

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

صبحانه

     آش

      نان

       تخم مرغ

نهار

     برنج

     خورش

شام

      ماهی

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

نام کاربری mahfelsoft

ایمیل : [email protected]

دوستان من تمامی راهها رو امتجان کردم هم دو پورت رو . هم از طریق batch هم ازطریق cmd هیچ کدوم متصل نمیشه

ورژن nox 6.6.1.1

یر کردم لطفا کمک کنید

در 33 دقیقه قبل، Salar82 گفته است :

اگه میشه کدهای اد کردن هر آیتمتون هم بذارید.

احتمالا اونجا مشکل هست

متوجه شدم چرا اینطوریه ...

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

If ItemID = "Item1" Then

	startactivity(net)
end if


"یعنی به جای عدد1 باید بنویسید 
iTem1

در 8 ساعت قبل، Salar82 گفته است :

سلام

آی دی هر آیتم رو چطور مشخص میکنین؟

اگر میشه کدهاتون رو قرار بدین.

Private Sub FanMenu_Click(ItemID As String)
	ToastMessageShow("Clicked: " & ItemID, False)

	
	If ItemID = "1" Then

	startactivity(net)
		Else
	ToastMessageShow("اتصال اینترنت خود را بررسی نمایید ...",False)
	End If

ببخشید میشه بگید توی رویداد کلید چطور برای هر آیتمی کلیک بزارید .

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

If ItemID = "1" Then 
end if

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

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

https://www.b4x.com/android/forum/threads/help-please-error-when-packaging-the-project-files.37039/

نسخه جدیدی گذاشتم که فایلهای اضافی حذف شده جایگزین کنید نسخه جدیدو.

در مورد 

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

من الان فقط روی اندروید 9 امتحان کردم و دیگه نمی تونم بعد از اون برنامه رو نصب کنم

نسخه جدید کتابخونه کجا هست ؟ چون توی پست اول هون ورژن 5 هنوز

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

اما خروجی که گرفتم قبل از نصب پکیج دو 3 تا اجازه ازم میخواست و نوشت نصب این نرم افزار تهدید داره و میتونه شما رو track کنه . خوب کاربری که اینو ببینه که جرات نمیکنه نصب کنه برنامه رو ..!!!!

من مجوز رو توی گوشی زدم . بعد یک مجوز از طرف گوگل اومد که من اونو اوکی کردم و install anyway رو نزدم حالا دیگه برنامه اصلا روی گوشیم نصب نمیشه . و هر چی هم پاکش میکنم و دوباره میزنم باز میگه بسته نصب نشد

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

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

انجام دادم . بله باز هم همون ارور و خروجی نمیده

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

توی عکس ببینید

یعد از دانلود چطور فایل رو برای نصب بگیریم ؟

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

همچین چیزی با یه ایبل که توی اکتیوتی هم هست کلی مکافات داره. باید حتما سایز ثابت باشه برای این ویو. برای ویوهایی که با xml هست شما راحت میتونید با دادن wrap_content بدون هیچ چیز اضافه ای سایزها رو متناسب با ارتفاع متن کنید ولی برای این مورد چون با لیوت بیسیک هست محدودیت هست.

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

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

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

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

خوب راستش نمی دونم چطور باید انجام داد .

دیتابیس هم که یه فیلد متن اول که توی createpanel لود میشه . و یه ستون متن دوم که توی contentpanel میخوام لود بشه .

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

خوب آقا من اینو خودم انجامش داد . متن ها رو گرفتم و ریختم توی لیبل ها.

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

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

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

خوب راستش نمی دونم چطور باید انجام داد .

دیتابیس هم که یه فیلد متن اول که توی createpanel لود میشه . و یه ستون متن دوم که توی contentpanel میخوام لود بشه .

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

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

خب این که کار ساده ایه.توی onCreateViewHolder یه لیبل تعریف کنید و اونو به contentpanel بدین.

Dim l As Label
l.Initialize("")
contentpanel.AddView(l,0,0,40%x,20%y)

توی متد onBindViewHolder هم بیاید و متنو از دیتابیس بخونید و بهش بدید.

Dim l As Label=Contentpanel.GetView(0)
l.TextColor=Colors.Red
l.TextSize=20
dim item as item=listitem.get(position)
l.text=item.contenttxt

listitem هم لیست آیتمهایی هست که از دیتابیس خوندین

dim item as item

آیتم رو نمیشناسه . میگه رفرنس میخواد

item

ببخشید من توی سورس swipmenu میخوام توی بخش contentpanel یه لیبل بزارم و متنها رو هم از دیتابیس بگیرم .بریزم توش . و ارتفاع لیبل هم با متن هماهنگ بشه . میشه راهنمایی کنید .

( در واقع میخوام توی createpanel یه متن رو از دیتابیس بگیرم بزارم که اینو انجام دادم و میخوام با سویپ کردن هر پنلی متن ستون کناری همون آی دی رو از دیتابیس برام نشون بده . )

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

یه سوال دیگه هم دارم وقتی از لایه "layout_button_right" میخوام استفاده کنم چطور موارد رو از دیتابیس بگیرم و بریزم توی لیست ؟چون توی آموزش فقط بدون دیتابیس توضیح دادید