User Defined Function в Interbase

← →
AlexPul (2003-09-08 12:05) [0]

Подскажите как правильно создать работающую функцию. Я перепробовал все варианты из всех книг, что у меня были. Я делаю так. Создаю библиотеку с функцией

library MyUDF;

Function ANKLIKE(str1,str2 :string): Double; cdecl; export;
begin
......
end;

exports
ANKLIKE;

end.

Затем создаю саму функцию
DECLARE EXTERNAL FUNCTION ANKLIKE
VARCHAR (25),
VARCHAR (25)
RETURNS DOUBLE PRECISION BY VALUE
ENTRY_POINT "AnkLike" MODULE_NAME "MyUDF.dll";

До этого момента все отлично. Затем пытаюсь вызвать функцию в SQL и получаю ошибку:
Invalid token.
invalid request BLR at offset 60.
function ANKLIKE is not defined.
module name or entrypoint could not be found.

В чем проблема понять не могу. Я уже все перепробовал. Подскажите пожалуйста.

← →
Smashich © (2003-09-08 12:08) [1]

http://www.ibase.ru/devinfo/udf_ok.htm

← →
Smashich © (2003-09-08 12:09) [2]

а dll ты поместил куда надо?

← →
AlexPul (2003-09-08 12:18) [3]

>а dll ты поместил куда надо?
Да куда я уже только не пробовал.
Даже нашел настройку в ibconfig чтобы явно указать путь. Без результатов

> http://www.ibase.ru/devinfo/udf_ok.htm
Там написано ровно то же самое, что написал я выше.

← →
Zacho © (2003-09-08 12:20) [4]

Обрати внимание:
exports
ANKLIKE;

но
ENTRY_POINT "AnkLike"

Имя функции - регистрозависимое, регистр должен совпадать. Т.е. правильно будет так:
ENTRY_POINT "ANKLIKE"

← →
AlexPul (2003-09-08 12:31) [5]

>Zacho
сменил, все равно не помогло.
Что самое главное, я даже стандартные функции (ABS, SIN...) не могу вызвать, хотя
DECLARE EXTERNAL FUNCTION ... отрабатывает нормально

← →
Zacho © (2003-09-08 12:37) [6]

> AlexPul (08.09.03 12:31) [5]

А оно всегда нормально отрабатывает.
А commit после DECLARE .. сделал ? dll с UDF лежит в каталоге \UDF ?
Приведи свой DECLARE ... для ABS хотя бы.

← →
AlexPul (2003-09-08 12:42) [7]

>Zacho
DECLARE EXTERNAL FUNCTION ANKLIKE
VARCHAR (25),
VARCHAR (25)
RETURNS DOUBLE PRECISION BY VALUE
ENTRY_POINT "ANKLIKE" MODULE_NAME "MyUDF.dll";

← →
Zacho © (2003-09-08 12:47) [8]

> AlexPul (08.09.03 12:42) [7]

Ну либо все-таки dll лежит где-то не там, либо ошибка или в имени функции, или в имени модуля, либо commit после этого не сделал. Да, еще вариант, попробуй так: ENTRY_POINT "ANKLIKE" MODULE_NAME "MyUDF";
И приведи свой нерабочий DECLARE .. для стандартной ABS из ib_udf.dll

← →
AlexPul (2003-09-08 13:00) [9]

> И приведи свой нерабочий DECLARE .. для стандартной ABS
> из ib_udf.dll
Он стандартный
DECLARE EXTERNAL FUNCTION abs
DOUBLE PRECISION
RETURNS DOUBLE PRECISION BY VALUE
ENTRY_POINT "fn_abs" MODULE_NAME "udflib";

← →
Zacho © (2003-09-08 13:04) [10]

> AlexPul (08.09.03 13:00) [9]

Ну я же просил для стандартной ABS (IB_UDF_abs) из ib_udf.dll а не из некой неизвестной мне udflib.dll Да, версия IB какая ?

← →
AlexPul (2003-09-08 13:20) [11]

Firebird 1.0.3.972 for Win32

← →
Zacho © (2003-09-08 13:23) [12]

> AlexPul (08.09.03 13:20) [11]

Единственное, могу еще раз повторить:
Ну либо все-таки dll лежит где-то не там, либо ошибка или в имени функции, или в имени модуля, либо commit после этого не сделал.
Других вариантов не вижу.

← →
AlexPul (2003-09-08 13:29) [13]

Я сейчас все заново проверю.
Спасибо за помощь.

← →
AlexPul (2003-09-08 17:12) [14]

Я нашел решение.
Оказывается, что в UDF НЕЛЬЗЯ передавать строки, т.е. VARCHAR (..). Нужно обязательно как PCHAR
Например
Function ANKLIKE(s1,s2: PChar; Porog: Single): Longint; cdecl; export;

← →
Digitman © (2003-09-08 17:28) [15]

> AlexPul

> Оказывается, что в UDF НЕЛЬЗЯ передавать строки, т.е. VARCHAR
> (..).

да ничего подобного)
и CHAR() можно, и VARCHAR()

другой вопрос, что - верно ты подметил - любой стандартный для IB тип строковых данных д.б. объявлен в UDF DLL как PChar

в случае передачи фактического CHAR-параметра в UDF попадет PChar-указатель на первый символ параметра-строки

в случае передачи фактического VARCHAR-параметра в UDF попадет PChar-указатель не на первый символ параметра-строки, а на счетчик символов (WORD), в котором лежит размер строки. Собссно строка будет находиться по смещению +2 от адреса, который был передан как PChar

← →
AlexPul (2003-09-10 12:22) [16]

> Digitman
Не подскажешь, как правильно сделать приведение типа в самой DLL, если я передаю в качестве первого параметра значение поля таблицы VARCHAR(100), в качестве второго - STRING из SQL запроса,в качестве третьего - значение INTEGER из SQL запроса.
Т.е. запрос выглядит так:
select COUNT(*) from "Table1" where
anklike("Table1"."aaaaaaa", :SV, :PR)=1

> "Table1"."aaaaaaa"

что-то мне непонятна вот эта конструкция
поясни, что это такое

← →
AlexPul (2003-09-10 12:53) [18]

Table1 - таблица
aaaaaaa - поле VARCHAR (100)

> AlexPul

ясно.

какого бы типа (строкового, имеется ввиду) ни было поле "aaaaaaa", перед передачей в UDF оно будет автом-ки преобразовано сервером в тот строковый тип, который указан в DDL-декларации соотв.параметра ф-ции

← →
AlexPul (2003-09-10 13:33) [20]

Извините конечно, я уже наверное всех достал.
Я сам прекрасно все понимаю, но хоть убей не удается получить в DLL параметры функции
DECLARE EXTERNAL FUNCTION ANKLIKE
VARCHAR (100),
VARCHAR (100),
INTEGER
RETURNS INTEGER BY VALUE
ENTRY_POINT "ANKLIKE" MODULE_NAME "ankudf";

в DLL
Function ANKLIKE(s1, s2: PChar; Porog: Longint): Longint; CDECL; export;
BEGIN
ShowMessage(Format(""%s" "%s" "%d"", [s1,s2,Porog]));
END;

в результате получаю сообщение, состоящее из мусора.
если бы не специфика задачи, то проще сделать тупым фильтром, при условии малого размера таблиц...

DECLARE EXTERNAL FUNCTION ANKLIKE
cstring(100),
cstring(100),
INTEGER
RETURNS INTEGER BY VALUE
ENTRY_POINT "ANKLIKE" MODULE_NAME "ankudf";

в DLL
Function ANKLIKE(s1, s2: PChar; var Porog: Longint): Longint; CDECL; export;
BEGIN
// ShowMessage(Format(""%s" "%s" "%d"", [s1,s2,Porog])); никаких ShowMessage ! Это недопустимо !
END;

← →
AlexPul (2003-09-10 14:03) [22]

Вариант с cstring(100) у меня не работает, выдается сообщение Unknown data type

не выдумывай

вот выдержка из официального мануала

InterBase 6
Language Reference

strlen
Returns the length of a the input string.
DECLARE EXTERNAL FUNCTION STRLEN
CSTRING(32767)
RETURNS INTEGER BY VALUE
ENTRY_POINT ’IB_UDF_strlen’ MODULE_NAME ’ib_udf’;

как видишь, CSTRING - вполне легальный тип параметра

и с чего ты взял что сообщение об Unknown data type имеет отношение именно к CSTRING ? может у тебя запрос неверно составлен ?

User Defined Function в Interbase Найти похожие ветки