Hi all
I created a small project to play with the Document Picker - it allows user to select a pdf that is already on his phone and then it copy this file into the app document folder so I can later send it to my server. So far ot works. As an example I used this project TextEditor.
My question is - do I need to add these PListExtra attributes?
I attached my code here.
And here is my code
Thank you.
I created a small project to play with the Document Picker - it allows user to select a pdf that is already on his phone and then it copy this file into the app document folder so I can later send it to my server. So far ot works. As an example I used this project TextEditor.
My question is - do I need to add these PListExtra attributes?
B4X:
#PlistExtra:<key>CFBundleDocumentTypes</key>
#PlistExtra:<array><dict><key>CFBundleTypeIconFiles</key><array/>
#PlistExtra: <key>CFBundleTypeName</key><string>Text File</string>
#PlistExtra:<key>LSHandlerRank</key><string>Alternate</string>
#PlistExtra:<key>LSItemContentTypes</key><array>
#PlistExtra:<string>public.text</string>
#PlistExtra:</array></dict></array>I attached my code here.
And here is my code
B4X:
'Code module
#Region Project Attributes
#ApplicationLabel: DocumentPicker
#Version: 1.0.0
'Orientation possible values: Portrait, LandscapeLeft, LandscapeRight and PortraitUpsideDown
#iPhoneOrientations: Portrait, LandscapeLeft, LandscapeRight
#iPadOrientations: Portrait, LandscapeLeft, LandscapeRight, PortraitUpsideDown
#Target: iPhone, iPad
#ATSEnabled: True
#MinVersion: 11
#ProvisionFile: EVVProfile.mobileprovision
#PlistExtra:<key>CFBundleDocumentTypes</key>
#PlistExtra:<array><dict><key>CFBundleTypeIconFiles</key><array/>
#PlistExtra: <key>CFBundleTypeName</key><string>Text File</string>
#PlistExtra:<key>LSHandlerRank</key><string>Alternate</string>
#PlistExtra:<key>LSItemContentTypes</key><array>
#PlistExtra:<string>public.text</string>
#PlistExtra:</array></dict></array>
#End Region
Sub Process_Globals
'These global variables will be declared once when the application starts.
'Public variables can be accessed from all modules.
Public App As Application
Public NavControl As NavigationController
Private Page1 As Page
Private xui As XUI
Private Button1 As Button
Type LoadResult (Success As Boolean, Dir As String, FileName As String, RealName As String, Size As Long, Modified As Long, MimeType As String)
End Sub
Private Sub Application_Start (Nav As NavigationController)
NavControl = Nav
Page1.Initialize("Page1")
Page1.RootPanel.LoadLayout("Page1")
NavControl.ShowPage(Page1)
End Sub
Sub Button1_Click
Try
Dim DocumentPicker As DocumentPickerViewController
DocumentPicker.InitializeImport("picker", Array("public.content"))
DocumentPicker.Show(Page1, Button1)
Wait For Picker_Complete (Success As Boolean, URLs As List)
If Success Then
CopyMe(URLs.Get(0))
End If
Catch
Log(LastException)
End Try
End Sub
Private Sub Page1_Resize(Width As Int, Height As Int)
End Sub
private Sub CopyMe(url As String)
Try
Dim FE,FE1 As Boolean
Dim FName As String
FE=File.Exists(url,"")
If FE Then
FName=url.SubString(url.LastIndexOf("/") + 1)
File.Copy(url,"",File.DirDocuments,FName)
FE1=File.Exists(File.DirDocuments,FName)
Log("FE1=" & FE1)
End If
Catch
Log(LastException)
End Try
End SubThank you.