IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBScript Discussion :

Appel des fonctions d'une DLL


Sujet :

VBScript

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Profil pro
    Inscrit en
    Juin 2005
    Messages
    106
    Détails du profil
    Informations personnelles :
    Âge : 39
    Localisation : France

    Informations forums :
    Inscription : Juin 2005
    Messages : 106
    Par défaut Appel des fonctions d'une DLL
    Bonjour à tous,

    J'ai une DLL (qui s'appelle maDLL.dll) et dans laquelle il y a les 4 fonctions suivantes :

    La procédure Debut qui prend deux string en arguments et qui ne renvoie rien.
    La procédure Fin qui n'a pas d'arguments et qui ne renvoie rien.
    La fonction Lecture qui prend deux string en arguments et qui renvoie un string.
    La procédure Ecriture qui prend deux string en entrée et qui ne renvoie rien.

    Je souhaite créer un script en VBS qui utiliserait ces fonctions.
    Mon problème actuel est que je ne parviens pas à faire comprendre au script qu'il faut qu'il se lie avec la DLL. Les fonctions que j'ai créées (InitializationProg, EndInitializationProg, ReadProg et WriteProg) contiennent surement des erreurs mais pour le moment, ce n'est pas grave.
    Voici le code source que j'ai écrit (il est exhaustif, donc si vous ne voyez pas quelque chose que vous estimez essentiel, c'est que je ne l'ai vraiment pas mis, et cela pourrait expliquer pourquoi ce script ne fonctionne pas) :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    main
     
    Sub main()
       Private GSock As GreatSocket
       Declare Sub Debut Lib "C:\maDLL.dll" (ByVal firstStringDebut as String, ByVal secondStringDebut as String)
       Declare Sub Fin Lib "C:\maDLL.dll" ()
       Declare Function Lecture Lib "C:\maDLL.dll" (ByVal firstStringLecture as String, ByVal secondStringLecture as String) as String
       Declare Sub Ecriture Lib "C:\maDLL.dll" (ByVal firstStringEcriture as String, ByVal secondStringEcriture as String)
     
    InitializationProg
    ReadProg("ok")
    End Sub
     
    Function InitializationProg()
       Dim App
       Set GSock = New GreatSocket
       App = "" 
       GSock.Debut "MASTER", App
    End Function
     
    Function EndInitializationProg()
       GSock.Fin
       Set GSock = Nothing
    End Function
     
    Function ReadProg(param)
       Dim readValue
       GSock.Lecture param, readValue
       ReadProg = readValue
    End Function
     
    Function WriteProg(param, valueToWrite)
        GSock.Ecriture param, valueToWrite
    End Function

    Lorsque j'exécute ce code j'obtiens le message d'erreur suivant :
    Erreur de syntaxe sur la ligne "Private Gsock as GreatSocket".

    Si je la mets en commentaire, j'obtiens le message d'erreur suivant :
    Erreur de syntaxe sur la ligne "Declare Sub Debut..."

    J'ai écumé les sites internet pour savoir comment utiliser les fonctions d'une DLL à partir de VBS mais je ne trouve aucune explication claire. Je ne sais pas si ça peut être utile, mais pour info, la DLL est un ActiveX (j'avoue ne pas trop maîtriser ce que ça signifie).

    Merci pour votre aide

  2. #2
    Expert éminent


    Profil pro
    Inscrit en
    Juin 2003
    Messages
    14 008
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 14 008

Discussions similaires

  1. Réponses: 16
    Dernier message: 15/05/2006, 14h49
  2. Appel de fonction d'une DLL en TANSAC SQL
    Par sylvain114d dans le forum MS SQL Server
    Réponses: 3
    Dernier message: 19/01/2006, 10h21
  3. Appel aux fonctions d'une DLL externe ??
    Par Fbartolo dans le forum Access
    Réponses: 7
    Dernier message: 21/11/2005, 17h54
  4. Retrouver les valeurs des paramètres des fonctions d'une DLL
    Par Bernard Martineau dans le forum Langage
    Réponses: 6
    Dernier message: 08/11/2005, 10h42
  5. utilisation des fonctions d'une dll
    Par jackk dans le forum C++
    Réponses: 14
    Dernier message: 15/06/2005, 16h50

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo