Discussion :

[[ZiP]]

Bonjour,

J'utilise une DLL C avec Lazarus et j'ai besoin de déclarer une constante exportée. Elle est déclarée dans le .h comme ceci :

Code c :

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

EXPORT const char *spec[];

J'ai converti en Pascal comme ceci :

Code :

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

1
2
const
    spec: PChar; external 'libacarsd.dll' name 'spec';

Cependant, j'ai l'erreur suivante :

Fatal: Syntax error, "=" expected but ";" found

Si je remplace le : par =, j'ai l'erreur suivante :

Error: Illegal expression
Fatal: Syntax error, "=" expected but "const string" found

Comment dois-je la déclarer ?

Merci,
ZiP

[Paul TOTH]

sous Delphi en tout cas tu ne peux pas utiliser de variables externes, il te faut une fonction dans le DLL qui te retourne un pointeur vers celle-ci.

[[ZiP]]

Bonjour Paul,

Ça semble fonctionner comme ceci :

Code :

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

1
2
3
4
 
var
    spec: PChar; external 'libacarsd.dll' name 'spec';
    errornames: PChar; external 'libacarsd.dll' name 'errornames';

Cordialement,
ZiP

[Ph. B.]

sous Delphi en tout cas tu ne peux pas utiliser de variables externes, il te faut une fonction dans le DLL qui te retourne un pointeur vers celle-ci.

Eh oui ! mais Lazarus le permet...
cf. cette discussion Utilisation d'une DLL externe = crash !
Par contre, la ce n'est pas un type simple (entier, caractère, booléen, énuméré et intervalle) mais un pointeur.
Sinon, l'erreur provient du mot clé const qui précède la déclaration... Lazarus attend une constante qui doit donc être valuée (constante = 'toto').

[[ZiP]]

Bonjour Ph. B.,

Effectivement, je pense que l'erreur provenait du const.

J'ai donc essayé de le déclarer comme expliqué précédemment et là, ça passe.

Merci,
ZiP

[Paul TOTH]

Eh oui ! mais Lazarus le permet...
cf. cette discussion Utilisation d'une DLL externe = crash !
Par contre, la ce n'est pas un type simple (entier, caractère, booléen, énuméré et intervalle) mais un pointeur.
Sinon, l'erreur provient du mot clé const qui précède la déclaration... Lazarus attend une constante qui doit donc être valuée (constante = 'toto').

j'ai le vague souvenir d'une astuce du type

Code :

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

1
2
3
4
5
6
7
8
 
procedure dummy; external 'madll.dll';
 
var
  data: Pointer;
begin
  data := @dummy;
end;

qui permet de récupérer l'adresse de la variable

[Ph. B.]

j'ai le vague souvenir d'une astuce du type qui permet de récupérer l'adresse de la variable

Bouh le vilain !
Il n'a pas lu le lien que je donnais et qui renvoie vers l'astuce en question...
Astuces pour delphi pour accéder aux variables d'une dll, par @gb_68 :
Comment utiliser une variable globale de dll ? (dynamique)
Comment utiliser une variable globale de dll ? (statique, fin de message)

[Paul TOTH]

Bouh le vilain !
Il n'a pas lu le lien que je donnais et qui renvoie vers l'astuce en question...
Astuces pour delphi pour accéder aux variables d'une dll, par @gb_68 :
Comment utiliser une variable globale de dll ? (dynamique)
Comment utiliser une variable globale de dll ? (statique, fin de message)

ben c'est la même chose, sauf que dans mon cas le lien est statique