Getting image from Gallery

[Tiwiz]

Hello everyone,
I was trying to start the Gallary to pick up a picture, can you help me understand what's wrong in my code?

Dim in As Intent
   
   in.Initialize2(in.ACTION_PICK,0)
   in.SetType("image/*")
   in.WrapAsIntentChooser("Pick up a draft")
   StartActivity(in)

Thanks in advance.

Tiwiz

 

[Erel]

You should use ContentChooser to pick an image from the gallery: Basic4android - Phone

 

[Tiwiz]

Tried but looks like nothing returns.

Sub draft_click()
   Dim cc As ContentChooser
   
   'mostro la galleria
   cc.Initialize("CC")
   cc.Show("image/*","Pick a draft")
   
End Sub

Sub CC_Result (Success As Boolean, Dir As String, FileName As String)
   Dim draft As String
   Dim mail As Email
   
   ToastMessageShow("Success: " & Success, False)
   If Success == True Then
      draft = File.Combine(Dir,FileName)
      mail.To.Add(address)
      mail.Subject = "Draft ICS"
      StartActivity(mail.GetIntent)
   End If   
End Sub

If I choose "Gallery" from the popup windows, even the Toast doesn't get to be shown... I need an image to attach to an email... but why I don't get anything in that routine?

Tiwiz

 

[Erel]

The file returned is a reference to a file. While you can open it with LoadBitmap and other internal file methods you will not be able to attach it to an intent. You will need to use File.Copy and create a temporary file which will then be attached.

 

[Tiwiz]

Ok,
but why the toast doesn't get shown?

Tiwiz

 

[Erel]

Put a breakpoint and check whether the code is executed.

 

[Tiwiz]

It looks like it never reaches the edge...

Sub draft_click()
   Dim cc As ContentChooser
   
   'mostro la galleria
   cc.Initialize("CC")
   cc.Show("image/*","Pick a draft")
   
End Sub

Sub CC_Result (Success As Boolean, Dir As String, FileName As String)
   Dim draft As String
   Dim mail As Email
   
   Log("Success: " & Success)
   
   
End Sub

but never shows the LogCat message...

Tiwiz

 

[Erel]

Can you upload your project?

 

[Tiwiz]

Sure, and thanks for your help

 

[Erel]

It is better to use File - Export As Zip.

I tested it on the emulator. Pressed on the back key when the gallery opened and it worked as expected:

Success: false

 

[Tiwiz]

Yes, but if you try to pick up an image it doesn't return anything... it should return true, shouldn't it?

Tiwiz

 

[Erel]

You should declare 'CC' in Sub Process_Globals. Otherwise the object is released before it gets a chance to raise the event.

 

[Tiwiz]

Many thanks, it worked, but now I have another problem

Sub CC_Result (Success As Boolean, Dir As String, FileName As String)
   Dim draft As String
   Dim mail As Email
   
   If File.Exists(Dir,FileName) Then
      ToastMessageShow("FOUND",True)
   Else
      ToastMessageShow("CAN'T FIND IT", False)
   End If
   
   
End Sub

Always shows "CAN'T FIND IT", could you help me manage that file? File.Copy crashes as well if I pass it Dir and FileName as source...

Tiwiz

 

[Erel]

File.Exists will return false as there is no such file. What error do you get with File.Copy?

 

[Tiwiz]

Here's the error:

LogCat connected to: 0280414642bf21d7
--------- beginning of /dev/log/system


--------- beginning of /dev/log/main


** Activity (main) Create, isFirst = true **


** Activity (main) Resume **
** Activity (main) Pause, UserClosed = false **


running waiting messages (1)


main_cc_result (B4A line: 69)


File.Copy(Dir,FileName,File.DirInternal,FileName)



java.io.FileNotFoundException: /data/data/tiwiz.locale.test/files/content:/media/external/images/media/31 (No such file or directory)
   at org.apache.harmony.luni.platform.OSFileSystem.open(Native Method)
   at dalvik.system.BlockGuard$WrappedFileSystem.open(BlockGuard.java:232)
   at java.io.FileOutputStream.<init>(FileOutputStream.java:94)
   at anywheresoftware.b4a.objects.streams.File.OpenOutput(File.java:344)
   at anywheresoftware.b4a.objects.streams.File.Copy(File.java:320)
   at tiwiz.locale.test.main._cc_result(main.java:314)
   at java.lang.reflect.Method.invokeNative(Native Method)
   at java.lang.reflect.Method.invoke(Method.java:507)
   at anywheresoftware.b4a.BA.raiseEvent2(BA.java:105)
   at anywheresoftware.b4a.BA.raiseEvent(BA.java:89)
   at anywheresoftware.b4a.phone.Phone$ContentChooser$1.ResultArrived(Phone.java:829)
   at anywheresoftware.b4a.BA$2.run(BA.java:313)
   at anywheresoftware.b4a.BA.setActivityPaused(BA.java:263)
   at tiwiz.locale.test.main$ResumeMessage.run(main.java:190)
   at android.os.Handler.handleCallback(Handler.java:587)
   at android.os.Handler.dispatchMessage(Handler.java:92)
   at android.os.Looper.loop(Looper.java:130)
   at android.app.ActivityThread.main(ActivityThread.java:3835)
   at java.lang.reflect.Method.invokeNative(Native Method)
   at java.lang.reflect.Method.invoke(Method.java:507)
   at com.android.internal.os.ZygoteInit$MethodAndArgsCaller.run(ZygoteInit.java:847)
   at com.android.internal.os.ZygoteInit.main(ZygoteInit.java:605)
   at dalvik.system.NativeStart.main(Native Method)
java.io.FileNotFoundException: /data/data/tiwiz.locale.test/files/content:/media/external/images/media/31 (No such file or directory)

Tiwiz

 

[Erel]

Add:

   Log(dir)
   Log(FileName)

You will see that the FileName variable value is something like: content://media/external/images/media/51184

You cannot use it directly. Try the following code:

File.Copy(Dir, FileName, File.DirRootExternal, "1.png")

 

[Tiwiz]

thanks,
it worked perfectly!

Tiwiz

 

[hookshy]

Tested code on following devices :
Motorola defy android 2.36
LG optimus L5 android 4.0
Alview Viva i7 android 4.4

just a remark ..pay attention to the extention format .png ...do not change that while copy to dir.rootexternal

 

[Erel]

This is a thread from 2011. It is better not to post in old threads.

 

[hookshy]

OK I understand