Déploiement d'applications ASP.Net

Date de publication : 07/12/2004

Par Ronald VASSEUR (autres articles)
 

Introduction

• Visual Studio .Net 2003
• .Net Framework 1.1
• MDAC 2.6 ou supérieur
• Internet Information Services 5.0 ou supérieur
• SQL Server 2000 ou MSDE

1. Création d'un répertoire virtuel

2. Déploiement avec Xcopy

Xcopy x:\inetpub\wwwroot\mon_rep_de_deploiement x:\inetpub\wwwroot\mon_rep_de_prodcution

3. Déploiement avec Visual Studio .Net

3.1. Déploiement d'une application

3.2. Intégration du MDAC

• La propriété Message :

• La propriété InstallUrl :

3.3. Intégration du Framework .Net

3.4. Modification de l'interface d'installation

3.4.1. Contrat de licence utilisateur

3.4.2. Gestion des numéros de série

• SerialNumberTemplate :

• ShowOrganization :

• ShowSerialNumber :

3.5. Modification du fichier Web.config lors de l'installation

3.5.1. Action personnalisée

3.5.2. Zone de texte dans l'interface utilisateur

• Allez sur votre Projet de déploiement
• puis Afficher
• et enfin Interface utilisateur

• Allez alors sur Début
• puis Ajouter une boite de dialogue
• et choisissez Zone de texte A

3.5.3. Classe de programme d'installation :

Classe d'installation
Public Overrides Sub Install(ByVal stateSaver As System.Collections.IDictionary)

        MyBase.Install(stateSaver)
        ' Récupère les paramètres grâce à l'action personnalisée.
        Dim txtServer As String = Me.Context.Parameters.Item("Serveur")
        Dim txtUser As String = Me.Context.Parameters.Item("Login")
        Dim txtPassword As String = Me.Context.Parameters.Item("Password")


        'Récupère le chemin de l'assembly
        Dim Asm As System.Reflection.Assembly = System.Reflection.Assembly.GetExecutingAssembly
        Dim chemin As String

        'Petit bricolage pour localiser le fichier Web.config qui ne se trouve pas au même endroit que l'assembly
        chemin = Asm.Location.Substring(0, Asm.Location.Length - Asm.GetName.Name.Length - 8) + "\Web.config"

        Dim FileInfo As System.IO.FileInfo = New System.IO.FileInfo(chemin)
        If Not FileInfo.Exists Then
            Throw New InstallException("Impossible de trouver le fichier de configuration !")
        End If

        ' Chargement du fichier de configuration.
        Dim XmlDocument As New System.Xml.XmlDocument
        XmlDocument.Load(FileInfo.FullName)

        ' Localise les noeuds cherchés et modifie les valeurs
        Dim Node As System.Xml.XmlNode
        Dim FoundServer As Boolean = False
        Dim FoundUser As Boolean = False
        Dim FoundPassword As Boolean = False

        For Each Node In XmlDocument.Item("configuration").Item("appSettings")
            If Node.Name = "add" Then    

                If Node.Attributes.GetNamedItem("key").Value = "ServerName" Then
                    Node.Attributes.GetNamedItem("value").Value = txtServer
                    FoundServer = True
                End If

                If Node.Attributes.GetNamedItem("key").Value = "UserSQL" Then
                    Node.Attributes.GetNamedItem("value").Value = txtUser
                    FoundUser = True
                End If

                If Node.Attributes.GetNamedItem("key").Value = "PasswordSQL" Then
                    Node.Attributes.GetNamedItem("value").Value = txtPassword
                    FoundPassword = True
                End If

            End If
        Next Node

        If Not FoundServer Then
            Throw New InstallException("Impossible de trouver la clé ServerName")
        End If

        If Not FoundUser Then
            Throw New InstallException("Impossible de trouver la clé UserSQL")
        End If

        If Not FoundPassword Then
            Throw New InstallException("Impossible de trouver la clé PasswordSQL")
        End If

        'Ecriture du fichier Web.config modifié
        XmlDocument.Save(FileInfo.FullName)


    End Sub

Attention : il faut avoir un certain nombre d'Imports dans cette classe, en voilà la liste:

Imports de la classe
Imports System.IO
Imports System.Data.SqlClient
Imports System.Reflection
Imports System.ComponentModel
Imports System.Configuration.Install

Extrait du fichier Web.config
…
<appSettings>
  <!--  Base de données -->
        <add key="ServerName" value="" />
        <add key="UserSQL" value="" />
        <add key="PasswordSQL" value="" />
        
</appSettings>
…

3.6. Création d'une base de données lors de l'installation

Remarque : nous sommes ici dans une situation simple, dans "la vraie vie", le compte utilisé par l'application (stocké dans le fichier de configuration) n'a pas, pour des raisons évidentes de sécurité, les droits suffisants pour créer une base. Pour contourner cela, il faudra ajouter un écran de plus à notre installation pour demander à l'utilisateur de saisir un compte (login + password), ayant les autorisations adéquates. Mais cela ne nous concerne pas ici.

• Un script SQL pour la création de la base de données.
• Quelques lignes de code dans la classe d'installation pour exécuter le script SQL.

Exemple de script SQL
CREATE TABLE [dbo].[testDVPdeploy] (
	[idclient] [varchar] (20) COLLATE French_CI_AS NOT NULL ,
	[idsession] [varchar] (50) COLLATE French_CI_AS NOT NULL ,
	[familleclient] [varchar] (20) COLLATE French_CI_AS NOT NULL ,
	[refarticle] [varchar] (20) COLLATE French_CI_AS NOT NULL ,
	[prixht] [float] NOT NULL ,
	[quantite] [int] NOT NULL ,
	[valide] [varchar] (15) COLLATE French_CI_AS NOT NULL ,
	[datecommande] [datetime] NOT NULL ,
	[prixqteht] [float] NULL ,
	[produit] [varchar] (50) COLLATE French_CI_AS NULL 
) ON [PRIMARY];

• Cliquez avec le bouton droit sur votre projet de déploiement
• Cliquez sur Ajouter, puis sur Fichier
• Sélectionnez votre fichier puis cliquez sur Ouvrir

Remarque : rien ne vous empêche d'ajouter, en tout dernier, quelques lignes de codes pour effacer ce fichier, si vous ne voulez pas laisser le script de création à la vue de l'utilisateur. Mais bon, cela n'est utile que pour les paranoïaques, et encore… :)

Code de création de la base de données
Protected Sub CreationBase(ByVal nomBase As String)

        Try
            'Création de la base de données
            ExecuteSql("master", "CREATE DATABASE " & nomBase)

            'Exécution du script de création des tables
            ExecuteSql(nomBase, RequeteSQL("sql.txt"))

            'Gestion des exceptions
        Catch ex As Exception

            MsgBox("Une exception à été levée : " & ex.Message)
            Throw ex

        End Try

    End Sub

    Private Function RequeteSQL(ByVal Name As String) As String

        Try

            'Récupère l'assembly de l'application
            Dim Asm As System.Reflection.Assembly = System.Reflection.Assembly.GetExecutingAssembly

            'Récupère le chemin du fichier contenant le script SQL
            Dim chemin As String = Asm.Location.Substring(0, Asm.Location.Length - Asm.GetName.Name.Length - 8) + "\maBase.sql"

            Dim monReader As StreamReader = New StreamReader(chemin)

            'Lecture du fichier SQL
            Return monReader.ReadToEnd()

        Catch ex As Exception

            MsgBox("In GetSQL: " & ex.Message)
            Throw ex

        End Try

    End Function

    Private Sub ExecuteSql(ByVal DatabaseName As String, ByVal Sql As String)

        'Récupération des informations saisies par l'utilisateur
        Dim UserDB As String = Me.Context.Parameters.Item("UserSQL")
        Dim PasswordDB As String = Me.Context.Parameters.Item("PasswordSQL")
        Dim ServerDB As String = Me.Context.Parameters.Item("ServerName")

        'Concaténation des identifiants dans la chaine de connexion
        Dim chaine As String = "packet size=4096;user id=" & UserDB & ";data source=" & ServerDB & 
		                  ";persist security info=True;initial catalog=master;password=" & PasswordDB & ""
        Dim SqlConnection1 = New System.Data.SqlClient.SqlConnection
        SqlConnection1.ConnectionString = chaine


        Dim Command As New SqlClient.SqlCommand(Sql, SqlConnection1)

        Command.Connection.Open()
        Command.Connection.ChangeDatabase(DatabaseName)

        Try
            'Execution de la requete (script SQL de création)
            Command.ExecuteNonQuery()

        Finally

            'Fermeture de la connexion
            Command.Connection.Close()

        End Try

    End Sub

Conclusion

Ressources

• Visual Studio .Net :  en savoir plus
• Installation d'administration :  lien MSDN
• Algorithme du numéro de série :  lien MSDN
• Les actions personnalisées :  lien MSDN