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.