пʼятниця, 14 квітня 2017 р.

InputBox в Delphi для ввода пароля

Что бы скрыть звездочками ввод в InputBox надо добавить маску #1 перед вторым параметром:
sPass := InputBox('Введите пароль', #1'Пароль:', '');

Вот ссылка на InputQuery, где описана данная фича, которая подходит и для InputBox. Если я правильно понял, то функционал был добавлен в версии XE.

середа, 12 квітня 2017 р.

ORA-39726 или как удалить колонку

Добавил в таблицу 2 новые колонки, а через время пересмотрел свое решение и понял, что они не нужны, и надо сделать по-другому. Пробую удалять и ... ошибка ORA-39726:
unsupported add/drop column operation on compressed tables

Лезу в гугл. Кайт и Бурлесон пишут, что надо делать так:
--помечаем колонки как неиспользуемые
alter table TBL_1 set unused column Column1;
alter table TBL_1 set unused column Column2;
--удаляем неиспользуемые колонки
alter table TBL_ROZ_SALES drop unused columns;

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

субота, 1 квітня 2017 р.

4wd robot arduino или машинка-конструктор с Китая

Заказал на алиэкспрессе вот такую машинку:

Собирал по мануалам и видео с интернета, гуглите "4wd robot arduino".
Первоначально собрал с сервоприводом и датчиком фиксации препятствий, который и был установлен на сервопривод. Код, который идет с видео сразу не работал, подкорректировал и все заработало:

Получилось вот так:

Поигрался и решил переделать на управление по блютузу, в комплекте идет модуль. Все подключил, программу написал:

и ... ардуино не воспринимает сигналы с телефона по блютузу, машинка не едет. Разбирался с проблемой пару часов, пока в комментариях кода, в одном из китайских примеров не увидел надпись:
Rx -> Tx
Tx -> Rx
А я подключал наоборот, думал, что если написано Rx, то надо и подключать к Rx =)
В общем, поменял контакты и все заработало.
Для управления с телефона использовал программу bluetooth spp pro.

Вот некоторые фотки процесса:


































Вообще мне набор понравился, возможно 42 доллара это и много, но мне было интересно собирать "конструктор", познакомиться с Arduino и разбираться с возникнувшими проблемами.