Discussion :

[Cravis]

Bonjours, voici mon problème :

Quelqu'un m'a fournis une DLL programmée en pascal et il m'est impossible de la référence dans la base de registre de windows en utilisant la fonction Regsvr32.
J'obtiens le message d'erreur suivant :

Load Librairy a échoué. une routine d'initialisation d'un librairie dynamique (dll) a échoué

Hors avec son executable les appels à la dll fonctionnent très bien !

La structure du fichier source de la DLL respecte le schéma suivant :

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
 
library trench; {le nom de notre dll}
Uses crt,Windows;
 
function passage(p1,p2 :pchar):boolean; stdcall;  { La fonction que l'on veut exporter }
var
Param1,Param2:string;
ok:boolean;
begin   { debut }
  Param1 := StrPas(p1);
  Param2 := StrPas(p2);
  ok := false;
  if (Param1=Param2) then
  begin
     ok := true;
  end;
  result := ok ; { le resultat sous forme de booleen}
end ; { fin de la fonction }
 
Exports { la partie qui stipule les exports }
passage;
 
begin
{ code au chargement de la dll, ici rien... }
end.

Merci d'avance à ceux qui pourront m'aider à rendre cette DLL compatible avec windows afin de pouvoir l'utiliser dans d'autres langage qu'en pascal.

[Alcatîz]

Bonjour !

Il me semble qu'il faille spécifier la directive export dans la déclaration de la fonction passage :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

function passage(p1,p2 :pchar):boolean; stdcall; export;

et donner un index (et éventuellement un alias) dans la section exports :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Exports 
passage index 1;

Je ne vois pas trop à quoi sert la déclaration de crt dans la clauses uses ?

[Cravis]

Merci je vais tester tout ça et vous tenir au courant.
La clause crt ne sert à rien ici car c'est un exemple de test mais elle est utile dans la vrai DLL j'ai simplement oublié de la retirer !

[Cravis]

Avec ce code j'obtiens toujours le même message d'erreur... je désespère peut être dois-je changer d'EDI pour créer des dll compatibles avec Windows ?

[Alcatîz]

As-tu essayé de tester LoadLibrary et GetProcAddress sur ta dll dans un petit prog ? Essaye également d'ajouter un alias après l'index :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Exports 
passage index 1 alias 'passage';

Au fait, quel code d'erreur renvoie exactement Regsvr32 ?
http://support.microsoft.com/default.aspx?kbid=249873

[Cravis]

En fait j'arrive très bien importer ma dll à partir d'un programme pascal.

C'est lorsque j'essai d'importer ma dll dans un autre langage (en l'occurence VB6 ici) que ça deviens un vrai calvaire car la DLL doit être enregistrée dans la base de registre.

Même l'api LoadLibrary echoue lorsque j'essai un chargement dynamique "manuel" alors que sous dev-pascal cette fonction marche parfaitement !

L'ajout d'un alias ne change toujours pas le problème