Category Archives: Delphi

Delphi. UniGUI. Простейший слайдер своими руками с FadeIn FadeOut эффектом

Posted on 27.04.2017 by Stanislav_Panteleev

Пробовал интегрировать WOW слайде в UniGUI приложение, не встает корректно. Решил сделать свой простейший слайдер. Результат можно посмотреть здесь. Загрузка картинок

procedure TSlider.DataModuleCreate(Sender: TObject);

var appPath:string;

begin
FSlidePathesSL:=TStringList.Create;

FSlidePathesSL.Clear;



if TFile.Exists( UniServerModule.StartPath+'pics\slides\1.jpg'  ) then
FSlidePathesSL.Add('pics\slides\1.jpg');

if TFile.Exists( UniServerModule.StartPath+'pics\slides\2.jpg'  ) then
FSlidePathesSL.Add('pics\slides\2.jpg');

if TFile.Exists( UniServerModule.StartPath+'pics\slides\3.jpg'  ) then
FSlidePathesSL.Add('pics\slides\3.jpg');


if TFile.Exists( UniServerModule.StartPath+'pics\slides\4.jpg'  ) then
FSlidePathesSL.Add('pics\slides\4.jpg');


if TFile.Exists( UniServerModule.StartPath+'pics\slides\5.jpg'  ) then
FSlidePathesSL.Add('pics\slides\5.jpg');


if TFile.Exists( UniServerModule.StartPath+'pics\slides\6.jpg'  ) then
FSlidePathesSL.Add('pics\slides\6.jpg');


if TFile.Exists( UniServerModule.StartPath+'pics\slides\7.jpg'  ) then
FSlidePathesSL.Add('pics\slides\7.jpg');


if TFile.Exists( UniServerModule.StartPath+'pics\slides\8.jpg'  ) then
FSlidePathesSL.Add('pics\slides\8.jpg');


if TFile.Exists( UniServerModule.StartPath+'pics\slides\9.jpg'  ) then
FSlidePathesSL.Add('pics\slides\9.jpg');


if TFile.Exists( UniServerModule.StartPath+'pics\slides\10.jpg'  ) then
FSlidePathesSL.Add('pics\slides\10.jpg');



end;

procedure TSlider.DataModuleCreate(Sender: TObject);

var appPath:string;

begin

FSlidePathesSL:=TStringList.Create;

FSlidePathesSL.Clear;

if TFile.Exists( UniServerModule.StartPath+'pics\slides\1.jpg' ) then

FSlidePathesSL.Add('pics\slides\1.jpg');

if TFile.Exists( UniServerModule.StartPath+'pics\slides\2.jpg' ) then

FSlidePathesSL.Add('pics\slides\2.jpg');

if TFile.Exists( UniServerModule.StartPath+'pics\slides\3.jpg' ) then

FSlidePathesSL.Add('pics\slides\3.jpg');

if TFile.Exists( UniServerModule.StartPath+'pics\slides\4.jpg' ) then

FSlidePathesSL.Add('pics\slides\4.jpg');

if TFile.Exists( UniServerModule.StartPath+'pics\slides\5.jpg' ) then

FSlidePathesSL.Add('pics\slides\5.jpg');

if TFile.Exists( UniServerModule.StartPath+'pics\slides\6.jpg' ) then

FSlidePathesSL.Add('pics\slides\6.jpg');

if TFile.Exists( UniServerModule.StartPath+'pics\slides\7.jpg' ) then

FSlidePathesSL.Add('pics\slides\7.jpg');

if TFile.Exists( UniServerModule.StartPath+'pics\slides\8.jpg' ) then

FSlidePathesSL.Add('pics\slides\8.jpg');

if TFile.Exists( UniServerModule.StartPath+'pics\slides\9.jpg' ) then

FSlidePathesSL.Add('pics\slides\9.jpg');

if TFile.Exists( UniServerModule.StartPath+'pics\slides\10.jpg' ) then

FSlidePathesSL.Add('pics\slides\10.jpg');

end;

Нам нужен UniImage на форме или фрэйме. Также нам нужен UniTimer на форме или на фрэйме. Он работает … Continue reading →

Posted in Delphi | Comments Off

Delphi. UniShop. Интеграция с банком Тинькофф

Posted on 25.04.2017 by Stanislav_Panteleev

Делал интернет-магазин на Delphi, появилась задача провести интеграцию с банком Тинькофф. Эквайринг. Внимательно изучил API Тинькофф. С заказчиком решили остановиться на платежном виджете с типом нотификации Email. Расскажу основные моменты. Оттолкнувшись от API написал такой код обработки параметров отправляемых через … Continue reading →

Posted in Delphi, UniGui | Comments Off

Как получить произвольный tjsonobject в качестве ответа сервера?

Posted on 25.04.2017 by Stanislav_Panteleev

Всем привет, продолжаем говорить про RestServer, построенный на одном из лучших языков программирования Delphi. Встала такая задача – получать баланс с сервиса SMSC.ru Стандартный ответ сервера выглядит примерно так…

{"result":["200 , OK"]}

1	{"result":["200 , OK"]}

Причем 200,OK это результат функции, которая отработала на сервере по … Continue reading →

Posted in Delphi | Comments Off

Delphi. RestServer. Делаем красивый URL

Posted on 23.04.2017 by Stanislav_Panteleev

Всем доброго дня! Продолжаю писать REST сервер, понадобилось делать красивые URL для API REST сервера, что-то в таком духе

/smsAPI/v1/TRegistrationMethods/AddProgram/ANewToken/ACheckToken

1	/smsAPI/v1/TRegistrationMethods/AddProgram/ANewToken/ACheckToken

/smsAPI/v1/TSendSMSMethods/SendSMS/APhone/AContent/ACheckToken

1	/smsAPI/v1/TSendSMSMethods/SendSMS/APhone/AContent/ACheckToken

Красиво? Мне тоже нравится. Что у нас на входе? Если собрать типичный REST сервер из мастера Delphi и запустить … Continue reading →

Posted in Delphi, REST | Comments Off

Delphi. FastReport. Отправка отчета на почту в HTML формате

Posted on 07.04.2017 by Stanislav_Panteleev

Заказчик захотел получать красивые отчеты на почту. Решил использовать FastReport и придерживаться следующего алгоритма Генерировать отчет в HTML файл Загрузить в строку Отправить на почту Код (Очень черновой вариант, но чтобы было)

procedure TForm2.Button1Click(Sender: TObject);

var Emailer:TUniShopMilkSendEmail;
    ss:TStringStream;
begin


// save to html file

frxReport1.PrintOptions.ShowDialog := False;
frxReport1.ShowProgress := false;

    frxReport1.EngineOptions.SilentMode := True;
    frxReport1.EngineOptions.EnableThreadSafe := True;
    frxReport1.EngineOptions.DestroyForms := False;
    frxReport1.EngineOptions.UseGlobalDataSetList := False;
    frxHTMLExport1.FileName:='123.html';

    frxReport1.PreviewOptions.AllowEdit := False;
    frxHTMLExport1.ShowDialog:=false;
    frxReport1.PrepareReport();
    frxReport1. Export(frxHTMLExport1);


// load from file
Memo1.Lines.LoadFromFile('123.html',TEncoding.UTF8);



// send to mail
Emailer:=TUniShopMilkSendEmail.Create(Self);
Emailer.Execute('someSubject',Memo1.Lines.Text,'panteleevstas@gmail.com');


end;

procedure TForm2.Button1Click(Sender: TObject);

var Emailer:TUniShopMilkSendEmail;

ss:TStringStream;

begin

// save to html file

frxReport1.PrintOptions.ShowDialog := False;

frxReport1.ShowProgress := false;

frxReport1.EngineOptions.SilentMode := True;

frxReport1.EngineOptions.EnableThreadSafe := True;

frxReport1.EngineOptions.DestroyForms := False;

frxReport1.EngineOptions.UseGlobalDataSetList := False;

frxHTMLExport1.FileName:='123.html';

frxReport1.PreviewOptions.AllowEdit := False;

frxHTMLExport1.ShowDialog:=false;

frxReport1.PrepareReport();

frxReport1. Export(frxHTMLExport1);

// load from file

Memo1.Lines.LoadFromFile('123.html',TEncoding.UTF8);

// send to mail

Emailer:=TUniShopMilkSendEmail.Create(Self);

Emailer.Execute('someSubject',Memo1.Lines.Text,'panteleevstas@gmail.com');

end;

Также кусок кода из примера UniGUI … Continue reading →

Posted in Delphi, FastReport | Comments Off

UniGUI.DBGrid.RowsFetching. Пост-подсказка

Posted on 30.03.2017 by Stanislav_Panteleev

Запутался немного в “фетчингах” UniGUI и FireDAC. Вижу, что в UniDBGrid выводятся не все записи, хотя если отправлять данные в обычный DBGrid, то всё будет в порядке. Немного поизучал свойства UniDBGrid и увидел галочку FetchALL. Теперь записи отображаются все и … Continue reading →

Posted in Delphi, MySQL | Comments Off

Delphi. MySQL. Считаем сумму заказа через Delphi и MySQL

Posted on 23.03.2017 by Stanislav_Panteleev

Есть таблицы. Далее будут эволюционировать по мере написания поста. Требуется посчитать сумму заказа. Самый простой способ, сделать это через MySQL

SELECT SUM(orders_has_goods.goods_quantity * goods.price)
FROM orders_has_goods
INNER JOIN goods ON orders_has_goods.goods_id = goods.id
WHERE orders_id = 6

SELECT SUM(orders_has_goods.goods_quantity * goods.price)

FROM orders_has_goods

INNER JOIN goods ON orders_has_goods.goods_id = goods.id

WHERE orders_id = 6

Вариант посложнее, через Delphi.

Posted in Delphi, MySQL | Comments Off

Delphi. UniGUI. Знаки вопроса. Кодировка (charset) на VPS и локаль

Posted on 22.03.2017 by Stanislav_Panteleev

2 дня убил на то, чтобы понять, почему на VPS, при загрузке туда приложения UniGUI и базы MySQL при Insert и Update пишутся знаки вопросов вместо русского текста. Решение. Выставить локаль Wndows Server 2012 на русскую. А также все, что … Continue reading →

Posted in Delphi | Comments Off

MySQL. 2 способа пересечения множеств и объединения таблиц

Posted on 19.03.2017 by Stanislav_Panteleev

Есть следующая структура Нужно составить вот такую таблицу Часть данных у нас в одной таблице, часть данных в другой. Как получить это за один запрос? 1 способ (спасибо Денису Зубову из Самары)

select * from users u,orders o where u.id=o.users_id

1	select * from users u,orders o where u.id=o.users_id

2 способ

SELECT * FROM unishopmilk_db.users inner join unishopmilk_db.orders on users.id=orders.users_id;;

1	SELECT * FROM unishopmilk_db.users inner join unishopmilk_db.orders on users.id=orders.users_id;;

На выходе получим Но … Continue reading →

Posted in Delphi, MySQL | Comments Off

Delphi. MySQL. Пишем в DECIMAL поле и читаем из него.

Posted on 16.03.2017 by Stanislav_Panteleev

Есть Decimal поле для цены в одном из проектов. Есть на форме 2 spinEdit, рубли и копейки соответственно. Чтение из базы Получение дробной части из Float(Real)

function TUniShopMilkAdminGoodsFrameMC.GetRestOfFloat(ASomeFloat: real): integer;
var 
  s:string;
begin
  ASomeFloat:=frac(ASomeFloat);
  str(ASomeFloat:0:2,s);
  Result:=strtoint(copy(s,pos('.',s)+1,6));
end;

function TUniShopMilkAdminGoodsFrameMC.GetRestOfFloat(ASomeFloat: real): integer;

var

s:string;

begin

ASomeFloat:=frac(ASomeFloat);

str(ASomeFloat:0:2,s);

Result:=strtoint(copy(s,pos('.',s)+1,6));

end;

Получение целой и дробной частей для загрузки на форму

  seRUB.Value:=Trunc(FCurrentGoodParams.Price);
  seKopeek.Value:=GetRestOfFloat(FCurrentGoodParams.Price);

1 2	seRUB.Value:=Trunc(FCurrentGoodParams.Price); seKopeek.Value:=GetRestOfFloat(FCurrentGoodParams.Price);

Запись в базу … Continue reading →

Posted in Delphi, MySQL | Comments Off

Category Archives: Delphi

Delphi. UniGUI. Простейший слайдер своими руками с FadeIn FadeOut эффектом

Delphi. UniShop. Интеграция с банком Тинькофф

Как получить произвольный tjsonobject в качестве ответа сервера?

Delphi. RestServer. Делаем красивый URL

Delphi. FastReport. Отправка отчета на почту в HTML формате

UniGUI.DBGrid.RowsFetching. Пост-подсказка

Delphi. MySQL. Считаем сумму заказа через Delphi и MySQL

Delphi. UniGUI. Знаки вопроса. Кодировка (charset) на VPS и локаль

MySQL. 2 способа пересечения множеств и объединения таблиц

Delphi. MySQL. Пишем в DECIMAL поле и читаем из него.

MY PROJECTS

Recent Posts

Categories