Новая версия 24.8.25

[cordek]

DataExpress Web Server 24.8.25
1. Добавлен режим сервиса. Добавлена функция в выражения IsService.
2. Функции GetExprVar, SetExprVar перенесены в класс TSession.

DataExpress 24.8.25
1. Доработки для совместимости с веб-сервером.
2. Исправлена функция CaseOf.

[Infested]

1. Добавлен режим сервиса. Добавлена функция в выражения IsService.

Для лучшего понимания большая просьба привести пример использования режима сервиса на практике.

[admin]

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

[cordek]

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

А как в запрос можно переменные передать?
И как ответ сформировать?
Например хочу наоборот получить количество новых записей в базе.

[bandrew]

Очень простой пример. Как узнать количество записей в форме. Клиент отправляет такой запрос: https://base.myserver.ru/mybase/?serviceid=ABRAKADABRA&fm=Справочник. Сервер возвращает просто число.

Код: Выделить всё

function SessionHandleRequest(Sender: TObject; var ARequest: TFPHTTPConnectionRequest; var AResponse : TFPHTTPConnectionResponse): Boolean;
var
   Fm: TdxForm;
begin
   if (ARequest.QueryFields.Count = 2) and (ARequest.QueryFields.Names[0] = 'serviceid') and (ARequest.QueryFields.Names[1] = 'fm') then
   begin
      Fm := nil;
      try
         Fm := Session.CreateForm(ARequest.QueryFields['fm']);
         Fm.OpenRecords('', nil, False);
         Fm.MoveLast;
         Aresponse.Code := 200;
         AResponse.ContentType := 'text/plain;charset=UTF-8';
         AResponse.Content := IntToStr(Fm.RecordCount);
      finally
         if Fm <> nil then Fm.Free;
      end
   end
end;


[admin]

DataExpress Web Server 24.9.12
Исправлены ошибки в массовых вычислениях.