sgcWebSockets HTTP/2 client error on request (Delphi)

Hi,

I'm currently trying to write an HTTP/2 client-server with the sgcWebSocket library. I'm using the sgcWebSockets Entreprise Team 2023.6.0 Edition.

Just for testing purposes i'm using a self-signed SSL certificate, and want to run a simple architecture with a /ping route that responds "pong" to the client.

When I'm using an HTTP/1.1 client like TIdHttp, the REST debugger from Delphi 11 CE, or the requests library from Python, everything works just fine, i'm receiving the "Pong" response from the TsgcWebSocketHTTPServer.

The problem is, as soon as I'm using the TsgcHTTP2Client from sgcWebSockets, I get a "ERangeError with message 'Range check error'" message on the server side (error which I didnt had when running requests from the above http/1.1 clients). BUT I'm getting this error on the server only if I'm using the synchronous Get request from the TsgcHTTP2Client. If I attach an OnHTTP2Response event on the client and use the asynchronous GetAsync method then everything is working just fine.

The error ERangeError raises in the `sgcHTTP2_Frame` Unit. Line 1134

function TsgcHTTP2_Frame.DoReadBuffer(var aBuffer: TBytes;
  aCount: Integer): Boolean;
var
  vBytes: TBytes;
begin
  Result := False;
  if aCount <= Length(FReadBuffer) then
  begin
    // result
    SetLength(aBuffer, aCount);
    if Length(FReadBuffer) > 0 then
      sgcMove(FReadBuffer[0], aBuffer[0], Length(aBuffer));
      ^^^^^^
    // resize
    SetLength(vBytes, Length(FReadBuffer) - aCount);
    if Length(FReadBuffer) > aCount then
      sgcMove(FReadBuffer[aCount], vBytes[0], Length(vBytes));
    SetLength(FReadBuffer, Length(vBytes));
    if Length(vBytes) > 0 then
      sgcMove(vBytes[0], FReadBuffer[0], Length(FReadBuffer));

    Result := True;
  end;
end;

In the below code sections, Starting is the OnShow event from TForm and Closing is the OnCloseQuery from TForm.

Here is the server side code
(openssl dll and ssl.pem are located at the same place than the executable)

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls,
  sgcWebSocket, sgcIdContext, sgcIdCustomHTTPServer, sgcWebSocket_Types;

type
  TForm1 = class(TForm)
    procedure Starting(Sender: TObject);
    procedure Stoping(Sender: TObject; var CanClose: Boolean);
    procedure Get(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
  private
    oServer: TsgcWebSocketHTTPServer;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Starting(Sender: TObject);
begin

  oServer := TsgcWebSocketHTTPServer.Create(self);
  oServer.OnCommandGet := Get;
  oServer.HTTP2Options.Enabled := true;

  with oServer.Bindings.Add do
  begin
    IP := '0.0.0.0';
    Port := 8080;
  end;

  oServer.SSL := true;
  oServer.SSLOptions.OpenSSL_Options.APIVersion := oslAPI_1_1;
  oServer.SSLOptions.Version := tls1_2;
  oServer.SSLOptions.CertFile := 'ssl.pem';
  oServer.SSLOptions.KeyFile := 'ssl.pem';
  oServer.SSLOptions.RootCertFile := 'ssl.pem';
  oServer.SSLOptions.Port := 8080;

  oServer.Active := true;

end;

procedure TForm1.Stoping(Sender: TObject; var CanClose: Boolean);
begin
  oServer.Active := False;
  oServer.Free;
end;

procedure TForm1.Get(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
begin
  if ARequestInfo.URI.Equals('/ping') then
  begin
    AResponseInfo.ContentText := 'Pong';
    AResponseInfo.ResponseNo := 200;
    exit;
  end;
  AResponseInfo.ResponseNo := 404;
end;

end.

And here is the client-side code which raises the ERangeCheck error on the server when the resquest is sent.
The btnPingClick procedure is a Click event on a TButton.

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls,
  sgcHTTP, sgcHTTP2_Client, sgcWebSocket_Types;

type
  TForm1 = class(TForm)
    btnPing: TButton;
    procedure btnPingClick(Sender: TObject);
    procedure Closing(Sender: TObject; var CanClose: Boolean);
    procedure Starting(Sender: TObject);
  private
    oClient: TsgcHTTP2Client;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Starting(Sender: TObject);
begin
  oClient := TsgcHTTP2Client.Create(self);
  oClient.TLSOptions.OpenSSL_Options.APIVersion := oslAPI_1_1;
end;

procedure TForm1.Closing(Sender: TObject; var CanClose: Boolean);
begin
  oClient.Disconnect;
  oClient.Free;
end;

procedure TForm1.btnPingClick(Sender: TObject);
begin
  oClient.Get('https://127.0.0.1:8080/ping');
end;

end.

In the attachment files you can check the REST Debugger output when a request is sent on the above server-side code.

I dont know if i'm doing something terribly wrong or if it's a bug but I cant find any solution to this. I can give more details if needed.

Thanks for considering my request.