I have a simple app, written about a month ago, to test posting to facebook timeline. I used the guidelines
stated here (http://www.b4x.com/android/forum/threads/facebook.39945/) as per NJDude.
It works OK.
Now I want to add a new fb app. Again, simple, just post a message.
I used the same code below, changing the AppID & AppSecret only.
Now the I get an error msg that the facebook app does NOT allow this opertation. (sub myFB_Facebook_ErrorMessages(Message As String) )
Same fb permissions were used.
Did facebook changed the requirements for posting to timeline?
The code below is an activity called from the main activity (callsubdelayed to sub "PostNow")
PostNow will login if user is not logged in to fb
If user is logged in - will post the message
stated here (http://www.b4x.com/android/forum/threads/facebook.39945/) as per NJDude.
It works OK.
Now I want to add a new fb app. Again, simple, just post a message.
I used the same code below, changing the AppID & AppSecret only.
Now the I get an error msg that the facebook app does NOT allow this opertation. (sub myFB_Facebook_ErrorMessages(Message As String) )
Same fb permissions were used.
Did facebook changed the requirements for posting to timeline?
The code below is an activity called from the main activity (callsubdelayed to sub "PostNow")
PostNow will login if user is not logged in to fb
If user is logged in - will post the message
B4X:
Sub Globals
Private fb As Facebook
Private AppID As String = "123451234512345..."
Private AppSecret As String = "abcdefgabcdefg..."
Private myWebsite As String = "http://www......"
End Sub
Sub Activity_Create(FirstTime As Boolean)
fb.Initialize(Activity, Me, "myFB", AppID, AppSecret, myWebsite)
End Sub
Sub PostNow
If fb.IsUserLoggedIn Then
fb.PostToTimeline("me", "some message","http://.............")
Else
Do_Login
End If
End Sub
Sub Do_Login
Dim ListOfPermissions As List
ListOfPermissions.Initialize
ListOfPermissions.AddAll(Array As String(fb.PERMISSION_PUBLISH_STREAM, fb.PERMISSION_PUBLISH_ACTIONS))
fb.LoginWithPermissions(ListOfPermissions)
End Sub
Sub myFB_Login_Response(Success As Boolean)
If Success Then
fb.HideFacebookScreen
PostNow
End If
End Sub
Sub myFB_Facebook_ErrorMessages(Message As String)
Try
Msgbox2(Message, "Facebook Error", "Close-Bad", "", "", Null)
Catch
' Whoops
Log("try was catched")
End Try
End Sub