Facebook SDK Wrapper + Native Facebook LoginButton

[Periklis Koutsogiannis]

You have to put the google-play-services.jar in your b4a lib folder or in your additional lib folder

 

[Douglas Farias]

nop
only here
#AdditionalRes: C:\Program Files (x86)\Android\android-sdk\extras\google\google_play_services\libproject\google-play-services_lib\res, com.google.android.gms

 

[Periklis Koutsogiannis]

You have to put the google-play-services.jar in your b4a lib folder or in your additional lib folder

The error means that it can not find a component from that jar.

Goto

C:\Program Files (x86)\Android\android-sdk\extras\google\google_play_services\libproject\google-play-services_lib\libs

and copy the google-play-services.jar in your b4a lib folder or in your additional lib folder

 

[Douglas Farias]

aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa *-* done *-*

thx man now works *-*

 

[Periklis Koutsogiannis]

Yay!

 

[Periklis Koutsogiannis]

New version available!

From now on, all updates will posted in the unified SocialApi thread below.

SocialApi 2.3
http://www.b4x.com/android/fo...ocial-connect-using-multiple-providers.42532/

 

[Douglas Farias]

hi @Periklis Koutsogiannis
man how can i post in another activity?
i m using common = your sample 1

on my main i have this
Dim ThisActivity As SocialApiActivity
and this on resume
Common.FB.SetActivity(ThisActivity.GetWithEvent("facebook_statuschanged_event"))


on my activity 2 with name telaprincipal i have
Dim ThisActivity As SocialApiActivity

on resume this
Common.FB.SetActivity(ThisActivity.GetWithEvent("facebook2_statuschanged_event"))


and this
Dim Result As FacebookResult = Common.FB.PublishPost("Confira o aplicativo que distribui dinheiro pela cidade. Lançamento em BREVE!!!","http://www.vallow.com.br/achouganhou/", "http://www.vallow.com.br/achouganhou/compartilhar.png" ,"Achou Ganhou", "www.vallow.com.br/achouganhou", "O aplicativo que distribui dinheiro pela cidade confira!")
If Result.Canceled Then Return

If Result.Success Then
updatecompartilhou
Else
Msgbox("ERRO AQUI", "TESTE")
End If

I TESTED ON MOTO G AND WORKS FINE I CAN POST
AND I CAN SEE on the facebook my post

i have problem with s3

with s3 i have

Msgbox("ERRO AQUI", "TESTE")

u know why?

 

[Periklis Koutsogiannis]

It must be the lack of publish permissions. The Result.Message has the error message. What does it contain?

If Result.Success Then
    ...
Else
   Log(Result.Message) 'It contains the error message 
End If

 

[Douglas Farias]

here only on s3 moto g is normal

 

[Periklis Koutsogiannis]

Have you requested publish permissions on S3?

 

[Periklis Koutsogiannis]

In order to post, you have to ask for publish permissions first.

Facebook.RequestPublishPermissions

 

[Douglas Farias]

nops i need this ? on my moto g dont need *-*

 

[Douglas Farias]

In order to post, you have to ask for publish permissions first.

Code:
Facebook.RequestPublishPermissions

ok thx man i go try

 

[Periklis Koutsogiannis]

Yes you do. This is by facebook design. You certainly asked for publish permission on Moto G and you don't remember

 

[Douglas Farias]

aa my s3 have no batery =(
but is this?

    Common.fb.RequestPublishPermissions
        Dim Result As FacebookResult = Common.FB.PublishPost("Confira o aplicativo que distribui dinheiro pela cidade. Lançamento em BREVE!!!","http://www.vallow.com.br/achouganhou/", "http://www.vallow.com.br/achouganhou/compartilhar.png" ,"Achou Ganhou", "www.vallow.com.br/achouganhou", "O aplicativo que distribui dinheiro pela cidade confira!")
        If Result.Canceled Then Return

        If Result.Success Then
            updatecompartilhou
        Else
            Msgbox("Erro ao compartilhar tente novamente!", "Achou Ganhou")
        End If

 

[Periklis Koutsogiannis]

After the users has logged in, ask for permissions in the facebook_statuschanged_event

Sub facebook_statuschanged_event

    If Common.fb.JustConnected AND Not(Common.fb.Failed) Then

        'Check if publish permissions already granted
        Dim HasPublishPermission As Boolean = False

        For i = 0 To Common.fb.Permissions.Length-1
            If Common.fb.Permissions(i) = Common.fb.Constants.Permissions.PUBLISH_ACTIONS Then
                HasPublishPermission = True
                Exit
            End If
        Next

        If Not(HasPublishPermission) Then
            CallSubDelayed(Me, "AskForPermissions")
        End If
    End If
End Sub

Sub AskForPermissions
    Common.fb.RequestPublishPermissions
End Sub

 

[Periklis Koutsogiannis]

Or do a quick and dirty job. If the post failed ask for permissions

Dim Result As FacebookResult = Common.FB.PublishPost("Confira o aplicativo que distribui dinheiro pela cidade. Lançamento em BREVE!!!","http://www.vallow.com.br/achouganhou/", "http://www.vallow.com.br/achouganhou/compartilhar.png" ,"Achou Ganhou", "www.vallow.com.br/achouganhou", "O aplicativo que distribui dinheiro pela cidade confira!")
If Result.Canceled Then Return

If Result.Success Then
    updatecompartilhou
Else
    Common.fb.RequestPublishPermissions
End If

 

[Periklis Koutsogiannis]

The first method will ask the user to grant permissions when connected.

The second one will ask when posting has failed.

 

[Periklis Koutsogiannis]

The latest socialapi (2.31) has a FacebookProvider.HasPermission method.

So you can do before posting:

Dim Result As FacebookResult = Common.fb.PublishPost("Confira o aplicativo que distribui dinheiro pela cidade. Lançamento em BREVE!!!","http://www.vallow.com.br/achouganhou/", "http://www.vallow.com.br/achouganhou/compartilhar.png" ,"Achou Ganhou", "www.vallow.com.br/achouganhou", "O aplicativo que distribui dinheiro pela cidade confira!")
If Result.Canceled Then Return

If Result.Success Then
    updatecompartilhou
Else
    If Common.fb.HasPermission(Common.fb.Constants.Permissions.PUBLISH_ACTIONS) Then
        Common.fb.RequestPublishPermissions
    Else
        Msgbox("Erro ao compartilhar tente novamente!", "Achou Ganhou")
    End If
End If

 

[Douglas Farias]

realy this dont work xD

Common.fb.RequestPublishPermissions
        Dim Result As FacebookResult = Common.FB.PublishPost("Confira o aplicativo que distribui dinheiro pela cidade. Lançamento em BREVE!!!","http://www.vallow.com.br/achouganhou/", "http://www.vallow.com.br/achouganhou/compartilhar.png" ,"Achou Ganhou", "www.vallow.com.br/achouganhou", "O aplicativo que distribui dinheiro pela cidade confira!")
        If Result.Canceled Then Return

        If Result.Success Then
            updatecompartilhou
        Else
            Msgbox("Erro ao compartilhar tente novamente!", "Achou Ganhou")
        End If

i go try your 2°