Procédure : Consigner et réinitialiser les paramètres de configuration d’InfoPath Forms Services

Article
09/18/2014

Dernière modification : mardi 30 mars 2010

S’applique à : SharePoint Server 2010

Pour les besoins de cette tâche, la classe FormsService et les membres associés sont utilisés pour définir les valeurs par défaut de la plupart des éléments de la page Configurer InfoPath Forms Services, qui est disponible dans la page Paramètres généraux de l’application du site Administration centrale de SharePoint 2010.

Le formulaire que vous créez pour ce projet contient un bouton et une zone de texte enrichi. Lors de son exécution, cette dernière est renseignée avec le nom du membre de classe utilisé pour définir une propriété de configuration, ainsi que l’ancienne et la nouvelle valeur de chaque membre.

Notes

Cette rubrique suppose que Microsoft Visual Studio est installé sur le client Web frontal (WFE) ou sur un seul serveur de batterie exécutant InfoPath Forms Services.

Pour configurer le projet

Créez un projet Application Windows Forms Visual Basic dans Microsoft Visual Studio.
Dans le menu Projet, cliquez sur Ajouter une référence.
Sous l’onglet .NET de la boîte de dialogue Ajouter une référence, sélectionnez Microsoft SharePoint Foundation, puis cliquez sur OK. (Si Microsoft SharePoint Foundation n’est pas disponible sous l’onglet .NET, sous l’onglet Parcourir, accédez au dossier C:\Program Files\Common Files\Microsoft Shared\Web Server Extensions\14\ISAPI\, sélectionnez l’assembly Microsoft.SharePoint.dll, puis cliquez sur OK.
Dans le menu Projet, cliquez une nouvelle fois sur Ajouter une référence.
Sous l’onglet Parcourir de la boîte de dialogue Ajouter une référence, naviguez jusqu’à C:\Program Files\Microsoft Office Servers\14.0\Bin\, sélectionnez l’assembly Microsoft.Office.InfoPath.Server.dll et cliquez sur OK.

Pour ajouter des contrôles et du code au formulaire

Ajoutez les contrôles suivants au formulaire. Ils apparaissent dans la catégorie Tous les Windows Forms de la boîte à outils Visual Studio :
- Un contrôle Button
- Un contrôle RichTextBox
Renommez le bouton « Répertorier et réinitialiser les paramètres de configuration » en modifiant la propriété Texte du bouton dans la fenêtre Propriétés.
Repositionnez et redimensionnez le formulaire et les contrôles jusqu'à ce que tout le texte apparaisse sur le bouton et que le contrôle RichTextBox occupe la plus grande partie du formulaire.
Dans le menu Affichage, cliquez sur Code.
Collez le code ci-dessous dans la fenêtre de code, en remplaçant tout le code existant.
Cliquez sur Form1.vb [Design] dans le menu Fenêtre.
Dans la fenêtre Propriétés, cliquez sur la zone de liste déroulante et sélectionnez Button1.
Dans la fenêtre Propriétés, cliquez sur le bouton Événements, qui est généralement le quatrième bouton en partant de la gauche dans la ligne de boutons située sous la zone de liste déroulante.
Dans le menu Action, cliquez sur le menu déroulant de l’événement Click et sélectionnez Button1_Click.
Dans le menu Fichier, cliquez sur Enregistrer tout.
Appuyez sur F5 pour exécuter l'application.

Exemple

Appliquez la procédure présentée ci-dessus pour créer une application Windows Forms Visual Basic qui utilise cet exemple de code pour consigner et réinitialiser les paramètres de configuration d’InfoPath Forms Services.

Imports Microsoft.SharePoint.Administration
Imports Microsoft.Office.InfoPath.Server.Administration

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim LocalFormsService As FormsService
        Dim LocalFarm As SPFarm = SPFarm.Local
        Dim StrLog As String = ""

        Try
            LocalFormsService = LocalFarm.Services.GetValue(Of FormsService)(FormsService.ServiceName)
            'Build a string with the old a new value of each property
            With LocalFormsService
                StrLog = StrLog + "ActiveSessionsTimeout changed from " + _
                .ActiveSessionsTimeout.ToString() + " to 1440." + Environment.NewLine
                .ActiveSessionsTimeout = 1440

                StrLog = StrLog + "AllowEmbeddedSqlForDataConnections changed from " + _
                .AllowEmbeddedSqlForDataConnections.ToString() + " to False." + Environment.NewLine
                .AllowEmbeddedSqlForDataConnections = False

                StrLog = StrLog + "AllowUdcAuthenticationForDataConnections changed from " + _
                .AllowUdcAuthenticationForDataConnections.ToString() + " to False." + Environment.NewLine
                .AllowUdcAuthenticationForDataConnections = False

                StrLog = StrLog + "AllowUserFormBrowserEnabling changed from " + _
                .AllowUserFormBrowserEnabling.ToString() + " to True." + Environment.NewLine
                .AllowUserFormBrowserEnabling = True

                StrLog = StrLog + "AllowUserFormBrowserRendering changed from " + _
                .AllowUserFormBrowserRendering.ToString() + " to True." + Environment.NewLine
                .AllowUserFormBrowserRendering = True

                StrLog = StrLog + "AllowUserFormCrossDomainDataConnections changed from " + _
                .AllowUserFormCrossDomainDataConnections.ToString() + " to False." + Environment.NewLine
                .AllowUserFormCrossDomainDataConnections = False

                StrLog = StrLog + "AllowViewState changed from " + _
                .AllowViewState.ToString() + " to False." + Environment.NewLine
                .AllowViewState = False

                StrLog = StrLog + "DefaultDataConnectionTimeout changed from " + _
                .DefaultDataConnectionTimeout.ToString() + " to 10000." + Environment.NewLine
                .DefaultDataConnectionTimeout = 10000

                StrLog = StrLog + "MaxDataConnectionResponseSize changed from " + _
                .MaxDataConnectionResponseSize.ToString() + " to 1500." + Environment.NewLine
                .MaxDataConnectionResponseSize = 1500

                StrLog = StrLog + "MaxDataConnectionTimeout changed from " + _
                .MaxDataConnectionTimeout.ToString() + " to 20000." + Environment.NewLine
                .MaxDataConnectionTimeout = 20000

                StrLog = StrLog + "MaxPostbacksPerSession changed from " + _
                .MaxPostbacksPerSession.ToString() + " to 75." + Environment.NewLine
                .MaxPostbacksPerSession = 75

                StrLog = StrLog + "MaxSizeOfFormSessionState changed from " + _
                .MaxSizeOfFormSessionState.ToString() + " to 4194304." + Environment.NewLine
                .MaxSizeOfFormSessionState = 4194304

                StrLog = StrLog + "MaxUserActionsPerPostback changed from " + _
                .MaxUserActionsPerPostback.ToString() + " to 200." + Environment.NewLine
                .MaxUserActionsPerPostback = 200

                StrLog = StrLog + "RequireSslForDataConnections changed from " + _
                .RequireSslForDataConnections.ToString() + " to False." + Environment.NewLine
                .RequireSslForDataConnections = False

                StrLog = StrLog + "ViewStateThreshold changed from " + _
                .ViewStateThreshold.ToString() + " to 40960." + Environment.NewLine
                .ViewStateThreshold = 40960
            End With
            'Populate the rich text box with the log
            RichTextBox1.Text = StrLog
        Catch ex As Exception
            MessageBox.Show("An error has occurred: " + ex.Message.ToString())
        End Try

    End Sub
End Class

Voir aussi

Autres ressources

Développement d’applications Windows pour effectuer des tâches d’administration InfoPath Forms Services

Partager via