Delphi DataSnap - 在客户端连接中更改'User-Agent'HTTP头部属性

Question

我有一个使用DataSnap HTTP连接到REST服务的Delphi XE2 Win32应用程序。 HTTP连接使用'Mozilla/3.0（compatible; Indy Library）'的默认'User-Agent'标头。我想将其更改为更具体的应用程序，以便我可以监视来自不同应用程序版本的服务器上的连接。我使用TDSRESTConnection进行连接 - 任何人都可以指向我需要使用的对象/属性来设置'User-Agent'？我试过使用以下内容：

TDSRESTConnection.HTTP.Request.CustomHeaders.AddValue('User-Agent', 'MyText'); 

但是这没有什么区别。

Answer 1

不幸的是，您的自定义头文件被清除并在TDSRestRequest.GetHTTP中被忽略（并且在执行Datasnap.DSClientRest单元中隐藏TDSRestRequest）。 尝试此变通办法：

uses 
    Datasnap.DSHTTP, IdHTTPHeaderInfo; 

const 
    SUserAgent = 'MyUserAgent'; 

type 
    TDSHTTPEx = class(TDSHTTP) 
    constructor Create(AOwner: TComponent; const AIPImplementationID: string); override; 
    end; 

    TDSHTTPSEx = class(TDSHTTPS) 
    constructor Create(const AIPImplementationID: string); override; 
    end; 

{ TDSHTTPEx } 

constructor TDSHTTPEx.Create(AOwner: TComponent; const AIPImplementationID: string); 
begin 
    inherited Create(AOwner, AIPImplementationID); 
    with Request.GetObject as TIdRequestHeaderInfo do 
    UserAgent := SUserAgent; 
end; 

{ TDSHTTPSEx } 

constructor TDSHTTPSEx.Create(const AIPImplementationID: string); 
begin 
    inherited Create(AIPImplementationID); 
    with Request.GetObject as TIdRequestHeaderInfo do 
    UserAgent := SUserAgent; 
end; 

initialization 
    TDSHTTP.UnregisterProtocol('http'); 
    TDSHTTP.RegisterProtocol('http', TDSHTTPEx); 
    TDSHTTP.UnregisterProtocol('https'); 
    TDSHTTPS.RegisterProtocol('https', TDSHTTPSEx); 

finalization 
    TDSHTTP.UnregisterProtocol('http'); 
    TDSHTTP.UnregisterProtocol('https'); 

end.