Category Archives: Delphi

Delphi. TLangMan. Перевод приложений. International Application

Posted on 30.06.2017 by Stanislav_Panteleev

Задумался о переводе приложений. Изучил всякие разные варианты, попробовал написать свой класс, понял, что это крайне трудоемко, учитывая многие моменты. Вот что нашел на просторах сети) Сайт автора http://www.regulace.org/index.php?cPath=26 Стоит эта штука в районе 50 евро

Posted in Delphi | Comments Off

Delphi. Читаем ориентацию из Exif для Jpg файлов и ориентируем правильно

Posted on 22.06.2017 by Stanislav_Panteleev

Каждый программист встречается с “Battle”. Иногда сидишь сутками, решая проблему и как прекрасен тот момент, когда понимаешь, как это можно решить. Столкнулся с тем, что если загрузить методом idHTTP.Get jpg файл , у которого в exif данных указана ориентация, скажем … Continue reading →

Posted in Delphi | Comments Off

Delphi. TRichView. Обходим глюк с выравниванием таблиц при загрузке HTML при помощи TrvHTMLImporter

Posted on 17.06.2017 by Stanislav_Panteleev

Всем привет, давненько ничего не писал в блог. Итак, столкнулся с таким глюком. В чем суть? При загрузке html контента методом RvHtmlImporter1.LoadHtml(s) выравнивание таблиц слетает. Если, скажем, она была выравнена по центру, то она выравнивалась по левому краю. Просидел с этим … Continue reading →

Posted in Delphi | Comments Off

MySQL. Вставка с инкрементом

Posted on 11.06.2017 by Stanislav_Panteleev

Если одно из полей должно возрастать при определенных условиях, можно при вставке выполнить такие инструкции

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);

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);

Posted in Delphi | Comments Off

Delphi. Как сделать Ribbon меню на DevExpress?

Posted on 23.05.2017 by Stanislav_Panteleev

Делая меню для одной из своих программ, я экспериментировал со встроенными Риббонами из стандартной библиотеки Delphi. Но, скажу честно, отказался от этой идеи. Местами были глюки. Всё настроил, но оно слетает. Пожелание разработчикам стандартных Риббонов Delphi – довести до ума. … Continue reading →

Posted in Delphi | Comments Off

Delphi.MySQL.Мои компоненты.TPSDBTreeView

Posted on 13.05.2017 by Stanislav_Panteleev

Вот что у нас получится. Дерево работает над базой MySQL. В примере 2 дерева, работающие над одной таблицей базы. 3-й ряд кнопок сам определяет какое дерево активно. Исходники прилагаю. Типовая таблица для дерева. Это минимальный набор полей. Всё остальное можно … Continue reading →

Posted in Delphi, MySQL, Компонентостроение | Comments Off

Delphi. Архитектура приложения. Видимость объектов

Posted on 10.05.2017 by Stanislav_Panteleev

Увидел на DelphiMaster, решил сохранить себе Вот несколько принципов, соблюдая которые навсегда избавишься от проблем “видимости”: 1. Объекты, переменные, методы ОБЩЕГО ПОЛЬЗОВАНИЯ всегда размещать в датамодуле, причем сам код датамодуля не должен “ведать” ни о каких переменных извне – все, … Continue reading →

Posted in Delphi | Comments Off

MySQL. Пример авторизации на языке базы (хранимая функция). И вызов из Delphi

Posted on 06.05.2017 by Stanislav_Panteleev

Пример №1 Простая и надежная функция проверки логина, пароля, роли, с результатом tinyint(1)

CREATE DEFINER=`root`@`localhost` FUNCTION `loginpasswordrolecheck2`(ALogin VARCHAR(45), APassword VARCHAR(45), ARoleName VARCHAR(45)) RETURNS tinyint(1)
BEGIN

-- DECLARE foundRows INT; -- 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

CREATE DEFINER=`root`@`localhost` FUNCTION `loginpasswordrolecheck2`(ALogin VARCHAR(45), APassword VARCHAR(45), ARoleName VARCHAR(45)) RETURNS tinyint(1)

BEGIN

-- DECLARE foundRows INT; -- 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

C результатом VarChar

CREATE DEFINER=`root`@`localhost` FUNCTION `loginpasswordrolecheck`(ALogin VARCHAR(45), APassword VARCHAR(45), ARoleName VARCHAR(45)) RETURNS varchar(45) CHARSET utf8
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

CREATE DEFINER=`root`@`localhost` FUNCTION `loginpasswordrolecheck`(ALogin VARCHAR(45), APassword VARCHAR(45), ARoleName VARCHAR(45)) RETURNS varchar(45) CHARSET utf8

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

Вызов из Delphi

CREATE DEFINER=`root`@`localhost` FUNCTION `loginpasswordrolecheck`(ALogin VARCHAR(45), APassword VARCHAR(45), ARoleName VARCHAR(45)) RETURNS varchar(45) CHARSET utf8
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

CREATE DEFINER=`root`@`localhost` FUNCTION `loginpasswordrolecheck`(ALogin VARCHAR(45), APassword VARCHAR(45), ARoleName VARCHAR(45)) RETURNS varchar(45) CHARSET utf8

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

Вызов из Delphi

procedure TMain.bHelloClick(Sender: TObject);
var 
  result:string;
begin
  with FDStoredProc do begin
    Connection:=FDConnection;
    //coffeetest_db.loginPasswordRoleCheck
    //StoredProcName:='loginpasswordrolecheck';
    StoredProcName:='loginpasswordrolecheck2';
    Prepare;
    Params[0].Value := 'admin1';
    Params[1].Value := 'admin';
    Params[2].Value := 'admin';
    Result := ExecFunc;
    ShowMessage(result);
  end;
end;

procedure TMain.bHelloClick(Sender: TObject);

var

result:string;

begin

with FDStoredProc do begin

Connection:=FDConnection;

//coffeetest_db.loginPasswordRoleCheck

//StoredProcName:='loginpasswordrolecheck';

StoredProcName:='loginpasswordrolecheck2';

Prepare;

Params[0].Value := 'admin1';

Params[1].Value := 'admin';

Params[2].Value := 'admin';

Result := ExecFunc;

ShowMessage(result);

end;

Пример №2 Вот функция в MySQL, которая проверяет пару логин пароль и при обнаружении … Continue reading →

Posted in Delphi, MySQL | Comments Off

Delphi. UniGUI. Делаем фильтры. Быстро и просто

Posted on 04.05.2017 by Stanislav_Panteleev

Вот, что у нас получится на выходе Чтобы освоить базовые принципы работы с фильтрами, посмотрите пример, который находится в

C:\Program Files (x86)\FMSoft\Framework\uniGUI\Demos\Desktop\GridFiltering

1	C:\Program Files (x86)\FMSoft\Framework\uniGUI\Demos\Desktop\GridFiltering

Вообще, у UniGUI отличные демки! Можно просто смотреть их и многое делать по аналогии!

Posted in Delphi, MySQL | Comments Off

Delphi. DBTreeView. Обходим маленький глюк при клике. Корректное отображение выделенной иконки

Posted on 28.04.2017 by Stanislav_Panteleev

Делаю свой компонент DBTreeExplorer, чтобы использовать его в дальнейшем в других проектах. Сейчас на стадии доработки дерева. Выглядит всё это так… Глюк заключался в том, что при нажатии или смене узла через клавиши, выделенная иконка начинала отображаться некорректно. Решение следующее. … Continue reading →

Posted in Delphi | Comments Off

Category Archives: Delphi

Delphi. TLangMan. Перевод приложений. International Application

Delphi. Читаем ориентацию из Exif для Jpg файлов и ориентируем правильно

Delphi. TRichView. Обходим глюк с выравниванием таблиц при загрузке HTML при помощи TrvHTMLImporter

MySQL. Вставка с инкрементом

Delphi. Как сделать Ribbon меню на DevExpress?

Delphi.MySQL.Мои компоненты.TPSDBTreeView

Delphi. Архитектура приложения. Видимость объектов

MySQL. Пример авторизации на языке базы (хранимая функция). И вызов из Delphi

Delphi. UniGUI. Делаем фильтры. Быстро и просто

Delphi. DBTreeView. Обходим маленький глюк при клике. Корректное отображение выделенной иконки

MY PROJECTS

Recent Posts

Categories