Discussion :

[talapoga]

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 :

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

[Alcatîz]

Bonjour !

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

Code :

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

1
2
Exports  
   SplitString   index 1   name 'SplitString';

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

[talapoga]

Bonjour !

Bonjour,

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

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.

[Clandestino]

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

code de la dll

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

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

[talapoga]

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

[talapoga]

ok, cette fois ca marche