Discussion :

[Writer]

Hello.

J'ai créé une DLL à l'aide de Delphi 5.
Voici la définition de la fonction.

Code :

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

1
2
3
4
5
6
7
8
function GetFullOcrInfo(   ai_OCR : PChar ;
                       ai_Date : Pchar ;
                       var ao_FaceValue : Double;
                       var ao_Currency : Integer;
                      [b] var ao_BenefValidityDate : Pchar;[/b]
                       [b]var ao_AffiliateValidityDate : Pchar;[/b]
                       var ao_VoucherType : Integer) : integer ;
                       stdcall; external 'EasyScan.dll' name 'GetFullOcrInfo' ;

J'ai mis en gras les définitions des paramètres qui me posent problème.
Cette fonction se comporte parfaitement lorsque le programme appelant est développé en Delphi.
Dans un autre langage (PowerBuilder dans mon cas), je reçois des valeurs bidon.
Les arguments de type Pchar passés par valeur fonctionnent tout à fait bien contrairement aux arguments de type Pchar passé par référence.


Quelqu'un a-t-il une idée ?

Comme d'habitude, un quatrain pour celui qui me donne la solution.

[MD Software]

enlève le var, il ne sert à rien

[Writer]

Si je fais ça, les arguments me sont retournés vide même dans mon programme appelant Delphi (qui fonctionnait).

[petitcoucou31]

Assure toi que le programme appelant tes fonctions dll est aussi sous le format "stdcall". J'ai connu un soucis un peu identique avec un programme C qui appelé mes dlls (delphi) mais qui n'avait pas les memes declaration des format de DLL, lui etait en "cdecl" ou un truc comme çà ..

bon courage bye.

[Reisubar]

Si je fais ça, les arguments me sont retournés vide même dans mon programme appelant Delphi (qui fonctionnait).

Ouh la... En fait, ta DLL modifie le PCHar, c'est pour ça que tu veux le mettre en var ? Si c'est le cas, il y a au moins un problème côté programme Delphi, car ça doit marcher sans le var. Par contre, le PChar doit réellement pointer vers un array [0..n] of Char et ne pas être une "conversion sauvage" d'un string effectuée grâce à l'opérateur PChar().