如何将Facebook iFrame-App加载到个人资料页上的应用程序选项卡中

Question

我如何加载一个工作的iframe应用程序(通过http://apps.facebook.com/my-app-name测试)到我自己的粉丝页面的个人资料页上的应用程序选项卡中。我拿到帐单了，但帐单上什么也没看到。第一次调用标签时，我得到了几个错误。但现在我什么也看不到。在some代码中包含了一些css定义。

我读到，个人资料选项卡只能使用FBML。是这样的吗？如果为true，如何将带有FBML的iframe应用程序加载到配置文件选项卡中？

提前谢谢。

马可

Answer 1

要将应用程序添加到选项卡，你需要确保在应用程序设置中填写选项卡URL。你可以将它指向你的应用程序，如果它适合520px，或者为这个宽度创建一个自定义的UI。

完成此操作后，请转到应用程序的个人资料页面：https://www.facebook.com/apps/application.php?id=YOUR_APP_ID

然后在底部角落点击“添加到我的页面”，选择一个页面，你就完成了。

Answer 2

正如前面的帖子所述，在标签设置中添加URL，然后将标签添加到页面。

当您的应用程序选项卡加载时，您将从常规画布页面获得一组不同的值。下面是一些粗略的VB.NET代码，您可以使用它们来解决这个问题。

Public Class TabSignedRequest
    Public user
    '"user":{"country":"us","locale":"en_US","age":{"min":21}}
    Public algorithm
    '"algorithm":"HMAC-SHA256"
    Public issued_at
    '"issued_at":1302500880
    Public user_id
    '"user_id":"148.....47"
    Public oauth_token
    '"oauth_token":"1230................acUfvg"
    Public expires
    '"expires":1302505200
    Public app_data
    Public page As pageObject
    '"page":{"id":"22.........40","liked":true,"admin":true}
    Public profile_id


    Public Shared Function getRequest(ByVal sr As String) As TabSignedRequest
        sr = Replace(sr, "-", "+")
        sr = Replace(sr, "_", "/")
        Dim sig As String
        Dim requestStr As String
        Dim s = Split(sr, ".")
        Try
            sig = iTeam.Common.FromBase64(s(0))
        Catch ex As Exception
        End Try
        requestStr = iTeam.Common.FromBase64(s(1))
        Dim o = Newtonsoft.Json.JsonConvert.DeserializeAnonymousType(Of iTeam.Facebook.TabSignedRequest)(requestStr, New iTeam.Facebook.TabSignedRequest())
        Return o
    End Function
End Class 
Public Shared Function FromBase64(ByVal base64 As String) As String
    If base64 Is Nothing Then Throw New ArgumentNullException("base64")

    Do Until isMult4(base64.Length)
        base64 = base64 & "="
    Loop

    Dim b() As Byte
    b = Convert.FromBase64String(base64)
    Return System.Text.Encoding.UTF8.GetString(b)
End Function
Public Shared Function isMult4(ByVal n As Integer) As Boolean
    Dim r As Integer
    Math.DivRem(n, 4, r)

    Return (r = 0)

End Function

Answer 3

配置文件选项卡当然可以使用iFrame。

步骤：

1. 转到工作中的iFrame应用程序(您要添加的应用程序)。
2. 单击左侧菜单上的“添加到我的页面”。
3. 选择您的粉丝页面。
4. 您已基本完成。