Delphi - Форум программистов и сисадминов Киберфорум https://www.cyberforum.ru/ Форум программистов Delphi. Программирование в среде Delphi, Kylix, вопросы использования языка программирования Delphi (Object Pascal). Помощь в решении задач. ru Tue, 11 Aug 2026 18:39:12 GMT vBulletin 60 https://www.cyberforum.ru//cyberstatic.net/images/misc/rss.jpg Delphi - Форум программистов и сисадминов Киберфорум https://www.cyberforum.ru/ Нужен ликбез по работе с базой данных и клиент-серверной архитектуре - Delphi: Базы данных https://www.cyberforum.ru/delphi-database/thread3225005.html Mon, 10 Aug 2026 12:31:56 GMT Реализовал программу с помощью компонентов доступа к базе FireDAC (FDQuery). База MySQL лежит на... Реализовал программу с помощью компонентов доступа к базе FireDAC (FDQuery). База MySQL лежит на сервере.
Сервер был на FreeBSD и MySQL. Клиентов порядка 10 компьютеров. Никаких проблем не было.
Потом сервер отдали другому сисадмину, он зачем-то решил снести FreeBSD и поставить Линукс и MariaDB. Начались проблемки, но мы их решили.
Недавно новый админ обновил MariaDB до последней версии 11.4.2. После чего программа стала зависать у клиентов.
В логах отображается множество коннектов, которые накапливаются и не удаляются.
:
2025-04-09 18:50:38 4 [Warning] Aborted connection 4 to db: 'med_db' user: 'ruser' host: '192.168.1.102' (Got an error reading communication packets)
2025-04-09 20:11:44 3 [Warning] Aborted connection 3 to db: 'med_db' user: 'ruser' host: '192.168.1.103' (Got timeout reading communication packets)
2025-04-10  3:23:30 6927 [Warning] Aborted connection 6927 to db: 'med_db' user: 'ruser' host: '192.168.1.101' (Got an error reading communication packets)
2025-04-10  3:38:59 6602 [Warning] Aborted connection 6602 to db: 'med_db' user: 'ruser' host: '192.168.1.33' (Lock wait timeout exceeded; try restarting transaction)
Админ объяснил это так: "У вас не клиент-серверная архитектура. Клиенты подключаются напрямую к базе, поэтому возникает множество дедлоков".
Может я чего-то не понимаю, но я так полагал, что когда клиенты подключаются к серверу БД - это и есть клиент-серверная архитектура (а не файл-серверная).
Т.е. он предлагает переписать программу на трехзвенную архитектуру? Клиент - сервер приложений - сервер БД?
Но все работало нормально, пока не обновили MariaDB. Никаких дедлоков и ничего не отваливалось. В дельфи всегда традиционно работали через FireDAC, и не грузили логику серверами приложений и джейсонами. Или я не прав? ]]> Delphi: Базы данных svnvlad https://www.cyberforum.ru/delphi-database/thread3225005.html RAD XE3+ Считать значения всех CheckBox - Delphi для начинающих https://www.cyberforum.ru/delphi-beginners/thread3224977.html Sat, 08 Aug 2026 13:32:25 GMT Здравствуйте! Для работы пишу программу для расчета некоторых шкал в интенсивной терапии. Один из... Здравствуйте! Для работы пишу программу для расчета некоторых шкал в интенсивной терапии.
Один из калькуляторов представляет из себя 28 ответов Да-Нет. Представлены они в виде CheckBox-ов.
В событии OnClick каждого есть такой обработчик:
:
procedure TfrMain.TISS_Result;
var mms : Extended;
    SumTISS, h, m, i : integer;
begin
 SumTISS:= 0;
 for i:= 0 to RzPageControl1.ActivePage.ComponentCount-1 do with RzPageControl1.ActivePage do begin
  if Components[i].ClassNameIs('TRzCheckBox') then if (Components[i] as TRzCheckBox).Checked then SumTISS:= SumTISS + Components[i].Tag;
 end;
 edSumTISS.Text:= Format('%d', [SumTISS]);
 mms:= SumTISS*10.6;
 h:= Round(Int(mms / 60)) ;
 m:= Round(mms - (h * 60));  //mod
 RzLabel5.Caption:= Format('таким образом этот пациент потребовал %d ч.%d мин. дежурного времени медсестры ', [h, m]);
end;
Компоненты немного не стандартные, но сути вопроса - не меняет. Проблема в том, что св-во ComponentCount = 0. Хотя на странице их - 28. Альтернативный выход - в обработчик OnClick, каждому прописывать изменения переменной SumTISS, но это уж больно коряво. Может есть мысли как пройтись по всем CheckBox-ам на этой странице?
Изображения
Тип файла: jpg Пример с экрана.jpg (184.0 Кб)
]]> Delphi для начинающих NGPOL https://www.cyberforum.ru/delphi-beginners/thread3224977.html Проблемы с кодировкой Кириллицы в PyCharm - Delphi для начинающих https://www.cyberforum.ru/delphi-beginners/thread3224934.html Wed, 05 Aug 2026 08:20:10 GMT - Здравствуйте и Доброго Всем времени суток! - Помогите, пожалуйста, в таком вопросе: Хочу... - Здравствуйте и Доброго Всем времени суток!
- Помогите, пожалуйста, в таком вопросе:
Хочу перенести из Приложения Delphi 7 куски кода (в виде КОММЕНТАРИЯ) в PyCharm. Естественно, вбиваю '# ',
а дальше "Пастю" кусок кода Delphi 7. Все срабатывает, но вся Кириллица комментариев превращается в "Кряко-Зябры".
- Как перенести Кириллицу в PyCharm БЕЗ ИЗМЕНЕНИЙ (попасть в кодировку PyCharm)?
- Наверняка такие трудности уже возникали у других ... Подскажите пожалуйста? ]]> Delphi для начинающих Staut https://www.cyberforum.ru/delphi-beginners/thread3224934.html