Comment appeler une fonction (avec paramètres) qui est une fonction de la bibliothèque, en prenant le nom de la fonction à partir d'une variable?

Je suis en train d'utiliser getref pour appeler une fonction à partir de la fonction de bibliothèque associée avec le test.
Mon code -

Dans action1

str = "sample"
msg = "hi"
x = GetRef("Function_"&str)(msg)
msgbox x

Dans la Bibliothèque de fonction,

Function Function_sample(strMsg)
    Function_sample = strMsg
End Function

J'obtiens le message d'erreur -

"Invalid argument ou appel de procédure."

Mais il fonctionne très bien si la fonction est placée dans la même action.
Comment appeler une fonction (avec paramètres) qui est une fonction de la bibliothèque, en prenant le nom de la fonction à partir d'une variable?

  • comme votre code "fonctionne" comme une plaine VBScript, il doit y avoir un problème avec votre (y compris de la bibliothèque.
  • Je ne pense pas que GetRef fonctionne en plaine VBScript.
  • bien sûr, il n', voir ma réponse ci-dessous.
  • Je corrige la position des mains.
InformationsquelleAutor Saranya | 2013-05-22
  1. 5

    Minimaliste de travail exemple:

    Lib.vbs:

    Option Explicit

Function Twice(n)
  Twice = n + n
End Function

    Principal.vbs:

    Option Explicit

Dim goFS : Set goFS = CreateObject("Scripting.FileSystemObject")

ExecuteGlobal goFS.OpenTextFile(".\lib.vbs").ReadAll()

Dim fpTwice : Set fpTwice = GetRef("Twice")

WScript.Echo fpTwice(42)

    De sortie:

    cscript main.vbs
84

    Le message d'erreur "... runtime error: Invalid argument ou appel de procédure: 'GetRef'" indique que les (importation) de la fonction de bibliothèque est à blâmer.

    Mise à jour:

    Je pense qu'il est plausible de supposer que le moteur VBScript garde une table associant sous/fonction/méthode de noms avec appelable code pour être en mesure de faire littéral/appels directs:

    n = Twice(11)

    et que GetRef("Deux") accède à cette table. Donc, je n'aurais jamais attendre indirecte/'pointeur de fonction d'appel ou un GetRef() échoue lorsque le littéral invocation réussit.

    Mais selon cette et que, il y a au moins quatre façons à "importer" des bibliothèques/modules dans QTP, et que je n'utilise pas QTP je ne peux pas exclu, que certains (voire tous) de ces méthodes de faire quelque chose de stupide à cause de la mauvaise comportement que vous décrivez.

    • Je ne pense pas qu'il y est un problème avec mon (importation de l') la fonction de la bibliothèque comme il fonctionne très bien si je l'appelle directement la fonction (par le nom de la fonction) sans l'aide de getref.
    • vérifier que l'erreur se produit sur le GetRef() de la ligne, d'isoler la GetRef() appel; publier plus de votre code (comment voulez-vous "importer" une bibliothèque dans QTP?); pourrait-il être un problème de séquence/ordre (comme les appelle avant de la bibliothèque est chargé)?
    • J'ai associé la fonction de la bibliothèque avec mon test et je suis en mesure d'appeler d'autres fonctions à partir de l'action. Aussi, lorsque j'ai essayé d'appeler la fonction à l'aide getref au sein de la bibliothèque de fonction, il a bien fonctionné. Mais je reçois le message d'erreur lorsque j'appelle la fonction à l'aide getref de l'action. Ne getref de travail uniquement pour les fonctions locales?
    • Dans mon expérience (pour qui je n'ai pas l'explication), il devrait fonctionner, mais échoue si le GetRef d'appel est une fonction de la bibliothèque, ET que la fonction est enregistrée comme un objet de test de la méthode via RegisterUserFunc, ET la fonction appelée par l'objet de test de la méthode. Est que votre scénario?
    • GetRef() fonctionne pour Global/fonctions Publiques/subs et même pour Local/Privé.
    • Je n'ai pas enregistré la fonction à l'aide RegisterUserFunc. J'ai associé la fonction de la bibliothèque avec mon test à l'aide du Fichier "> Paramètres > Ressources > Associer la Fonction de Bibliothèque " option dans QTP.
    • Au lieu d'associer FLs via le menu, utilisez ExecuteFile et puis GetRef fonctionne.

    InformationsquelleAutor Ekkehard.Horner
  2. 2

    J'ai fait face à la même question et a découvert que l'association ou le chargement de la fonctionnelle bibliothèques ne fonctionne pas pour GetRef. Pour contourner ce problème, tout ce que vous devez faire, c'est plutôt d'associer ou de chargement de votre FL, de l'exécuter à l'aide de ExecuteFile fonction.

    Dans action1

    ExecuteFile "/path/functionallibrary.vbs"
str = "sample"
msg = "hi"
x = GetRef("Function_" & str)(msg)
msgbox x
    InformationsquelleAutor Pankaj Jaju