[Lazarus] Fonction d'une DLL récalcitrante

Bonsoir,

Petit problème avec une DLL. Elle est bien créée, la fonction est correstement intégrée et est bien présente dans la partie "exports", mais dans mon programme de test, l'appel de la fonction génère toujours une erreur "identifier not found" ...

Code:

---

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

begin dll:=Loadlibrary('libUtilsUnit.dll'); TestString:=''; If Edit1.Text<>'' then begin If Edit2.text<>'' then begin Pointer(SplitString):=GetProcAddress(dll,'SplitString'); TTest:=SplitString(Edit1.Text, Edit2.Text); For i:=0 to TTest.Count do begin TestString:=TestString+TTest[i]; end; end; showmessage(TestSTring); end;   end;

---

Je ne vois d'ou ca vient. Si vous avez une idée ...

Merci

Bonjour !

Dans la dll, la fonction reçoit-elle bien un alias ?

Code:

---

1 2	Exports SplitString index 1 name 'SplitString';

---

Le résultat de LoadLibrary est-il bien supérieur ou égal à 32 ?

Citation:

---

Envoyé par Alcatîz

Bonjour !

---

Bonjour,

Citation:

---

Envoyé par Alcatîz

Dans la dll, la fonction reçoit-elle bien un alias ?
[...]

---

Ah ... ben non. Je ne savais pas que ca existait. L'exemple donné sur le site lazarus-cc est bien flou ... :(

Citation:

---

Envoyé par Alcatîz

Le résultat de LoadLibrary est-il bien supérieur ou égal à 32 ?

---

Eh beh, ca atteint 33554432. C'est grave Docteur ?
Par contre j'ai toujour l'erreur (j'ai commenté le code qui la génère pour récupérer le résultat de loadLibrary, sans ca ...) malgré la recompil de la DLL avec l'alias.

En tout cas merci de ta réponse.

Voici un exemple simplissime basé sur ton code, et qui fonctionne (sous windows) :

code de la dll

Code:

---

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

library libUtilsUnit;   {$mode objfpc}{$H+}   uses Classes   function SplitString(s1, S2 : string): string; stdcall; begin SplitString := S1 + S2; end;   exports SplitString; //je n'en ai qu'un donc je ne précise pas. //le nom sera 'SplitString' et l'index 1     begin end.

---

Petit projet avec un bouton et deux edits:

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 25 26 27 28

procedure TForm1.Button1Click(Sender: TObject); var TTest, TestString: string; dll : thandle; SplitString : function(s1,s2 : string): string; stdcall; //i : integer; begin   dll:=Loadlibrary('libUtilsUnit.dll'); If dll = 0 then Exit;   //TestString:=''; If Edit1.Text<>'' then begin If Edit2.text<>'' then begin Pointer(SplitString):=GetProcAddress(dll,pansichar('SplitString')); TTest:=SplitString(Edit1.Text, Edit2.Text); //For i:=1 to TTest.Count do // << c'est quoi comme objet TTest? //begin // TestString:=TestString+TTest[i]; //end; end; showmessage(Ttest); end;   end;

---

Ah oui j'oubliais : la dll est dans un repertoire ou le programme va la trouver sans forcer, en l'occurence dans le meme repertoire que le programme lui meme, faute de quoi il faudra soit donner son chemin lors du loadlibrary, soit l'enregistrer sous windows...

Citation:

---

Envoyé par Clandestino

Voici un exemple simplissime basé sur ton code, et qui fonctionne (sous windows) :
[...]

Ah oui j'oubliais : la dll est dans un repertoire ou le programme va la trouver sans forcer, en l'occurence dans le meme repertoire que le programme lui meme, faute de quoi il faudra soit donner son chemin lors du loadlibrary, soit l'enregistrer sous windows...

---

Ok merci. C'est pas encore ca, mais ca avance. Je comprends mieux comment tout ca fonctionne, j'étais assez moind compte :)

ok, cette fois ca marche :)