Discussion :

[petitcoucou31]

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 :

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

 Int32_t chargeCompoGroupe(CStr chemin)

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

Code :

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

 function chargeCompoGroupe(chemin:Pansichar):integer;sdtCall

Appel de la fonction dans l'application delphi.

Code :

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

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

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

 Int32_t chargeCompoGroupe(CStr chemin)

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

Code :

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

 function chargeCompoGroupe(chemin:Pwidechar):integer;sdtCall

Appel de la fonction dans l'application delphi.

Code :

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

 ... 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 ?

[Paul TOTH]

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 :

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

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;

[petitcoucou31]

merci Paul..ça fonctionne.

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