From 564226d18383ad39543df9b80c7007ba90174745 Mon Sep 17 00:00:00 2001
From: inoussa <inoussa@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Thu, 28 Jul 2011 09:32:52 +0000
Subject: [PATCH] Fix Synapse Http protocol Clear request buffer before writing
 the new data stream.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1764 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 wst/trunk/synapse_http_protocol.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/wst/trunk/synapse_http_protocol.pas b/wst/trunk/synapse_http_protocol.pas
index e34949808..b2d43d9e9 100644
--- a/wst/trunk/synapse_http_protocol.pas
+++ b/wst/trunk/synapse_http_protocol.pas
@@ -204,10 +204,12 @@ end;
 
 procedure THTTPTransport.DoSendAndReceive(ARequest, AResponse : TStream);
 begin
+  FConnection.Document.Clear();
   FConnection.Document.CopyFrom(ARequest,0);
   if not FConnection.HTTPMethod('POST',FAddress) then
     raise ETransportExecption.CreateFmt(SERR_FailedTransportRequest,[sTRANSPORT_NAME,FAddress]);
   AResponse.CopyFrom(FConnection.Document,0);
+  FConnection.Document.Clear();
 end;
 
 constructor THTTPTransport.Create();