commit aad75837f4e12a9b37fd38bee51b96df595997d8
author Jens Geyer <jensg@apache.org> Wed Jun 01 22:06:29 2022 +0200
committer Jens Geyer <jensg@apache.org> Wed Jun 01 22:30:59 2022 +0200
tree f1b42b8aa2aa272d0d100ac7f8187a792cb34ef5
parent 7a182feb4d523cf8ae6207fd21fd9c7bd054f269

THRIFT-5586 User-Agent header not conforming to RFC 7231
Client: Delphi
Patch: Jens Geyer

lib/delphi/src/Thrift.Transport.MsxmlHTTP.pas

diff --git a/lib/delphi/src/Thrift.Transport.MsxmlHTTP.pas b/lib/delphi/src/Thrift.Transport.MsxmlHTTP.pas
index 398e275..b0c7acd 100644
--- a/lib/delphi/src/Thrift.Transport.MsxmlHTTP.pas
+++ b/lib/delphi/src/Thrift.Transport.MsxmlHTTP.pas
@@ -127,7 +127,7 @@
   Result.open('POST', FUri, False, '', '');
   Result.setRequestHeader( 'Content-Type', THRIFT_MIMETYPE);
   Result.setRequestHeader( 'Accept', THRIFT_MIMETYPE);
-  Result.setRequestHeader( 'User-Agent', 'Delphi/IHTTPClient');
+  Result.setRequestHeader( 'User-Agent', 'ApacheThriftDelphi/msxml');
 
   for pair in FCustomHeaders do begin
     Result.setRequestHeader( pair.Key, pair.Value );

lib/delphi/src/Thrift.Transport.WinHTTP.pas

diff --git a/lib/delphi/src/Thrift.Transport.WinHTTP.pas b/lib/delphi/src/Thrift.Transport.WinHTTP.pas
index 746611d..87a2309 100644
--- a/lib/delphi/src/Thrift.Transport.WinHTTP.pas
+++ b/lib/delphi/src/Thrift.Transport.WinHTTP.pas
@@ -151,7 +151,7 @@
     url := TWinHTTPUrlImpl.Create( FUri);
 
     info := TErrorInfo.WinHTTPSession;
-    session := TWinHTTPSessionImpl.Create('Apache Thrift Delphi WinHTTP');
+    session := TWinHTTPSessionImpl.Create('ApacheThriftDelphi/WinHTTP');
     session.EnableSecureProtocols( SecureProtocolsAsWinHTTPFlags);
 
     info := TErrorInfo.WinHTTPConnection;