Форум: "Базы";
Текущий архив: 2002.11.18;
Скачать: [xml.tar.bz2];
ВнизСоздание собственного 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 и как выделять/освобождать память
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.11.18;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.009 c