Utilisation d'une DLL avec Lazarus comment déclarer : export const char* ?

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:

---

EXPORT const char *spec[];

---

J'ai converti en Pascal comme ceci :

Code:

---

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

---

Cependant, j'ai l'erreur suivante :

Citation:

---

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

---

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

Citation:

---

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

---

Comment dois-je la déclarer ?

Merci,
ZiP

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.

Bonjour Paul,

Ça semble fonctionner comme ceci :

Code:

---

1 2 3 4

var spec: PChar; external 'libacarsd.dll' name 'spec'; errornames: PChar; external 'libacarsd.dll' name 'errornames';

---

Cordialement,
ZiP

Citation:

---

Envoyé par 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.

---

Eh oui ! mais Lazarus le permet... :zoubi:
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').

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

Citation:

---

Envoyé par Ph. B.

Eh oui ! mais Lazarus le permet... :zoubi:
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:

---

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

Citation:

---

Envoyé par Paul TOTH

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

---

Bouh le vilain ! :lol:
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)

Citation:

---

Envoyé par Ph. B.

Bouh le vilain ! :lol:
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 :)