passage de paramètre dans l'appel d'une fonction venant d'une dll (C++ & Delphi)

Bonjour,

Le code suivant (écrit en C++) charge une fonction d'une dll (dll écrite en delphi), et, est censé m'afficher du texte passé en paramètre.
Celà ne fonctionne pas, le texte retourné semble toujours "null" ...
(Le chargement de la dll etc est ok)

Je ne comprend pas d'où vient l'erreur

Code:

---

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

private: System::Void bt_sbHelloParam_Click(System::Object^ sender, System::EventArgs^ e) {   typedef wchar_t* (*fct_sbHelloParam)(LPSTR txt); fct_sbHelloParam fsbHelloParam;   fsbHelloParam = (fct_sbHelloParam)GetProcAddress(hInstLibrary, "_sbHelloParam"); if (fsbHelloParam){ LPSTR txt = "test"; std::wstring res = fsbHelloParam(txt); MessageBox::Show(System::Convert::ToString(gcnew String(res.c_str())),"msg",MessageBoxButtons::OK,MessageBoxIcon::Question); }else{ MessageBox::Show("GetProcAddress for _sbHelloParam failed !","msg",MessageBoxButtons::OK,MessageBoxIcon::Question); }   }

---

fonction en elle même (écrite en delphi)

Code:

---

1 2 3 4 5 6 7

function _sbHelloParam(txt:PChar):Pchar; stdcall; var res : Pchar; begin StrPCopy(res,sbHelloParam(StrPas(txt))) ; Result := res; end ;

---

PS: j'ai fais une fonction HelloWorld qui elle affiche un texte prédéfini dans la DLL delphi, et ça, ça marche.


Mais mon HelloParam est censé afficher un texte passé en paramètre, et c'est là que se pose mon problème (le passage de valeur en paramètres)

pchar n'est pas comme wchar_t *
et StrPCopy m'a l'air suspect

Citation:

---

Envoyé par screetch

pchar n'est pas comme wchar_t *
et StrPCopy m'a l'air suspect

---

pourtant la même fonction mais sans passage de paramètre, marche sans probleme ???

Code:

---

1 2 3 4 5 6 7

function _sbHelloWorld():Pchar; stdcall; var res : Pchar; begin StrPCopy(res,sbHelloworld()) ; Result := res; end ;

---

Code:

---

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

private: System::Void bt_sbHelloWorld_Click(System::Object^ sender, System::EventArgs^ e) {   typedef wchar_t* (*fct_sbHelloWorld)(); fct_sbHelloWorld fsbHelloWorld;   fsbHelloWorld = (fct_sbHelloWorld)GetProcAddress(hInstLibrary, "_sbHelloWorld"); if (fsbHelloWorld){ std::wstring res = fsbHelloWorld(); MessageBox::Show(System::Convert::ToString(gcnew String(res.c_str())),"msg",MessageBoxButtons::OK,MessageBoxIcon::Question); }else{ MessageBox::Show("GetProcAddress for _sbHelloWorld failed !","msg",MessageBoxButtons::OK,MessageBoxIcon::Question); } }

---

je capte pas ... suis sur c une bétise, mais ????

Code:

---

typedef wchar_t* PASCAL (*fct_sbHelloParam)(LPSTR txt);

---

?

Citation:

---

Envoyé par screetch

Code:

---

typedef wchar_t* PASCAL (*fct_sbHelloParam)(LPSTR txt);

---

?

---

L'ajout d'un PASCAL ou d'un _STDCALL provoque un plantage à l'exécution.


je viens d'essayer ceci, qui me parait plus cohérent au niveau des déclaration de variable ... mais le résultat est le même mon msgbox est vide.

Code:

---

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

private: System::Void bt_sbHelloParam_Click(System::Object^ sender, System::EventArgs^ e) {   typedef wchar_t* (*fct_sbHelloParam)(std::wstring txt); fct_sbHelloParam fsbHelloParam;   fsbHelloParam = (fct_sbHelloParam)GetProcAddress(hInstLibrary, "_sbHelloParam"); if (fsbHelloParam){ std::string txt = "test"; std::wstring wtxt = wtxt.assign(txt.begin(),txt.end()); std::wstring res = fsbHelloParam(wtxt); MessageBox::Show(System::Convert::ToString(gcnew String(res.c_str())),"msg",MessageBoxButtons::OK,MessageBoxIcon::Question); }else{ MessageBox::Show("GetProcAddress for _sbHelloParam failed !","msg",MessageBoxButtons::OK,MessageBoxIcon::Question); }   }

---

si je fais un msgbox d'un texte fixe genre "zzz", il s'affiche bien, donc c'est le problème vient de quelque part au niveau de l'appel de ma fonction, ou du résultat qu'elle envoie.

ah j'avais manque le stdcall sur ta fonction en pascal.

je suis sur a 90% que la signature devrait etre:

Code:

---

typedef char* STDCALL (*fct_sbHelloParam)(char* txt);

---

Code:

---

1 2 3 4 5 6 7

function _sbHelloParam(txt:PChar):Pchar; stdcall; var res : Pchar; begin StrPCopy(res,sbHelloParam(StrPas(txt))) ; Result := res; end ;

---

et si tu fais

Code:

---

1 2 3

myString := 'Hello World'; Result := Addr(myString[1]);

---

ca fait longtemps que j'ai pas fait de pascal, alors je suis pas sur que ca peut marcher...

ou sinon est-ce que

Code:

---

Result = txt;

---

marche?

Il manque un StrAlloc dans _sbHelloParam. Et ça pose un problème de propriétaire de la chaîne allouée.

Apparemment pour wchar_t* il faudrait utiliser PWideChar ?

Citation:

---

Envoyé par vin100H

si je fais un msgbox d'un texte fixe genre "zzz", il s'affiche bien, donc c'est le problème vient de quelque part au niveau de l'appel de ma fonction, ou du résultat qu'elle envoie.

---

Ca me fait beaucoup penser à un problème de responsabilité mémoire.
En gros la chaîne pascal que tu espères récupérer en C++ est supprimée en sortie de la fonction Pascal. Et n'arrive donc jamais dans le C++.
Ne peux-tu pas améliorer la fonction pour prendre en paramètre out la chaîne à remplir ?

Bon, un "petit peut" d'avancement.

J'ai fais quelques modif, viré les msgbox qui semblaient déconner, je remes donc mon dernier code ci-dessous

C++

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

private: System::Void bt_sbHelloParam_Click(System::Object^ sender, System::EventArgs^ e) {   typedef wchar_t* (*fct_sbHelloParam)(std::wstring wtxt); fct_sbHelloParam fsbHelloParam;   fsbHelloParam = (fct_sbHelloParam)GetProcAddress(hInstLibrary, "_sbHelloParam"); if (fsbHelloParam){   std::string txt = "test"; std::wstring wtxt; wtxt.assign(txt.begin(), txt.end());   std::wstring res = fsbHelloParam(wtxt); this->tbLog->Text += System::Convert::ToString(gcnew String(res.c_str())); }else{ this->tbLog->Text += "GetProcAddress for _sbHelloParam failed !" + "\r\n"; }   }

---

Delphi (DLL)

Code:

---

1 2 3 4 5 6 7 8 9

function _sbHelloParam(txt:PChar):Pchar; stdcall; var res : Pchar; myString : string; begin myString := txt; StrPCopy(res,myString); Result := res; end ;

---

Le résultat est le suivant "ᢰӫ᮰ë똏쇀ˠ獳牯4" .... interdit de rire.

Non, plus sérieusement, en mode debug, je constate que avant l'exécution de la ligne

Code:

---

std::wstring res = fsbHelloParam(wtxt);

---

la valeur de wtxt correspond bien à "test", mais une fois passée par ma fonction delphi, j'ai en retour ceci "ᢰӫ᮰ë똏쇀ˠ獳牯4" (dans res)

J'ai testé différentes combinaise de StrPas, StrPcopy, etc dans delphi, mais ????

petit up

j'ai ajouté une écriture dans un fichier ini à ma dll, de manière à voir si ce qu'elle reçoit est correcte, et déjà là il y à un prob.

Code:

---

1 2	IniFile.WriteString('zzz', '1', txt); IniFile.WriteString('zzz', '2', StrPas(txt));

---

celà me donne

Code:

---

1 2 3

[zzz] 1=????????????????????????????????~?????????%????????????U??????????? 2=????????????????????????????????~?????????%????????????U???????????

---

Donc il doit y avoir un soucis soit dans la manière dont je fais l'envois ?

tu ne peux pas envoyer des objets C++ comme wstring, tu peux juste passer des PChar. et PChar est different de PWideChar.

string.c_str() -> PChar
wstring.c_str()->PWideChar

Les types String et Char des versions récentes de Delphi sont wide :
http://www.micro-isv.asia/2008/08/ge...9-and-unicode/

Citation:

---

Just like string is now UnicodeString, Char is now an alias to WideChar, and PChar an alias to PWideChar.

---

aHAH. 8 ans que j'ai pas fait de Delphi, je suis a la ramasse :)
neanmoins, on ne peut toujours pas envoyer wstring a delphi; les objets C++ doivent etre cinvertis en objet simples comme int ou char* avant de pouvoir etre lus par delphi, et vice versa: on ne peut pas envoyer un objet delphi au C++

Bien entendu.

Mais je répète quelque chose qui semble avoir été ignoré : faire un StrPCopy sans StrAlloc, c'est comme faire ça en C :

Code:

---

1 2	char *bob; strcpy(bob, "my name is Bob");

---

Il y a comme un souci, non ?

Donc on récapitule :
- Il faut utiliser wchar_t/wstring côté C++ pour avoir le même type de caractères (si Delphi est suffisamment récent)
- Si en Delphi on veut créer un PChar, le mieux est d'utiliser le type String et utiliser l'équivalent de notre c_str : PChar() (ça évitera de faire des StrAlloc)
- Si une fonction Delphi doit retourner une chaîne, il faut que cette chaîne soit statique (et thread-local éventuellement), ou bien incluse dans un objet dont l'importateur est propriétaire*
- On peut aussi écrire une fonction qui prend en paramètre un pointeur + une taille maxi, mais c'est plus lourd
- Il existe peut-être des types chaînes communs aux 2 langages, par exemple BSTR (encapsulé par _bstr_t en C++ et WideString en Delphi

(*) Quand je développe des DLL pour un autre langage il arrive souvent que j'exporte des fonctions de création/libération d'objets, de manière à transférer la propriété de ces objets vers le langage importateur. Celui-ci encapsule les objets dans des classes et c'est presque transparent (ça pose parfois pas mal de problèmes, cependant)

Bon, après 1 petit jour à la maison, je m'y remet.

PS: j'utilise PChar en delphi, car j'ai lu que le type string en delphi ne pouvait pas être transféré et qu'il fallait utiliser Pchar

PS2 : Il s'agit de Delphi XE et de C++ (MsVisual Studio 2008)

Citation:

---

Envoyé par vin100H

PS: j'utilise PChar en delphi, car j'ai lu que le type string en delphi ne pouvait pas être transféré et qu'il fallait utiliser Pchar

---

Ca change rien. Le type manipulé dans Delphi doit être une String, tu as PChar() pour en extraire un PChar (comme std::string::c_str en C++).

Citation:

---

Envoyé par vin100H

PS2 : Il s'agit de Delphi XE et de C++ (MsVisual Studio 2008)

---

D'après une recherche google, c'est bien une version récente avec des String UTF-16.

Je pense que je vois ce qu'il se passe ... mais je n'arrive pas a le corriger.

Selon l'aide de Delphi, ...

Citation:

---

PChar définit un pointeur sur un emplacement mémoire qui contient des valeurs WideChar (y compris le caractère #0).

---

ce que je dois envoyer à ma fonction est donc un pointeur de type wchar_t*

ce qui n'est pas le cas pour le moment, ... je lui envoie un wstring (et il s'attend a recevoir un pointeur)

J'ai donc fait quelques modif qui donnent ceci.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

private: System::Void bt_sbHelloParam_Click(System::Object^ sender, System::EventArgs^ e) {   typedef wchar_t* (*fct_sbHelloParam)(wchar_t* wtxt); fct_sbHelloParam fsbHelloParam;   fsbHelloParam = (fct_sbHelloParam)GetProcAddress(hInstLibrary, "_sbHelloParam"); if (fsbHelloParam){   char* txt("test"); wchar_t* wtxt; mbstowcs(wtxt, txt, 5); wchar_t* res = fsbHelloParam(wtxt); char* reschar; wcstombs(reschar, res, 5); std::string resstr=reschar;   this->tbLog->Text += System::Convert::ToString(gcnew String(resstr.c_str()))+ "\r\n"; }else{ this->tbLog->Text += "GetProcAddress for _sbHelloParam failed !" + "\r\n"; }   }

---

le problème est que mon mbstowcs ne semble pas marcher.
quand je passe en mode debug, il m'indique bien une adresse à laquelle on trouve "test" pour mon char*
avant mbstowcs, mon wtxt est "undefined"
après mbstowcs, mon wtxt est toujours "undefined"

?

un petit edit pour dire que cette partie là est ok

Code:

---

1 2	wchar_t* wtxt = L"test"; wchar_t* res = fsbHelloParam(wtxt);

---

en debug, je vois que c bien le pointeur qui pointe vers la valeur "test" qui est envoyé.

il me reste donc je pense un problème dans delphi

Citation:

---

Envoyé par Hibernatus34

Ca change rien. Le type manipulé dans Delphi doit être une String, tu as PChar() pour en extraire un PChar (comme std::string::c_str en C++).


D'après une recherche google, c'est bien une version récente avec des String UTF-16.

---

Oui, le PChar en delphi est bien en 16 unicode.

Apparement, pour extraire un pchar, il suffirait de faire un truc genre
monstr := monpchar;


Peut-être que j'ai une erreur des 2 côté enfait ... Delphi et C++

Citation:

---

Envoyé par vin100H

Code:

---

1 2 3

std::string txt = "test"; std::wstring wtxt; wtxt.assign(txt.begin(), txt.end());

---

---

Ca c'est mal.
Voilà la manière correcte :
http://www.cplusplus.com/reference/s...e/ctype/widen/

Ou plus simple :

Code:

---

std::wstring wtxt(L"test");

---

Citation:

---

Envoyé par vin100H

Code:

---

1 2 3 4 5 6 7 8 9

function _sbHelloParam(txt:PChar):Pchar; stdcall; var res : Pchar; myString : string; begin myString := txt; StrPCopy(res,myString); Result := res; end ;

---

---

Ca c'est très mal !
1. res n'a pas été initialisé (c'est un pointeur qui pointe où ?), je comprends pas pourquoi ça n'a pas planté.
2. Qui va libérer la mémoire pointée par res ? Le code de la DLL n'en garde pas trace, après l'appel à cette fonction c'est perdu.

Pour commencer, déclare une String globale (ou membre d'un objet qui existera avant et après tous les appels à cette fonction), et dans cette String tu mets la chaîne que tu veux retourner (maString := "tataouine"), et tu retournes : Result := PChar(maString).

Après, il faudrait savoir à quoi va servir ta DLL pour trouver une solution plus "intelligente".

Groarrr je deviens fou.

Bon, je récapapète depuis le bédu, car je commence à m'emmeler.

Voici la dernière version de mon code C++ qui, sauf erreur, me parrait cette fois-ci plus "cohérent

Code:

---

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

private: System::Void bt_sbHelloParam_Click(System::Object^ sender, System::EventArgs^ e) {   typedef wchar_t* (*fct_sbHelloParam)(wchar_t* wtxt); fct_sbHelloParam fsbHelloParam;   fsbHelloParam = (fct_sbHelloParam)GetProcAddress(hInstLibrary, "_sbHelloParam"); if (fsbHelloParam){   wchar_t* wtxt = L"test"; wchar_t* res = fsbHelloParam(wtxt); this->tbLog->Text += System::Convert::ToString(gcnew String(res))+ "\r\n"; }else{ this->tbLog->Text += "GetProcAddress for _sbHelloParam failed !" + "\r\n"; }   }

---

et voici le code de ma DLL (où j'envoie dans un fichier le paramètre, pour essayer de "tracer" à quel moment ça foire)

Code:

---

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

function _sbHelloParam(txt:Pchar):Pchar; stdcall; var res : Pchar; myString : string; IniFile : TIniFile; begin   myString := pChar(txt);   IniFile := TIniFile.Create('C:\Windows\zzz_ctest.ini'); IniFile.WriteString('zzz', '1', myString); IniFile.Free;   Result := txt; end ;

---

celà me donne, comme résultat à l'écran dans mon programme C++

Code:

---

9ኌ巢9䋶ᘴb

---

et dans mon fichier ini (Delphi)

Code:

---

1 2	[zzz] 1=?9???9???b

---

Quant-à ta question à quoi servira la dll, en réalité, il s'agit d'une DLL déjà fonctionnelle sous Delphi, appelée par Delphi, mais, qui devra être appelée également par du C++
Donc, on "essaie" d'ajouter des fonctions appelable à partir de C++ qui, elle-même, utiliseront les fonction "standard" (pour ne pas modifié le déjà fonctionnel).

Mais le but dans un 1er temps est de pouvoir faire fonctionner un HelloParam.
Un HelloWorld basique (à la méthode fonction compatible C++ appelant fonction "standard" Delphi, c'est OK)

là où le bas blesse, c'est quand il faut passer des paramètres.

J'ai l'impression wue le

Code:

---

wchar_t*

---

de C++ n'est pas "codé" de la même façon que le

Code:

---

PChar

---

de delphi

D'après l'aide de delphi

Code:

---

1 2 3 4 5 6

Définit une chaîne terminée par null.         PChar définit un pointeur sur un emplacement mémoire qui contient des valeurs WideChar (y compris le caractère #0).

---

est-ce bien celà que je crée en utilisant wchar_t* en C++?

oui, si les deux sont bien codes sur 2 octets (c'est normalement le cas)

Je comprends pas ça :

Code:

---

System::Convert::ToString(gcnew String(res))

---

Tu convertis une String en String.

Et ça :

Code:

---

myString := pChar(txt);

---

Tu convertis un PChar en PChar.

Pense à déclarer explicitement le __sdtcall en C++, sais-tu au moins quelle est la convention par défaut dans ton compilo ?

Maintenant, je ne comprends pas comment en renvoyant txt tel quel tu peux avoir un résultat différent... Affiche-le avant et après l'appel à la fonction.

Citation:

---

Envoyé par Hibernatus34

Je comprends pas ça :

Code:

---

System::Convert::ToString(gcnew String(res))

---

Tu convertis une String en String.

---

effectivement, gcnew String(res) semble suffisant
j'avais trouvé ce code pour convertir std::wdstring en System::String, comme ça marchait j'ai pas cherché plus loin

Citation:

---

Envoyé par Hibernatus34

Et ça :

Code:

---

myString := pChar(txt);

---

Tu convertis un PChar en PChar.

---

Tu as raison, ... je ne sais pas trop comment on convertit, d'après les infos que j'ai trouvé, une simple assignation du PChar dans un string fait la convertion (ou bien via StrPas())

Citation:

---

Envoyé par Hibernatus34

Pense à déclarer explicitement le __sdtcall en C++, sais-tu au moins quelle est la convention par défaut dans ton compilo ?

Maintenant, je ne comprends pas comment en renvoyant txt tel quel tu peux avoir un résultat différent... Affiche-le avant et après l'appel à la fonction.

---

BINGOOOOOOOOOOOOO

J'avais lu sur le net que le __stdcall était "par défaut" donc je ne l'ai pas ajouté.
J'avais tout de même fait une tentative avec, qui avait échouée car j'avais probablement une autre erreur.

Voilà, donc en définitive, ça marche.
Un grand merci pour ton aide, (pareil pour les autres intervenants.)
Je ne suis pas encore au bout de mes peine vu que c'était une fonction "test", mais si la base marche, le reste suivra.

Je colle ci-dessous le code fonctionnel, pour que les choses soient claires.

Delphi

Code:

---

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

function _sbHelloParam(txt:Pchar):Pchar; stdcall; var res : Pchar; myString2 : string; IniFile : TIniFile; begin   myString2 := StrPas(txt);   IniFile := TIniFile.Create('C:\Windows\zzz_ctest.ini'); IniFile.WriteString('delphiresult', 'myString2', myString2); IniFile.WriteString('delphiresult', 'txt', txt); IniFile.Free;   Result := txt; end ;

---

C++

Code:

---

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

private: System::Void bt_sbHelloParam_Click(System::Object^ sender, System::EventArgs^ e) {   typedef wchar_t* (__stdcall *fct_sbHelloParam)(wchar_t* wtxt); fct_sbHelloParam fsbHelloParam;   fsbHelloParam = (fct_sbHelloParam)GetProcAddress(hInstLibrary, "_sbHelloParam"); if (fsbHelloParam){   wchar_t* wtxt = L"test"; wchar_t* res = fsbHelloParam(wtxt); this->tbLog->Text += "res="+gcnew String(res)+ "\r\n"; }else{ this->tbLog->Text += "GetProcAddress for _sbHelloParam failed !" + "\r\n"; }   }

---

Mais qui et quand est libérée la chaîne résultat ?

Citation:

---

Envoyé par Bousk

Mais qui et quand est libérée la chaîne résultat ?

---

Je ne sais pas trop ce qu'il faut libérer ni quand ...

qui ? .. ma fonction C++ après l'appel à la fonction Delphi.

Citation:

---

Envoyé par Bousk

Mais qui et quand est libérée la chaîne résultat ?

---

Pour l'instant il se contente de renvoyer le pointeur qui appartient à l'appelant.
Il va comprendre le problème quand il voudra renvoyer un vrai résultat.

Citation:

---

Envoyé par Hibernatus34

Pour l'instant il se contente de renvoyer le pointeur qui appartient à l'appelant.
Il va comprendre le problème quand il voudra renvoyer un vrai résultat.

---

Tout juste ...

Voici un exemple type des autres fonctions que je vais devoir utiliser ...

Code:

---

1 2 3 4 5 6 7 8 9 10

function _sbHelloParam(txt:Pchar):Pchar; stdcall; var Res : Pchar; TmpTxt : string; begin TmpTxt := StrPas(txt); GetMem(res, length(TmpTxt)); StrPCopy(res,sbHelloParam(TmpTxt)) ; Result := res; end ;

---

et effectivement ... quand faire mon freemem ???

J'espère que Length() renvoie un nombre d'octets, (longueur + 1) * 2, et non un nombre de caractères, sinon ta fonction est buggée.

Comment faire ?
Il faut simplement avoir une String qui est garantie d'exister avant et après l'appel à la fonction.
Ca peut être un membre d'un objet auquel on accède avec cette fonction.
Ca peut aussi être une simple globale.

Et donc tu fais pas d'allocation à chaque appel de la fonction. Pas explicitement du moins.

Citation:

---

Envoyé par Hibernatus34

J'espère que Length() renvoie un nombre d'octets, (longueur + 1) * 2, et non un nombre de caractères, sinon ta fonction est buggée.

Comment faire ?
Il faut simplement avoir une String qui est garantie d'exister avant et après l'appel à la fonction.
Ca peut être un membre d'un objet auquel on accède avec cette fonction.
Ca peut aussi être une simple globale.

Et donc tu fais pas d'allocation à chaque appel de la fonction. Pas explicitement du moins.

---

Je pense que le length n'est pas bon, ... je vais devoir le changer.


Question:

En supposant que je crée une (des) variable(s) globale(s) pour mes pointeurs dans Delphi. (donc dans ma DLL)

Faut-il faire des "FreeMem" à un moment ou l'autre, ou, l'espace mémoire aloué est-il libéré lorsqu'on fait un unload de la dll (depuis C++)

Citation:

---

Envoyé par Hibernatus34

J'espère que Length() renvoie un nombre d'octets, (longueur + 1) * 2, et non un nombre de caractères, sinon ta fonction est buggée.

---

Je ne trouve pas l'info indiquée dans l'aide extremement clair.

Code:

---

1 2 3 4 5 6 7 8 9 10

[edit] Description   Renvoie le nombre de caractères d'une chaîne ou d'éléments d'un tableau.         Dans le code Delphi, Length renvoie le nombre de caractères effectivement utilisés dans la chaîne ou le nombre d'éléments dans le tableau. Dans le code C++, utilisez la méthode portant le même nom sur la classe AnsiString ou DynamicArray.   Pour des chaînes à un seul octet et multi-octets, Length renvoie le nombre d'octets utilisés par la chaîne. Pour des chaînes Unicode (WideString), Length renvoie le nombre d'octets divisé par deux.

---

je devrais faire * 2 .

pour des chaine unicode ca renvoie le nombre d'octet divisé par 2 ?
faut-il traduire ça par ... ca renvoie le nombre de caractère, mais comme les caractère sont sur 2 octet, c le nombre d'octet /2 ???

C'est pas simple :
Une globale fait partie du module. Quand un module est déchargé, la globale aussi...
.. mais le type String contient un pointeur sur les caractères qui le compose. Ce pointeur pointe sur le tas.
Normalement, je dirais que les compilo Delphi et C++, qui peuvent avoir des globales avec destructeurs, ont la responsabilité d'appeler ces destructeurs au déchargement d'une DLL, et donc j'ose espérer que ça marche correctement.
Mais franchement, une DLL c'est pas fait pour être chargé/déchargé souvent. On voudra souvent qu'une DLL reste chargée en permanence à partir du premier usage.

Citation:

---

Envoyé par vin100H

je devrais faire * 2 .

pour des chaine unicode ca renvoie le nombre d'octet divisé par 2 ?
faut-il traduire ça par ... ca renvoie le nombre de caractère, mais comme les caractère sont sur 2 octet, c le nombre d'octet /2 ???

---

Il n'existe pas une fonction qui renvoie toujours le nombre d'octets ?

Citation:

---

Envoyé par Hibernatus34

Il n'existe pas une fonction qui renvoie toujours le nombre d'octets ?

---

Si SizeOf existe bien.

Merci.

Si c'est le même sizeof qu'en C++, alors c'est pas ce que tu veux.