Subject how to execute a function from a delphi dll in a interbase select?
Author Marcelo Miorelli
>
>
> > Dear friends,
> > Cheers,
> >
> > I need to develop a dll in delphi to make a function to calculate the
> > compound interests of a determined value.
> >
> > It is getting something like this:
> >
>
============================================================================
> > ======================
> > { ====================================================================
> > Kalki
> > Marcelo Miorelli, February 11 2002 - Monday Afternoon.
> > ==================================================================== }
> >
> > library Kalki;
> >
> > uses
> > ShareMem,
> > windows,
> > Math;
> >
> > function kcomp_interest(const tax : DOUBLE; const term : double ):
double
> ;
> > stdcall;
> > begin
> > result := ((power(( ( tax / 100) + 1 ), ( term /30) ) -1 ) * 100);
> > end;
> >
> > procedure DLLMain(dwReason: DWord);
> > begin
> >
> > case dwreason of
> > dll_process_attach : begin
> > end;
> >
> > dll_process_detach : begin
> > end;
> >
> > dll_thread_attach : begin
> > end;
> >
> > dll_thread_detach : begin
> > end;
> >
> > end;
> > end;
> >
> > exports
> >
> > kcomp_interest;
> >
> > begin
> >
> > DLLProc := @DllMain;
> > DLLMain(dll_Process_Attach);
> >
> > end.
> >
> >
>
============================================================================
> > ======================
> >
> >
> > I just would like to know how I can proceed to execute this function
> > kcomp_interest from a interbase select. Is it possible?
> >
> > a hug
> > Marcello Miorelli
> >
>