Utilisation de services C++ importés

Bonjour,

Je débute en DELPHI depuis 2 semaines ...

Je developpe actuellement une appli sous DELPHI qui doit utiliser les services d'une dll C++, compilée sous BC55.
J'ai donc déclaré en statique les prototypes de ces services dans mon projet DELPHI avec les mots clés qui vont bien (cdecl, external, name, ....) et la compile passe.

Exemple de service dans l'API C++ :
int DECLSPEC _MaFonction ();
je traduit en Pascal par :
function _MaFonction : integer; cdecl; external 'malibrairie.dll';

et à l'execution tout se passe bien.

En revanche, lorsque je tombe sur un service du type :
int DECLSPEC _MaFonction(const char * RF_ConfigDescr, const long RF_TailleConfigDescr, int * RF_Status);
je le transcris en Pascal de la façon suivante :
function _MaFonction(const RF_ConfigDescr : PChar; const RF_TailleConfigDescr : longint; var RF_Status : integer):integer; cdecl; external 'malibrairie.dll';

et là, l'exécution, mon projet plante, Windows m'insulte et ma parle d'une erreur de violation d'accès et me propose une fenêtre assembleur à laquelle je ne pipe mot !:(

Je soupçonne que le typage que j'utilise n'est pas approprié mais j'ai beau tout essayer, je ne trouve pas le bon.






Merci de vos réponses....

hello,

sinon je ne vois pas d'erreur dans la traduction (mis à part le nom de fonction, mais j'imagine que c'est une erreur de copie :p )

du coup je pense à la convention d'appel...j'ai toujours pas bien compris comment on indique la convention d'appel en C, mais ne devrais-tu pas utiliser du stdcall au lieu de cdecl ?

Citation:

---

Envoyé par Paul TOTH

hello,

sinon je ne vois pas d'erreur dans la traduction (mis à part le nom de fonction, mais j'imagine que c'est une erreur de copie :p )

---

Oui effectivement, une simple erreur de copie ...

Citation:

---

Envoyé par Paul TOTH

du coup je pense à la convention d'appel...j'ai toujours pas bien compris comment on indique la convention d'appel en C, mais ne devrais-tu pas utiliser du stdcall au lieu de cdecl ?

---

Moi non plus, je n'ai pas tout compris, mais j'ai essayé le stdcall et le problème persiste.

En revanche, j'ai toujours un doute sur le typage à utiliser lorsque j'apellle une fonction C qui passe un float* en paramètre ....

Citation:

---

Envoyé par Cheb09

Oui effectivement, une simple erreur de copie ...



Moi non plus, je n'ai pas tout compris, mais j'ai essayé le stdcall et le problème persiste.

En revanche, j'ai toujours un doute sur le typage à utiliser lorsque j'apellle une fonction C qui passe un float* en paramètre ....

---

Code:

---

1 2 3 4 5 6 7

// void proc(float * toto): procedure (var toto:single); cdecl; // ou procedure (toto:psingle); cdecl;   // et double = double :D

---

Ce sont les const qui posent problème. En C++ le const ne fait que signaler au compilateur qu'il ne faut pas modifier la variable à l'intérieur de la fonction. En Delphi ça fait ça plus le même effet que le var : un passage par référence.

Il faudrait donc déclarer comme ceci :

Code:

---

1 2	int DECLSPEC _MaFonction(const char * RF_ConfigDescr, const long RF_TailleConfigDescr, int * RF_Status);

---

Code:

---

1 2 3

function _MaFonction(RF_ConfigDescr : PChar; RF_TailleConfigDescr : LongInt; var RF_Status : integer) : integer; cdecl; external 'malibrairie.dll';

---

Bref rappel sur les paramètres const

hum...je suis dubitatif

quand tu passes une structure en paramètre...soit elle est recopiée (pas de préfix), soit elle est modifiable et passée par adresse (var) soit elle est non-modifiable et passée par adresse (const).

mais pour un PChar, je ne vois pas quelle différence il peut y avoir entre const et sans const...dans les deux cas on passe la valeur d'un pointeur et non l'adresse du pointeur.

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 29 30 31 32 33 34 35 36 37 38

procedure p(p:pchar); begin p[0]:='a'; // mov byte ptr[eax],$61 end;   procedure varp(var p:pchar); begin p[1]:='b'; // mov eax,[eax] // mov byte ptr[eax+1],$62 end;   procedure constp(const p:pchar); begin p[2]:='c'; // mov byte ptr[eax+2],$63 end;   procedure TForm1.FormCreate(Sender: TObject); var z:array[0..5] of char; a:pchar; begin z:='hello'; a:=@z; p(a); // mov eax,[ebp-$0c] // call p varp(a); // lea eax,[ebp-$0c] ; LEA et non MOV ! // call varp constp(a); // mov eax,[ebp-$0c] // call constp ShowMessage(a); end;

---

ceci donne bien "abclo"

la différence est uniquement au niveau du "var" qui utilise "@a" au lieu de "a"

Dingue ! Ce compilo est vraiment trop fort 8O
Il ignore purement et simplement le const pour les types scalaires et les types dont la taille est maximum 4. Je viens de vérifier plusieurs tests en déboguant l'assembleur.

Donc en effet ça ne devait pas avoir d'implication, même si la traduction n'était quand même pas bonne.

Cela dit, heureusement que tu me donnes l'occasion de vérifier... Ca m'évitera pas mal de problèmes quand j'attaquerai la génération de code de Sepi :aie:

Citation:

---

Envoyé par sjrd

Dingue ! Ce compilo est vraiment trop fort 8O
Il ignore purement et simplement le const pour les types scalaires et les types dont la taille est maximum 4. Je viens de vérifier plusieurs tests en déboguant l'assembleur.

---

mais je ne vois pas quelle différence cela pourrait faire !

il me semble qu'en C, un paramètre constant ne peux pas être modifié...c'est à dire que le code suivant ne compile pas :

Code:

---

1 2 3 4 5 6

procedure test(const p:pchar); begin p^:='a'; // interdit en C sur une constante, mais autorisé sous Delphi inc(p); // interdit sous Delphi ! end;

---

alors que sous Delphi ce n'est que la variable qui ne peut être modifiée, pas ce qu'elle pointe (ni les propriétés d'un objet par exemple).

Citation:

---

Envoyé par Paul TOTH

mais je ne vois pas quelle différence cela pourrait faire !

---

Dans le cadre d'une importation entre différents langages, cela change tout ! Car si d'un côté ton programme Delphi envoie une adresse, et de l'autre la biblio C++ reçoit une valeur... Bonjour la casse :aie:

Citation:

---

Envoyé par Paul TOTH

il me semble qu'en C, un paramètre constant ne peux pas être modifié...c'est à dire que le code suivant ne compile pas :

---

En effet, sinon à quoi servirait le const du C ? ;) A l'intérieur de la procédure, il impose une interdiction ; et à l'extérieur, il est purement informatif pour le programmeur (qui sait alors qu'il peut sans problème passer sa chaîne dont il a encore besoin après).

Tandis que le const du Pascal est non seulement impératif à l'intérieur, mais également modifie la façon d'appeler et de recevoir le paramètre.

Ils sont donc fondamentalement différents.