امین شاهدی

سلام مهراب جان ، شما خود ایمیج ویو رو به صورت تگ بده و مثل کد زیر استفاده کن : Sub Glide_OnBitmapReady(bitmap As Bitmap,Tag As Object) dim iv as ImageView = tag iv.Bitmap = bitmap End Sub

کد هاتون رو بزارید

مربوط به لیست هاتونه ، اخطار میده که آیتم های یکسانی رو به لیستتون اضافه کردین در ضمن این لاگ ها هیچ ربطی به آریالیست ویو نداره

کتابخونه به فروشگاه اضافه شد

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

یه دور میخوندین قابلیتارو حداقل : -قابلیت ادامه دانلود بعد از بسته و باز شدن دوباره برنامه و یا بعد از قطع و وصل شدن اینترنت

لطف داری این امکانم اضافه کردم : محاسبه سرعت برای هر دانلود به صورت جدا محاسبه میشه و همراه با پراگرس و سایز فایل دانلود شده توی ساب بتهون میده Sub AriaMultiThreadDownload_OnProgress (downloaded As Long,total As Long,progress As Int,speed As Long)

آره دیگه ، - قابلیت دانلود چند نخی هر دانلود (MultiThreading) همونطور که میدونید بااین روش سرعت خیلی بیشتر از حالت عادی و تک نخی (تک قسمتی) هستش

با سلام ، یه کتابخونه خیلی مهم و کاربردی که کمبودش توی b4a حس میشد یه دانلود منیجر حرفه ای بود که دیگه از طریق این کتابخونه خیلی راحت میتونین دانلود هاتون رو باهاش انجام بدین که قابلیت های خیلی زیادی داره که چند تا از قابلیت هاش رو میتونین این زیر ببینین : - قابلیت دانلود فایل های با حجم های بسیار کم و بسیار زیاد - قابلیت دانلود همزمان هر تعداد دانلود - قابلیت دانلود چند نخی هر دانلود (MultiThreading) -قابلیت توقف و ادامه دانلود -امکان نمایش سرعت دانلود برای هر دانلود -قابلیت ادامه دانلود بعد از بسته و باز شدن دوباره برنامه و یا بعد از قطع و وصل شدن اینترنت -قابلیت مدیریت همه دانلود ها در هر زمان -قابلیت چک کردن لینک قبل از شروع دانلود و گرفتن نام و سایز و اطلاعات دیگر فایل از سرور -قابلیت تغییر تعداد نخ های هر دانلود -قابلیت تغییر تعداد دانلود های همزمان و .... -قابلیت تبدیل سایز فایل از بایت به حالت فارسی و انگلیسی مثل : 12MB 126کیلوبایت -قابلیت تشخیص نام فایل از روی لینک (به 2صورت آفلاین و چک کردن از سرور) -قابلیت تشخیص درست و قابل قبول بودن لینک (به 2صورت آفلاین و چک کردن از سرور) -قالیت تشخیص اینکه لینک مربوط با فایل هستش یا نه به صورت آفلاین -قابلیت با خبر شدن از رویداد های زیر برای هر دانلود به صورت جدا ! (Sub) : 1 در حال کانکت شدن به سرور برای دانلود 2 کانکت شدن به سرور برای دانلود 3 شروع دانلود 4 توقف دانلود 5 کنسل شدن دانلود 6 ادامه یافتن دانلود 7 پراگرس یا روند دانلود و سرعت و گرفتن حجم و درصد دانلود شده 8 ارور برای هر دانلود و گرفتن علت ارور 9 پایان دانلود - قابلیت کنسل و یا توقف همه دانلود های در حال انجام به صورت همزمان -قابلیت چک کردن دانلود های در حال انجام و گرفتن اطلاعات در هر زمانی تمامی قابلیت های بالا چندین بار تست شده و با تضمین و بدون داشتن مشکل همه ی کار ها انجام میشه میتونین به نمونه کارکرد برنامه رو توی ویدیو زیر ببینین : دانلود منیجر حرفه ای B4A اندروید کتابخونه به زودی توی فروشگاه قرار میگیره و دوستان میتونن تهیه کنن

باید آدرس کامل رو به لیست بدین یا هم میتونین بیتمپ رو مستقیم بدین ، هرجوری که راحتین ، اگه خواستین بیتمپ بدین بهتره از LoadBitmapSample استفاده کنین تا عکس بزرگ نباشه و برنامه کرش نکنه : l3.Add(LoadBitmapSample(File.DirRootExternal,"ax1.jpg",70,70))

دوست عزیز هنوز نیم ساعت نگذشته دوباره اسپم میدین ؟ دوستان اینجا منتظر نشستن که شما سوال بپرسی سریع همونجا جوابتو بدن ! 50 بار هم گفتم برای اینکه از assets رو استفاده کنین باید از متد getAssetsFullAddress استفاده کنین : l3.Add(AriaAdapter.getAssetsFullAddress("esmeAx,jpg"))

سلام ، آدرس عکس ر. بهچه صورت میدین ؟ کدتون رو بدین

AriaValueAnimator مشاهده فایل با سلام ، از طریق این کتابخونه همونطورکه از اسمش پیداش میتونین مقدار هاتون رو به صورت انیمیشینی به هم تغییر بدین ، مثال : - تغییر یه عدد از 0 تا 10 توی 5 ثانیه - تغییر یه مقدار float از 0 تا 0.2 توی 10 ثانیه - تغییر یه رنگ از آبی به سبز توی 20 ثانیه مثال کد : Sub Activity_Create(FirstTime As Boolean) Dim anim As AriaValueAnimator anim.Initalize("anim") anim.WithInt(0,100) anim.Duration = 2000 '2 sanie' anim.Start ' anim.WithFloat(0.1,0.9) ' anim.WithColor(Colors.Red,Colors.Blue) End Sub Sub anim_AnimationUpdate (AVAnimator As AriaValueAnimator) Log( "Animated value : " & AVAnimator.AnimatedValue) 'Current ValueAnimator's time : 'Log(AVAnimator.CurrentPlayTime) End Sub ارسال کننده امین شاهدی ارسال ۱۷/۰۱/۱۱ دسته کتابخانه ها  

آموزش Json زیاد هست سرچ کنید ، راهنمایی درباره json ربطی به این تاپیک نداره

سلام ، یه متغیر boolean تعریف کنید و کد هاتون رو داخل حلقه Do While بزارین تا هر زمان متغیر false شد دیگه دانلود ادامه پیدا نکنه ! Sub Globals Dim Atask As AriaAsyncTask Dim downloading As Boolean End Sub Sub Activity_Create(FirstTime As Boolean) Atask.Initialize("ariatask") downloading=True Atask.Run(Null) End Sub Sub ariatask_DoInBackground(Params() As Object) As Object Dim dl As AriaAsyncTaskDownloader dl.Initialize(Atask) Dim result As String Do While downloading Try result = dl.Download("http://someServer.com/someFile.zip",File.Combine(File.DirInternal,"f.zip")) Catch result = "Error : " + LastException.Message End Try Loop If Not(downloading) Then result = "Canceled!" End If Return result End Sub هر زمان هم خواستین کنسل کنین متغیر رو false کنین و تسک رو هم کنسل کنین downloading=False Atask.Cancel(True)

سلام ، بله از طریق AriaAdapterB4aLayout لیوت خودتون رو لود کنید اگه لیوت xml دارین میتونین از XmlLayoutBuilder استفاده کنین و ویو ها رو بگیرین و تغییراتی که میخواین رو روش انجام بدین سلام ، ممکنه مشکل از عکس ها و یا اسکریپت دیزاینر ها باشه و ... در کل لیوت استانداردی نیست ، بهتره لیوت xml بسازین با هر تعداد ویو و ساختاری که میخواین و از طریق کتابخونه XmlLayoutBuilder لیوت رو لود کنید و بقیه کار ها .... کیفیت ها در حدی هست که متن ها و کد ها خونده شه و بشه بفهمید. بنده وقت ندارم ، الانشم دارم با گوشی جواب میدم ، دوستان هستن یه تاپیک بزنین و موضوع رو بگین واستون انجام بدن

Resources$NotFoundException : خود ارور داره میگه ریسورس ها پیدا نشده ! به سورس حتما ریسورس ها رو اضافه کنید

AriaGifEncoder مشاهده فایل با سلام ، از طریق این کتابخونه خیلی ساده میتونین از طریق چند تا Bitmap فایل گیف بسازین * ساخت گیف از طریق نخ (Thread) جدا انجام میشه نمونه کد : Sub Activity_Create(FirstTime As Boolean) Dim ariaGif As AriaGifEncoder ariaGif.Initialize("gif",File.DirRootExternal,"mGif.gif") ariaGif.Delay = 300 ariaGif.AddFrame(LoadBitmap(File.DirAssets,"f1.jpg")) ariaGif.AddFrame(LoadBitmap(File.DirAssets,"f2.jpg")) ariaGif.AddFrame(LoadBitmap(File.DirAssets,"f3.jpg")) ariaGif.AddFrame(LoadBitmap(File.DirAssets,"f4.jpg")) ariaGif.Build End Sub Sub gif_BuildDone 'dim gifFile as AriaFile = Sender ToastMessageShow("Gif sakhte shod",False) End Sub ارسال کننده امین شاهدی ارسال ۱۶/۱۲/۱۸ دسته کتابخانه ها  

AriaVolley مشاهده فایل با سلام ، خب خیلی هاتون که میدونین volley چیه ، اونایی هم که نمیدونن volley کتابخونه ایه که از طریق اون میتونین درخواست های آنلاین خودتون که به جواب اون ها صورت string و Json هست رو با حداقل کد انجام بدین و همچنین دانلود و کش کردن عکس ها که جواب به صورت bitmap ، ↓↓ یه نمونه که با حدود 10 خط کد 3تا درخواست مختلف رو انجام میده و حاصل رو نمایش میده ↓↓ Sub Activity_Create(FirstTime As Boolean) Dim Avolley As AriaVolley Avolley.Initialize("volley") Avolley.AddQueue(Avolley.CreateImageRequest("https://httpbin.org/get",Activity.Width,Activity.Height)) Avolley.AddQueue(Avolley.CreateJsonArrayRequest("http://api.androidhive.info/volley/person_array.json",Avolley.GET)) Avolley.AddQueue(Avolley.CreateJsonRequest("https://httpbin.org/ip",Avolley.GET)) Avolley.AddQueue(Avolley.CreateImageRequest("http://s2.picofile.com/file/8262086342/back_material_blue.jpg",Avolley.GET)) Avolley.Start End Sub Sub volley_OnBitmapResponse (bitmap As Bitmap) Activity.SetBackgroundImage(bitmap) End Sub Sub volley_OnJsonArrayResponse (JsonArray As AriaJsonArray) Msgbox(JsonArray.GetAriaJsonObject(0).GetString("name"),"Name") End Sub Sub volley_OnJsonResponse (JSON As AriaJsonObject) Msgbox(JSON.Get("origin"),"IP") End Sub Sub volley_OnError (Error As String) Msgbox(Error,"Volley Error!") End Sub Sub volley_OnStringResponse (response As String) Msgbox(response,"Volley") End Sub ورژن 3 کتابخانه اضافه شد ، قابلیت های جدید : - اضافه شدن متد CreateJsonArrayRequest و CreateJsonArrayRequest2 برای ارسال درخواست هایی که به صورت JsonArray هستن - اضافه شدن کلس های AriaJsonObject و AriaJsonArray برای رفع مشکل فارسی و encoding کلس JSONParser خود b4a که دیگه نیازی بهش نیست و میتونین از کلس هایی توی کتابخونه اضافه شده استفاده کنین و جواب درخواست های جیسون هم به همین صورت تغییر کرده - اضافه شدن قابلیت Sender که از طریق اون میتونین توی همه ی ساب های درخواسن از آدرسی که درخواست اون رو دادین با خبر بشین ، برای مثال شما 3تا درخواست دانلود عکس میدین و بعد از دانلود شدن 3بار ساب اجرا میشه حالا دیگه میتونین بفمین که هر بار اجرا شدن مربوط به کدوم آدرس هستش و اگه نیازی بود شرط بزارین و از عکس ها استفاده کنین : Sub volley_OnBitmapResponse (bitmap As Bitmap) Dim url As String = Sender Msgbox(url,"Addressi ke ax azun download shode : ") Activity.SetBackgroundImage(bitmap) End Sub ارسال کننده امین شاهدی ارسال ۱۶/۱۲/۱۸ دسته کتابخانه ها