Enable Protocol HTTP2 Delphi 11

Question

How to enable HTTP2 Delphi 11 ? I has been try with code, but not work

NetHTTPClient1.ProtocolVersion := 'HTTP_2_0';

Answer 1

This should work:

implementation

uses
  System.Net.HttpClient;

procedure DoSomeHTTPThings;
var
  http: THTTPClient;
  httpresponse: IHTTPResponse;
  stringstream: TSTringStream;
begin
  http := THTTPClient.Create;
  stringstream := TStringStream.Create;
  try
    http.ProtocolVersion := THTTPProtocolVersion.HTTP_2_0;
    httpresponse := http.Get('http://exampleurl.com', stringstream);
    case httpresponse.Version of
      THTTPProtocolVersion.UNKNOWN_HTTP: ;
      THTTPProtocolVersion.HTTP_1_0: ;
      THTTPProtocolVersion.HTTP_1_1: ;
      THTTPProtocolVersion.HTTP_2_0: ;
    end;
  finally
    stringstream.Free;
    http.Free;
  end;
end;

Edit: 2021-09-23 12:23: Updated the code to your question in comment