|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Работа с UDF-функциями
Учебное задание: Создать 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; |
#2
|
||||
|
||||
MYY же функция, а модуль Project2.
Пишу программы за еду. __________________ |
#3
|
|||
|
|||
Мне как раз и надо вызвать функцию, но как?
|
#4
|
||||
|
||||
MYY("что-то")
Пишу программы за еду. __________________ |
#5
|
|||
|
|||
Покажите полностью программно как это выглядит.
|
#6
|
||||
|
||||
Код HTML:
Код:
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 Пишу программы за еду. __________________ |
#7
|
|||
|
|||
А как правильно скопировать сам файл DLL в папку UDF в InterBase?
|
#8
|
||||
|
||||
Ctrl+C (копировать) - Ctrl+V (вставить), либо в Total Commander F5.
Пишу программы за еду. __________________ |
#9
|
|||
|
|||
Сделал все как в примере, ошибка выскакивает
|
#10
|
||||
|
||||
а DBManager?
Пишу программы за еду. __________________ |
#11
|
|||
|
|||
Не знаю что это. Для доступа к данным использую Query, DataBase и DataSource
|
#12
|
||||
|
||||
родная утилитка об БД. название, естественно, может быть другим по понятным причинам.
Пишу программы за еду. __________________ |