[D8] Utilisation dll D7 sous D8

:salut:

En delphi 7 j'utilisais massivement les pointers et, en général, ça fonctionnait mais en esseyant d'exploiter ce code sur D 8, j'obtient des choses bizarres.

Voilà, je voudrais donc utiliser une dll écrite en D 7 qui contient cette fonction

Code:

---

1 2 3 4 5

function AddDataP(InHandle : integer;Name : PChar;data : PChar;Replace : longbool) : longbool;stdcall; begin ... end;

---

sous D 8, j'ai essayé plusieurs méthodes qui ressemblaient à ça

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

function AddDataP(InHandle : integer;Name : PChar;data : PChar;Replace : longbool) : longbool;unsafe;external 'sdsf.dll';   function StrToPChar(InStr : string) : PChar;unsafe; begin Result := PChar(@InStr); end;   ... begin AddDataP(Handle,StrToPChar('system'),StrToPChar('data.dat'),true); ... end;

---

Mais voilà, dans cette méthode, je crois que seul le 1ere caracètre de chaque PChar est reçu par la dll D 7 ... je dis "je crois" car j'ai essayé une infinité de méthodes qui mon soit fait n'importe quoi, soit une erreur de Marshaling ...

Merci d'avance

de + en + bizarre :
Avec Delphi 8 j'appelle la fonction déclarée comme suit :

Code:

---

1 2 3 4 5 6 7

function AddDataP(InHandle : integer;Name : String;data : String;Replace : longbool) : longbool;external 'sdsf.dll';   //quelque part dans mon code AddDataP(Handle,'Test','blablabla',true);   //et ma dll reçoi (Handle,'T','b',true);

---

J'ai donc éssayé de faire donc un appel depuis une assemly C# et d'appeler ensuite l'assembly vers Delphi 8 ce qui donne

Code:

---

1 2 3 4 5 6 7

//C# [DllImport('sdsf.dll')] public static extern bool AddDataP(int InHandle,string Name,string Data,bool Replace);   //Delphi 8 LaClasseC#.AddDataP(Handle,'Test','blablabla',true);

---

et là, ça fonctionne 8O parfaitement 8O .

bien que mon appli D8+assembly C# fonctionnne, ce truc bizzare m'étone quand même ... qu'est-ce qui peut coser ça ????? :?

enfin bon ...