Monthly Archives: November 2016

Delphi. UniGUI. Deploy от А до Я (Версия 2)

Posted on 30.11.2016 by Stanislav_Panteleev

Я уже писал о размещении (deploy) проекта на внешних серверах в одноименной статье ранее. Но тогда я только начинал разбираться с фрэймфорком UniGUI, а сейчас более менее все устаканилось в голове, поэтому этот пост наверное будет почти тем же самым, … Continue reading →

Posted in Delphi, IIS, UniGui, Windows | Comments Off

Delphi. UniGUI. Правильная архитектура приложения на примере создания соединения с базой данных MySQL с помощью FireDAC

Posted on 29.11.2016 by Stanislav_Panteleev

Интересное обсуждение у меня сложилось на форуме UniGUI, когда я не смог передать ссылку на объект так как я это делаю обычно, в Delphi (через свойства или через параметр Sender). Вот ссылка на само обсуждение http://forums.unigui.com/index.php?/topic/7556-how-to-give-correct-link-to-created-instance Итак, в UniGUI есть … Continue reading →

Posted in Delphi, FireDAC, UniGui | Comments Off

Delphi. UniGUI. Режим StandAlone Server / ISAPI Module

Posted on 29.11.2016 by Stanislav_Panteleev

Я уже писал об этом преобразовании. Суть в том, что разрабатывать приложение удобно как StandAlone Server. Минимум действий для запуска программы и её отладки. Запустил EXE файл сервера, открыл браузер, набрал localhost: 8077 и вот она, твоя программа. Отлаженную же … Continue reading →

Posted in Delphi, UniGui | Comments Off

Delphi. UniGUI. Делаем авторизацию через СМС. Часть 2 – база данных и логика программы

Posted on 26.11.2016 by Stanislav_Panteleev

Результат у меня получился таким После отправки кода, в случае корректного результата происходит переход на нужную страницу и уходит сообщение админу, либо открывается форма.

Posted in Delphi, MySQL, UniGui | Comments Off

Delphi. UniGUI. Делаем авторизацию через СМС. Часть 1 – проверка номера телефона

Posted on 23.11.2016 by Stanislav_Panteleev

В одном моем проекте 99% клиентов из России, Казахстана и Украины. И вот взбрело мне в голову сделать авторизацию через смс. Нашёл шлюз, отправил пару тестовых смс, стал двигаться дальше и уперся в проверку номера телефона. Сначала думал делать через … Continue reading →

Posted in Delphi, UniGui | Comments Off

Delphi. Как правильно удалять несколько элементов из TStringList, TObjectList и вообще из списков?

Posted on 22.11.2016 by Stanislav_Panteleev

Как правильно удалять несколько элементов из TStringList, TObjectList и вообще из списков?

for i := 0 to SomeStringList.Count - 1 do 
  begin
    if SomeStringList[i] = 'SomeValue' then // some condition here    
      SomeStringList.Delete(i); 
end;

for i := 0 to SomeStringList.Count - 1 do

begin

if SomeStringList[i] = 'SomeValue' then // some condition here

SomeStringList.Delete(i);

end;

И вот такой способ ошибочен так как постоянно меняется Count и индексы элементов, пробовал через repeat и while, но там похожая ситуация. Как вариант проходить одним циклом, … Continue reading →

Posted in Delphi | Comments Off

Delphi. Когда использовать read / write а когда get set ?

Posted on 22.11.2016 by Stanislav_Panteleev

Озаботился тут этим вопросом теоретического интереса ради и получил для себя удивительный ответ! Как известно есть 2 способа задать свойства объекту

...
private  
  FSomeProperty:string; 
public 
  property SomeProperty: string read FSomeProperty write FSomeProperty;
...

...

private

FSomeProperty:string;

public

property SomeProperty: string read FSomeProperty write FSomeProperty;

...

...
private 
  function GetSomeProperty:string
  procedure SetSomeProperty(AValue:string); 
public 
  property SomeProperty:string  read GetSomeProperty write SetSomeProperty;
...

...

private

function GetSomeProperty:string

procedure SetSomeProperty(AValue:string);

public

property SomeProperty:string read GetSomeProperty write SetSomeProperty;

...

А вот и интересный ответ

Posted in Delphi | Comments Off

Delphi. Отправляем смс через шлюз или как классно когда все сделано за Вас)

Posted on 22.11.2016 by Stanislav_Panteleev

Понадобилось сделать смс рассылки. Был порадован массой готовых решений для Delphi. Остановился на https://smsc.ru/ Вот мой небольшой пример Цифры здесь означают (<id>, <количество sms>, <стоимость>, <баланс>) в случае успешной отправки // либо (<id>, -<код ошибки>) в случае ошибки

procedure TfSMSTest.bTestClick(Sender: TObject);

var
sms: SMSC;
ResultSDA: TStringDynArray;

  i: Integer;

begin

sms := SMSC.Create;

ResultSDA := sms.send_sms('79221361449', 'Ваш код: 123',0);

MemoResults.Clear;
for i := Low(ResultSDA) to High(ResultSDA) do
    MemoResults.Lines.Add( ResultSDA[i] );


sms.Destroy;



end;

procedure TfSMSTest.bTestClick(Sender: TObject);

var

sms: SMSC;

ResultSDA: TStringDynArray;

i: Integer;

begin

sms := SMSC.Create;

ResultSDA := sms.send_sms('79221361449', 'Ваш код: 123',0);

MemoResults.Clear;

for i := Low(ResultSDA) to High(ResultSDA) do

MemoResults.Lines.Add( ResultSDA[i] );

sms.Destroy;

end;

Вот цифра … Continue reading →

Posted in Delphi, SMS | Comments Off

Delphi. JSON. Парсинг сложных объектов с System.JSON

Posted on 20.11.2016 by Stanislav_Panteleev

Вот что у нас получится Секрет в том, как я понял, чтобы подбираться к нужным нам элементам JSON последовательно. Изначально парсим исходный объект, далее, если он содержит в себе другие объекты или массивы, то подбираемся к нему через распарсенный изначальный … Continue reading →

Posted in Delphi, JSON | Comments Off

Delphi. Indy. Проблема с русскими символами и решение

Posted on 13.11.2016 by Stanislav_Panteleev

Проблема При отправке запросов, при помощи компонента idHTTP возникает проблема, если в строке GET запроса или параметрах POST запроса есть русские символы. Понятное дело, это связано с кодировкой! Выглядит это так (в HTTPAnalyzer) Естественно, сервера не в курсах, что за … Continue reading →

Posted in Delphi, Delphi и сети, Indy | Comments Off

Monthly Archives: November 2016

Delphi. UniGUI. Deploy от А до Я (Версия 2)

Delphi. UniGUI. Правильная архитектура приложения на примере создания соединения с базой данных MySQL с помощью FireDAC

Delphi. UniGUI. Режим StandAlone Server / ISAPI Module

Delphi. UniGUI. Делаем авторизацию через СМС. Часть 2 – база данных и логика программы

Delphi. UniGUI. Делаем авторизацию через СМС. Часть 1 – проверка номера телефона

Delphi. Как правильно удалять несколько элементов из TStringList, TObjectList и вообще из списков?

Delphi. Когда использовать read / write а когда get set ?

Delphi. Отправляем смс через шлюз или как классно когда все сделано за Вас)

Delphi. JSON. Парсинг сложных объектов с System.JSON

Delphi. Indy. Проблема с русскими символами и решение

MY PROJECTS

Recent Posts

Categories