| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Создание собственного UDF (D6, Firebird) [D6, IB6.x]
Roma111 © (2002-10-29 13:25:00)Возникла необходимость написать собственную функцию 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" *******
Кто подскажет, в чем дело?
Desdechado (2002-10-29 16:36:00) [1]много еще зависит, Classic или Super и как выделять/освобождать память
Roma111 (2002-10-29 15:32:00) [2]Все нормально, подсказали, работает -
declare external function f_test1
returns
cstring(254)
entry_point "test1" module_name "Udf_RegDoc";
Digitman (2002-10-29 15:04:00) [3]Что скрывается за ******* ?
Roma111 (2002-10-29 14:22:00) [4]И все же ... может, кто поможет ...
| |
