如何從TIdHTTPWebBrokerBridge中的請求接收二進制數據？

Question

我使用Indy使用HTTP構建客戶端和服務器應用程序。在客戶端上，我使用TIdHTTP，並且在我使用TIdHTTPWebBrokerBridge的服務器上安裝了Web模塊。我需要客戶端能夠通過流將任何類型的數據發佈到服務器。這是通過我稱爲/set?Key=API_KEY&Name=FILE_NAME的通用命令完成的，其中Key是用於驗證的API密鑰，而Name是要發佈的文件的名稱。

在客戶端，我張貼的數據，像這樣：

function TInnoCloudClient.SetData(const Name: String; AStream: TStream): Bool; 
var 
    U: String; 
begin 
    U:= FServerURL; //Base URL of Server 
    if Copy(U, Length(U)-1, 1) <> '/' then 
    U:= U + '/'; 
    U:= U + 'get?Key='+Encode(FAPIKey); 
    U:= U + '&Name='+Encode(Name); 
    try 
    FWeb.Post(U, AStream); 
    except 
    on e: exception do begin 
     //Handle Exception 
    end; 
    end; 
end; 

這個功能應該是內部AStream將數據保存到一個文件中Name文件名中的服務器上。然而，在服務器端，在請求處理程序中，我沒有看到Request中的相應TStream屬性，我可以從中讀取它。

在服務器中，如何獲取我作爲TStream後代發送的數據？我不需要知道如何保存或處理請求，我該如何從請求中獲取此流（TWebRequest）？

Answer 1

使用TWebRequest.ReadClient()或TWebClient.ReadString()方法讀取張貼二進制數據，或TWebRequest.RawContent屬性中檢索所述發佈數據作爲AnsiString。

像這樣的東西應該工作：

procedure TWebModule1.GetAllDataAsStream(ARequest: TWebRequest; AStream: TMemoryStream); 
var 
    BytesRead, ContentLength: Integer; 
    Buffer: array[0..1023] of Byte; 
begin 
    AStream.Clear; 
    ContentLength := ARequest.ContentLength; 
    while ContentLength > 0 do begin 
    BytesRead := ARequest.ReadClient(Buffer[0], Min(ContentLength, SizeOf(Buffer))); 
    if BytesRead < 1 then Break; 
    AStream.WriteBuffer(Buffer[0], BytesRead); 
    Dec(ContentLength, BytesRead); 
    end; 
    AStream.Position:= 0; 
end;