Author Archives: Stanislav_Panteleev

DelphiRobustServer. Autocollection of API. WindowsService or Desktop modes.

Posted on 08.01.2019 by Stanislav_Panteleev

Added new features Autocollection of API. Collects methods and its params and can be used as a draft. Works through Delphi RTTI methods. Result looks like

Posted in Delphi | Leave a comment

Delphi.Rtti.Overloaded methods

Posted on 07.01.2019 by Stanislav_Panteleev

That is known that overloaded methods works not so well in Rtti Delphi by default. To fix this RRUZ created this method

function TRP.RttiMethodInvokeEx(const MethodName:string; RttiType : TRttiType; Instance: TValue; const Args: array of TValue): TValue;
var
 Found   : Boolean;
 LMethod : TRttiMethod;
 LIndex  : Integer;
 LParams : TArray<TRttiParameter>;
begin
  Result:=nil;
  LMethod:=nil;
  Found:=False;
  for LMethod in RttiType.GetMethods do
   if SameText(LMethod.Name, MethodName) then
   begin
     LParams:=LMethod.GetParameters;
     if Length(Args)=Length(LParams) then
     begin
       Found:=True;
       for LIndex:=0 to Length(LParams)-1 do
       if LParams[LIndex].ParamType.Handle<>Args[LIndex].TypeInfo then
       begin
         Found:=False;
         Break;
       end;
     end;

     if Found then Break;
   end;

   if (LMethod<>nil) and Found then
     Result:=LMethod.Invoke(Instance, Args)
   else
     raise Exception.CreateFmt('method %s not found',[MethodName]);
end;

function TRP.RttiMethodInvokeEx(const MethodName:string; RttiType : TRttiType; Instance: TValue; const Args: array of TValue): TValue;

var

Found : Boolean;

LMethod : TRttiMethod;

LIndex : Integer;

LParams : TArray<TRttiParameter>;

begin

Result:=nil;

LMethod:=nil;

Found:=False;

for LMethod in RttiType.GetMethods do

if SameText(LMethod.Name, MethodName) then

begin

LParams:=LMethod.GetParameters;

if Length(Args)=Length(LParams) then

begin

Found:=True;

for LIndex:=0 to Length(LParams)-1 do

if LParams[LIndex].ParamType.Handle<>Args[LIndex].TypeInfo then

begin

Found:=False;

Break;

end;

if Found then Break;

end;

if (LMethod<>nil) and Found then

Result:=LMethod.Invoke(Instance, Args)

else

raise Exception.CreateFmt('method %s not found',[MethodName]);

end;

So, you can use them like

   r := RttiMethodInvokeEx('Create', t, t.MetaclassType, [444]);
   r := RttiMethodInvokeEx('Create', t, t.MetaclassType, ['hello from constructor string']);
   r := RttiMethodInvokeEx('Create', t, t.MetaclassType, []);
   RttiMethodInvokeEx('Bar', t, r.AsObject , ['this is a string']);
   RttiMethodInvokeEx('Bar', t, r.AsObject , [9999]);

r := RttiMethodInvokeEx('Create', t, t.MetaclassType, [444]);

r := RttiMethodInvokeEx('Create', t, t.MetaclassType, ['hello from constructor string']);

r := RttiMethodInvokeEx('Create', t, t.MetaclassType, []);

RttiMethodInvokeEx('Bar', t, r.AsObject , ['this is a string']);

RttiMethodInvokeEx('Bar', t, r.AsObject , [9999]);

Posted in Delphi | Leave a comment

Algos.Hackerrank.Birthday Cake Candles

Posted on 21.12.2018 by Stanislav_Panteleev

You are in charge of the cake for your niece’s birthday and have decided the cake will have one candle for each year of her total age. When she blows out the candles, she’ll only be able to blow out … Continue reading →

Posted in C# | Leave a comment

Algos.Hackerrank.Mini – Max Summ

Posted on 21.12.2018 by Stanislav_Panteleev

Given five positive integers, find the minimum and maximum values that can be calculated by summing exactly four of the five integers. Then print the respective minimum and maximum values as a single line of two space-separated long integers. For … Continue reading →

Posted in C# | Leave a comment

Delphi.RobustServer.Упрощаем routing запросов. Базовый класс TRP

Posted on 07.12.2018 by Stanislav_Panteleev

Дописал базовый класс TRP, от которого можно наследовать всю бизнес логику. Теперь можно обращаться, скажем по адресу Users/Create, сервер найдет класс TRPUsers и попытается найти у него метод Create. Реализация TRP включает в себя RTTI механизм. Чуть позже есть идея … Continue reading →

Posted in Delphi | Leave a comment

Delphi.RobustServer.Обработка POST запросов для основных MIME

Posted on 02.12.2018 by Stanislav_Panteleev

Доработал обработку POST запросов для следующих MIME типов application/json application/x-www-form-urlencoded multipart/form-data Теперь сервер умеет работать с json, принимать файлы, пока ещё не оч. большие (poststream блоками читается в строку = оперативную память), поэтому по-хорошему, размер файлов надо ограничить, ну и … Continue reading →

Posted in Delphi | Leave a comment

Delphi.RobustServer. Логгер на GUI

Posted on 18.11.2018 by Stanislav_Panteleev

Добавил логгер на GUI Механизм такой – при добавлении сообщения в лог, автоматически обновляется GUI. Сообщения идут в обратном порядке. Ключевым моментом является функция WaitAndCreateLogFileStream класса TLDSLogger. Сначала сообщения пишутся в файл, затем из файла в GUI. Всей многопоточной логикой заведует … Continue reading →

Posted in Delphi | Leave a comment

Delphi.RobustServer.Открытие соединения с БД.Простой случай.

Posted on 18.11.2018 by Stanislav_Panteleev

Как и когда нужно создавать экземпляр соединения с бд в серверном приложении? Путем чтения книг, опыта и ошибок я понял, что под каждый запрос, создается поток, под каждый поток нужно создавать соединение отдельно, иначе начинается хаос… Но это в случае, если … Continue reading →

Posted in Delphi | Leave a comment

Delphi.RobustServer. Загрузка файлов на сервер

Posted on 18.11.2018 by Stanislav_Panteleev

Сделал простую загрузку файлов на сервер, с возможностью создания уникального имени, если такое имя уже будет в директории сервера. Сама директория будет строиться как files/year/month/day Результат кода выглядит так Сам запрос идет через multipart следующим образом…

Posted in Delphi | Leave a comment

Delphi.RobustServer. Совершенствуем CommandGet и тестовый класс TRPUsers

Posted on 18.11.2018 by Stanislav_Panteleev

Немного отрефакторил код OnCommandGet, получилось так, довольно коротко…

var
  r: IResponses;
begin
  r := TResponses.Create(ARequestInfo, AResponseInfo);
  try
    ProcessTests(ARequestInfo, AResponseInfo);
    ProcessUsers(ARequestInfo, AResponseInfo);
    AResponseInfo.ResponseNo := 404;
  except
    on E: Exception do
      r.Error(e.Message);
  end;
end;

var

r: IResponses;

begin

r := TResponses.Create(ARequestInfo, AResponseInfo);

try

ProcessTests(ARequestInfo, AResponseInfo);

ProcessUsers(ARequestInfo, AResponseInfo);

AResponseInfo.ResponseNo := 404;

except

on E: Exception do

r.Error(e.Message);

end;

Обработка запросов происходит в методах Process…, например ProcessUsers выглядит так

Posted in Delphi | Leave a comment

Author Archives: Stanislav_Panteleev

DelphiRobustServer. Autocollection of API. WindowsService or Desktop modes.

Delphi.Rtti.Overloaded methods

Algos.Hackerrank.Birthday Cake Candles

Algos.Hackerrank.Mini – Max Summ

Delphi.RobustServer.Упрощаем routing запросов. Базовый класс TRP

Delphi.RobustServer.Обработка POST запросов для основных MIME

Delphi.RobustServer. Логгер на GUI

Delphi.RobustServer.Открытие соединения с БД.Простой случай.

Delphi.RobustServer. Загрузка файлов на сервер

Delphi.RobustServer. Совершенствуем CommandGet и тестовый класс TRPUsers

MY PROJECTS

DELPHI WORLD

C# WORLD

MySQL WORLD

JS WORLD

PHP World

IIS World

Recent Posts

Categories