Merge pull request #24 from risoflora/ContentStream-via-Tardigrade

+ Can to send ContentStream with Tadigrade

Author: Al-Muhandis

brokers/Tardigrade/brooktardigradebroker.pas

@@ -237,7 +237,10 @@ procedure THTTPResponse.DoSendHeaders(AHeaders: TStrings);
 
 procedure THTTPResponse.DoSendContent;
 begin
-  FHandle.Send(Contents.Text, ContentType, Code);
+  if Assigned(ContentStream) then
+    FHandle.SendStream(ContentStream, Code)
+  else
+    FHandle.Send(Contents.Text, ContentType, Code);
 end;
 
 procedure THTTPResponse.CollectHeaders(AHeaders: TStrings);