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
>