Создание собственного UDF (D6, Firebird)

← →
Roma111 (2002-10-29 13:25) [0]

Возникла необходимость написать собственную функцию UDF.
Я последовательно проделал след. шаги:
- Создал в Delphi проект типа "Resours DLL Wizard" - Udf_RegDoc.
- Добавил к проекту модуль "unit1"
- Написал в нем функцию
function test1 : PChar; cdecl; export;
begin
test1:="Привет!!!";
end;
- Объявил ее в Unit1
function test1 : PChar; cdecl; export;
- Добавил строчку в Udf_RegDoc
exports test1;
- Сделал Compile и Build.
- Скопировал Udf_RegDoc.dll в "C:\Program Files\Firebird\UDF\Udf_RegDoc.dll"
- Попытался зарегестрировать через IBConsole
declare external function f_test1
returns
cstring(50) by value
entry_point "test1" module_name "Udf_RegDoc.dll";

**** Выдается ошибка
Token unknown - line 4, char 13
"test1" *******
Кто подскажет, в чем дело?

← →
Roma111 (2002-10-29 14:22) [1]

И все же ... может, кто поможет ...

← →
Digitman (2002-10-29 15:04) [2]

Что скрывается за ******* ?

← →
Roma111 (2002-10-29 15:32) [3]

Все нормально, подсказали, работает -

declare external function f_test1
returns
cstring(254)
entry_point "test1" module_name "Udf_RegDoc";

← →
Desdechado (2002-10-29 16:36) [4]

много еще зависит, Classic или Super и как выделять/освобождать память

Создание собственного UDF (D6, Firebird) Найти похожие ветки