Работа с UDF

[Ericnex]

У кого есть опыт работы с UDF-функциями? Грубо говоря мне надо написать DLL и затем объявить ее на сервере Interbase. Доселе с такими функциями не работал кто может подсобите программным кодом.

Создать UDF-функцию, которая позволяет строковое значение заключить в символы «», например, Спорт – «Спорт». В клиентском приложении осуществить выборку записей из таблицы Оптовый магазин, изменив написание Название магазина.

[maLoy*508]

Пиши DLL-ку с нужной функцией, регистрируй в базе и используй...
Как писать DLL-ки статей много...
DLL добавляешь в папку с UDF (находится в каталоге с ИБ)...
Добавляешь в базу нужную UDF...
---
работаю с firebird, но думаю там различий быть не должно

[Аватар]

Проще же на клиенте сделать вычисляемое поле и, программно отредактировав наименование, поместить его в него. Или в запросе это же можно сделать без udf. Можно конечно и udf, но без опыта использования таких возможностей это отличный способ завалить SQL-сервер

[Serge_Bliznykov]

небольшой оффтоп...

Аватару
Коллега, я на 99% уверен, что у автора темы создание UDF - это учебное задание. Тут уже прийдётся писать UDF (в DLL), деваться ему некуда...

[Ericnex]

Да UDF надо создать для учебных целей. Покажите одной строкой как можно программно сделать вот это:

которая позволяет строковое значение заключить в символы «», например, Спорт – «Спорт»

[Аватар]

s:='Спорт';
s:=Format('«%s»',[s]);

[Ericnex]

Сделал все вот так, проверьте на наличие ошибок. Пока программа не работает.

DLL:

library Project2;

uses
  SysUtils,
  Classes;

function MyDLL (S: string) : String; cdecl; export;

{$R *.res}

begin
Result:=Format('«%s»',[s]);
end;
exports MyDLL index 1;
begin
end.

Объявление функции на сервере:

DECLARE EXTERNAL FUNCTION MYY
    CSTRING(20)
RETURNS CSTRING(20)
ENTRY_POINT 'NewDLL' MODULE_NAME 'MyDLL';

В клиентском приложении

procedure TForm1.Button26Click(Sender: TObject);
begin
datamodule2.Q6.Close;
datamodule2.Q6.SQL.Clear;
datamodule2.Q6.SQL.Text:='select Nazvanie from OptMagazin where MYY=s';
datamodule2.Q6.Open;
end;

[Stilet]

select MYY(Nazvanie) from OptMagazin...

И вообще-то фраза Пока программа не работает. никому ни о чем ничего не говорит.

[Ericnex]

select MYY(Nazvanie) from OptMagazin...

Такой SQL-запрос программа не понимает...

[Serge_Bliznykov]

Такой SQL-запрос программа не понимает...

значит Вы свою DLL не подключили к серверу. Возможно, не положили DLL туда, куда нужно, возможно, не выполнили объявление функции на сервере, возможно, не перезапустили сервер..
но результат один - ваш сервер ничего не знает про функцию MYY...