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

API, COM et SDKs Delphi Discussion :

Utiliser une DLL faite en delphi avec VB6


Sujet :

API, COM et SDKs Delphi

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Homme Profil pro
    Retraité
    Inscrit en
    Décembre 2010
    Messages
    104
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Doubs (Franche Comté)

    Informations professionnelles :
    Activité : Retraité

    Informations forums :
    Inscription : Décembre 2010
    Messages : 104
    Par défaut Utiliser une DLL faite en delphi avec VB6
    J'ai créé une DLL (LinToPbn.dll) pour convertir les fichiers de type ".lin" en fichiers de type ".pbn".
    Elle ne contient qu'une procédure : 'convert' qui attend le nom du fichier à convertir sous forme de string.
    Ca fonctionne parfaitement sous Delphi.

    Quelqu'un qui programme avec VB6 voudrait utiliser cette DLL.
    Mais il n'y arrive pas. Voilà ce qu'il me dit :
    J’ai fait une déclaration du genre : Public Declare Sub LinToPbn Lib "LinToPbn" (ByVal fl As string......)
    Je reçois une erreur 453 : impossible de trouver le point d’entrée de la procédure.
    Même erreur quand on essaye d’enregistrer la DLL par Regsvr32.


    Je ne connais pas du tout VB6. Faut-il qu'il change quelque chose dans l'appel de la DLL ou bien est-ce moi qui doit modifier quelque chose ?
    Merci de votre aide.

    Jean-Louis

  2. #2
    Expert éminent
    Avatar de Paul TOTH
    Homme Profil pro
    Freelance
    Inscrit en
    Novembre 2002
    Messages
    8 964
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 55
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Freelance
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Novembre 2002
    Messages : 8 964
    Par défaut
    tu dois déclarer ta fonction comme ceci

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    function convert(FileName: PChar);  stdcall;
    Developpez.com: Mes articles, forum FlashPascal
    Entreprise: Execute SARL
    Le Store Excute Store

  3. #3
    Membre confirmé
    Homme Profil pro
    Retraité
    Inscrit en
    Décembre 2010
    Messages
    104
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Doubs (Franche Comté)

    Informations professionnelles :
    Activité : Retraité

    Informations forums :
    Inscription : Décembre 2010
    Messages : 104
    Par défaut
    Voici ma DLL :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    library LinToPBN;
    uses
      ShareMem,SysUtils,    
      Classes,
      ConvertirLinToPbn in 'ConvertirLinToPbn.pas';
     {$R *.res}
      procedure convert(fichier : PChar);
      begin
         ConvertLinToPbn(fichier);
      end;
      exports convert;
    begin
    end.
    Je ne vois pas où je dois mettre :

    function convert(FileName: PChar); stdcall;

    Merci

  4. #4
    Expert éminent
    Avatar de Paul TOTH
    Homme Profil pro
    Freelance
    Inscrit en
    Novembre 2002
    Messages
    8 964
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 55
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Freelance
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Novembre 2002
    Messages : 8 964
    Par défaut
    désolé c'est "procedure" et non "function" (je fais trop de PHP en ce moment ), le stdcall est donc sur la déclaration de la procédure.
    Developpez.com: Mes articles, forum FlashPascal
    Entreprise: Execute SARL
    Le Store Excute Store

  5. #5
    Membre éprouvé
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Août 2012
    Messages
    92
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Industrie

    Informations forums :
    Inscription : Août 2012
    Messages : 92
    Par défaut
    Citation Envoyé par illuch Voir le message
    Voici ma DLL :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    library LinToPBN;
    uses
      ShareMem,SysUtils,    
      Classes,
      ConvertirLinToPbn in 'ConvertirLinToPbn.pas';
     {$R *.res}
      procedure convert(fichier : PChar);
      begin
         ConvertLinToPbn(fichier);
      end;
      exports convert;
    begin
    end.
    Je ne vois pas où je dois mettre :

    function convert(FileName: PChar); stdcall;

    Merci
    pense a supprimer ShareMem de ta dll surtout si tu veux l'utiliser avec VB

  6. #6
    Membre confirmé
    Homme Profil pro
    Retraité
    Inscrit en
    Décembre 2010
    Messages
    104
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Doubs (Franche Comté)

    Informations professionnelles :
    Activité : Retraité

    Informations forums :
    Inscription : Décembre 2010
    Messages : 104
    Par défaut
    J'ai repris le problème à l'envers.
    Puisque la personne qui voulait utiliser ma DLL avec VB6 n'y arrivait pas, j'ai téléchargé Visual Basic 2010 express.
    J'ai créé une appli avec un seul bouton et j'ai voulu référencer ma dll.
    Et j'obtiens un message d'erreur.
    Une référence à '... LinToPbn.dll' n'a pu être ajoutée. Vérifier que ce fichier est accessible et qu'il s'agit d'un assembly ou d'un composant COM valide
    J'ai alors fait une dll vide avec Delphi et j'ai essayé de l'incoporer dans mon programme VB.
    J'obtiens le même message d'erreur.

    J'ai téléchargé "Dependency Walker" et là, j'obtiens le message suivant (sur ma dll ou sur la dll vide)
    IESHIMS.DLL Error opening file. Le fichier spécifié est introuvable


    Warning: At least one delay-load dependency module was not found.
    Warning: At least one module has an unresolved import due to a missing export function in a delay-load dependent module.
    Je ne comprends pas ces messages d'erreur.
    Avez-vous une suggestion à me faire ?

    Merci de votre aide.

  7. #7
    Expert éminent
    Avatar de Paul TOTH
    Homme Profil pro
    Freelance
    Inscrit en
    Novembre 2002
    Messages
    8 964
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 55
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Freelance
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Novembre 2002
    Messages : 8 964
    Par défaut
    est-ce qu'un programme Delphi peut utiliser ta DLL ? comment déclares-tu la DLL dans VB ?
    Developpez.com: Mes articles, forum FlashPascal
    Entreprise: Execute SARL
    Le Store Excute Store

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [AC-2007] Utilisation d'une dll windows personnalisée créer avec vb6
    Par samloba dans le forum VBA Access
    Réponses: 1
    Dernier message: 21/05/2010, 14h27
  2. utiliser une DLL faite en vb6 avec VB.net
    Par j.sineau dans le forum VB.NET
    Réponses: 6
    Dernier message: 10/12/2007, 10h33
  3. Réponses: 1
    Dernier message: 11/04/2007, 11h45
  4. [VB.Net] Comment utiliser une dll faite en VB6 ?
    Par hassanovich dans le forum VB.NET
    Réponses: 1
    Dernier message: 06/06/2006, 13h25

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