Шрифт MS Sans Serif для кирилической кодировки Win-1251

В некоторых случаях мы сталкивались с тем, что на разных версиях Windows, включая новейшую 11-ю версию, шрифт MS Sans Serif (© Microsoft 1992) поставлялся без кодовой таблицы Win-1251. Соответственно, в Гедымине не отображались некоторые меню, текст в таблицах и надписи в выпадающих списках. Скачайте и установите данный шрифт, если вы столкнулись с вышеуказанной проблемой.

Ровно в следующий четверг, 27 января, нам исполняется 28 лет! Традиционный боулинг, как обычно, в 19:00 в клубе Мэдисон. В ЧЕТВЕРГ! Будем рады видеть всех наших сотрудников! Как действующих, так и бывших.

🎳

Различие в поведении finally между Delphi и Javascript

Пришлось потратить пару дней в поисках трудновыявимой ошибки. Все дело в том, что finally работает в Delphi и NodeJS по-разному. Будьте осторожны.

Например, в Делфи, код в секции finally выполнится ПЕРЕД окончанием выполнения функции:

function someFunc;

var

tr: TIBTransaction; 

begin

tr := TIBTransaction.Create(); 

try

... 

finally

if tr.InTransaction then

tr.Commit;

tr.Free;  

end; 

end; 

В Javascript, код в секции finally (даже не смотря на наличие await) выполнится уже ПОСЛЕ того как результат функции будет передан получателю. 

export const upsertAccount: RequestHandler = async (req, res) => {

  const { client, attachment, transaction} = await setConnection();

  try {

...

  }

  finally {

    await closeConnection(client, attachment, transaction);

  }

}; 

Теперь представим такую ситуацию. На веб сервер посылается сначала запрос на изменение данных, а после его выполнения запрос на получение (перечитывание) данных. Если мы будем делать commit транзакции в секции finally, то возможна такая ситуация, когда первый запрос уже завершится и вернет результат на клиента, который, в свою очередь, выполнит второй запрос к серверу, а транзакция все еще будет не подтверждена. В этом случае клиент получит старые данные, не соответствующие тому, что находится в базе данных.

Выход в данном случае или комитить транзакцию до секции finally, или использовать мьютекс на несколько обработчиков, который не даст прочитать данные, пока не запишется транзакция, которая меняла эти данные.

Коллектив компании Golden Software поздравляет всех с наступающим Новым Годом и желает чтобы в 2022 году исполнились ваши самые заветные и смелые мечты!

За будущее беларуского софта можно не волноваться

Хочется поделиться потрясающими и воодушевляющими впечатлениями от участия в качестве ментора в открытом IT хакатоне минской школы Stembridge. Наша компания была инициатором и спонсором данного мероприятия, но вся организационная часть лежала на Stembridge. В том числе и выбор задания. Надо сказать, что первый раз увидев поставленную задачу – "E-PROFILE" – решение на тему "Как в электронном виде наглядно и удобно собирать портфолио достижений каждого ученика от 1 до 11 класса?" – у меня возникли сомнения насколько такая, по сути, прикладная задача, будет интересна ученикам 8-11 классов. Все мы привыкли к олимпиадным задачам, как к хитрым и абстрактным головоломкам, редко пересекающимся с повседневной жизнью. Тем более, что предложенные подвопросы к основной задаче: 

• Формат ввода и хранения данных (простота и доступность с разных устройств и разных форматов)
• Качество данных (достоверность, актуальность) • Безопасность и доступ к данным (разные уровни доступа) 
• Визуальное оформление: панели, отчеты и т.д. 
• Интеграция с внешней базой данных 

Больше напоминали технические требования из взрослого тендера на разработку промышленной системы. Смогут ли дети понять, что такое реляционные структуры данных и спроектировать конкретные сущности (таблицы) из задания? Какой инструментарий выберут для прототипирования пользовательского интерфейса? На какой платформе будут создавать программный код и смогут ли показать работающее решение (прототип), если на кодирование после обсуждения останется максимум 4-5 часов? 

Сомнений было много. Мне досталась команда номер 4. Две девочки, три мальчика. После вводной части началась работа по командам и тут меня ждал настоящий, в хорошем смысле, шок. После небольшого пятиминутного наставления, ребята работали полностью самостоятельно. Школьники 10-го класса смогли полностью уяснить суть задачи, понять какие данные им нужны, где их брать и как хранить, набросать эскизы интерфейса на графическом планшете и даже создать работающий прототип с фронтальной частью на React и бэк-эндом на Node. И это все менее чем за 5 часов! 

Начинается защита проектов (всего в хакатоне принимало участие три десятка ребят, разбитых на 6 команд). И тут меня ждет продолжение приятного удивления. Во-первых, каждая из команд довела свое решение до конца. Не было брошенной на полпути или недоделанной работы. Во-вторых, все шесть программ были разными, каждая со своими уникальными неповторяющимися решениями. В-третьих, каждая команда представила по итогу грамотную техническую презентацию. Приятно было видеть, что ребята не тушуются перед камерой и микрофоном и способны связно и доступно представлять технические детали своей работы, а также отвечать на вопросы экспертов. 

После достаточно длительного совещания жюри (реально трудно было выбрать победителя – абсолютно все работы были хороши и достойны), были объявлены команды, занявшие первое, второе и, команда, где мне пришлось немного побыть ментором -- третье место. 

Вне зависимости от занятого места каждый из участников остался в выигрыше получив ценный опыт, а я получил уверенность, что за будущее беларуского софта можно не волноваться. Новое поколение уже на подходе! 

PS: чуть позже мы разместим здесь видео с хакатона.

Открытый хакатон 11 декабря для учащихся 8-11 классов

Компания Golden Software выступила спонсором открытого хакатона E-PROFILE, проводимого школой Стембридж. К участию приглашаются ученики 8-11 классов, а также взрослые эксперты для менторинга, сопровождения и качественного судейства представленных проектов.

Время: суббота 11 декабря 2021 года, с 9.30 до 19.00.

Место: онлайн. Хакатон будет проводиться с использованием платформ Zoom и GoogleMeet. Все ссылки и необходимые документы будут высланы участникам накануне мероприятия на электронные адреса, указанные в регистрационной форме.

Участники: учащиеся 8-11 классов, прошедшие регистрацию. Количество участников ограничено (на 55 заявках закрывается реегистрация)

Тематика: на хакатоне мы посоревнуемся в поиске лучшего решения на тему “Как в электронном виде наглядно и удобно собирать портфолио достижений каждого ученика от 1 до 11 класса?”

Подвопросы:

• Формат ввода и хранения данных (простота и доступность с разных устройств и разных форматов)
• Качество данных (достоверность, актуальность) Безопасность и доступ к данным (разные уровни доступа)
• Визуальное оформление: панели, отчеты и т.д.
• Интеграция с базами данных

Ссылка на Положение и регистрационную форму.

Ссылка на регистрацию для взрослых волонтеров в роли экспертов, менторов и судей.

Конфигурация небольшого сервера для базы данных Гедымина

На днях один клиент обратился с просьбой порекомендовать конфигурацию сервера под базу данных размером в районе 50 Гб и количеством одновременных подключений 25+. Думаю такая рекомендация может быть интересна и другим нашим клиентам, а также как исторический материал, который через некоторое время позволит сравнить цены и оценить скорость развития вычислительной техники.

Курс доллара на момент написания где-то в районе 2.5 руб за 1 USD.

1. Память. Ставьте 256 ГБ самой быстрой DDR4, которую будет поддерживать материнская плата. Это на вырост. Если 256 Гб дорого, то никак не меньше 128 Гб. Планка на 32 Гб стоит сейчас где-то в районе 400 руб.
2. Процессор AMD Ryzen 9 5900X (12 ядер, ~1500 руб) или 5950X (16 ядер, ~2200 руб).
3. 4 планки NVME по 1 Tb. Что-нибудь вроде SSD Samsung 980 Pro 1TB (по 550 руб за штуку). Из них собрать два зеркала RAID 1. Одно использовать для размещения операционной системы, темп каталога и папки с архивами бд, а второе -- для размещения рабочего файла базы данных.
4. Материнская плата с поддержкой всего вышеперечисленного (в т.ч. PCI Express 4.0). Сеть желательно 10 Gbit Ethernet до центрального свитча. Видео встроенное в материнскую плату или самое простое. Монитор можно б/у-шный тоже самый простой.
5. Корпус можно самый обычный брать. Блока питания на 600 W хватит вполне.
6. Надежный бесперебойник.

На вскидку, суммарная стоимость будет:

8 * 400 + 1500 + 550 * 4 + 600 + 300 + 400 = 8200, округленно -- 9000 руб.

Этой техники хватит без проблем, по производительности, на 5 ближайших лет.

Смена хостинга для нашего сайта

Пока мы осваиваемся на новом хостинге могут наблюдаться небольшие перебои в работе сайта. Если при обращении к сайту возникает ошибка, очистите сохраненные cookies. Для этого откройте меню, кликнув по пиктограммке слева от имени сайта в адресной строке браузера и вызовите соответствующую команду.

https:// версия сайта тоже доступна, но пока не сделана основной. Надо еще поискать по коду все ссылки на незащищенный протокол и поменять их.

Если заметите ошибки в работе сайта, будем признательны обратной связи на адрес support[at]gsbelarus.com.

Охота на утечки памяти

В отладочную версию gedemin.exe и новейшую версию класса TCreator добавлено расширенное логирование:

1. Транзакции. Логируется старт и завершение транзакции. Показывается количествоактивных транзакций в данный момент времени. 
2. IBSQL. Логируется выполнение запроса. Для SELECT запросов логируется закрытие. Показывается количество открытых на чтение запросов.
3. Designer. Логируется создание и удаление объекта. Показывается количество объектов в памяти.
4. TCreator. Логируется создание и удаление экземпляра класса. Показывается количество TCreator  в памяти.

Обратите внимание, что в Гедымине скрипт-функции внутри диалогового окна зашитого в платформу выполняются в рамках отдельного модуля и внутри него будет идти свой отсчет экземпляров TCreator.

NB! Об использовании TCreator и других VB классов

Важное предварительное замечание: отладчик Гедымина вносит существенные искажения в исходный код скрипт-функций из-за чего сборка мусора может работать не так, как ожидает этого программист, и не так, как она будет работать в режиме без отладочной информации. Всегда проверяйте код в режиме без отладки перед передачей в промышленную эксплуатацию.

Особенности классов VBScript

1. Событие Terminate вызывается только в процессе удаления из памяти последнего экземпляра данного класса.
2. Наличие кольцевых ссылок, в т.ч. цепочек кольцевых зависимостей любой длины, приведет к тому, что ни один из экземпляров не будет удален сборщиком мусора и останется в памяти до конца работы программы.

Как мы столкнулись с проблемой неудаления объектов из памяти

В одной из задач с помощью TCreator создавалось модальное окно, которое оставалось на экране в течение всей рабочей смены. Оператор взаимодействаовал с окном сотни раз вызывая различные функции приложения. В процессе выполнения каждой функции выделялись ресуры (транзакции, запросы к базе данных и т.п.). Ресурсы не удалялись по завершении функции, так как локальный TCreator не уничтожался сборщиком мусора из-за наличия TCreator в месте создания модального окна. В конце концов исчерпывалась доступная оперативная память и приложение завершалось с ошибкой.

Возникает вопрос, как бороться с вышеуказанной частной ситуацией и как правильно работать с классами VBScript, чтобы максимально обезопасить себя от утечек памяти?

Использовать Designer.CreateObject -- Designer.DestroyObject

В описанном выше примере программист изначально понимает, что созданный экземпляр TCreator будет существовать до закрытия модального окна, а значит будет удерживать все последующие TCreator. В данном случае можно предложить решение с выделением и уничтожением ресурсов напрямую через глобальный объект Designer.

Создать копию класса TCreator

Вы автор подсистемы на платформе Гедымин. Код протестирован на корректную работу с ресурсами. Но, как обезопасить себя от ситуации, когда другая подсистема создаст долгоживущий TCreator и заблокирует все ваши механизмы очистки памяти? 

Следует создать полную копию класса TCreator в рамках своей подсистемы и использовать ее для выделения ресурсов.

А надо ли каждый раз выделять-уничтожать ресуры?

В указанном выше приложении сотни раз за рабочую смену выделялись и уничтожались одни и те же ресурсы -- транзакции и запросы к базе данных. Одно из решений -- пул ресурсов. Нужные объекты создаются единожды и привязываются к окну (у нас есть соответствующее свойство Objects у формы). Остается только стартовать/комитить транзакции в нужных местах и выполнять/закрывать запросы к базе данных, без уничтожения самих объектов. 

Альтернативный вариант в случае с экранной формой -- не создавать объекты для пула из программного кода, а просто разместить соответствующие компоненты на форме и обращаться к ним через метод GetComponent.

Принудительно уничтожить ресурсы в TCreator

В крайнем случае, ресуры выделенные через TCreator можно уничтожить принудительно, вызвав метод DestroyAllObjects. Теперь, даже если сборщик мусора не сможет удалить экземпляр TCreator, то в памяти останется только он, но не связанные с ним ресурсы.

Уничтожать TCreator как можно раньше

Стандартная практика -- TCreator уничтожается по завершении функции или процедуры. Если код процедуры или функции объемный и ресурсы нужны только в одной его части, то рекомендуется уничтожать экземпляр TCreator вручную, присваивая переменной значение Nothing.

...

Dim Creator

Set Creator = New TCreator

...

здесь работаем с ресурсами

...

больше нам выделенные ресурсы не нужны

Set Creator = Nothing

...

продолжается код функции/процедуры

...

Удаление объектов в VBScript и кольцевые ссылки

Сборщик мусора в VBScript вызывается всегда по окончании блока (процедуры или функции) и пытается понять, какие объекты, созданные внутри этого блока, больше не нужны, и удаляет их.

При наличии малейших сомнений, объект останется в памяти до завершения работы Гедымина.

К сожалению, простейшая кольцевая ссылка вводит сборщик мусора в заблуждение и не дает удалить участвующие в ней объекты.

Создадим вспомогательный класс с деструктором:

Class Foo
  Public Name
  Public Other
 
  Public Default Function Init(N)
    Name = N
    Set Init = me
  End Function

  Private Sub Class_Terminate
    MsgBox Name & ": Goodbye, world!"
  End Sub
End Class

Пока кольцевых ссылок нет, код работает корректно и созданные экземпляры удаляются по завершении процедуры:

Sub Macros
  Dim f, f2, f3

  Set f = (New Foo)("f")
  Set f2 = (New Foo)("f2")
  Set f3 = (New Foo)("f3")
End Sub

Но,  стоит появиться кольцевой ссылке и объекты останутся в памяти до завершения работы Гедымина:

Sub Macros
  Dim f, f2, f3

  Set f = (New Foo)("f")
  Set f2 = (New Foo)("f2")
  Set f3 = (New Foo)("f3")

  Set f.Other = f2
  Set f2.Other = f3
  Set f3.Other = f
End Sub

Как избежать такой ситуации? Принудительно присваивать объектной переменной значение Nothing после окончания ее использования.

Много полезной информации по внутреннему устройству интерпретатора VBScript можно найти в блоге разработчика Eric Lippert.

Новый сервер компиляции gedemin.exe

Многие годы за автоматическую компиляцию gedemin.exe и формирование пакетов прикладных решений отвечали несколько изощренных bat файлов. Технология пакетной обработки была заложена вместе с первыми версиями DOS еще в начале восьмидесятых прошлого века и предоставляет разработчику очень скудный функционал. Для любого отступления за рамки элементарного копирования/удаления и вызова сторонних программ приходится создавать свои утилиты или приспосабливать свободно доступные из всемирной сети.

Процесс запускался по расписанию один раз в сутки, а не в ответ на изменения в исходном коде платформы и решений.

Все бы ничего, пока строго один gedemin.exe "выпекался" из текущих исходников ветки master в репозитории. Несколько лет назад на крупных предприятиях значение генератора GD_G_UNIQUE стало подбираться к верхнему пределу доступных положительных 32-х битных целочисленных значений. В качестве быстрого решения проблемы мы ввели механизм поиска доступных интервалов в последовательности идентификаторов во всех таблицах базы и записи их в специальную таблицу, откуда Гедымин берет новые идентификаторы по мере необходимости. И... начали думать над долговременным решением, которым должно стать использование 64-х битных целочисленных идентификаторов записей.

Надо сказать, что 20 лет назад никто не задумывался над проблемой исчерпания идентификаторов и внутри исходного кода разработчики сплошь и рядом использовали тип Integer или полагались на длину строго в 4 байта при записи и чтении из буфера. Что еще хуже, Delphi 5 не поддерживает тип Int64 в библиотеке типов COM, через которую объекты Гедымина взаимодействуют с программным кодом на VBScript.

Первым шагом трансформации исходного кода стало введение специального типа для идентификаторов TID и набора функций для преобразования идентификаторов в/из строк, целых чисел, чисел с плавающей точкой и т.п. Разумеется, что замена типа затронула большинство из файлов проекта. Для справки, всего Гедымин насчитывает 5164 .pas файла, если считать вместе со сторонними библиотеками. В зависимости от символа условной компиляции ID64 тип TID превращается либо в 32-х битный Integer, либо в Int64. 

Существующий файл базы данных должен пройти через процедуру конвертации, которая меняет домены dintkey, dforeignkey и выполняет последовательность бэкап-рестор. Процесс конвертации базы данных необратим. После перехода на 64 бита вернуться назад уже нельзя.

Таким образом, у нас появляются три версии выполняемого файла:

1. стабильный, проверенный временем gedemin.exe c 32-х битными идентификаторами.
2. gedemin.exe на основе новых исходников с 32-х битными идентификаторами.
3. gedemin.exe c 64-х битными идентификаторами.

Поддерживать такое хозяйство с помощью устаревшей технологии bat файлов и остаться при этом в здравом рассудке не представляется возможным. Пару месяцев назад мы начали проект gbuilder -- сервер компиляции Гедымина и прикладных решений. В настоящее время готова первая очередь. Из специальной ветки с именем india компилируется gedemin.exe на основе стабильных исходников. Прикладные решения формируются из ветки master репозитория gedemin-apps. Сервер компиляции предоставляет разработчику интерфейс через чат-бот в телеграме @gbuilderbot. Компиляция активируется через github webhooks по мере поступления на сервер изменений в исходный код.

В скором времени будет добавлена компиляция бета версий gedemin.exe из новейших исходников с 32-х битными и 64-х битными идентификаторами.

gbuilder реализован на платформе NodeJS. Язык программирования Typescript. Скомпилированные файлы можно скачать из соответствующего раздела нашего сайта.