H@mid.RS

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

1 ارسال در این موضوع قرار دارد

درود


همونطور که شما می دونید به هر دلیلی نیاز داریم که یک فایل رو باز کنیم


حالا اگه عکس باشه برای نمایش ان


یا موزیک باشه برای پخش


برای این کار نیاز به کتابخانه های زیر داریم :



'*.ContentChooser
'*.SQL
'*.Phone

تعریف یک کانتنت :(مکانشم می گم کجا باشه که بدونید)



Sub Process_Globals
Private cc As ContentChooser
End Sub


Sub Activity_Create(FirstTime As Boolean)
cc.Initialize("cc")
End Sub

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



Sub b_Click
cc.Show("*/*", "Choose image")
End Sub


Sub GetPathFromContentResult(UriString As String) As String
If UriString.StartsWith("/") Then Return UriString
Dim Cursor1 As Cursor
Dim Uri1 As Uri
Dim Proj() As String = Array As String("_data")
Dim cr As ContentResolver
cr.Initialize("")
If UriString.StartsWith("content://com.android.providers.media.documents") Then
Dim i As Int = UriString.IndexOf("%3A")
Dim id As String = UriString.SubString(i + 3)
Uri1.Parse("content://media/external/images/media")
Cursor1 = cr.Query(Uri1, Proj, "_id = ?", Array As String(id), "")
Else
Uri1.Parse(UriString)
Cursor1 = cr.Query(Uri1, Proj, "", Null, "")
End If
Cursor1.Position = 0
Dim res As String
res = Cursor1.GetString("_data")
Cursor1.Close
Return res
End Sub

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


 


و در نهایت می موند دریافت نتیجه انتخاب :



Sub Choose_Result (Success As Boolean, Dir As String, FileName As String)
If Success Then
dim basic4x as string
basic4x=GetPathFromContentResult(FileName)
ToastMessageShow("انتخاب فایل با موفقیت انجام شد.",False)
Else
ToastMessageShow("مشکل در انتخاب فایل",False)
End If
End Sub

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


 


سوالی بود در خدمتم


در پناه حق


به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

  • مطالب مشابه

    • توسط koorosh
      من یه برنامه نوشتم که با دیزاین ساپورته و سه تا تب توش درست کردم ولی متاسفانه نمیشه اکتیویتی اد کرد توی تبها و فقط میشه لایوت اضافه کرد حالا از اساتید محترم در خواست دارم که اگه راهی هست کمکم کنن که خیلی گیر کردم ؟
       
      میخوام یه جوری اکتیویتی توی تب ها اد کنم
    • توسط H@mid.RS
      نسجه جدید بیسیک فور اندروید منتشر شد!
       
      روش نصب:
       
      فایل را از حالت فشرده خارج کنید محتویات داخل را با نسخه فدیمی که نصب کردید جایگزین کنید!
       
      امکانات جدید در نسخه ۶٫۵۰ بتا :
       

      ۱ مرتب کردن خودکار کدها با زدن دکمه alt + F
       

       

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

       

      منبع : کوئیک لرن
    • توسط H@mid.RS
      IRBazaarAssistant
      مشاهده فایل
      دستیار بازار به شما کمک می کند تا امکاناتی بیشتر از بازار را در برنامه خود بدون کد نویسی پیچیده انجام دهید همانند زیر :





      کتابخانه همراه یک مثال در اختیار شما قرار داده شد.


      :iranmap:

      ارسال کننده H@mid.RS ارسال ۱۶/۰۴/۱۲ دسته کتابخانه