Класс для API SQLite «На основе штатного SQLite»

Программы на Clarion, шаблоны, библиотеки и пр.

Модератор: Дед Пахом

Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
Аватара пользователя
Игорь Столяров
Ветеран движения
Сообщения: 8016
Зарегистрирован: 07 Июль 2005, 10:19
Откуда: г. Ростов-на-ДоМу
Благодарил (а): 28 раз
Поблагодарили: 94 раза

Класс для API SQLite «На основе штатного SQLite»

Сообщение Игорь Столяров »

Привет всем !

Имею непреодолимое желание апнуть ископаемый класс SQLite и у меня для этого есть 5 причин:

1. Направление интересное само по себе, а в контексте взаимодействия с Android / Web - незаменимое;
2. Расширены возможности, устранены известные ограничения и проблемы (подозреваю, что добавлены новые);
3. За годы (десятилетия !) накопились всевозможные исправления и доработки в куче разных мест;
4. Как-то хотелось бы вот это вот всё, собрать где-то в одном месте, что бы использовать по назначению;
5. Приглашаю всех кому не пофиг предыдущие пункты к обсуждению и развитию этого свободного проекта.

Буду потихоньку собирать и показывать на примерах решение реальных задач.

sqlite.png
Вложения
tSQLite.zip
Версия от 05.02.2023 г.
(724.03 КБ) 508 скачиваний
Последний раз редактировалось Игорь Столяров 29 Ноябрь 2024, 7:48, всего редактировалось 6 раз.
Make Clarion Great Again ! 😎
Аватара пользователя
Игорь Столяров
Ветеран движения
Сообщения: 8016
Зарегистрирован: 07 Июль 2005, 10:19
Откуда: г. Ростов-на-ДоМу
Благодарил (а): 28 раз
Поблагодарили: 94 раза

SQLite for Clarion (Fork)

Сообщение Игорь Столяров »

Просто перенесите описание прототипов функций из CLW в INC файл.
Или вообще можно использовать свой конвертер из ANSI в UTF-8 ...

Код: Выделить всё

  Include('DynStr.inc'),Once   ! Динамические строки
  Include('svapi.inc'), Once   ! Константы WinAPI

  Map
    Module('tSQLite')          ! ВНЕШНИЕ ФУНКЦИИ
      TOY::EscapeString(String pStr),String  ! Экранирование строки с значением
      TOY::ANSItoUTF8(String sStr),String    ! Перекодировка текста ANSI -> UTF8
      TOY::UTF8toANSI(String sStr),String    ! Перекодировка текста UTF8 -> ANSI
    end
  end
Make Clarion Great Again ! 😎
Ответить