آموزش باز کردن هر نوع فایلی از طریق Intent

[مهدی ایزدی 9,203]

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

خب توی این آموزش یاد میگیریم که چطوری هر فایلی رو که دلمون خاصی از طریق Intent باز کنیم

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

Sub Btn_Example_Click
        
    If edt_file.Text = "" Then
        ToastMessageShow("None Document", True)
    Else
        Dim allegato As String = "http://www.devil-app.eu/xxx/fotoutenti/" & edt_file.Text
        Dim job As HttpJob
        job.Initialize("allegato", Me)
        job.Download(allegato)        
    End If

End Sub

رویداد JobDone هم به این صورت :

Sub JobDone(Job As HttpJob)
    If Job.Success Then
    Dim res As String
    res = Job.GetString
    Log("Response from server: " & res)
  
        Select Job.JobName
      


       Case "allegato"
         
    'Get extension File
    Dim splitta() As String = Regex.Split("\.", edt_file.Text)
    Dim estensione As String = splitta(1)
  
                Dim out As OutputStream = File.OpenOutput(File.DirRootExternal, "document." & estensione, False)
            File.Copy2(Job.GetInputStream, out)
            out.Close '<------ very important
            Dim apro As Int
            apro = Msgbox2("Do you want Open Document in attachment ?", "Message", "Yes","","No", Null)
            If apro = DialogResponse.POSITIVE Then
                Dim i As Intent
                i.Initialize(i.ACTION_VIEW, "file://" & File.Combine(File.DirRootExternal & "/", "document."& estensione))
                i.SetComponent("android/com.android.internal.app.ResolverActivity")
                Select estensione
                    Case "pdf"
                        i.SetType("application/pdf")
                    Case "docx"
                        i.SetType("application/vnd.openxmlformats-officedocument.wordprocessingml.document")
                        'i.SetType("application/msword")
                    Case "txt"
                        i.SetType("text/plain")
                    Case "jpg"
                        i.SetType("image/jpg")
                    Case "jpeg"
                    i.SetType("image/jpeg")  
                End Select
              
                StartActivity(i)
      
            End If

        End Select
    Else
        ToastMessageShow("Error: " & Job.ErrorMessage , True)
    End If
    Job.Release
    ProgressDialogHide
End Sub

این هم لیست پسوند های مختلف و SetType های اونها که میتونید توی Select Case هر کدوم رو که دلتون میخاد اضافه کنید :

.au --> audio/basic
.avi -->video/msvideo, video/avi, video/x-msvideo
.bmp -->image/bmp
.bz2 -->application/x-bzip2
.css -->text/css
.dtd -->application/xml-dtd
.doc -->application/msword
.docx -->application/vnd.openxmlformats-officedocument.wordprocessingml.document
.dotx -->application/vnd.openxmlformats-officedocument.wordprocessingml.template
.es -->application/ecmascript
.exe -->application/octet-stream
.gif -->image/gif
.gz -->application/x-gzip
.hqx -->application/mac-binhex40
.html -->text/html
.jar -->application/java-archive
.jpg -->image/jpeg
.js -->application/x-javascript
.midi -->audio/x-midi
.mp3 -->audio/mpeg
.mpeg -->video/mpeg
.ogg -->audio/vorbis, application/ogg
.pdf -->application/pdf
.pl -->application/x-perl
.png -->image/png
.potx -->application/vnd.openxmlformats-officedocument.presentationml.template
.ppsx -->application/vnd.openxmlformats-officedocument.presentationml.slideshow
.ppt -->application/vnd.ms-powerpointtd>
.pptx -->application/vnd.openxmlformats-officedocument.presentationml.presentation
.psv -->application/postscript
.qt -->video/quicktime
.ra-->audio/x-pn-realaudio, audio/vnd.rn-realaudio
.ram-->audio/x-pn-realaudio, audio/vnd.rn-realaudio
.rdf-->application/rdf, application/rdf+xml
.rtf-->application/rtf
.sgml-->text/sgml
.sit-->application/x-stuffit
.sldx-->application/vnd.openxmlformats-officedocument.presentationml.slide
.svg-->image/svg+xml
.swf-->application/x-shockwave-flash
.tar.gz-->application/x-tar
.tgz-->application/x-tar
.tiff-->image/tiff
.tsv-->text/tab-separated-values
.txt-->text/plain
.wav-->audio/wav, audio/x-wav
.xlam-->application/vnd.ms-excel.addin.macroEnabled.12
.xls-->application/vnd.ms-excel
.xlsb-->application/vnd.ms-excel.sheet.binary.macroEnabled.12
.xlsx-->application/vnd.openxmlformats-officedocument.spreadsheetml.sheet
.xltx-->application/vnd.openxmlformats-officedocument.spreadsheetml.template
.xml-->application/xml
.zip --> application/zip, application/x-compressed-zip

موفق و پیروز باشید 

[razavioo 310]

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

[basicofdata 99]

با سلام

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

http://bofd.ir/A9C2x