Gestion des erreurs dans les composants mis en file d’attente

Article
06/13/2023

Parfois, une situation se produit dans laquelle un message ne peut pas être remis correctement à sa destination prévue, généralement en raison d’un problème avec le système ou la configuration. Par exemple, le message peut être dirigé vers une file d’attente qui n’existe pas ou la file d’attente de destination peut ne pas être dans un état à recevoir. Le déplaceur de messages est un outil qui déplace tous les messages Message Queuing ayant échoué d’une file d’attente vers une autre afin qu’ils puissent être retentés. L’utilitaire de déplacement de messages est un objet Automation qui peut être appelé avec un VBScript.

Outil d’administration Components Services

Non applicable.

Visual Basic

L’exemple de code suivant montre comment créer un objet MessageMover, définir les propriétés requises et lancer le transfert. Pour l’utiliser à partir de Visual Basic, ajoutez une référence à la bibliothèque de types de services COM+.

Notes

Pour utiliser l’objet MessageMover, message Queuing doit être installé sur votre ordinateur et la mise en file d’attente de l’application spécifiée par AppName doit être activée. Pour plus d’informations sur l’installation de Message Queuing, consultez Aide et support dans le menu Démarrer .

Function MyMessageMover( _
  strSource As String, _
  strDest As String _
) As Boolean  ' Return False if any errors occur.

    MyMessageMover = False  ' Initialize the function.
    On Error GoTo My_Error_Handler  ' Initialize error handling.

    Dim lngMovedMessages As Long
    Dim objMessageMover As COMSVCSLib.MessageMover
    Set objMessageMover = CreateObject("QC.MessageMover")
    objMessageMover.SourcePath = strSource
    objMessageMover.DestPath = strDest
    lngMovedMessages = objMessageMover.MoveMessages

    MsgBox lngMovedMessages & " messages moved from " & _
      strSource & " to " & strDest

    MyMessageMover = True  ' Successful end to procedure
    Set objMessageMover = Nothing
    Exit Function

My_Error_Handler:  ' Replace with specific error handling.
    MsgBox "Error # " & Err.Number & " (Hex: " & Hex(Err.Number) _
      & ")" & vbNewLine & Err.Description
    Set objMessageMover = Nothing
    lngMovedMessages = -1
End Function

Le code Visual Basic suivant montre comment appeler la fonction MyMessageMover.

Sub Main()
  ' Replace AppName with the name of a COM+ application.
  If Not MyMessageMover(".\private$\AppName_deadqueue", ".\AppName") Then
      MsgBox "MyMessageMover failed."
  End If
End Sub

Le chemin d’accès source du message est la dernière file d’attente de repos. Il s’agit de la file d’attente morte, qui est une file d’attente Message Queuing privée appelée AppName_deadqueue. Les messages sont déplacés ici si la transaction s’interrompt à plusieurs reprises lors de la tentative de la cinquième file d’attente de nouvelles tentatives. Avec l’outil de déplacement de messages, vous pouvez déplacer le message vers la première file d’attente, appelée AppName. Pour plus d’informations sur les files d’attente de nouvelles tentatives, consultez Erreurs côté serveur.

Si les attributs de file d’attente le permettent, le sélecteur de messages déplace les messages de manière transitoire afin que les messages ne soient pas perdus ou dupliqués en cas de défaillance pendant le déplacement. L’outil conserve toutes les propriétés de message qui peuvent être conservées lors du déplacement de messages d’une file d’attente vers une autre.

Si les messages sont générés par les appels de composants en file d’attente COM+, l’utilitaire de déplacement de messages conserve l’identificateur de sécurité de l’appelant d’origine lorsqu’il déplace les messages entre les files d’attente. Si les files d’attente de destination et source sont transactionnelles, l’ensemble de l’opération est effectué de manière transitoire. Si les files d’attente source ou de destination ne sont pas transactionnelles, l’opération ne s’exécute pas sous une transaction. Un échec inattendu (tel qu’un incident) et un redémarrage d’un déplacement non transactionnel peuvent dupliquer le message déplacé au moment de l’échec.

C/C++

L’exemple de code suivant montre comment créer un objet MessageMover, définir les propriétés requises et lancer le transfert. La méthode ErrorDescription est décrite dans Interprétation des codes d’erreur.

Notes

#include <windows.h>
#include <stdio.h>
#import "C:\WINDOWS\system32\ComSvcs.dll"
#include "ComSvcs.h"
#include "StrSafe.h"  

BOOL MyMessageMover (OLECHAR* szSource, OLECHAR* szDest) {
    IUnknown * pUnknown = NULL;
    IMessageMover * pMover = NULL;
    HRESULT hr = S_OK;
    BSTR bstrSource = NULL;
    BSTR bstrDest = NULL;
    unsigned int uMaxLen = 255;  // Maximum length of szMyApp

try {
    // Test the input strings to make sure they're OK to use.
    hr = StringCchLengthW(szSource, uMaxLen, NULL);
    if (FAILED (hr)) throw(hr);
    hr = StringCchLengthW(szDest, uMaxLen, NULL);
    if (FAILED (hr)) throw(hr);
    
    // Convert the input strings to BSTRs.
    bstrSource = SysAllocString(szSource);
    bstrDest = SysAllocString(szDest);

    // Create a MessageMover object and get its IUnknown.
    hr = CoCreateInstance(CLSID_MessageMover, NULL, 
      CLSCTX_INPROC_SERVER, IID_IUnknown, (void**)&pUnknown);
    if (FAILED (hr)) throw(hr);    

    // Get the IMessageMover interface.
    hr = pUnknown->QueryInterface(IID_IMessageMover, (void**)&pMover); 
    if (FAILED (hr)) throw(hr);

    // Put the source and destination files.
    hr = pMover->put_SourcePath(bstrSource);
    if (FAILED (hr)) throw(hr);
    hr = pMover->put_DestPath(bstrDest);
    if (FAILED (hr)) throw(hr);

    // Move the messages.
    LONG lCount = -1;
    hr = pMover->MoveMessages(&lCount);
    if (FAILED (hr)) throw(hr);
    printf("%ld messages moved from %S to %S.\n", 
      lCount, bstrSource, bstrDest);

    // Clean up.
    SysFreeString(bstrDest);
    SysFreeString(bstrSource);
    pUnknown->Release();
    pUnknown = NULL;
    pMover->Release();
    pMover = NULL;
    return (TRUE);
}  // try

catch(HRESULT hr) {  // Replace with specific error handling.
    printf("Error # %#x: ", hr);
    ErrorDescription(hr);
    SysFreeString(bstrDest);
    SysFreeString(bstrSource);
    if (NULL != pUnknown) pUnknown->Release();
    pUnknown = NULL;
    if (NULL != pMover) pMover->Release();
    pMover = NULL;
    return (FALSE);
}catch(...) {
    printf("An unexpected exception occurred.\n");
    throw;
}        
}  // MyMessageMover

Le code C++ suivant montre comment appeler la fonction MyMessageMover.

#include <windows.h>
#include <stdio.h>

#define _WIN32_DCOM  // To use CoInitializeEx()

void main() 
{
    HRESULT hr = CoInitializeEx(NULL, COINIT_APARTMENTTHREADED);
    if (FAILED (hr)) {
        printf("CoInitializeEx failed: Error # %#x\n", hr);
        exit(0);  // Replace with specific error handling.
    }
    if (! MyMessageMover(L".\\private$\\AppName_deadqueue", 
      L".\\AppName"))
        printf("MyMessageMover failed.\n");
    CoUninitialize();
}

Notes

COM+ gère les abandons côté serveur (joueur) en déplaçant le message qui échoue dans une autre file d’attente de « repos final », pour le sortir de la voie. L’écouteur et le lecteur ne peuvent pas continuellement boucler un message qui abandonne. Dans de nombreux cas, la transaction abandonnée peut être corrigée en effectuant une action sur le serveur.

Erreurs de composants mis en file d’attente

Partager via

Gestion des erreurs dans les composants mis en file d’attente

Outil d’administration Components Services

Visual Basic

C/C++

Notes

Commentaires

Ressources supplémentaires

Partager via

Gestion des erreurs dans les composants mis en file d’attente

Outil d’administration Components Services

Visual Basic

C/C++

Notes

Rubriques connexes

Commentaires

Ressources supplémentaires