رفتن به مطلب

mahfelsoft

کاربر رو به رشد
  • تعداد ارسال ها

    783
  • تاریخ عضویت

  • آخرین بازدید

  • روز های برد

    3

mahfelsoft آخرین بار در روز آبان 26 ۱۴۰۲ برنده شده

mahfelsoft یکی از رکورد داران بیشترین تعداد پسند مطالب است !

1 دنبال کننده

درباره mahfelsoft

  • تاریخ تولد تعیین نشده

آخرین بازدید کنندگان نمایه

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

دستاورد های mahfelsoft

Community Regular

Community Regular (8/14)

  • First Post
  • Collaborator
  • Posting Machine نادر
  • Very Popular نادر
  • Conversation Starter

نشان‌های اخیر

130

اعتبار در سایت

  1. فهمیدم مشکل چی بود . لینک فقط https از سایتم میشه دانلود کرد من توی سورسی زده بودم http
  2. اون لینک رو من همینطوری گذاشتم اینجا . لینک اصلی توی هاست خودمه که لینک مستقیمه وقتی توی مرورگر میزنم شروع به دانلود میکنه . و مشکلی نداره . همیشه هم توی پوشه خاص توی هاستم فقط همونجا آپلودش میکنم . آدرسشو عوض نکردم نه توی هاست نه توی نرم افزار
  3. سلام . من ازین کتابخونه همون زمانی که منتشر شد استفاده میکنم برای دانلود نسخه جدید برنامه ازداخل خود برنامه ... الان که میخوام برنامه رو بروز کنم با این کتابخونه فایل رو دانلود نمیکنه . دکمه دانلود رو که میزنه میگه 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
  4. و اینکه موقع خروجی همه این ارورها رو هم تحویل میگیرم 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 چی هست ؟؟؟؟ اینو نمیدونم
  5. برای ارسال فایل اکسل من این خط رو نوشتم ShareFile("export.csv",datatype) اما اون دیتا تایپ رو نمیونم چی بنویسم ؟؟؟؟؟؟؟؟؟؟؟
  6. آیا در این کتابخانه میشه منوی درختواره ای هم درست کرد ؟ مثل همون شکلی که توی دو تا پیام قبلیم گفتم
  7. مشکل maven رو حل کردم . الان ارور دیگه ای دارم . لطف کنید راهنمای کنید
  8. ببخشید من یه مشکل اساسی دارم . هر سورسی از شما رو باز میکنم به این ارور بر میخورم
  9. آقای شاهپیری نسخه جدید رو گرفتم . من فقط یه کاری رو میخوام انجام بدم . میخوام یه هر کدوم از آیتم هام مثل منوی درختی باشن یعنی زیرمجموعه داشته باشن و قابلیت سرچ . همین . دقیقا بهم بگید کدوم آموزشتون رو ببینم . چون میخوام زود انجام بدم میپرسم مثلا مثل شکل زیر . ( البته میخوام شکل ظاهریش رو خودم طراحی کنم برای هر کدوم از آیتم ها. و روی هر کدوم هم که کلیک بشه مطلبش رو نمایش بده در صفحه دیگه ) ولی فقط یک نکته نمیخوام زیر مجموعه ها تا زمانی که روی دسته شون کلیک نشده نمایش داده بشن . یعنی مثلا وقتی طرف روی دسته صبحانه زد بعد زیر مجموعه هاش به صورت کشویی نمایش داده بشن) صبحانه آش نان تخم مرغ نهار برنج خورش شام ماهی
  10. سلام آقای شاهپیری من قبلا کتابخونه تون رو خریدم . الان میخوام نسخه جدید رو بگیرم باز میره توی صفحه پرداخت . نام کاربری mahfelsoft ایمیل : [email protected]
  11. دوستان من تمامی راهها رو امتجان کردم هم دو پورت رو . هم از طریق batch هم ازطریق cmd هیچ کدوم متصل نمیشه ورژن nox 6.6.1.1 یر کردم لطفا کمک کنید
  12. mahfelsoft

    دریافتFan Menu

    متوجه شدم چرا اینطوریه ... باید کد کلیک رو به این شکل بنویسیم : If ItemID = "Item1" Then startactivity(net) end if "یعنی به جای عدد1 باید بنویسید iTem1
  13. mahfelsoft

    دریافتFan Menu

    Private Sub FanMenu_Click(ItemID As String) ToastMessageShow("Clicked: " & ItemID, False) If ItemID = "1" Then startactivity(net) Else ToastMessageShow("اتصال اینترنت خود را بررسی نمایید ...",False) End If
  14. mahfelsoft

    دریافتFan Menu

    ببخشید میشه بگید توی رویداد کلید چطور برای هر آیتمی کلیک بزارید . من خودم از آیتم آی دی استفاده کردم و لی اصلا جواب نمیده . من اینطوری نوشتم . If ItemID = "1" Then end if
  15. من الان فقط روی اندروید 9 امتحان کردم و دیگه نمی تونم بعد از اون برنامه رو نصب کنم نسخه جدید کتابخونه کجا هست ؟ چون توی پست اول هون ورژن 5 هنوز
×
×
  • اضافه کردن...