pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Synapse HTTP protocol's header management fix (Thanks mcarro)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4067 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2015-03-25 17:29:31 +00:00
parent cdcc835400
commit 132cc4c0ff
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
wst/trunk/synapse_http_protocol.pas
View File

@@ -199,7 +199,7 @@ begin
if (i >= 0) then if (i >= 0) then
FConnection.Headers[i] := s FConnection.Headers[i] := s
else else
FConnection.Headers.Add(s); FConnection.Headers.Insert(0,s);
end; end;
procedure THTTPTransport.DoSendAndReceive(ARequest, AResponse : TStream); procedure THTTPTransport.DoSendAndReceive(ARequest, AResponse : TStream);
@@ -229,6 +229,7 @@ begin
end; end;
AResponse.CopyFrom(FConnection.Document,0); AResponse.CopyFrom(FConnection.Document,0);
FConnection.Document.Clear(); FConnection.Document.Clear();
FConnection.Headers.Clear();
end; end;
constructor THTTPTransport.Create(); constructor THTTPTransport.Create();