Category Archives: Delphi

DesignPatterns. TemplateMethod

Posted on 19.05.2019 by Stanislav_Panteleev

Шаблонный метод позволяет объявить в базовом классе некоторый метод, который может быть группой других методов и переопределить его в классах наследниках. Посмотрим на примере. Разработка ПО может быть разделена на несколько стадий. -Идея -Проектирование -Дизайн -Тестирование Вот как мы можем … Continue reading →

Posted in Delphi | Comments Off

DesignPatterns. Strategy

Posted on 19.05.2019 by Stanislav_Panteleev

Пример с отпуском Мы можем поехать в отпуск на самолете, поезде или машине. Это будут разные стратегии. Посмотрим, как это реализовать, с помощью соответствующего паттерна. Main

program Strategy;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  uStrategyVacation in 'uStrategyVacation.pas';

var
  v: TVacation;

begin
  try
    v := TVacation.Create();
    try
      v.Transport := TStrategyAirplane.Create();
      v.Move();
       //
      v.Transport := TStrategyTrain.Create();
      v.Move();
       //
      v.Transport := TStrategyCar.Create();
      v.Move();

      Readln;
    finally
      v.Free();
    end;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

program Strategy;

{$APPTYPE CONSOLE}

{$R *.res}

uses

System.SysUtils,

uStrategyVacation in 'uStrategyVacation.pas';

var

v: TVacation;

begin

try

v := TVacation.Create();

try

v.Transport := TStrategyAirplane.Create();

v.Move();

v.Transport := TStrategyTrain.Create();

v.Move();

v.Transport := TStrategyCar.Create();

v.Move();

Readln;

finally

v.Free();

end;

except

on E: Exception do

Writeln(E.ClassName, ': ', E.Message);

end;

end.

Интерфейсы и классы стратегий

Posted in Delphi | Comments Off

DesignPatterns. Command

Posted on 18.05.2019 by Stanislav_Panteleev

Когда использовать? Когда необходимо ответить действием на действие, callback Когда нужно вести очередь действий с возможностью Undo / Redo Когда нужно последовательное логгирование Про этот паттерн говорят следующее. Client – посетитель кафе, Invoker – официантка, Command – листочек с заказом … Continue reading →

Posted in Delphi | Comments Off

DesignPatterns. AbstractFactory

Posted on 17.05.2019 by Stanislav_Panteleev

Абстрактная фабрика порождает абстрактные продукты. При применении, вызове клиентом, конкретная фабрика порождает конкретные продукты, опираясь на абстракцию. Канонический пример На примере супер героев Delphi Main

program AbstractFactory;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  System.SysUtils,
  uAbstractFactory in 'uAbstractFactory.pas';

var
  f: TAbstractSuperHeroesFactory;
  c: TClient;

begin
  try
    f := TDisneyFactory.Create();
    c := TClient.Create(f);
    c.SaveMePlease();

    Readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;

end.

program AbstractFactory;

{$APPTYPE CONSOLE}

{$R *.res}

uses

System.SysUtils,

uAbstractFactory in 'uAbstractFactory.pas';

var

f: TAbstractSuperHeroesFactory;

c: TClient;

begin

try

f := TDisneyFactory.Create();

c := TClient.Create(f);

c.SaveMePlease();

Readln;

except

on E: Exception do

Writeln(E.ClassName, ': ', E.Message);

end;

end.

Фабрика и клиент

unit uAbstractFactory;

interface

uses System.SysUtils;

type
  TAbstractFlyingSuperHero = class
  public
    procedure SaveTheWorld; virtual; abstract;
  end;

  TSuperMan = class(TAbstractFlyingSuperHero)
  public
    procedure SaveTheWorld; override;
  end;

  TAbstractSuperHeroesFactory = class
  public
    function CreateFlyingSuperHero: TAbstractFlyingSuperHero; virtual; abstract;
  end;

  TDisneyFactory = class(TAbstractSuperHeroesFactory)
  public
    function CreateFlyingSuperHero: TAbstractFlyingSuperHero; override;
  end;

  TClient = class
  private
    FAbstractFlyingSuperHero: TAbstractFlyingSuperHero;
  public
    constructor Create(aFactory: TAbstractSuperHeroesFactory);
    procedure SaveMePlease();
  end;

implementation

{ TDisneyFactory }

function TDisneyFactory.CreateFlyingSuperHero: TAbstractFlyingSuperHero;
begin
  Result := TSuperMan.Create();
end;

{ TClient }

constructor TClient.Create(aFactory: TAbstractSuperHeroesFactory);
begin
  FAbstractFlyingSuperHero := aFactory.CreateFlyingSuperHero();
end;

procedure TClient.SaveMePlease;
begin
  FAbstractFlyingSuperHero.SaveTheWorld();
  Writeln('SuperMan saved me!');
end;

{ TSuperMan }

procedure TSuperMan.SaveTheWorld;
begin
  Writeln('I''m flying to save you... ! ');
end;

end.

unit uAbstractFactory;

interface

uses System.SysUtils;

type

TAbstractFlyingSuperHero = class

public

procedure SaveTheWorld; virtual; abstract;

end;

TSuperMan = class(TAbstractFlyingSuperHero)

public

procedure SaveTheWorld; override;

end;

TAbstractSuperHeroesFactory = class

public

function CreateFlyingSuperHero: TAbstractFlyingSuperHero; virtual; abstract;

end;

TDisneyFactory = class(TAbstractSuperHeroesFactory)

public

function CreateFlyingSuperHero: TAbstractFlyingSuperHero; override;

end;

TClient = class

private

FAbstractFlyingSuperHero: TAbstractFlyingSuperHero;

public

constructor Create(aFactory: TAbstractSuperHeroesFactory);

procedure SaveMePlease();

end;

implementation

{ TDisneyFactory }

function TDisneyFactory.CreateFlyingSuperHero: TAbstractFlyingSuperHero;

begin

Result := TSuperMan.Create();

end;

{ TClient }

constructor TClient.Create(aFactory: TAbstractSuperHeroesFactory);

begin

FAbstractFlyingSuperHero := aFactory.CreateFlyingSuperHero();

end;

procedure TClient.SaveMePlease;

begin

FAbstractFlyingSuperHero.SaveTheWorld();

Writeln('SuperMan saved me!');

end;

{ TSuperMan }

procedure TSuperMan.SaveTheWorld;

begin

Writeln('I''m flying to save you... ! ');

end;

end.

Posted in C#, Delphi | Comments Off

Delphi. TStream. Сохранение строки в TStream и чтение строки из TStream

Posted on 14.05.2019 by Stanislav_Panteleev

Пример

procedure SaveStringToStream(aStr: string; aStream: TStream);
var
  l: integer;
begin
  l := length(aStr);
  aStream.WriteBuffer(l, SizeOf(l));

  if l > 0 then
    aStream.WriteBuffer(PChar(aStr)^, l);
end;

function LoadStringFromStream(aStream: TStream): string;
var
  l: integer;
begin
  aStream.ReadBuffer(l, SizeOf(l));
  if l > 0 then
  begin
    SetLength(Result, l);
    aStream.ReadBuffer(PChar(Result)^, l)
  end
  else
    Result := '';
end;

procedure SaveStringToStream(aStr: string; aStream: TStream);

var

l: integer;

begin

l := length(aStr);

aStream.WriteBuffer(l, SizeOf(l));

if l > 0 then

aStream.WriteBuffer(PChar(aStr)^, l);

end;

function LoadStringFromStream(aStream: TStream): string;

var

l: integer;

begin

aStream.ReadBuffer(l, SizeOf(l));

if l > 0 then

begin

SetLength(Result, l);

aStream.ReadBuffer(PChar(Result)^, l)

end

else

Result := '';

end;

Posted in Delphi | Comments Off

Delphi. Hex метаморфозы с байтовой строкой или функции для перевода в Hex и Hex представление и обратно

Posted on 13.05.2019 by Stanislav_Panteleev

Вспомогательные функции, из проектов Пусть на входе есть строка

#50#54#51#171#56#53#173#65#55#52#172#64#57#58#59#60#61#62#63#175#176#177#178#179#180#165#166#167#168#169#170#181

1	#50#54#51#171#56#53#173#65#55#52#172#64#57#58#59#60#61#62#63#175#176#177#178#179#180#165#166#167#168#169#170#181

Строка – > массив байт

type
  ArrayOfByte = array of byte;

function Str2Hex(s: string): ArrayOfByte;
var
  i: Integer;
  sLength: Integer;
begin
  sLength := Length(s);

  if (sLength > 0) then
  begin
    SetLength(Result, sLength);
    for i := 0 to High(Result) do
      Result[i] := Ord(S[i + 1]);
  end;
end;

type

ArrayOfByte = array of byte;

function Str2Hex(s: string): ArrayOfByte;

var

i: Integer;

sLength: Integer;

begin

sLength := Length(s);

if (sLength > 0) then

begin

SetLength(Result, sLength);

for i := 0 to High(Result) do

Result[i] := Ord(S[i + 1]);

end;

Получили массив байт

(50, 54, 51, 171, 56, 53, 173, 65, 55, 52, 172, 64, 57, 58, 59, 60, 61, 62, 63, 175, 176, 177, 178, 179, 180, 165, 166, 167, 168, 169, 170, 181)

1	(50, 54, 51, 171, 56, 53, 173, 65, 55, 52, 172, 64, 57, 58, 59, 60, 61, 62, 63, 175, 176, 177, 178, 179, 180, 165, 166, 167, 168, 169, 170, 181)

Байт -> StrHex (Шестнадцатеричное представление)

function ByteToHex(InByte: byte): shortstring;
const
  Digits: array[0..15] of char = '0123456789ABCDEF';
begin
  result := digits[InByte shr 4] + digits[InByte and $0F];
end;

function ByteToHex(InByte: byte): shortstring;

const

Digits: array[0..15] of char = '0123456789ABCDEF';

begin

result := digits[InByte shr 4] + digits[InByte and $0F];

end;

function Hex2StrHex(aBuf: ArrayOfByte): string;
var
  i: Integer;
begin
  Result := '';
  for i := Low(aBuf) to High(aBuf) do
    Result := Result + ByteToHex(aBuf[i]); // Format('%x', [aBuf[i]]) работает не совсем корректно в данном случае, 7 переводит в 7, а не 07
end;

function Hex2StrHex(aBuf: ArrayOfByte): string;

var

i: Integer;

begin

Result := '';

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

Result := Result + ByteToHex(aBuf[i]); // Format('%x', [aBuf[i]]) работает не совсем корректно в данном случае, 7 переводит в 7, а не 07

end;

Шестнадцатеричное представление

'323633AB3835AD413734AC40393A3B3C3D3E3FAFB0B1B2B3B4A5A6A7A8A9AAB5'

1	'323633AB3835AD413734AC40393A3B3C3D3E3FAFB0B1B2B3B4A5A6A7A8A9AAB5'

Или, расставив пробелы, получим

32 36 33 AB 38 35 AD 41 37 34 AC 40 39 3A 3B 3C 3D 3E 3F AF B0 B1 B2 B3 B4 A5 A6 A7 A8 A9 AA B5

1	32 36 33 AB 38 35 AD 41 37 34 AC 40 39 3A 3B 3C 3D 3E 3F AF B0 B1 B2 B3 B4 A5 A6 A7 A8 A9 AA B5

Шестнадцатеричное представление -> байты

function StrHex2Hex(sHex: string): ArrayOfByte;
var
  i: Integer;
  sHexLength: Integer;
  sHexWithoutSpaces: string;
begin
  sHexWithoutSpaces := '';
  for i := 1 to Length(SHex) do
   if SHex[i] <>  ' ' then
     sHexWithoutSpaces := sHexWithoutSpaces + SHex[i];

  sHexLength := Length(sHexWithoutSpaces);

  if (sHexLength > 0) and (sHexLength mod 2 = 0) then
  begin
    SetLength(Result, sHexLength div 2);
    for i := 0 to High(Result) do
      Result[i] := StrToInt('$' + Copy(sHexWithoutSpaces, i * 2 + 1, 2));
  end;
end;

function StrHex2Hex(sHex: string): ArrayOfByte;

var

i: Integer;

sHexLength: Integer;

sHexWithoutSpaces: string;

begin

sHexWithoutSpaces := '';

for i := 1 to Length(SHex) do

if SHex[i] <> ' ' then

sHexWithoutSpaces := sHexWithoutSpaces + SHex[i];

sHexLength := Length(sHexWithoutSpaces);

if (sHexLength > 0) and (sHexLength mod 2 = 0) then

begin

SetLength(Result, sHexLength div 2);

for i := 0 to High(Result) do

Result[i] := StrToInt('$' + Copy(sHexWithoutSpaces, i * 2 + 1, 2));

end;

… Continue reading →

Posted in Delphi | Comments Off

Delphi. UniGUi. Синхронный и асинхронный режимы модальных окон

Posted on 05.05.2019 by Stanislav_Panteleev

Все мы привыкли писать что-то такое для модальных окон

  if LoginForm.ShowModal = mrOk then
    ShowMessage('authorized');

1 2	if LoginForm.ShowModal = mrOk then ShowMessage('authorized');

Но в UniGUI, для того, чтобы это срабатывало так как мы привыкли, надо подключать синхронный режим.

MainModule - > EnableSynchronousOperations

1	MainModule - > EnableSynchronousOperations

По умолчанию эта галчонка отключена. Я сначала думал, что это баг, оказалось фича … Continue reading →

Posted in Delphi, UniGui | Comments Off

Delphi. UniGUI. Веб / Мобильное приложение в стиле Hybrid

Posted on 04.05.2019 by Stanislav_Panteleev

Продолжаем исследовать космический UniGUi. Оказывается, есть режим Hybrid, когда мы можем в одном проекте одновременно разрабатывать веб-десктоп и веб-мобильное приложение. Для этого, в проект нужно добавить мобильную форму, то есть так… Теперь, по одному адресу в сети, в зависимости от … Continue reading →

Posted in Delphi | Comments Off

Delphi.MD5

Posted on 12.04.2019 by Stanislav_Panteleev

Через Indy

uses IdHashMessageDigest
...
  with TIdHashMessageDigest5.Create do
  try
    Result := AnsiLowerCase(HashStringAsHex(aString));
  finally
    Free;
  end;

uses IdHashMessageDigest

...

with TIdHashMessageDigest5.Create do

try

Result := AnsiLowerCase(HashStringAsHex(aString));

finally

Free;

end;

Posted in Delphi | Comments Off

Представление положительных и отрицательных чисел в памяти компьютера. Прямой и дополнительный код числа

Posted on 12.04.2019 by Stanislav_Panteleev

Прямой код Прямой код – это представление числа в двоичной системе счисления, при котором первый (старший) разряд отводится под знак числа. Если число положительное, то в левый разряд записывается 0; если число отрицательное, то в левый разряд записывается 1. Таким образом, … Continue reading →

Posted in Delphi | Comments Off

Category Archives: Delphi

DesignPatterns. TemplateMethod

DesignPatterns. Strategy

DesignPatterns. Command

DesignPatterns. AbstractFactory

Delphi. TStream. Сохранение строки в TStream и чтение строки из TStream

Delphi. Hex метаморфозы с байтовой строкой или функции для перевода в Hex и Hex представление и обратно

Delphi. UniGUi. Синхронный и асинхронный режимы модальных окон

Delphi. UniGUI. Веб / Мобильное приложение в стиле Hybrid

Delphi.MD5

Представление положительных и отрицательных чисел в памяти компьютера. Прямой и дополнительный код числа

MY PROJECTS

Recent Posts

Categories