DataSnap — HTTP.sys WebSocket + HTTP/2

Overview

TsgcWSServer_HTTPAPI_WebBrokerBridge use TsgcWebSocketServer_HTTPAPI with HTTP/2 protocol enabled as server base and is useful if you want to use a single server for DataSnap, HTTP/2 and WebSocket connections.

At a glance

Features

• Native Delphi implementation with full ANSI/Unicode support.

Technical specification

Main properties

The principal published / public properties used to configure and drive the component. Consult the online help for the full list.

Main methods

The principal public methods exposed by the component.

Quick Start

Drop the component on a form, configure the properties below and activate it. The snippet that follows shows the typical Load Balancer configuration sourced from the online help.

Delphi (VCL / FireMonkey)

procedure TWebModule1.WebModuleBeforeDispatch(Sender: TObject; Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
 Response.SetCustomHeader('Access-Control-Allow-Origin','*');    
 if Trim(Request.GetFieldByName('Access-Control-Request-Headers')) <> '' then
 begin
  Response.SetCustomHeader('Access-Control-Allow-Headers', Request.GetFieldByName('Access-Control-Request-Headers'));    
  Handled := True;
 end;
 if FServerFunctionInvokerAction <> nil then
  FServerFunctionInvokerAction.Enabled := AllowServerFunctionInvoker;
end;

C++ Builder

void __fastcall TWebModule1::WebModuleBeforeDispatch(TObject *Sender, TWebRequest *Request, TWebResponse *Response, bool &Handled)
{
  Response->SetCustomHeader("Access-Control-Allow-Origin", "*");
  if (Trim(Request->GetFieldByName("Access-Control-Request-Headers")) != "")
  {
    Response->SetCustomHeader("Access-Control-Allow-Headers", Request->GetFieldByName("Access-Control-Request-Headers"));
    Handled = true;
  }
  if (FServerFunctionInvokerAction != nullptr)
  {
    FServerFunctionInvokerAction->Enabled = AllowServerFunctionInvoker;
  }
}

.NET (C#)

void WebModuleBeforeDispatch(object Sender, TWebRequest Request, TWebResponse Response, ref bool Handled)
{
  Response.SetCustomHeader("Access-Control-Allow-Origin", "*");
  if (Request.GetFieldByName("Access-Control-Request-Headers").Trim() != "")
  {
    Response.SetCustomHeader("Access-Control-Allow-Headers", Request.GetFieldByName("Access-Control-Request-Headers"));
    Handled = true;
  }
  if (FServerFunctionInvokerAction != null)
  {
    FServerFunctionInvokerAction.Enabled = AllowServerFunctionInvoker;
  }
}

Sources used to build this document

Every external claim links back to a primary source. The online-help references decode the canonical deep-link the company maintains for this component.