Connexion

Select the product you need help with

Comment faire pour impl�menter IObjectSafety dans des contr�les Visual Basic

Num�ro d'article: 182598 - Voir les produits auxquels s'applique cet article

ATTENTION : Cet article est issu du syst�me de traduction automatique

Cliquez ici si vous souhaitez afficher en c�te � c�te l?article anglais et sa traduction automatique en fran�ais

Agrandir tout | R�duire tout

R�sum�

Cet article explique comment impl�menter l'interface IObjectSafety dans des contr�les de Visual Basic pour marquer les contr�les fiable pour l'�criture de scripts et d'initialisation. Par d�faut, les contr�les Visual Basic utilisent des entr�es de cat�gorie de composant dans le Registre pour marquer le contr�le fiable pour l'�criture de scripts et d'initialisation. En impl�mentant l'interface IObjectSafety est la m�thode recommand�e. Cet article contient tout le code est requis pour impl�menter cette interface dans les contr�les Visual Basic.

Gardez � l'esprit qu'un contr�le doit uniquement �tre marqu� comme s�curis�s s'il s'agit, en fait, en toute s�curit�. Cet article ne d�crit pas les d�tails de marquage des contr�les s�rs pour l'�criture de scripts et l'initialisation ; il illustre simplement comment faire dans le code. Reportez-vous � la documentation Kit de d�veloppement (SDK) Internet Client pour obtenir une description d�taill�e de cette. Consultez �sans �chec d'initialisation et Scripting pour contr�les ActiveX� sous la section Component Development.

Retour au d�but | Envoyer des commentaires

Plus d'informations

Avertissement : un ou plusieurs des fonctions suivantes sont abord�es dans cet article : VarPtr, VarPtrArray, VarPtrStringArray, StrPtr et ObjPtr. Ces fonctions ne sont pas prises en charge par le support technique Microsoft. Ils ne sont pas document�s dans la documentation de Visual Basic et sont fournies dans cet article de la base de connaissances �en l'�tat�. Microsoft ne garantit pas qu'ils seront disponibles dans les futures versions de Visual Basic. Pour plus d'informations sur ces fonctions, cliquez sur le num�ro ci-dessous pour afficher l'article correspondant dans la base de connaissances Microsoft :

199824

(http://support.microsoft.com/kb/199824/EN-US/ )

Comment faire pour obtenir l'adresse des variables dans Visual Basic

Les �tapes suivantes illustrent comment cr�er un contr�le Visual Basic simple et marquez-le fiable pour l'�criture de scripts et d'initialisation.

Cr�er un nouveau dossier o� vous pouvez enregistrer tous les fichiers que vous cr�ez dans cet exemple.
Permet d'obtenir le G�n�rateur de biblioth�que de types Automation OLE � partir du CD-ROM de Visual Basic 6.0. Pour ce faire, copier les quatre fichiers � partir du dossier \Common\Tools\VB\Unsupprt\Typlib\ dans votre dossier de projet. Remarque : copier tous les fichiers � partir de dossier \VB5.0\Tools\Unsupprt\Typlib\ dans VIsual Basic 5.0.

Copiez le texte suivant dans le bloc-notes et enregistrez le fichier dans le dossier du projet en tant que Objsafe.odl :

      [
          uuid(C67830E0-D11D-11cf-BD80-00AA00575603),
          helpstring("VB IObjectSafety Interface"),
          version(1.0)
      ]
      library IObjectSafetyTLB
      {
          importlib("stdole2.tlb");
          [
              uuid(CB5BDC81-93C1-11cf-8F20-00805F2CD064),
              helpstring("IObjectSafety Interface"),
              odl
          ]
          interface IObjectSafety:IUnknown {
              [helpstring("GetInterfaceSafetyOptions")]
              HRESULT GetInterfaceSafetyOptions(
                        [in]  long  riid,
                        [in]  long *pdwSupportedOptions,
                        [in]  long *pdwEnabledOptions);

              [helpstring("SetInterfaceSafetyOptions")]
              HRESULT SetInterfaceSafetyOptions(
                        [in]  long  riid,
                        [in]  long  dwOptionsSetMask,
                        [in]  long  dwEnabledOptions);
           }
       }

� une invite de commandes, utilisez le CD <path> commande D�placer vers le dossier de projet et tapez la commande suivante pour g�n�rer un fichier .tlb :
MKTYPLIB objsafe.odl /tlb objsafe.tlb
Dans Visual Basic, cr�ez un projet de contr�le ActiveX. Dans la liste Propri�t�s, modifier le nom du projet � IObjSafety et le nom du contr�le pour DemoCtl. Placez un contr�le CommandButton nomm� cmdTest sur le contr�le. Dans le Gestionnaire d'�v�nements Click de le cmdTest, placez une instruction MsgBox "Test".
Dans le menu projet, cliquez sur r�f�rences, parcourir et en ajouter Objsafe.tlb, que vous avez cr�� pr�c�demment.

Ajoute un module de nouveau � votre projet avec le code suivant et nommez le module basSafeCtl :

      Option Explicit

      Public Const IID_IDispatch = "{00020400-0000-0000-C000-000000000046}"
      Public Const IID_IPersistStorage = _
        "{0000010A-0000-0000-C000-000000000046}"
      Public Const IID_IPersistStream = _
        "{00000109-0000-0000-C000-000000000046}"
      Public Const IID_IPersistPropertyBag = _
        "{37D84F60-42CB-11CE-8135-00AA004BB851}"

      Public Const INTERFACESAFE_FOR_UNTRUSTED_CALLER = &H1
      Public Const INTERFACESAFE_FOR_UNTRUSTED_DATA = &H2
      Public Const E_NOINTERFACE = &H80004002
      Public Const E_FAIL = &H80004005
      Public Const MAX_GUIDLEN = 40

      Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
         (pDest As Any, pSource As Any, ByVal ByteLen As Long)
      Public Declare Function StringFromGUID2 Lib "ole32.dll" (rguid As _
         Any, ByVal lpstrClsId As Long, ByVal cbMax As Integer) As Long

      Public Type udtGUID
          Data1 As Long
          Data2 As Integer
          Data3 As Integer
          Data4(7) As Byte
      End Type

      Public m_fSafeForScripting As Boolean
      Public m_fSafeForInitializing As Boolean

      Sub Main()
          m_fSafeForScripting = True
          m_fSafeForInitializing = True
      End Sub

Propri�t�s du projet, remplacez l'objet de d�marrage par Sub Main pour ex�cuter le Sub Main ci-dessus. Les variables m_fSafeForScripting et m_fSafeForInitializing permet de sp�cifier les valeurs de s�r pour les variables de script et/ou de l'initialisation.
Ouvrez la fen�tre de code de votre contr�le. Ajoutez la ligne de code suivante � la section de d�claration (juste apr�s l'option Explicit ou que la premi�re):
Implements IObjectSafety

De copier les deux proc�dures suivantes � vos contr�les :

      Private Sub IObjectSafety_GetInterfaceSafetyOptions(ByVal riid As _
      Long, pdwSupportedOptions As Long, pdwEnabledOptions As Long)

          Dim Rc      As Long
          Dim rClsId  As udtGUID
          Dim IID     As String
          Dim bIID()  As Byte

          pdwSupportedOptions = INTERFACESAFE_FOR_UNTRUSTED_CALLER Or _
                                INTERFACESAFE_FOR_UNTRUSTED_DATA

          If (riid <> 0) Then
              CopyMemory rClsId, ByVal riid, Len(rClsId)

              bIID = String$(MAX_GUIDLEN, 0)
              Rc = StringFromGUID2(rClsId, VarPtr(bIID(0)), MAX_GUIDLEN)
              Rc = InStr(1, bIID, vbNullChar) - 1
              IID = Left$(UCase(bIID), Rc)

              Select Case IID
                  Case IID_IDispatch
                      pdwEnabledOptions = IIf(m_fSafeForScripting, _
                    INTERFACESAFE_FOR_UNTRUSTED_CALLER, 0)
                      Exit Sub
                  Case IID_IPersistStorage, IID_IPersistStream, _
                     IID_IPersistPropertyBag
                      pdwEnabledOptions = IIf(m_fSafeForInitializing, _
                    INTERFACESAFE_FOR_UNTRUSTED_DATA, 0)
                      Exit Sub
                  Case Else
                      Err.Raise E_NOINTERFACE
                      Exit Sub
              End Select
          End If
      End Sub

      Private Sub IObjectSafety_SetInterfaceSafetyOptions(ByVal riid As _
      Long, ByVal dwOptionsSetMask As Long, ByVal dwEnabledOptions As Long)
          Dim Rc          As Long
          Dim rClsId      As udtGUID
          Dim IID         As String
          Dim bIID()      As Byte

          If (riid <> 0) Then
              CopyMemory rClsId, ByVal riid, Len(rClsId)

              bIID = String$(MAX_GUIDLEN, 0)
              Rc = StringFromGUID2(rClsId, VarPtr(bIID(0)), MAX_GUIDLEN)
              Rc = InStr(1, bIID, vbNullChar) - 1
              IID = Left$(UCase(bIID), Rc)

              Select Case IID
                  Case IID_IDispatch
                      If ((dwEnabledOptions And dwOptionsSetMask) <> _
                   INTERFACESAFE_FOR_UNTRUSTED_CALLER) Then
                          Err.Raise E_FAIL
                          Exit Sub
                      Else
                          If Not m_fSafeForScripting Then
                              Err.Raise E_FAIL
                          End If
                          Exit Sub
                      End If

                  Case IID_IPersistStorage, IID_IPersistStream, _
                IID_IPersistPropertyBag
                      If ((dwEnabledOptions And dwOptionsSetMask) <> _
                    INTERFACESAFE_FOR_UNTRUSTED_DATA) Then
                          Err.Raise E_FAIL
                          Exit Sub
                      Else
                          If Not m_fSafeForInitializing Then
                              Err.Raise E_FAIL
                          End If
                          Exit Sub
                      End If

                  Case Else
                      Err.Raise E_NOINTERFACE
                      Exit Sub
              End Select
          End If
      End Sub

Dans le menu fichier, enregistrer votre projet et les fichiers. Cr�er un fichier OCX � partir de votre projet. D�sormais, votre contr�le impl�mente l'interface IObjectSafety. Pour la tester, ins�rez le contr�le dans un fichier .htm.

Retour au d�but | Envoyer des commentaires

R�f�rences

MkTypLib.exe est un outil ancien pr�c�demment livr� avec la plate-forme Kit de d�veloppement logiciel (SDK) fourni avec Microsoft Visual Studio 6.0. L'actuel kit de d�veloppement Platform SDK n'est pas � l'aide de l'outil MkTypLib.exe.

Pour informations sur la fa�on d'appeler MkTypLib, voir le site Web de Microsoft � l'adresse suivante :

http://www.microsoft.com/msj/0297/visualprog/visualprog0297.aspx

(http://www.microsoft.com/msj/0297/visualprog/visualprog0297.aspx)

Pour plus d'informations, cliquez sur les num�ros ci-dessous pour afficher les articles correspondants dans la base de connaissances Microsoft :

161873

(http://support.microsoft.com/kb/161873/EN-US/ )

Comment faire pour marquer MFC Controls Safe pour Scripting/de l'initialisation

143258

(http://support.microsoft.com/kb/143258/EN-US/ )

Comment faire pour cr�er des constantes et des d�clarations de DLL dans une biblioth�que de types

131105

(http://support.microsoft.com/kb/131105/EN-US/ )

EXEMPLE : TYPEBLD : How to Use ICreateTypeLib et ICreateTypeInfo

Pour plus d'informations sur l'interface IObjectSafety, consultez le site Web de Microsoft � l'adresse suivante :

http://msdn.microsoft.com/en-us/library/aa911729.aspx

(http://msdn.microsoft.com/en-us/library/aa911729.aspx)

Pour plus d'informations sur l'initialisation sans �chec et les scripts pour les contr�les ActiveX, consultez le site Web de Microsoft � l'adresse suivante :

http://msdn2.microsoft.com/en-us/library/Aa751977.aspx

(http://msdn2.microsoft.com/en-us/library/Aa751977.aspx)

Pour plus d'informations sur le d�veloppement de solutions Web de Microsoft Internet Explorer, reportez-vous aux sites Web de Microsoft aux adresses suivantes :

http://msdn.microsoft.com/ie/

(http://msdn.microsoft.com/ie/)

http://support.microsoft.com/iep

(http://support.microsoft.com/iep)

Retour au d�but | Envoyer des commentaires

Propri�t�s

Num�ro d'article: 182598 - Derni�re mise � jour: mardi 16 octobre 2007 - Version: 5.3

Les informations contenues dans cet article s'appliquent au(x) produit(s) suivant(s):

Microsoft Visual Basic Control Creation Edition
Microsoft Visual Basic 5.0 �dition professionnelle
Microsoft Visual Basic 6.0 �dition professionnelle
Microsoft Visual Basic 5.0 �dition Entreprise
Microsoft Visual Basic Enterprise Edition for Windows 6.0
Microsoft Visual Basic 5.0 �dition initiation
Microsoft Visual Basic 6.0 �dition initiation
Microsoft Internet Explorer 4.0 �dition 128 bits
Microsoft Internet Explorer 4.01 Service Pack 2
Microsoft Internet Explorer 4.01 Service Pack 1
Microsoft Internet Explorer 4.01 Service Pack 2
Microsoft Internet Explorer 5.0
Microsoft Internet Explorer 5.01
Microsoft Internet Explorer (Programming) 5.01 SP1
Microsoft Internet Explorer 5.5

kbmt kbfaq kbhowto KB182598 KbMtfr

Traduction automatique

IMPORTANT : Cet article est issu du syst�me de traduction automatique mis au point par Microsoft (http://support.microsoft.com/gp/mtdetails). Un certain nombre d?articles obtenus par traduction automatique sont en effet mis � votre disposition en compl�ment des articles traduits en langue fran�aise par des traducteurs professionnels. Cela vous permet d?avoir acc�s, dans votre propre langue, � l?ensemble des articles de la base de connaissances r�dig�s originellement en langue anglaise. Les articles traduits automatiquement ne sont pas toujours parfaits et peuvent comporter des erreurs de vocabulaire, de syntaxe ou de grammaire (probablement semblables aux erreurs que ferait une personne �trang�re s?exprimant dans votre langue !). N�anmoins, mis � part ces imperfections, ces articles devraient suffire � vous orienter et � vous aider � r�soudre votre probl�me. Microsoft s?efforce aussi continuellement de faire �voluer son syst�me de traduction automatique.

La version anglaise de cet article est la suivante: 182598

(http://support.microsoft.com/kb/182598/en-us/ )

L'INFORMATION CONTENUE DANS CE DOCUMENT EST FOURNIE PAR MICROSOFT SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE. L'UTILISATEUR ASSUME LE RISQUE DE L'UTILISATION DU CONTENU DE CE DOCUMENT. CE DOCUMENT NE PEUT ETRE REVENDU OU CEDE EN ECHANGE D'UN QUELCONQUE PROFIT.

Retour au d�but | Envoyer des commentaires