From b63c2bb84987008adb6c7844b10e7994f83e20c5 Mon Sep 17 00:00:00 2001
From: Renat Suleymanov <mail@renat.su>
Date: Sat, 19 Jul 2025 01:45:17 +0400
Subject: [PATCH] + Can to send ContentStream with Tadigrade

---
 brokers/Tardigrade/brooktardigradebroker.pas | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/brokers/Tardigrade/brooktardigradebroker.pas b/brokers/Tardigrade/brooktardigradebroker.pas
index 53b8f9f..1ff08df 100644
--- a/brokers/Tardigrade/brooktardigradebroker.pas
+++ b/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);