[Ericnex]

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

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

Код:

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

Вызов в Delphi:

Код:

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';

Код:

library Project2;

uses
  SysUtils,
  Classes;

function MyDLL(s: PChar): PChar; cdecl;
begin
  Result:=PChar(Format('"%s"', [s]));
end;

exports MyDLL;

begin
end.

Код:

select MYY(Nazvanie) from OptMagazin