[DLL] Problème d'export de fonctions d'autres unités

**starch** · 01/07/2004, 09h31

Bonjour,

J'essaie actuellement de faire une DLL pour mettre en commun le code de diverses applications. Mais voilà que je rencontre un problème. M'est avis que cela est du au fait que je ne comprend pas bien comment se fait le linkage mais bon, voici.

Voici le code de ma DLL qui marche

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
 
library malib;
 
uses
  FastShareMem in 'FastShareMem.pas',
  SysUtils,
  Classes;
 
{$R *.res}
 
const
  DLL_VERSION = '0.1';
 
function getVersion: string; stdcall;
begin
  Result:= DLL_VERSION;
end;
 
exports
  getVersion;
 
begin
end.

Aucun problème, dans un programme je fais :

Code :

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

1
2
 
function getVersion: string; stdcall; external 'malib.dll';

et quand j'appelle getVersion tout marche comme je l'attendais, ie, je récupère le numéro de version.

Passons au problème, comme j'ai d'autres fonctions et que je déteste tout mettre dans un seul fichier, je décide de mettre ma fonction dans une autre unité.

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
 
unit libfunctions;
 
interface
uses
  SysUtils;
 
function getVersion: string; stdcall;
 
implementation
 
function getVersion: string; stdcall; export;
begin
  Result:= DLL_VERSION;
end;
 
end.

si maintenant mon fichier principal prend cette forme :

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
 
library malib;
 
uses
  FastShareMem in 'FastShareMem.pas',
  SysUtils,
  Classes,
  libfunctions in 'libfunction.pas';
 
{$R *.res}
 
exports
  getVersion;
 
begin
end.

Et bien dans le programme final lorsque que j'appelle getVersion, le programme se bloque, mon utilisation processeur passe à 100%, et je suis obligé de sauvagement killer le tout.

Voilà, si quelqu'un a une idée. Dans un premier temps, je pourrais tout mettre dans mon fichier principal, mais je trouve ça goret :/

Merci par avance
Starch'[/b][/code]

**anapurna** · 01/07/2004, 10h18

salut

ptit question, as tu essayé de remplacer le string par un pchar et enlever l'unit fastsharmem ?

c'est juste histoire de voir si tu n'aurais pas un comflit avec la derniere unitée. je ne sais pas ce que fait fastsharmem mais peut etre que ton probleme vient de là

@+ Phil

**starch** · 01/07/2004, 10h28

merci de ta réponse.

Oui c'est comme ça que j'avais commencé en fait, avec des PChar et sans le FastShareMem, qui en fait est une unité qui d'après les mecs qui l'ont fait remplace beaucoup mieux l'unité ShareMem fournie par Borland, et c'est libre en plus.

Mais j'avais le même problème :/

++
Starch'