Utiliser une Dll Dos

Bonjours, je possède une DLL créée en Pascal, je n'ai pas son code source mais à partir d'un exécutable dos (programmé en pascal également mais dont j'ai le code source cette fois), cette dll fonctionne très bien.

Hors je n'arrive pas à linker cette DLL dans visual basic !

Quelqu'un aurait une idée de pourquoi, et dans l'idéal une solution pour pallier à ce problème ?

Bonsoir,
Je ne suis pas sûr de pouvoir y répondre, mais dans un premier temps met un peu la façon dont tu déclare la dll en VB6
A+

Le compilateur de vb ne link pas des dll externes, si c'est à qoui tu pensais.

Par contre vb sait charger dynamiquement des dll externes à l'exécution. Il faut simplement la déclarer dans un module par exemple

Bonjours,
Je ne cherche pas à linker cette librairie mais bien à la charger dynamiquement.

J'ai déjà essayer deux méthodes sans réussite :

Déclaration simple genre :

Code:

---

1 2	Private Declare Function passage Lib "c:\testdll.dll" (ByRef Param1 As String, ByRef Param2 As String) As Boolean

---

dans ce cas lorsque j'appel ma fonction passage, VB me retourne "Appel de procedure incorrect"
hors voici la declaration pascal de cette procédure :

Code:

---

1 2	function passage(p1,p2 :string):boolean;

---

J'ai également essayé la méthode de chargement par API suivante :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim lb As Long, pa As Long lb = LoadLibrary("c:\testdll.dll") If lb = 0 Then Exit Sub End If 'retrieve the address of 'SetWindowTextA' pa = GetProcAddress(lb, "passage") 'Call the SetWindowTextA-function CallWindowProc pa, Form1.hWnd, Param1 & " " & Param2, ByVal 0&, ByVal 0& 'unmap the library's address FreeLibrary lb

---

Mais là, loadlibrary me renvoi toujours 0.

A force de chercher j'ai cru comprendre qu'il s'agit en fait d'une DLL 16bit (compatible dos et windows 3.1... vive le pascal...) et non 32bits d'où le problème de chargement.

Même un RegSrv32 n'arrive pas à enregistrer cette DLL.

Donc mon problème devient :
Comment charger une DLL 16bit en VB6 :roll:

Voir ici :

http://support.microsoft.com/kb/159408/en

Essaye de remplacer ta déclaration par

Code:

---

Private Declare Function passage Lib "c:\testdll.dll" (Byal Param1 As String, ByVal Param2 As String) As Boolean

---

Vb n'aime pas trop le ByRef pour les string

Debelke :
Avec ByVal j'obtiens le message : "Convention d'appel de DLL incorrect"

bbil:
Je suis actuellement en train de me pencher sur la création d'un serveur Ole pour liée ma DLL mais j'ai peur qu'avec VB6 ce ne soit pas possible :

Citation:

---

1. Start a new Visual Basic project in Visual Basic 16-Bit Edition.

---

Je continue de chercher et je vous tiens au courrant si j'ai du nouveau.

La création du serveur Ole m'étant impossible, j'avance à taton en cherchant un peu partout et j'ai réussi à charger ma dll et récupérer un handle non nul grace à la fonction :

Code:

---

1 2	Private Declare Function LoadLibraryEx Lib "kernel32" Alias "LoadLibraryExA" (ByVal lpLibFileName As String, ByVal hFile As Long, ByVal dwFlags As Long) As Long

---

Petite victoire, il me reste désormais à récupérer les fonction qu'elle contient pour les utiliser !!

Bon... retour à la case départ :

Après mon loadlibraryex la fonction GetProcAddress me renvoi invariablement 0...

Un programme Dos programmé en pascal arrive à utiliser cette dll

Dependency Walker arrive également à l'ouvrir il ne s'agit donc pas d'un dll 16 bit... et il trouve le nom des fonction exportées !!

Je suis perdu j'ai plus d'idée là, pourquoi VB n'arrive pas à linker dynamiquement ce fichier ? :evilred:

Hop la réponse en essayant de désassembler la Dll :

La DLL ne respecte pas la norme COM pour pouvoir convertir la dll en question j'ai du décocher l'option "Com based DLL" du décompilateur.

Alors nouvelle question :

Comment charge-t-on une DLL non COM en VB6 ?
Merci d'avance, je continu à chercher, je finirais bien par trouver à force ! :yaisse2:

je pense que bbil a tout dit.

Pas tout à fait, la solution du thunking ne fonctionne pas dans mon cas car c'est une dll 32bit et non 16 bit comme je le pensais au départ, seulement elle ne respecte pas la norme COM.

Apparement pas moyen de s'en sortir, par contre j'ai créé une DLL compatible COM avec delphi et cette fois VB l'accepte sans rien dire et tout fonctionne niquel je vais donc demander à la personne qui me fourni cette DLL de recompiler sa DLL conformément aux conventions COM.

Il y'aurait surement une solution possible mais je n'ai plus le courage de la chercher autant respecter les normes et tout fonctionnera.

Un grand merci à ceux qui ont cherché une solution avec moi ! :D

Sans rien affirmer, il me semble que si la convention com n'est pas assurée, l'odre d'empilement des parameres est inversé lors de l'appel .
Donc , essaye d'inverser l'ordre des parametres dans la déclartion de la fonction.

je ne sais pas quel est l'équivalent d'un "Implement" VB en pascal, mais si ta classe n'implemente pas "IUnknown", elle ne respecte pas la convention COM (condition suffisante pour ne pas respecter, mais pour respecter je ne sais pas)

Cela revient à implémenter la classe suivante :

Code:

---

1 2 3 4 5 6 7

Class IUnknown { public: virtual HRESULT QueryInterface(REFIID refiid, void **ppv) = 0; virtual ULONG AddRef() = 0; virtual ULONG Release() = 0; };

---

voir cet article en anglais qui explique un peu la problématique :

http://www.codeguru.com/cpp/com-tech...cle.php/c3557/

Voilà, pour ceux que ça intéresse, le code minimal d'une DLL compatible COM en pascal :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

library MaDLL;   uses SysUtils, Windows, ComServ;   exports DllGetClassObject, DllCanUnloadNow, DllRegisterServer, DllUnregisterServer;   begin end.

---

La librairie ComServ s'occupe de tout pour nous et n'est apparemment fournie qu'avec delphi (j'ai essayé avec la version 3 donc cette librairie existe depuis bien longtemps !).

une bonne note parceque la solution est super là :)