Настраиваемый поставщик профилей с использованием CMS API

Я создал собственный поставщик профилей, который интегрирован с API CMS. Работает нормально при извлечении данных для аутентифицированного пользователя (Profile.FirstName), но ошибки при создании профиля нового пользователя.

Вот раздел из web.config

<profile enabled="true" defaultProvider="CustomProfileProvider" inherits="objProfile">
  <providers>
    <clear />
    <add name="CustomProfileProvider" type="CustomProfileProvider" />
  </providers>
</profile>

Вот класс objProfile

Public Class objProfile
    Inherits ProfileBase

    Public Property FirstName() As String
        Get
            Return Me.GetPropertyValue("FirstName")
        End Get
        Set(ByVal value As String)
            Me.SetPropertyValue("FirstName", value)
        End Set
    End Property

    Public Property LastName() As String
        Get
            Return Me.GetPropertyValue("LastName")
        End Get
        Set(ByVal value As String)
            Me.SetPropertyValue("LastName", value)
        End Set
    End Property

    Public Property Email() As String
        Get
            Return Me.GetPropertyValue("Email")
        End Get
        Set(ByVal value As String)
            Me.SetPropertyValue("Email", value)
        End Set
    End Property

    Public Property Address1() As String
        Get
            Return Me.GetPropertyValue("Address1")
        End Get
        Set(ByVal value As String)
            Me.SetPropertyValue("Address1", value)
        End Set
    End Property

    ...

    Public Property MailList() As Boolean
        Get
            Return Me.GetPropertyValue("Mailing List")
        End Get
        Set(ByVal value As Boolean)
            Me.SetPropertyValue("Mailing List", value)
        End Set
    End Property

End Class

Вот пользовательский ProfileProvider. Единственная функция, которая реализована прямо сейчас, это GetPropertyValues потому что это единственный, который используется при переходе к отладчику. Я буду реализовывать другие, как они мне нужны.

Public Class CustomProfileProvider
    Inherits ProfileProvider

    Public Overrides Property ApplicationName() As String
        Get
            Return ConfigurationManager.AppSettings("ApplicationName")
        End Get
        Set(ByVal value As String)
            Return
        End Set
    End Property

    Public Overrides Sub Initialize(ByVal name As String, ByVal config As System.Collections.Specialized.NameValueCollection)
        MyBase.Initialize(name, config)
    End Sub

    Public Overrides Function DeleteInactiveProfiles(ByVal authenticationOption As System.Web.Profile.ProfileAuthenticationOption, ByVal userInactiveSinceDate As Date) As Integer

    End Function

    Public Overloads Overrides Function DeleteProfiles(ByVal usernames() As String) As Integer

    End Function

    Public Overloads Overrides Function DeleteProfiles(ByVal profiles As System.Web.Profile.ProfileInfoCollection) As Integer

    End Function

    Public Overrides Function FindInactiveProfilesByUserName(ByVal authenticationOption As System.Web.Profile.ProfileAuthenticationOption, ByVal usernameToMatch As String, ByVal userInactiveSinceDate As Date, ByVal pageIndex As Integer, ByVal pageSize As Integer, ByRef totalRecords As Integer) As System.Web.Profile.ProfileInfoCollection

    End Function

    Public Overrides Function FindProfilesByUserName(ByVal authenticationOption As System.Web.Profile.ProfileAuthenticationOption, ByVal usernameToMatch As String, ByVal pageIndex As Integer, ByVal pageSize As Integer, ByRef totalRecords As Integer) As System.Web.Profile.ProfileInfoCollection

    End Function

    Public Overrides Function GetAllInactiveProfiles(ByVal authenticationOption As System.Web.Profile.ProfileAuthenticationOption, ByVal userInactiveSinceDate As Date, ByVal pageIndex As Integer, ByVal pageSize As Integer, ByRef totalRecords As Integer) As System.Web.Profile.ProfileInfoCollection

    End Function

    Public Overrides Function GetAllProfiles(ByVal authenticationOption As System.Web.Profile.ProfileAuthenticationOption, ByVal pageIndex As Integer, ByVal pageSize As Integer, ByRef totalRecords As Integer) As System.Web.Profile.ProfileInfoCollection

    End Function

    Public Overrides Function GetNumberOfInactiveProfiles(ByVal authenticationOption As System.Web.Profile.ProfileAuthenticationOption, ByVal userInactiveSinceDate As Date) As Integer

    End Function

    Public Overrides Function GetPropertyValues(ByVal cotext As System.Configuration.SettingsContext, ByVal collection As System.Configuration.SettingsPropertyCollection) As System.Configuration.SettingsPropertyValueCollection
        Dim PropertyValueCollection As New System.Configuration.SettingsPropertyValueCollection
        ... (get user properties from cms and put into PropertyValueCollection) ...
        'return the PropertyValueCollection
        Return PropertyValueCollection
    End Function

    Public Overrides Sub SetPropertyValues(ByVal context As System.Configuration.SettingsContext, ByVal collection As System.Configuration.SettingsPropertyValueCollection)

    End Sub

End Class

На странице с зарегистрированным пользователем Profile.FirstName работает отлично. Но когда я создаю нового пользователя, а затем использую objProfile.Create(UserName) чтобы создать профиль, все свойства имеют ошибку вроде The settings property 'Mailing List' was not found.

1 ответ

Решение

Я нашел проблему. Я болел всю прошлую неделю, поэтому я виноват в этом.

При получении профиля в GetPropertyValues функция, я использовал HttpContext.Current вместо context параметр, который передается в.

Public Overrides Function GetPropertyValues(ByVal context As System.Configuration.SettingsContext, ByVal collection As System.Configuration.SettingsPropertyCollection) As System.Configuration.SettingsPropertyValueCollection
    Dim PropertyValueCollection As New System.Configuration.SettingsPropertyValueCollection

    'get username from parameter, context.Item("UserName"), not HttpContext.Current.User.Identity.Name.ToString()

    ...get user properties from CMS and put into PropertyValueCollection...

    'return the PropertyValueCollection
    Return PropertyValueCollection
End Function
Другие вопросы по тегам