Delphi Seattle DataSnap Client - cài đặt máy chủ proxy không hoạt động

Question

Tôi đang kết nối với máy chủ DataSnap bằng lớp proxy máy khách DS được tạo, thông qua TDSRESTConnection. Kết nối hoạt động tốt và tôi có thể gọi các phương thức máy chủ. Bây giờ tôi muốn kết nối thông qua một máy chủ proxy, vì vậy tôi đang thiết lập các thuộc tính trên đối tượng TDSRESTConnection, nhưng tôi có thể thấy rằng không có gì được gửi qua máy chủ proxy, như thể các thuộc tính đang bị bỏ qua. Mã của tôi là như sau: Thiết lập

var 
    myDS: TServerMethodsClient; 
begin 
    DSRESTConnectionCfg.ProxyHost := 'localhost'; 
    DSRESTConnectionCfg.ProxyPort := 8888; 
    myDS := TServerMethodsClient.Create(DSRESTConnectionCfg, False); 
    myDS.ServerMethodOne(); 
    myDS.Free; 
end; 

Tôi cũng đã cố gắng:

DSRESTConnectionCfg.HTTP.ProxyParams.ProxyServer := 'localhost'; 
    DSRESTConnectionCfg.HTTP.ProxyParams.ProxyPort := 8888; 

Cả hai không có hiệu lực. Tuy nhiên tôi biết mã này đang làm việc trong phiên bản trước của Delphi tôi đã sử dụng đó là XE6. Vấn đề có vẻ là đang di chuyển đến XE10.

Ai có thể làm sáng tỏ điều này không?

Answer 1

Vấn đề là do một lỗi trong các đơn vị Datasnap.DSHTTPClient.pas trong thủ tục TDSHTTP.PrepareRequest:

procedure TDSHTTP.PrepareRequest(const ARequest: IHTTPRequest); 
var 
    LIPRequest: TIPHTTPRequest; 
    I: Integer; 
    Lprox: TProxySettings; 
begin 
    if FProxyConnectionInfo <> nil then 
    begin 
    Lprox := TIPProxyConnectionInfo(FProxyConnectionInfo).FProxySettings; 
    //if Lprox.UserName <> emptystr then // <-- Comment this line out 
     FHTTPClient.ProxySettings := TProxySettings.Create(Lprox.Host, Lprox.Port, Lprox.UserName, Lprox.password, Lprox.Scheme); 
    end; 

Mã này được chỉ áp dụng các thiết lập máy chủ proxy nếu một tên người dùng proxy được chỉ định, trong khi đó nên luôn áp dụng các cài đặt bất kể.