User Defined Function (UDF)

[mondelphi]

Salut mes amis !

Pouvez m'aider? J'ai conçu cette fonction en delphi que j'ai déclarée dans ma base de donnée. La fonction compilée dll est placé dans le répertoire UDF d'interBase. Mais quand je l'utilise par l'exemple dans une requête SELECT le résultat faux.
Pouvez me proposer une autre?

**********

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
library Farrondi;
uses
  SysUtils,
  Classes;
 
{$R *.RES}
FUNCTION Arrondi (Montant:double):integer; stdcall; export;
begin
 Result:=Trunc(Montant);
end;
 
exports
  Arrondi;
begin
end.

************

_______________________________
- Balise Code rajouté par yobenzen

[TMuet]

Envoyé par mondelphi

Mais quand je l'utilise par l'exemple dans une requête SELECT le résultat faux

Mais encore
Ton explication n'est pas très claire

Ceci dit et même si je n'ai rien compris à ton problème, je peux déjà t'annoncer qu'il faut utiliser cdecl et pas stdcall

[Benjamin GAGNEUX]

Salut

Mais quand je l'utilise par l'exemple dans une requête SELECT le résultat faux.

Quel est le résultat, en quoi est-il faux ? Messages d'erreur ?
Peux-tu nous apporter quelques précisions afin de mieux pouvoir cerner le problème ?

[Edit]TMuet m'a devancé ...

[jean-jacques varvenne]

salut,

ta reponse est fausse, car tu traite la valeur par valeur et pas par pointeur.

or, il faut savoir que interbase utilise des pointeurs pour transmettre une valeur "float"

il faut donc placer "var" devant la variable "Montant" pour régler le problème.

je ne suis pas sûr, mais est ce que "stdcall" ne devrait pas être "cdecl" ou quelque chose comme cela?