Discussion :

[zarbouine]

bonjour à tous,

j'utilise des fonctions situées dans une librairie externe, et je dois gérer les codes retournés par ces fonctions. Il est dit que ces fonctions retournent un HRESULT... j'ai vu que ce type était longint, mais comment ça s'utilise ?

Si je fais :

var
err : hresult;
begin
err := mafonction();

à la compil j'ai : [Erreur] Types incompatibles : 'HRESULT' et 'procedure, untyped pointer or untyped parameter'

comment faut-il faire ?
Merci de vos explications ...

[Clorish]

Qu'est ce que "MaFonction" ?!? une methode a toi ?

[Edit] En plus tu as pas mis de parametres a ta fonction ....
En pascal, une fonction/Procedure vide n'a pas de parenthese.

[zarbouine]

mafonction est la fonction externe que j'appelle. En fait je dois passer un entier, donc ce serait mafonction(0) par exemple.
Ce sont des fonctions qui se trouvent dans un activex (J'ai importé la bibliothèque de types) et ça marche très bien, sauf que je ne sais pas récupérer les codes d'erreurs éventuels.

euh suis-je plus clair ?

[Clorish]

Tout a fait.
PAr contre, MaFonction est une fonction visiblement ici.
Or a mon avis ca doit etre une methode de classe ... sinon je ne voit pas d'erreur particuliere.

[zarbouine]

Mais oui tu as raison !!! ma description est fausse
En fait j'appelle une fonction d'un objet COM

err := ObjetCom.Fonction(0);

et c'est ça qui déclenche l'erreur à la compil :
Types incompatibles : 'HRESULT' et 'procedure, untyped pointer or untyped parameter'

Bon, là c'est plus clair ! Alors qu'estce qui ne va pas, ou plutot qu'est ce que je n'ai pas compris ?

[Clorish]

Envoie la definision complete de la fonction et le code exact d'appel

[zarbouine]

Dans la doc de l'objet COM : Procedure décrite pour VC++ (que je ne connais pas)

HRESULT Sign(short nFlag);
Signe le fichier contenu dans l'objet XDocument
• nFlag indique si on attache un jeton d’horodatage et/ou u
signature.

dans le wrapper de composant généré par delphi la procedure est :
procedure Sign(nFlag: Smallint);

dans mon programme, j'ai donc une form sur laquelle j'ai mis le composant mis à dispo par le wrapper.
J'appelle alors la procédure par
xdocument1.Sign(0);
et ça fonctionne bien, (le document chargé dans le composant est signé, puisque c'est le boulot de la procédure en question) sauf que s'il ya un problème, je ne sais pas le code d'erreur retourné par la procédure... voilà voilà