>Digital-flame

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.

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

Posted in Delphi | Leave a comment

DesignPatterns. Command

Posted on 18.05.2019 by Stanislav_Panteleev

Когда использовать?

Когда необходимо ответить действием на действие, callback
Когда нужно вести очередь действий с возможностью Undo / Redo
Когда нужно последовательное логгирование

Про этот паттерн говорят следующее.

Client – посетитель кафе, Invoker – официантка, Command – листочек с заказом блюда, Receiver – повар

Реализуем данный пример

…

program Command;

{$APPTYPE CONSOLE}

{$R *.res}

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

var
  waiter: TWaiter;
  client: TClient;
  cook: TCook;
  cmd: TWaiterCommand;

begin
  try
    { TODO -oUser -cConsole Main : Insert code here }
    waiter := TWaiter.Create();
    client := TClient.Create(waiter);
    cook := TCook.Create();
    cmd := TWaiterCommand.Create(cook);
    try
      client.Waiter.SetCommand(cmd);
      client.Waiter.BringMeSomeFood();
      client.Waiter.TakeAwayThisPieceOfShit();
    finally
      waiter.Free();
      client.Free();
      cook.Free();
      cmd.Free();
    end;

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

program Command;

{$APPTYPE CONSOLE}

{$R *.res}

uses

System.SysUtils,

uCommand in 'uCommand.pas';

var

waiter: TWaiter;

client: TClient;

cook: TCook;

cmd: TWaiterCommand;

begin

try

{ TODO -oUser -cConsole Main : Insert code here }

waiter := TWaiter.Create();

client := TClient.Create(waiter);

cook := TCook.Create();

cmd := TWaiterCommand.Create(cook);

try

client.Waiter.SetCommand(cmd);

client.Waiter.BringMeSomeFood();

client.Waiter.TakeAwayThisPieceOfShit();

finally

waiter.Free();

client.Free();

cook.Free();

cmd.Free();

end;

ReadLn;

except

on E: Exception do

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

end;

end.

… Continue reading →

Posted in Delphi | Leave a comment

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.

C#

Continue reading →

Posted in C#, Delphi | Leave a comment

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 | Leave a comment

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;

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

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

Либо есть ещё один вариант, через стандартные функции Delphi

function ConvertHexStringToBinary(const strInHex: ansistring; out errorMsg: string): ansistring;
var
  noSpaces: ansistring;
begin
  noSpaces:= LowerCase(AnsiReplaceText(strInHex, ' ', ''));
  SetLength(Result, Length(NoSpaces) div 2);
  if (Length(Result) = HexToBin(PChar(noSpaces), PChar(Result), Length(Result))) then
    errorMsg:= ''
  else
    errorMsg:= 'Hex To bin returns a number of converted symbols';
end;

function ConvertHexStringToBinary(const strInHex: ansistring; out errorMsg: string): ansistring;

var

noSpaces: ansistring;

begin

noSpaces:= LowerCase(AnsiReplaceText(strInHex, ' ', ''));

SetLength(Result, Length(NoSpaces) div 2);

if (Length(Result) = HexToBin(PChar(noSpaces), PChar(Result), Length(Result))) then

errorMsg:= ''

else

errorMsg:= 'Hex To bin returns a number of converted symbols';

end;

Массив байт -> строка

function Hex2Str(aBuf: array of byte): string;
var
  i: integer;
  bufLength: integer;
begin
  bufLength := Length(aBuf);
  Result := '';
  for i := 0 to BufLength - 1 do
  begin
    Result := Result + Chr(aBuf[i]);
  end;
end;

function Hex2Str(aBuf: array of byte): string;

var

i: integer;

bufLength: integer;

begin

bufLength := Length(aBuf);

Result := '';

for i := 0 to BufLength - 1 do

begin

Result := Result + Chr(aBuf[i]);

end;

Вернулась строка

'263«85A74¬@9:;<=>?¯°±²³´¥¦§¨©ªµ'

1	'263«85A74¬@9:;<=>?¯°±²³´¥¦§¨©ªµ'

Переведем ее в числовое представление строки

function StrToOrdStr(aChrStr: string): string;
var
  i: integer;
begin
  Result := '';
  for i := 1 to Length(aChrStr) do
    Result := Result + '#' + IntToStr(Ord(aChrStr[i]));
end;

function StrToOrdStr(aChrStr: string): string;

var

i: integer;

begin

Result := '';

for i := 1 to Length(aChrStr) do

Result := Result + '#' + IntToStr(Ord(aChrStr[i]));

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'

Posted in Delphi | Leave a comment

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

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

В ином случае, надо обрабатывать это в стиле веб. Более детально смотрите в документации UniGUI

Posted in Delphi, UniGui | Comments Off

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

Posted on 04.05.2019 by Stanislav_Panteleev

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

Теперь, по одному адресу в сети, в зависимости от того, на чем мы будем выходить – ноутбуке или телефоне, будет загружаться та или иная версия нашего проекта.

По-моему, это гениально !

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.

Таким образом, в двоичной системе счисления, используя прямой код, в восьмиразрядной ячейке (байте) можно записать семиразрядное число. Например:

0 0001101 – положительное число
1 0001101 – отрицательное число

Количество значений, которые можно поместить в семиразрядной ячейке со знаком в дополнительном разряде равно 256. Это совпадает с количеством значений, которые можно поместить в восьмиразрядную ячейку без указания знака. Однако диапазон значений уже другой, ему принадлежат значения от -128 до 127 включительно (при переводе в десятичную систему счисления).

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

Для отрицательных чисел используется так называемый дополнительный код. Это связано с удобством выполнения операций над числами электронными устройствами компьютера. Continue reading →

Posted in Delphi | Comments Off

Delphi.IdHTTPServer.Решение проблемы с русскими символами

Posted on 04.04.2019 by Stanislav_Panteleev

Есть такая проблема, а точнее 2 проблемы,

Параметры POST / Get запросов, если это русский текст, превращаются в кракозябры при парсинге запроса. То есть

aRequestInfo.Params.Text = ' Ð Ñ'#$0083'Ñ'#$0081'Ñ'#$0081'ÐºÐ¸Ð¹ Ð¿Ð°Ñ'#$0080'Ð°Ð¼ÐµÑ'#$0082'Ñ'#$0080 '

1	aRequestInfo.Params.Text = ' Ð Ñ'#$0083'Ñ'#$0081'Ñ'#$0081'ÐºÐ¸Ð¹ Ð¿Ð°Ñ'#$0080'Ð°Ð¼ÐµÑ'#$0082'Ñ'#$0080 '

Видно, что это UTF, поэтому нам понадобится следующая функция UtfToAnsi, например такая

function TRP.ConvertUtf8ToAnsi(const Source: string): string;
var
  Iterator, SourceLength, FChar, NChar: Integer;
begin
  Result := '';
  Iterator := 0;
  SourceLength := Length(Source);
  while Iterator < SourceLength do
  begin
    Inc(Iterator);
    FChar := Ord(Source[Iterator]);
    if FChar >= $80 then
    begin
      Inc(Iterator);
      if Iterator > SourceLength then
        break;
      FChar := FChar and $3F;
      if (FChar and $20) <> 0 then
      begin
        FChar := FChar and $1F;
        NChar := Ord(Source[Iterator]);
        if (NChar and $C0) <> $80 then
          break;
        FChar := (FChar shl 6) or (NChar and $3F);
        Inc(Iterator);
        if Iterator > SourceLength then
          break;
      end;
      NChar := Ord(Source[Iterator]);
      if (NChar and $C0) <> $80 then
        break;
      Result := Result + WideChar((FChar shl 6) or (NChar and $3F));
    end
    else
      Result := Result + WideChar(FChar);
  end;
end;

function TRP.ConvertUtf8ToAnsi(const Source: string): string;

var

Iterator, SourceLength, FChar, NChar: Integer;

begin

Result := '';

Iterator := 0;

SourceLength := Length(Source);

while Iterator < SourceLength do

begin

Inc(Iterator);

FChar := Ord(Source[Iterator]);

if FChar >= $80 then

begin

Inc(Iterator);

if Iterator > SourceLength then

break;

FChar := FChar and $3F;

if (FChar and $20) <> 0 then

begin

FChar := FChar and $1F;

NChar := Ord(Source[Iterator]);

if (NChar and $C0) <> $80 then

break;

FChar := (FChar shl 6) or (NChar and $3F);

Inc(Iterator);

if Iterator > SourceLength then

break;

end;

NChar := Ord(Source[Iterator]);

if (NChar and $C0) <> $80 then

break;

Result := Result + WideChar((FChar shl 6) or (NChar and $3F));

end

else

Result := Result + WideChar(FChar);

end;

Применение она имеет следующее

  aRequestInfo.Params.Text := ConvertUtf8ToAnsi(aRequestInfo.Params.Text);

1	aRequestInfo.Params.Text := ConvertUtf8ToAnsi(aRequestInfo.Params.Text);

Есть ещё одна проблема. При попытке ответить русским текстом имеем ту же проблему, приходят кракозябры, ну здесь проще, правим ответ сервера вот так…

Delphi/Pascal

FAResponseInfo.ContentType := 'application/json; charset=utf-8';

1

FAResponseInfo.ContentType := 'application/json; charset=utf-8';

Огромное спасибо форуму.

Posted in Delphi | Comments Off

DesignPatterns. Strategy

Пример с отпуском

DesignPatterns. Command

Когда использовать?

DesignPatterns. AbstractFactory

Канонический пример

На примере супер героев

Delphi

C#

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

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

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

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

Delphi.MD5

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

Прямой код

Delphi.IdHTTPServer.Решение проблемы с русскими символами

MY PROJECTS

DELPHI WORLD

C# WORLD

MySQL WORLD

JS WORLD

PHP World

IIS World

Recent Posts

Categories