Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 14.09.2012, 09:34   #11
Ericnex
Форумчанин
 
Регистрация: 07.04.2010
Сообщений: 218
По умолчанию

Делаю вот так: запрос понимает, но вылетает ошибка
Код:
DM.Query6.Close;
DM.Query6.SQL.Clear;
DM.Query6.SQL.Text:='select MYY(Nazvanie) from OptMagazin';
DM.Query6.Open;
Изображения
Тип файла: jpg Безымянный.jpg (10.5 Кб, 118 просмотров)
Ericnex вне форума Ответить с цитированием
Старый 14.09.2012, 09:43   #12
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Это BDE не понимает MYY. Можно RequestLive в Query сделать False. Не поможет - перейти на ADO или родные компоненты InterBase
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 17.09.2012, 11:38   #13
Ericnex
Форумчанин
 
Регистрация: 07.04.2010
Сообщений: 218
По умолчанию

Изменил свойство RequestLive - не помогло. Может есть еще варианты? Я неправильно прописываю процедуру в Delphi или сама DLL не верно описана?
Ericnex вне форума Ответить с цитированием
Старый 01.07.2015, 14:58   #14
alecha99
 
Регистрация: 26.05.2015
Сообщений: 4
По умолчанию Писание Delphi Udf

Firebird имеет схожие но не идентичные форматы с Так шо бы усё запохало нужо использовать тип не string а более совместимый PChar
alecha99 вне форума Ответить с цитированием
Старый 01.07.2015, 15:05   #15
alecha99
 
Регистрация: 26.05.2015
Сообщений: 4
По умолчанию

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

DLL:
Код:
library Project2;

uses
  SysUtils,
  Classes;
{$R *.res}
FUNCTION ib_util_malloc(l: integer): pointer; cdecl; external 'ib_util.dll';
function MyDLL (S: PChar) : PChar; cdecl; export;
var d:String;
begin
d:=Format('«%s»',[s]);
Result: =ib_util_malloc(SizeOf(D));
SetCoy(Result,d);
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;
Примерно так, только надо ещё более точно поюзать
alecha99 вне форума Ответить с цитированием
Старый 01.07.2015, 15:08   #16
alecha99
 
Регистрация: 26.05.2015
Сообщений: 4
По умолчанию

Да ещё точка входа в процедуру NewDLL взята из потолка, лучше создать точное имя а в dll указан индекс. короче более конкретнее изучи тему студент..
alecha99 вне форума Ответить с цитированием
Старый 01.07.2015, 15:36   #17
Человек_Борща
Старожил
 
Аватар для Человек_Борща
 
Регистрация: 30.12.2009
Сообщений: 11,442
По умолчанию

Цитата:
alecha99
За решение проблемы конечно спасибо, полезно весьма.

Однако вы не могли ещё древнее тему найти?
Человек_Борща вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Работа с UDF-функциями Ericnex БД в Delphi 2 06.09.2012 05:57
Firebird.Не могу подключить UDF. -COREY- БД в Delphi 0 08.05.2012 15:15
UDF Cartman18 БД в Delphi 0 06.05.2010 21:52
воспроизведение формата ячейки с помощью UDF андей Microsoft Office Excel 0 11.12.2009 17:40
как подключить udf библиотеку к базе данных shurik_7866 БД в Delphi 0 06.07.2007 00:04