MAR

Пользователи
  • Публикации

    3
  • Зарегистрирован

  • Посещение

О MAR

  • Звание
    Новичок
  • День рождения 29.11.1973

Контакты

  • ICQ
    125503311

Информация

  • Пол
    Мужчина
  • Город
    Севастополь
  1. Это просто какой- то праздник жизни !!! Tokyo заявляет, что no such function: .... // предок inherited Create(); // сохраняем себе БД db := @base; // соединение с драйвером drvLink := TFDPhysSQLiteDriverLink.Create(Nil); // создаём функцию для регистрации соединения sqlRegisterConnection := TFDSQLiteFunction.Create(Nil); // задаём имя sqlRegisterConnection.FunctionName := 'rConn'; // количество аргументов sqlRegisterConnection.ArgumentsCount := 2; // присваиваем обработчик sqlRegisterConnection.OnCalculate := onCalculateConnectionRegister; // активность функции sqlRegisterConnection.Active := True; А потом жду- не дождусь вызова onCalculateConnectionRegister... Отваливает в Exception при Open SQL запроса... Типа SELECT rConn(1,1) LIMIT 1; Error (0): [FireDAC][Phys][SQLite] ERROR: no such function: rConn
  2. Вопрос отменяется. Как всегда документация говорит одно, код- другое, подразумевается третье. Для Tokyo актуален заголовок // запуск встроенной функции регистрации соединения Procedure onCalculateConnectionRegister(AFunc: TSQLiteFunctionInstance; AInputs: TSQLiteInputs; AOutput: TSQLiteOutput; var AUserData: TObject); В примере невнимательно посмотрел. ))) Хотя в официозе в примере: http://docwiki.embarcadero.com/CodeExamples/Tokyo/en/FireDAC.SQLite_Sample procedure TfrmGettingStarted.sqlFunctionCalculate(AFunc: TSQLiteFunction; AInputs: TSQLiteInputs; AOutput: TSQLiteOutput; var AUserData: TObject);
  3. Сделал по образу и подобию. Кричит: [dcc32 Error] clueDBWrapper.pas(537): E2010 Incompatible types: 'TSQLiteFunctionInstance' and 'TSQLiteFunction' Чую, что собака порылась в том, что в примере есть instance Form1, а у меня класс на данный момент в "свободном полёте". Тут можно как- то выкрутиться ?