delphi THTTPClient启用协议 HTTP2

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;