Author Archives
Delphi. Уменьшение изображения. Обобщение и нюансы
Posted on 22.06.2017 | By Stanislav_Panteleev | Leave a response
Я уже писал об уменьшении изображения. Здесь про true уменьшение изображений. То есть прямо, чтобы окрыл файл в проводнике, а оно там стало меньше)) Простой способ уменьшения изображения для UniGUI Как уменьшить много картинок и сохранить их на диске? По сути, у меня всего 2 способа, которые я для себя открыл и пытался использовать. Но сегодня я узнал об их нюансах. Способ №1 – через GDI+ (для idHTTP сервера или основного потока) Нюанс в том, […]
Delphi. Читаем ориентацию из Exif для Jpg файлов и ориентируем правильно
Posted on 22.06.2017 | By Stanislav_Panteleev | Leave a response
Каждый программист встречается с “Battle”. Иногда сидишь сутками, решая проблему и как прекрасен тот момент, когда понимаешь, как это можно решить. Столкнулся с тем, что если загрузить методом idHTTP.Get jpg файл , у которого в exif данных указана ориентация, скажем “Rotate 90°”, то эта ориентация слетает, и это никак не вписывалось в мои планы. Хотелось нормальной ориентации) Помучившись какое-то время с этим вопросом, я понял следующее. 1. Нужно научиться читать exif информацию 2. Нужно научиться […]
Delphi. TRichView. Обходим глюк с выравниванием таблиц при загрузке HTML при помощи TrvHTMLImporter
Posted on 17.06.2017 | By Stanislav_Panteleev | Leave a response
Всем привет, давненько ничего не писал в блог. Итак, столкнулся с таким глюком. В чем суть? При загрузке html контента методом RvHtmlImporter1.LoadHtml(s) выравнивание таблиц слетает. Если, скажем, она была выравнена по центру, то она выравнивалась по левому краю. Просидел с этим 2 дня, так как такой вариант меня не устраивал. Решение Использовать компоненты TRVHTMLViewImporter THTMLViewer У RVHTMLViewImporter1 прописать свойство HTMLViewer и загрузить контент, например таким образом…
|
1 2 |
RVHTMLViewImporter1.LoadFromFile('123.htm',RichViewEdit1); RichViewEdit1.Format; |
MySQL. Вставка с инкрементом
Posted on 11.06.2017 | By Stanislav_Panteleev | Leave a response
Если одно из полей должно возрастать при определенных условиях, можно при вставке выполнить такие инструкции
|
1 2 3 |
select max(coffeetest_db.testanswers.sortIndex) from coffeetest_db.testanswers where testQuestions_id=1370 into @r; SELECT (CASE WHEN @r IS NULL THEN @r:=0 ELSE @r:=@r+1 END); # increasing if needed INSERT INTO `coffeetest_db`.`testanswers` (`testQuestions_id`,`sortIndex`) VALUES ('1370',@r); |
Delphi. Как сделать Ribbon меню на DevExpress?
Posted on 23.05.2017 | By Stanislav_Panteleev | Leave a response
Делая меню для одной из своих программ, я экспериментировал со встроенными Риббонами из стандартной библиотеки Delphi. Но, скажу честно, отказался от этой идеи. Местами были глюки. Всё настроил, но оно слетает. Пожелание разработчикам стандартных Риббонов Delphi – довести до ума. Остановился на риббонах от DevExpress. Скажу честно, мне эта библиотека очень понравилась, но в неё нужно “вьезжать” какое-то время. Чтоб это время сэкономить тем, кто хочет сделать себе красивое меню для VCL программы, предлагаю данный […]
MySQL. Добавляем хранимые процедуры и функции ( “рутину” ) в модель и физическую базу данных
Posted on 22.05.2017 | By Stanislav_Panteleev | Leave a response
Добрый день, сегодня простая и интересная тема. Добавление хранимых процедур и функций, или как их называют в документации MySQL “рутин” в модель и физическую базу данных. Добавление хранимой функции в физическую базу данных Здесь всё просто. Открываем WorkBench Добавляем хранимую функцию. Скажем это будет проверка логина, пароля и роли при входе.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
CREATE DEFINER=`root`@`localhost` FUNCTION `loginPasswordRoleCheck`(ALogin VARCHAR(45), APassword VARCHAR(45), ARoleName VARCHAR(45)) RETURNS tinyint(1) BEGIN -- DECLARE foundRows INT; -- default 0; DECLARE roleName varchar(45); -- default 0; DECLARE CONTINUE HANDLER FOR SQLEXCEPTION return 0; -- if count=1 then OK select count(*) from users where login=ALogin and password=APassword and roles_id=(select id from roles where name=ARoleName) into @RowCount; if @RowCount=1 then return 1; else return 0; end if; END |
Функция проверяет логин, пароль и роль, если они одновременно подходят, значит возвращает единицу. Если нет, или таких записей больше чем 1, то возвращает […]
Delphi.MySQL.Мои компоненты.TPSDBTreeView
Posted on 13.05.2017 | By Stanislav_Panteleev | Leave a response
Вот что у нас получится. Дерево работает над базой MySQL. В примере 2 дерева, работающие над одной таблицей базы. 3-й ряд кнопок сам определяет какое дерево активно. Исходники прилагаю. Типовая таблица для дерева. Это минимальный набор полей. Всё остальное можно добавлять по необходимости. При этом копирование-вставка записей будут происходить корректно.
Delphi. MySQL. InsertSelect всех полей для реализации Copy Paste
Posted on 13.05.2017 | By Stanislav_Panteleev | Leave a response
Делал для своего компонента TPSDBTreeView функцию “вырезать, копировать, вставить” на основе InsertSelect. Проблема в том, что если пытаться копировать все поля, скажем так
|
1 |
insert into users SELECT * FROM coffeetest_db.users; |
то получим
|
1 2 |
10:35:43 insert into users SELECT * FROM coffeetest_db.users Error Code: 1062. Duplicate entry '1025' for key 'PRIMARY' 0.016 sec |
Что же делать в таком случае? Нашёл такой выход Вот пример из проекта
|
1 2 3 4 5 6 7 8 |
set @cols=(SELECT GROUP_CONCAT("`", COLUMN_NAME, "`") FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME = 'users' and TABLE_SCHEMA = 'coffeetest_db' AND COLUMN_NAME NOT IN ('id')); set @query=CONCAT('insert into ','users' ,'(',@cols,')',' Select ',@cols,' FROM ','users',' where id=',1159); #select(@query); PREPARE stmt1 FROM @query; EXECUTE stmt1; |
При вставке в Delphi TFDQuery
|
1 2 3 4 5 6 7 |
set @cols=(SELECT GROUP_CONCAT("`", COLUMN_NAME, "`") FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME = :tablename and TABLE_SCHEMA=:dbname AND COLUMN_NAME NOT IN ('id')); set @query=CONCAT('insert into ',:tablename ,'(',@cols,')',' Select ',@cols,' FROM ',:tablename,' where id=',:id); PREPARE stmt1 FROM @query; EXECUTE stmt1; |
Что происходит в коде? Мы просто составляем запрос на уровне базы, выкидывая ненужные колонки, в нашем случае id и исполняем его там. И далее обращаться, скажем так […]
Delphi. Архитектура приложения. Видимость объектов
Posted on 10.05.2017 | By Stanislav_Panteleev | Leave a response
Увидел на DelphiMaster, решил сохранить себе Вот несколько принципов, соблюдая которые навсегда избавишься от проблем “видимости”: 1. Объекты, переменные, методы ОБЩЕГО ПОЛЬЗОВАНИЯ всегда размещать в датамодуле, причем сам код датамодуля не должен “ведать” ни о каких переменных извне – все, что ему надо, должно передаваться в параметрах. Ссылку на датамодуль располагать в инфтерфейсной части всех юнитов – “клиентов”, там, где перечисляются VCL-ные юниты. Датамодуль так же, как и гл.формы, должен быть включен в список автосоздаваемых. […]
Delphi. Передаем ссылку на Owner через (Self.Owner as TOwnerType) а не через UnitVar
Posted on 10.05.2017 | By Stanislav_Panteleev | Leave a response
Проблема Разрабатывал компонент. Ссылку на Owner всегда передавал в inherited конструкторе так
|
1 2 3 4 5 6 7 8 9 10 11 12 13 |
implementation ... uses uOwnerUnit; var SomeUnitVar:TOwnerType; ... constructor TSomeClass.Create(AOwner: TComponent); begin inherited; if (AOwner is TOwnerType) then SomeUnitVar:=(AOwner as TOwnerType); end; |
Компонент визуальный. Разместил несколько его экземпляров на форме, стал тестировать. Начались глюки. Скажем, если заполняю какое-то свойство у SomeComponentName1.SomeProperty, то оно заполняется у SomeComponentName2.SomeProperty, а у первого не заполняется. В общем стал копать и похоже SomeUnitVar работает как глобальная переменная, от которых все бегут. Решение Обращаться в локальных методах к Owner через (Self.Owner as TOwnerType), например так…
|
1 2 3 4 5 |
procedure TSomeClass.someProcedure; ... mc:=(Self.Owner as TPSDBTreeViewMC); .. //do something with mc |
Такой подход дал положительный результат. Сделать […]