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);