Теперь редактор скриптов умеет запускать на исполнение файлы в пакетном режиме.
При открытии файла есть возможность выбрать несколько файлов.
В этом случае будет список выбранных файлов отображается выше редактора.
После проведения работ по разделению на уровни абстракции приложения наступил следующий этап. Теперь на базе объектов нижнего уровня создаю механизм по формированию команд на управление БД.
В основном для этого использую Alter объекты. Наибольша сложность в этом смысле с PostgreSQL в силу его больших возможностей. Приходится сильно дорабатывать/переписывать уже существующий код.
Работы по поддержке данной БД идут полным ходом.
Работа с таблицами уже продвинулась довольно хорошо. Основная трудность на данный момент — написание полноценного парсера sql команды CREATE TABLE. Сейчас ешё не реализованы FK и другие CONSTRAINT. Из-за этого не открываются базы, содержащие данные объекты.
Начата обработка представлений и триггеров.
Собственно — вот. Решил поизучать данный движок. Так сказать — пойти на поводу попсовости.
В принципе — наверное самый простой движок.
Появился первый результат работы по разделению визуальной и не визуальной части FBManager
Полностью развязал 1-й и 2-й уровень из предыдущего поста.
И ещё — на будущее: появились планы реализовать движок для работы с SQLite.
Очередное большое перетряхивание исходников.
Текущая цель — выделить три слоя абстракции:
1 — Нижный уровень. Примитивы SQL команд. Создаём объекты паскаля, содержащие формальные описание всех понимаемых программой SQL команд. Базовый класс — TSQLObjectAbstract.
Применение данного уровня — разбор текстов sql, формирование текстов sql команд.
2. Промежуточный уровень. Объекты, предназначенные для работы с физическими сущностями конкретной базы данных. Базовые классы — TDBObject, TSQLEngineAbstract.
Применение данного уровня — взаимодействие с физическими базами данных. Построение модели БД в программе. Выполнение запросов и команд к БД.
3. Верхний (визуальный уровень). Объекты предназначенные для построения визуального интерфейса и взаимодействия с пользователем. Базовые классы — TDBInspectorRecord, TDataBaseRecord.
Разделение 2-го и 3-го уровня позволяют создавать различные приложения на общем ядре системы. Например — сам FBManager и программы командной строки для обработки скриптов.
Это проблема старая. И всё равно периодически возникает в вопросах новичков на форумах.
Эта ситуация вызвана тем, что программы, написанные с использованием Lazarus и LCL работают в кодовой странице строк UTF8. В windows же кодовая страница по умолчанию Win1251.
Для решения проблемы можно воспользоваться следующим кодом:
procedure ConvetToUTF8LocalConst;
var
i:integer;
begin
DefaultFormatSettings.ShortMonthNames[1]:='Январь';
DefaultFormatSettings.ShortMonthNames[2]:='Февраль';
DefaultFormatSettings.ShortMonthNames[3]:='Март';
DefaultFormatSettings.ShortMonthNames[4]:='Апрель';
DefaultFormatSettings.ShortMonthNames[5]:='Май';
DefaultFormatSettings.ShortMonthNames[6]:='Июнь';
DefaultFormatSettings.ShortMonthNames[7]:='Июль';
DefaultFormatSettings.ShortMonthNames[8]:='Август';
DefaultFormatSettings.ShortMonthNames[9]:='Сентябрь';
DefaultFormatSettings.ShortMonthNames[10]:='Октябрь';
DefaultFormatSettings.ShortMonthNames[11]:='Ноябрь';
DefaultFormatSettings.ShortMonthNames[12]:='Декабрь';
for i:=1 to 12 do
DefaultFormatSettings.LongMonthNames[i] := DefaultFormatSettings.ShortMonthNames[i];
DefaultFormatSettings.LongDayNames[1]:='Воскресенье';
DefaultFormatSettings.LongDayNames[2]:='Понедельник';
DefaultFormatSettings.LongDayNames[3]:='Вторник';
DefaultFormatSettings.LongDayNames[4]:='Среда';
DefaultFormatSettings.LongDayNames[5]:='Четверг';
DefaultFormatSettings.LongDayNames[6]:='Пятница';
DefaultFormatSettings.LongDayNames[7]:='Суббота';
DefaultFormatSettings.ShortDayNames[1]:='Вс';
DefaultFormatSettings.ShortDayNames[2]:='Пн';
DefaultFormatSettings.ShortDayNames[3]:='Вт';
DefaultFormatSettings.ShortDayNames[4]:='Ср';
DefaultFormatSettings.ShortDayNames[5]:='Чт';
DefaultFormatSettings.ShortDayNames[6]:='Пт';
DefaultFormatSettings.ShortDayNames[7]:='Сб';
end;
procedure InitLocale;
begin
DefaultFormatSettings.LongDateFormat:='dd.mm.yyyy';
DefaultFormatSettings.ShortDateFormat:=DefaultFormatSettings.LongDateFormat;
DefaultFormatSettings.DateSeparator:='.';
DefaultFormatSettings.TimeSeparator:=':';
DefaultFormatSettings.ThousandSeparator:=' ';
DefaultFormatSettings.CurrencyString:='р.';
ConvetToUTF8LocalConst;
end;При запуске программы достаточно реализовать вызов функции InitLocale;
Ещё полезно сделать вызов
Application.UpdateFormatSettings:=false;
после
Application.Initialize;
в главном файле проекта (*.lpr)
Вот образец фрагмента файла проекта, который получается с учётом этих рекомендаций:
Application.Title:='Макошь - торговля и склад';
Application.Initialize;
Application.UpdateFormatSettings:=false;
InitLocale;
Всё вышенаписанное относится к винде. В линуксе оно не нужно. Но код будет работать везде правильно.
Настроил автомат для сборки FBManager. Собранные бинарники будут размещаться по адресу http://w7site.ru/fpc/fbm/
Пока только сборка для платформы 32-х битной Linux платформы с библиотеками GTK2.
В дальнейшем планирую добавить сборки под дргуие разрядности процессоров и под другие операционные системы.
Есть и другие увлекательные занятия, помимо программирования. Одно из них — выпечка.
Ингредиенты |
|
|---|---|
| Яйцо | 2 шт |
| Кефир или простокваша | 1 чашки (туда же яйцо) |
| Растительное масло | 1/3 ст. ложки |
| Уксус (если кефир не кислый) | 1/2 чайной ложки уксуса |
| Пшеничная мука | 3 чашки |
| Соль | 1 чайная ложка |
| Сахар | 6 столовая ложка |
| Сода | 1/3 чайной ложки |
Для приготовления теста использую хлебопечку. Программу «Тесто», в случае если после начала замеса тесто получается жидки — досыпать муки. Тесто должно быть достаточно плотным.
После замеса раскатывать пышку толщиной 0.7 см, резать небольшими кусками.
В сковородку налить растительное масло, раскалить.
Возникла необходимость запуска заданий на сервере PostgreSQL. Простейший случай — запуск из CRON. Но хочется красивого. Сначала хотел создать свой велосипед, но после изучения советов из интернета, понял, поздно, велосипед уже изобретен, и стал изобретать колесо: остановился на pgAgent. Тем более — с ним хорошо дружит pgAdmin.
Пока данный инструмент не идёт в штатном комплекте пакетов. В качестве документа по установке использовал статью
В первую очередь установил недостающие утилиты и компоненты:
Это, чтобы было чем скачивать:
yum install wget
Непосредственно компилятор — собираем из исходников.
yum install gcc-c++ cmake
Честно говоря, сам не понял — зачем нужны графические библиотеки. Придется ломать домашний компьютер — проверить, может и без них будет работать?
yum install wxGTK wxGTK-devel wxWidgets
Это на случай, если ещё сам PostgreSQL не установлен:
yum install postgresql-contrib postgresql-devel postgresql-libs postgresql-server
Дальше — если PostgreSQL ещё не установлен — инициализируем БД
postgresql-setup initdb
Запускаем сервер и устанавливаем ему автозапуск при старте системы.
systemctl start postgresql.service systemctl status postgresql.service systemctl enable postgresql.service
Теперь переходим непосредственно к развёртыванию самого pgAgent-а. Скачиваем исходники последней версии с ссылки http://www.postgresql.org/ftp/pgadmin3/release/pgagent/. В момент написания статьи — последняя версия имеет номер 3.4.0. Ссылка на файл — http://ftp.postgresql.org/pub/pgadmin3/release/pgagent/pgAgent-3.4.0-Source.tar.gz. После загрузки распаковываем архив.
tar -xzf pgAgent-3.4.0-Source.tar.gz
Запускаем подготовку, компиляцию и установку.
cmake -D PG_CONFIG_PATH:FILEPATH=/usr/bin/pg_config -D STATIC_BUILD:BOOL=OFF . make su -c "make install"
Если всё было сделано верно — компиляция пройдёт успешно. Если нет — смотрим вывод и анализируем ошибки.
После установки необходимо создать таблицы для работы pgAgent-а в системной БД postgres. Скрипты на создание находятся в папке sql исходных текстов.
cd sql psql -U postgres -d postgres -f pgagent.sql -h 127.0.0.1
На этом основная работа закончена. Можно проверить работу pgAgent-а запустив его в консоле.
/usr/local/bin/pgagent hostaddr=127.0.0.1 dbname=postgres user=postgres -f -l 2
В начале сообщений будет выдана информация по подключению к БД. После этого будет выдан протокол на каждую итерацию. Ключ -l 2 заставляет выводить в лог подробную информацию о работе. На первоначальном этапе рекомендую его включать. В будущем детализацию протокола можно понизить до уровня 0 — выдача только сообщений об ошибках.
В окончании работы обеспечиваем запуск агента средствами SystemD. Для этого создадим unit-файл для старта pgAgent-а — pgagent.service.
[Unit] Description=PostgreSQL server agent After=network.target Requires=postgresql.service [Service] ExecStart=/usr/local/bin/pgagent hostaddr=127.0.0.1 dbname=postgres user=postgres -f -l 2 Type=simple [Install] WantedBy=network.target
Проверяем работу нашего сервиса
journalctl -u pgagent
При правильной установке видим:
[root@localhost system]# journalctl -u pgagent -- Logs begin at Ср 2014-03-26 15:48:47 MSK, end at Ср 2014-09-24 11:38:00 MSK. -- сен 24 11:36:55 localhost.localdomain systemd[1]: Starting PostgreSQL server agent... сен 24 11:36:55 localhost.localdomain systemd[1]: Started PostgreSQL server agent. сен 24 11:38:00 localhost.localdomain pgagent[20593]: DEBUG: Creating primary connection сен 24 11:38:00 localhost.localdomain pgagent[20593]: DEBUG: Connection Information: сен 24 11:38:00 localhost.localdomain pgagent[20593]: DEBUG: user : postgres сен 24 11:38:00 localhost.localdomain pgagent[20593]: DEBUG: port : 0 сен 24 11:38:00 localhost.localdomain pgagent[20593]: DEBUG: host : 127.0.0.1 сен 24 11:38:00 localhost.localdomain pgagent[20593]: DEBUG: dbname : postgres сен 24 11:38:00 localhost.localdomain pgagent[20593]: DEBUG: password : сен 24 11:38:00 localhost.localdomain pgagent[20593]: DEBUG: conn timeout : 0 сен 24 11:38:00 localhost.localdomain pgagent[20593]: DEBUG: Connection Information: сен 24 11:38:00 localhost.localdomain pgagent[20593]: DEBUG: user : postgres сен 24 11:38:00 localhost.localdomain pgagent[20593]: DEBUG: port : 0 сен 24 11:38:00 localhost.localdomain pgagent[20593]: DEBUG: host : 127.0.0.1 сен 24 11:38:00 localhost.localdomain pgagent[20593]: DEBUG: dbname : postgres сен 24 11:38:00 localhost.localdomain pgagent[20593]: DEBUG: password : сен 24 11:38:00 localhost.localdomain pgagent[20593]: DEBUG: conn timeout : 0 сен 24 11:38:00 localhost.localdomain pgagent[20593]: DEBUG: Creating DB connection: user=postgres hostaddr=127.0.0.1 dbname=postgres сен 24 11:38:00 localhost.localdomain pgagent[20593]: DEBUG: Database sanity check сен 24 11:38:00 localhost.localdomain pgagent[20593]: DEBUG: Clearing zombies сен 24 11:38:00 localhost.localdomain pgagent[20593]: DEBUG: Checking for jobs to run сен 24 11:38:00 localhost.localdomain pgagent[20593]: DEBUG: Sleeping... сен 24 11:38:00 localhost.localdomain pgagent[20593]: DEBUG: Clearing inactive connections сен 24 11:38:00 localhost.localdomain pgagent[20593]: DEBUG: Connection stats: total - 1, free - 0, deleted - 0
Всё работает