[Ericnex]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

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.

Описание DLL на сервере:

Код:

1 2 3 4

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

Вызов в Delphi:

Код:

1 2 3 4 5 6 7

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;

[NumLock]

MYY же функция, а модуль Project2.

[Ericnex]

Мне как раз и надо вызвать функцию, но как?

[NumLock]

MYY("что-то")

[Ericnex]

Покажите полностью программно как это выглядит.

[NumLock]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

library Project2;   uses   SysUtils,   Classes;   function MyDLL(s: PChar): PChar; cdecl; begin   Result:=PChar(Format('"%s"', [s])); end;   exports MyDLL;   begin end.

Код:

1	select MYY(Nazvanie) from OptMagazin

[Ericnex]

А как правильно скопировать сам файл DLL в папку UDF в InterBase?

[NumLock]

Ctrl+C (копировать) - Ctrl+V (вставить), либо в Total Commander F5.

[Ericnex]

Сделал все как в примере, ошибка выскакивает

[NumLock]

а DBManager?

[Ericnex]

Не знаю что это. Для доступа к данным использую Query, DataBase и DataSource

[NumLock]

родная утилитка об БД. название, естественно, может быть другим по понятным причинам.