[ MarkoBalkan @ 29.07.2011. 19:48 ] @
OS je fedora 32 bitna, firebird 2.1.4 radio sam po ovom primjeru: http://www.ibphoenix.com/resources/documents/search/doc_304 project Code: library Project1; {$mode objfpc}{$H+} uses Classes; {$R *.res} begin end. exports Modulo; unit1 Code: unit Unit1; {$mode objfpc}{$H+} interface function Modulo(var i, j: Integer): Integer; cdecl; export; uses Classes, SysUtils; implementation function Modulo(var i, j: Integer): Integer; begin if (j = 0) then result := -1 // just check the boundary condition, and // return a reasonably uninteresting answer. else result := i mod j; end; end. ddl Code: DECLARE EXTERNAL FUNCTION F_MODULO Integer, Integer RETURNS Integer BY VALUE ENTRY_POINT 'Modulo' MODULE_NAME 'libproject1'; kod poziva funkcije mi javi ovu grešku: Starting transaction... Preparing query: select f_Modulo(3, 2) from rdb$database Error: *** IBPP::SQLException *** Context: Statement::Prepare( select f_Modulo(3, 2) from rdb$database ) Message: isc_dsql_prepare failed SQL Message : -104 Invalid token Engine Code : 335544343 Engine Message : invalid request BLR at offset 60 function F_MODULO is not defined module name or entrypoint could not be found Total execution time: 0,070s |