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

Советы » Interbase » Создание 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";

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

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com