Pansichar - PwideChar et parametre de fonction DLL

Bonjour ,

Nous avions une DLL codé en Delphi, qui fonctionne très bien sous XP. Cette DLL pouvait être utilisée par une application écrite en Delphi ou par Labview ( codé en C)

Sur sa migration en W7-64 et XE2 :
Nous avons remplacés les Pchar(..) par des Pansichar(...) et cela fonctionne avec Labview , mais plus avec l'application Delphi. Dans l'application Delphi le seul et 1er caractères de la chaine passé en paramètre est récupéré par la DLL.

Nous avons remplacés ensuite les Pchar(..) par des Pwidechar(...) et cela fonctionne bien l'application Delphi, mais pas avec Labview. la chaine passé par Labview en paramètre et récupéré par la DLL ressemble à du chinois !.

voici les codes : avec une conversion en Pansichar (cas ou Labview fonctionne , mais pas l'application Delphi)

prototype de l'entête de la fonction dans LabView.

Code:

---

Int32_t chargeCompoGroupe(CStr chemin)

---

prototype de l'entête de la fonction dans la DLL.

Code:

---

function chargeCompoGroupe(chemin:Pansichar):integer;sdtCall

---

Appel de la fonction dans l'application delphi.

Code:

---

... chargeCompoGroupe(Pansichar(Chemin))

---

et les codes : avec une conversion en Pwidechar (cas ou Labview ne fonctionne pas , mais l'application Delphi fonctionne)

prototype de l'entête de la fonction dans LabView.

Code:

---

Int32_t chargeCompoGroupe(CStr chemin)

---

prototype de l'entête de la fonction dans la DLL.

Code:

---

function chargeCompoGroupe(chemin:Pwidechar):integer;sdtCall

---

Appel de la fonction dans l'application delphi.

Code:

---

... chargeCompoGroupe(Pwidechar(Chemin))

---

Remarque : le paramètre reçue par la DLL est ensuite converti en string pour son utilisation par la DLL, et c'est bien dés que je reçois le paramètre qu'il est incorrect.

un tuyau ?:roll:

il manque le type de Chemin (le paramètre)

une façon simple de savoir ce que tu fais c'est de ne pas laisser le compilateur le faire pour toi

Code:

---

1 2 3 4 5 6 7 8 9 10 11

var s1: string; s2: AnsiString; p2: PAnsiChar; begin s1 := '...': // Chaîne Unicode s2 := AnsiString(s1); // conversion Unicode -> Ansi p2 := PAnsiChar(s2); // string en PAnsiChar chargeCompoGroupe(p2); end;

---

merci Paul..ça fonctionne.

en effet j'ai tendance à laisser Delphi à gérer tout cela tout seul.