Procedimiento para registrar y restablecer las opciones de configuración de InfoPath Forms Services
Última modificación: martes, 30 de marzo de 2010
Hace referencia a: SharePoint Server 2010
Para los propósitos de esta tarea, se usa la clase FormsService y los miembros asociados para establecer los valores predeterminados de la mayoría de los elementos de la página Configurar InfoPath Forms Services, que encontrará en la página Configuración de aplicación general del sitio Administración central de SharePoint 2010.
El formulario que va a crear para este proyecto contiene un botón y un cuadro de texto enriquecido. Cuando se ejecuta, el cuadro de texto enriquecido se rellena con el nombre del miembro de la clase usado para establecer una propiedad de configuración y con los valores antiguos y nuevos de cada miembro.
Nota
En este tema se da por hecho que Visual Studio está instalado en el servidor front-end web o de conjunto o granja de servidores único que ejecuta InfoPath Forms Services.
Para configurar el proyecto
Cree un nuevo proyecto Aplicación de Windows Forms de Visual Basic en Microsoft Visual Studio.
En el menú Proyecto, haga clic en Agregar referencia.
En la ficha .NET del cuadro de diálogo Agregar referencia, seleccione Microsoft SharePoint Foundation y, a continuación, haga clic en Aceptar. (Si Microsoft SharePoint Foundation no está disponible en la ficha .NET, en la ficha Examinar, vaya a C:\Program Files\Common Files\Microsoft Shared\Web Server Extensions\14\ISAPI\, seleccione el ensamblado Microsoft.SharePoint.dll y, a continuación y, a continuación, haga clic en Aceptar).
En el menú Proyecto, vuelva a hacer clic en Agregar referencia.
En la ficha Examinar del cuadro de diálogo Agregar referencia, desplácese hasta C:\Program Files\Microsoft Office Servers\14.0\Bin\, seleccione el ensamblado Microsoft.Office.InfoPath.Server.dll y haga clic en Aceptar.
Para agregar controles y código al formulario
Agregue los controles siguientes al formulario. Dichos controles se encuentran en la categoría Todos los formularios Windows Forms de la Caja de herramientas de Visual Studio:
Un control Button
Un control RichTextBox
Cambie el nombre del botón a "Mostrar una lista de valores de configuración y restablecerlos"; para ello, cambie la propiedad Texto del botón en Ventana Propiedades.
Cambie la posición y el tamaño del formulario y los controles hasta que todo el texto se pueda ver en el botón y el control RichTextBox llene la mayor parte del formulario.
En el menú Ver, haga clic en Código.
Pegue el siguiente código en la ventana de código, en sustitución de todo el código existente.
Haga clic en Form1.vb [Diseño] en el menú Ventana.
En la ventana Propiedades, haga clic en la lista desplegable y, a continuación, seleccione Button1.
En la ventana Propiedades, haga clic en el botón Eventos, que normalmente es el cuarto botón de la izquierda en la fila de botones situada debajo de la lista desplegable.
En la sección Acción, haga clic en la lista desplegable del evento Click y, a continuación, seleccione Button1_Click.
En el menú Archivo, haga clic en Guardar todo.
Presione F5 para ejecutar la aplicación.
Ejemplo
Los procedimientos descritos anteriormente en esta sección permiten crear una nueva aplicación de Windows Forms de Visual Basic que usa el siguiente ejemplo de código para registrar y restablecer los valores de configuración de 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