Создание UDF для InterBase

Пример библиотеки:

library
 nikelutils

uses
 SysUtils, Classes;

function
 MaxInt(var
 Int1, Int2: Integer): Integer;
  far cdecl
 export;
begin

  if
 (Int1 > Int2) then

    Result := Int1
  else

    Result := Int2;
end
;

function
 MinInt(var
 Int1, Int2: Integer): Integer;
  far cdecl
 export;
begin

  if
 (Int1 < Int2) then

    Result := Int1
  else

    Result := Int2;
end
;

exports

  MaxInt;
MinInt;

begin

end
.

А это пишим в базе:

DECLARE EXTERNAL
 FUNCTION
 MAXINT INTEGER, INTEGER
RETURNS INTEGER BY VALUE
ENTRY_POINT "MaxInt" MODULE_NAME "nikelutils.dll";

DECLARE EXTERNAL
 FUNCTION
 MININT INTEGER, INTEGER
RETURNS INTEGER BY VALUE
ENTRY_POINT "MinInt" MODULE_NAME "nikelutils.dll";

Другое по теме:

• OLE и Interbase - прочесть и записать
• Автоинкрементальные поля и Interbase
• Автоматический logon к локальной InterBase