Delphi-Help

Главная Статьи FireBird/Interbase Создание UDF для InterBase

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

Оцените материал
(0 голосов)


Создание 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";
Прочитано 6519 раз

Авторизация



Счетчики