Utiliser une DLL faite en delphi avec VB6

Version imprimable

12/05/2014, 16h26
illuch

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
12/05/2014, 17h54
Paul TOTH
tu dois déclarer ta fonction comme ceci
Code:

1 2 function convert(FileName: PChar); stdcall;

Voici ma DLL :

Code:

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

13/05/2014, 12h55
Paul TOTH

désolé c'est "procedure" et non "function" (je fais trop de PHP en ce moment :aie:), le stdcall est donc sur la déclaration de la procédure.

Citation:
Envoyé par illuch
Voici ma DLL :
Code:

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

18/05/2014, 18h35
illuch

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.

Citation:

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)

Citation:

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.
18/05/2014, 20h38
Paul TOTH

est-ce qu'un programme Delphi peut utiliser ta DLL ? comment déclares-tu la DLL dans VB ?
18/05/2014, 21h35
illuch

Citation:

Envoyé par Paul TOTH

est-ce qu'un programme Delphi peut utiliser ta DLL ? comment déclares-tu la DLL dans VB ?

Oui j'ai fait une appli en delphi qui utilise ma dll. Ca fonctionne parfaitement.
Mais quelqu'un d'autre voudrait utiliser cette dll, mais il n'y arrive pas. Il utilise VB6.

Voilà le message qu'il m'a envoyé :

Citation:

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.

C'est donc pour essayer de l'aider en testant directement ma dll sous VB que je viens d'installer Visual Basic express sur mon PC.
J'ai donc créé une appli vide avec VB (ça c'est facile !) et après avoir consulté des tutos sur internet, j'ai appris que pour utiliser une DLL il fallait d'abord, dans l'IDE, ajouter une référence vers cette dll (ca consiste à indiquer à Vb à quel endroit se trouve la dll via une boite open dialog).
Mais lorsque je fais cette opération j'ai le message d'erreur

Citation:

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

Après analyse, Dependeny Walker me donne le message d'erreur suivant :

Citation:

ESHIMS.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.

Pensant que c'était ma Dll qui était en cause, j'ai fait la même opération avec une DLL vide. Mais toujours les mêmes messages d'erreur.
Donc pour l'instant je suis bloqué là-dessus et je n'ai même pas écrit une ligne de code dans Vb pour appeler cette DLL.

Je peux envoyer ma dll ainsi que les sources du programme écrit en delphi qui montre son utilisation.

Merci de vos réponses
19/05/2014, 06h22
Paul TOTH

non, je pense que tu es tombé sur un tuto .Net et/ou ActiveX, VB n'a pas besoin de savoir où se trouve la DLL, tu dois juste déclarer la fonctionne comme tu le fais en Pascal.

Declare Function MyFunc Lib "dlllibname" (...) As ...

ou Declare Sub pour une procédure

http://msdn.microsoft.com/en-us/libr...(v=vs.60).aspx
20/05/2014, 00h25
illuch

Merci de votre aide,
J'ai pu tester avec succès ma dll sous Visual Studio express 2010.
Voilà la bonne syntaxe

Citation:

Declare Auto Sub convert Lib "C\ .......\LinToPbn.dll" (ByVal NomFichier As String)

convert(NomFichier)
20/05/2014, 02h45
Paul TOTH

Non ce n'est pas la bonne syntaxe :)

il ne faut pas indiquer le chemin mais placer la DLL soit :
:fleche: dans le même répertoire que l'exe
:fleche: dans le répertoire Windows
:fleche: dans le répertoire System32
:fleche: dans n'importe quel répertoire se trouvant dans la variable d'environnement PATH (l'ajouter au besoin)
22/05/2014, 23h35
illuch

Tu as sans doute raison.
Je vais corriger
Mais j'ai mis le chemin complet et ça marche.
Bizarre non ?

merci encore de votre aide

Citation:

Envoyé par illuch

Tu as sans doute raison.
Je vais corriger
Mais j'ai mis le chemin complet et ça marche.
Bizarre non ?

merci encore de votre aide

non, ça fonctionne c'est tout à fait normal mais ce n'est pas une bonne pratique car elle impose la localisation de la DLL.

j'utilise cependant cette technique pour surcharger une DLL. Je place dans le répertoire de l'exécutable une version de la DLL qui surcharge les fonctions de l'originale on faisait appel à celle-ci par un lien explicite vers son répertoire.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 library madll; // référence à proc1 dans la DLL d'origine procedure inherited_proc1; external 'c:\windows\madll.dll' name 'proc1'; // surcharge de proc1 procedure proc1; begin ... inherited_proc1; ... end; // héritage direct de proc2 procedure proc2; external 'c:\windows\madll.dll'; // export de proc1 et proc2 exports proc1, proc2; begin end.