Discussion :

[cachris]

Bonjour,

Je cherche un exemple d'une dll qui reçoit plusieurs paramètres de type string et qui retourne également une chaîne de caractère de type string également.
J'ai essayé différentes solutions ca n'a pas marché.

Si quelqu'un du forum pourrait me mettre sur piste...ce serait coool.

D'avance merci.

Chris

[ShaiLeTroll]

Si tu utilises FastShareMem, tu peux échanger des strings comme avec ShareMem+Brldmm.dll mais cela doit rester Delphi à Delphi !

C'est pourtant écrit en commentaire dans le fichier DPR généré pour une DLL !
Lit ce sujet DLL String Pourquoi ça marche sans BORLNDMM.DLL

Fourni déjà ce que tu as écrit côté EXE et côté DLL

Personnellement, je n'aime pas ShareMem, j'utilise du PChar, PWideChar comme pour les API Windows et des BSTR\WideString lors d'une utilisation dans des interfaces

Tu as bien sûr consulter la
Comment passer des strings dans une DLL ?
Comment passer une chaîne de caractères d'une DLL à une application ?
Comment partager un objet entre un exécutable (.exe) et une DLL?



Cherche "DLL String" dans le forum Delphi, tu trouverais plein de chose à lire

[cachris]

Salut ShaiLeTroll et merci.

J'ai bien essayé de trouver des exemples sur internet mais, je n'ai pas trouvé d'exemples sur l'échange de données entre dll et un prog tiers.
Je connais un peu delphi...et c'est plus rapide que du vb donc je me suis décidé pour essayer de trouver une solution.
J'ai essayé d'implémenter un des exemples trouvé sur le web, qui passe par des pointeurs, bref trop long pour moi.

Merci pour les liens je vais lire et essayer encore...

Chris

Bon dans mon cas de figure je voudrais utiliser une dll depuis un autre langage que delphi...(non pas c++) raison pour laquelle j'ai besoin de faire passer des chaînes de caractère !

Voici le bout de code que j'ai trouvé sur le web et repris :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure GetStr(A: PChar ; B: PChar);stdcall;
var StrData:Longword absolute B;
StrDataSizePtr:^Longword;
 
tmpStr:string;
 
begin
   tmpStr:=A;
 
tmpStr:= tmpStr + 'Ceci est un test ' ;
StrPLCopy(B,tmpStr, Length(tmpStr))
StrDataSizePtr:=Ptr(StrData-4);
StrDataSizePtr^:=Length(tmpStr);
end;

[cachris]

Salut,

Il y a aussi deux sites Delphi intéressants : http://delphi.wikia.com/wiki/Creating_DLLs
http://www.delphisources.ru/pages/fa...t/LiB0103.html

Il y a bien plusieurs manières de faire...

L'exemple du 2ème site est bien mais est-ce appelable par du vba. Il faut que je teste...

Merci.

[ShaiLeTroll]

Fait donc un Objet COM (Bibliothèqe de Type, ActiveX...), utilise des BSTR, ton objet sera utilisable très facilement en VBS et VBA tant que tu respecte la convention SafeCall !

C'est ce que je fais lorsque je dois fournir un objet compatible .NET, je le teste en VBS, ainsi je me borne au limite strict du LateBinding alors qu'en Delphi, on peut faire bcp plus de truc que certains langages plus "normés" ne supporte pas (ou ne supporte plus)

Pour le DLL normales avec Pointeurs, ça c'est pour du C++, .NET unsafe ... et VBS cela ne fonctionnera pas !


Ton exemple est HIDEUX et semble même totalement incohérent car contenant du code totalement inutile !
Il nous manque le plus important, l'allocation de B côté EXE !