B4A Library [BETA] ahaShareLibrary

RiverRaid · Jul 5, 2013

[LIB] [B4A SourceCode] ahaShareLibrary

Hi!

As we all have the Problems with sharing Text/Pictures via Intents and Facebook, I decided to write a small library that get rid of this Problem. It's very easy to use and takes all the work away from you

You can share Text, Pictures, Documents.....

It's still beta, so please report any Bugs/Wishes.

Usage is very simple:

B4X:

Dim Share as ahaShare
Share.initialize(Me, "Share")
Share.FaceBookAppID = "xxxx"
Share.FaceBookRedirectUri = "http://www.xxxxxx.xxx/"
Share.Share("Test-Subject","Test-Text")

After sharing, the Finished Event is called

B4X:

Sub Share_Finished
   ..your code here
End Sub

Screenshot :

PS: As you can see you can customize nearly everything:

This library is written in B4A

I hope you like it

ahaShare
Methods:

IsInitialized As Boolean
Tests whether the object has been initialized.

Addfile (Directory As String, Filename As String) As String
Adds a file to the Intent
Attention: file.DirAssets and file.dirInternal will NOT> work as Directory!!

Addpackagefilter (PackageFilter As String) As String
Adds a packagefilter. Packages with the given names will not be shown in the ContentChooser
Example1: "com.google.android.keep" to hide Google Keep from the choosable Apps
Example2: "synology" hides every Synology-App

Clearfiles As String
Clears all added files

Initialize (Module As Object, EventName As String) As String
Initializes the Library

Normal Library usage:
-----------------------
<code>Dim Share as ahaShare
Share.initialize(me, "Share")
Share.FaceBookAppID = "xxxx"
Share.FaceBookRedirectUri = "http://www.xxxxxx.xxx/"
Share.Share("Test-Subject","Test-Text")</code>

Event Finished will be raised when Sharing is finished:
Sub Share_Finished
..your code here (i.e deleting temp files,...)
End Sub

That's it 

Sshare (Subject As String, Text As String) As String
Starts the ContentChooser

Properties:

buttonnormalcolor As Int
Color of the unpressed Buttons
Standard: colors.white

buttonpressedcolor As Int
Color of the pressed Button
Standard: Colors.RGB(29,162,235)

cornerradius As Int
Corner radius of the Buttons

facebookappid As String
Your Facebook AppID. Needed for publishing to FaceBook.
Tutorial by NJDude: <link>http://www.b4x.com/forum/basic4android-getting-started-tutorials/17739-tutorial-post-facebook-wall-via-b4a-app.html|http://www.b4x.com/forum/basic4android-getting-started-tutorials/17739-tutorial-post-facebook-wall-via-b4a-app.html</link>
Attention: If not set, FaceBook will not be available to share with

facebookredirecturi As String
Your Facebook RedirectUri. Needed for publishing to FaceBook.
Tutorial by NJDude: <link>http://www.b4x.com/forum/basic4android-getting-started-tutorials/17739-tutorial-post-facebook-wall-via-b4a-app.html|http://www.b4x.com/forum/basic4android-getting-started-tutorials/17739-tutorial-post-facebook-wall-via-b4a-app.html</link>
Attention: If not set, FaceBook will not be available to share with

headerbackcolor As Int
BackColor of the Header
Standard: Colors.Transparent

headertext As String
HeaderText of the ContentChooser
Standard: Choose

headertextcolor As Int
TextColor of the Header
Standard: Colors.RGB(49,182,255)

headertextsize As Int
TextSize of the Header
Standard: 22

intenttype As String
IntentType, for example "text/*" for Text, "image/jpeg" for jpg, "image/png" for png etc..

linecolor As Int
Color of the Seperatorline below the Header
Standard: Colors.RGB(49,182,255)

padding As Int
Padding
Standard: 10dip

panelcolor As Int
Color of the ContentChooser Panel
Standard: Colors.white

sendingtofacebookfinishedstring As String
The String displayed as ToastMessage after Sending to Facebook succeeded
Standard: "Posted to Facebook"

sendingtofacebookstring As String
The String displayed in the ProgressDialog while sending to FaceBook
Standard: "Posting to Facebook..."

shadowcolor As Int
Color of the Background Shadow.
Use colors.rgb(x,x,x) for opaque background, colors.argb(x,x,x,x) for Transparency
Standard: Colors.ARGB(150,0,0,0)

subject As String
Subject (for E-Mail,..) set as android.intent.extra.SUBJECT

text As String
The Message. Set as android.intent.extra.TEXT

textcolor As Int
Textcolor of the Names of the displayed Packages
Standard: Colors.Black

textsize As Int
TextSize of the Names of the displayed Packages.
Standard: 14

AppButtonWidth As Int
Width of the Buttons
Standard: 160dip

AppButtonHeight As Int
Height of the Buttons
Standard: 120dip

AppIconSize As Int
Size of the Images on the Buttons
Standard: 48dip

HeaderHeight As Int
Height of the Header
Standard: 60dip

Generated with Warwounds Library reference generator
---------------
Version 0.6
New: _Finished Event added

Version 0.7
New: Long click on the App-Symbol opens the Android Application Settings for the clicked app (as the original contentchooser
Fixed: Last line of Icons was not displayed. (Thanks to derez!!)
Change: More icons are displayed at once (Height of the Buttons reduced)

Version 0.8
New:
AppButtonWidth: sets the width of the Buttons
AppButtonHeight: sets the height of the Buttons
AppIconSize: Sets width & height of the AppIcons
HeaderHeight: Sets the height of the Header
Fixed: Error handling in all Subs

Version 1.0
Beta finished
SourceCode attached

Jack Cole · Oct 1, 2013

This library is very useful. I am experiencing a problem with Facebook shares. What happens is that after tapping facebook in the chooser, the facebook login screen pops up very briefly and it immediately switches back to the chooser screen. There are no errors showing in the logs. I have tried it on two different devices, so it is not a device specific problem. Any ideas?

Fox · Oct 5, 2013

Thats the same problem here... I have tried to work with panels but without success. A solution for this problem would be great. I have an Samsung Galaxy S4 and the other devices where i have tried it was Archos 70 Tablet the next was an xperia pro and an htc desire everytime the same effect.

Creaky · Oct 9, 2013

I experience this problem on my S4 as well.
Hopefully it can be fixed as I'm really looking forward to use this lib to post stuff to Facebook!

gadgetmonster · Oct 16, 2013

Same here on Galaxy Note 3 with JB 4.3. Any news?

Creaky · Oct 21, 2013

Unfortunately there is still no reply from RiverRaid. I've tried contacting him through a conversation, but without luck.

Creaky · Oct 21, 2013

I've been looking through the source of this library and noticed that the problem is not with the library itself.

It only displays the Facebook login if all of Facebooks oAuth requirements are met.

B4X:

Private Sub Share
    If FBAccessToken = "" Then
        Dim scope As String
        scope = "publish_stream"
        FacebookPage.Visible = True
        FacebookPage.LoadUrl("https://m.facebook.com/dialog/oauth?client_id=" & mFaceBookAppID & "&redirect_uri=" & mFaceBookRedirectUri & "&scope=" & scope & "&response_type=token")                   
    Else
        PostWall
    End If
End Sub

Sub FacebookPage_PageFinished(Url As String)
    FacebookPage.Visible = False '<-- This is where the facebook login disappears
    If Url.StartsWith("http://m.facebook.com/login.php") Then
        ProgressDialogHide
        FacebookPage.Visible = True
    End If

    If Url.StartsWith(mFaceBookRedirectUri & "#access_token=") Then
        FacebookPage.Visible = False
        FBAccessToken = Url.SubString((mFaceBookRedirectUri & "#access_token=").Length)
        FBAccessToken = FBAccessToken.SubString2(0, FBAccessToken.IndexOf("&"))
        PostWall
    End If
End Sub

In my case, the URL I passed was not configured in the FB webapp settings.

To see what is going wrong in your app, try the following URL:

https://m.facebook.com/dialog/oauth...Uri>&scope=publish_stream&response_type=token

Even with this info I have not managed to succesfully post to FB because I don't have one of the following:

(translated from dutch)

Website with facebook login
App on Facebook
Native iOS-app
Native Android-app
Page-tab

It appears that this library will never open the local Facebook app through an intent or otherwise..
But perhaps somebody else could have a look at the sourcecode to verify this? (Erel?)

mhartwig · Nov 5, 2013

I get the following error:

B4X:

facebook.FaceBookAppID = \
javac 1.6.0
src\com\gasmeup\main\main.java:403: cannot find symbol
symbol  : method set_facebookappid(java.lang.String)
location: class at.ahadev.b4a.ahashare.ahashare
_facebook.set_facebookappid("***************");

Watchkido1 · May 11, 2014

I have too many icons.
How do I get away?

Sub7 · Sep 24, 2014

Bump!
When i try to use the share button for Facebook the Facebook login screen appears but then it disappear with no errors and nothing happen.
anyone has managed to make this work? i see other people had this problem.

Ty

MarcoRome · Feb 13, 2015

Hi all.
when i try example in attachment ( 1 page ) all work but if i try share this with Whatsapp i see only Text without picture.

B4X:

Share.Initialize(Me, "Share")
 'Share.FaceBookAppID = "xxxx"
 'Share.FaceBookRedirectUri = "http://www.xxxxxx.xxx/"
 
    Share.HeaderText = "Condividi XXXX: "
    File.Copy(File.DirAssets,"post2.jpg",File.DirRootExternal,"post2.jpg")
    Share.AddFile(File.DirRootExternal,"post2.jpg")
    'Share.Share("This is the Subject","This is the Text")
    Share.Share("Test AhaShare",CRLF & "Facciamo questo Test" & CRLF & _
        "**********************" & CRLF & _
        "Inviato da App Barzellette: " & CRLF & _
        https://play.google.com/store/apps/details?id=com.xxxx & CRLF & _
        http://www.xxxxx.eu)

Any idea ??
Thank you

Marco

ibra939 · Feb 14, 2015

thanks for sharing option

MarcoRome · Feb 21, 2015

Sub7 said:
Bump!
When i try to use the share button for Facebook the Facebook login screen appears but then it disappear with no errors and nothing happen.
anyone has managed to make this work? i see other people had this problem.

Ty

Yes..me too have this effect. Also i connect with FB.
If you touch again top icon FB share in fast mode you see this:

and you click "Scarica Facebook per Android e naviga più velocemente" you see this:

So i think that FB change one thing and AhaShare dont pubblish....

Kiese · Jul 9, 2015

Hi everyone. First of all, thanks for the lib. Seems promising. However I can't get it to work, even using the provided example, I get this in the logs:

** Activity (ahacontentchooser) Create, isFirst = true **
** Activity (ahacontentchooser) Create, isFirst = true **
java.lang.RuntimeException: Object should first be initialized (Activity).java.lang.Runtime
Exception: Object should first be initialized (Activity).

How could I fix this?

Kiese · Jul 9, 2015

ps: hope my english makes sense. Not always sure how to phrase things.

Kiese · Jan 30, 2016

Wow been so long that I forgot about my question. Am I the only one facing this issue or is the lib deprecated ?

juan manuel luzuriaga · Dec 6, 2016

Kiese, I have the same problem.

** Activity (main) Create, isFirst = true **
** Activity (main) Resume **
** Activity (main) Pause, UserClosed = false **
** Activity (ahacontentchooser) Create, isFirst = true **
java.lang.RuntimeException: Object should first be initialized (Activity).
** Activity (ahacontentchooser) Resume **

B4X:

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.
    Dim Share As ahaShare
    Private Button1 As Button
End Sub
Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    Activity.LoadLayout("share")
   

    File.Copy(File.DirAssets,"post2.jpg",File.DirRootExternal,"post2.jpg")
    Share.Initialize(Me, "Share")
    'Share.AddFile(File.DirRootExternal,"post2.jpg")
    'Share.Share("This is the Subject","This is the Text")
       
End Sub
Sub Share_Finished
    Activity.Title = "finished"
    File.Delete(File.DirRootExternal,"post2.jpg")
End Sub
Sub Activity_Resume

End Sub
Sub Activity_Pause (UserClosed As Boolean)

End Sub
Sub Button1_Click

    Share.AddFile(File.DirRootExternal,"post2.jpg")
    Share.Share("This is the Subject","This is the Text")
End Sub

I got the same error, form the example.

Do you find any solution?

MarcoRome · Dec 6, 2016

juan manuel luzuriaga said:
Kiese, I have the same problem.

** Activity (main) Create, isFirst = true **
** Activity (main) Resume **
** Activity (main) Pause, UserClosed = false **
** Activity (ahacontentchooser) Create, isFirst = true **
java.lang.RuntimeException: Object should first be initialized (Activity).
** Activity (ahacontentchooser) Resume **

B4X:

Sub Globals 'These global variables will be redeclared each time the activity is created. 'These variables can only be accessed from this module. Dim Share As ahaShare Private Button1 As Button End Sub Sub Activity_Create(FirstTime As Boolean) 'Do not forget to load the layout file created with the visual designer. For example: Activity.LoadLayout("share") File.Copy(File.DirAssets,"post2.jpg",File.DirRootExternal,"post2.jpg") Share.Initialize(Me, "Share") 'Share.AddFile(File.DirRootExternal,"post2.jpg") 'Share.Share("This is the Subject","This is the Text") End Sub Sub Share_Finished Activity.Title = "finished" File.Delete(File.DirRootExternal,"post2.jpg") End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub Button1_Click Share.AddFile(File.DirRootExternal,"post2.jpg") Share.Share("This is the Subject","This is the Text") End Sub

I got the same error, form the example.

Do you find any solution?

maybe if attachment example is better

juan manuel luzuriaga · Dec 6, 2016

Hi Marco, I attach the example code. That give me that error.
Best Regards

MarcoRome · Dec 6, 2016

juan manuel luzuriaga said:
Kiese, I have the same problem.

** Activity (main) Create, isFirst = true **
** Activity (main) Resume **
** Activity (main) Pause, UserClosed = false **
** Activity (ahacontentchooser) Create, isFirst = true **
java.lang.RuntimeException: Object should first be initialized (Activity).
** Activity (ahacontentchooser) Resume **

B4X:

Sub Globals 'These global variables will be redeclared each time the activity is created. 'These variables can only be accessed from this module. Dim Share As ahaShare Private Button1 As Button End Sub Sub Activity_Create(FirstTime As Boolean) 'Do not forget to load the layout file created with the visual designer. For example: Activity.LoadLayout("share") File.Copy(File.DirAssets,"post2.jpg",File.DirRootExternal,"post2.jpg") Share.Initialize(Me, "Share") 'Share.AddFile(File.DirRootExternal,"post2.jpg") 'Share.Share("This is the Subject","This is the Text") End Sub Sub Share_Finished Activity.Title = "finished" File.Delete(File.DirRootExternal,"post2.jpg") End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub Button1_Click Share.AddFile(File.DirRootExternal,"post2.jpg") Share.Share("This is the Subject","This is the Text") End Sub

I got the same error, form the example.

Do you find any solution?

I havent problem with your source.

I use B4A 6.31 + android-23

juan manuel luzuriaga · Dec 6, 2016

WOW, I try with B4A 6.30 and now 6.50 both give me the same failure. My android It is 24
OK I will try again.

Thanks you so much

B4A Library [BETA] ahaShareLibrary

Attachments

Well-Known Member

Active Member

Member

Active Member

Member

Member

Member

Active Member

Attachments

Active Member

Expert

Active Member

Expert

Member

Member

Member

Member

Expert

Member

Attachments

Expert

Member

Similar Threads

Privacy & Transparency

Privacy & Transparency