A voir également:
- Comment savoir quels sont les composants installés ?
- Diagramme de composants ✓ - Forum Delphi / Pascal
- Comment installer delphi - Forum Delphi / Pascal
- Comment installer phpmyadmin - Conseils pratiques -PHP
- Installation delphi - Forum Delphi / Pascal
- Rs composants - Forum Visual Basic
1 réponse
Salut,
je sais pas si on peut obtenir la liste des composants installés.
En tout cas voila le code que j'utilise pour savoir si un composant spécifique est installé :
<%
'*****************************************************************'
' CheckComponant
' Vérifie qu'un composant (ex: Word) est installé sur le serveur
' Entrée :
' lsComponant : nom du composant (ex: Word.application)
'
' Sortie :
' False en cas d'échec,
' True en cas de succès
'
' Principe :
' La fonction essaye de créer un objet grâce à ce composant
' S'il echoue, c'est que le composant n'est pas installé
'
'*****************************************************************'
Function CheckComponant(strClassString)
dim lb_Installed
Dim TestObj
On Error Resume Next
lb_Installed = False
Err = 0
Set TestObj = Server.CreateObject(strClassString)If 0 Err Then lb_Installed True
If lb_Installed Then
Response.Write ("True")
Else
Response.Write ("False")
End If
CheckComponant = lb_Installed
Set TestObj = Nothing
Err = 0
End Function
%>
je sais pas si on peut obtenir la liste des composants installés.
En tout cas voila le code que j'utilise pour savoir si un composant spécifique est installé :
<%
'*****************************************************************'
' CheckComponant
' Vérifie qu'un composant (ex: Word) est installé sur le serveur
' Entrée :
' lsComponant : nom du composant (ex: Word.application)
'
' Sortie :
' False en cas d'échec,
' True en cas de succès
'
' Principe :
' La fonction essaye de créer un objet grâce à ce composant
' S'il echoue, c'est que le composant n'est pas installé
'
'*****************************************************************'
Function CheckComponant(strClassString)
dim lb_Installed
Dim TestObj
On Error Resume Next
lb_Installed = False
Err = 0
Set TestObj = Server.CreateObject(strClassString)If 0 Err Then lb_Installed True
If lb_Installed Then
Response.Write ("True")
Else
Response.Write ("False")
End If
CheckComponant = lb_Installed
Set TestObj = Nothing
Err = 0
End Function
%>
