Discussion :

[illuch]

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

[Paul TOTH]

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;

[illuch]

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

[Paul TOTH]

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.

[jeromelef2]

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

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

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.

[Paul TOTH]

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

[illuch]

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é :

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

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 :

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

[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

[illuch]

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

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

convert(NomFichier)

[Paul TOTH]

Non ce n'est pas la bonne syntaxe

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

[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

[Paul TOTH]

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 :

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