From 49bc394b54a6c4d75ef1af8abc81e9c57eeeedd9 Mon Sep 17 00:00:00 2001
From: inoussa <inoussa@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sat, 6 Sep 2008 15:50:08 +0000
Subject: [PATCH] Always use TMemoryStream for request/response buffer instead
 of TStringStream

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

diff --git a/wst/trunk/indy_http_server.pas b/wst/trunk/indy_http_server.pas
index f00a26586..63406b335 100644
--- a/wst/trunk/indy_http_server.pas
+++ b/wst/trunk/indy_http_server.pas
@@ -171,7 +171,7 @@ procedure TwstIndyHttpListener.ProcessServiceRequest(
 var
   trgt,ctntyp, frmt : string;
   rqst : IRequestBuffer;
-  inStream : {$IFDEF FPC}TMemoryStream{$ELSE}TStringStream{$ENDIF};
+  inStream : TMemoryStream;
 begin
   trgt := ExtractNextPathElement(APath);
   if AnsiSameText(sWSDL,trgt) then begin
@@ -181,13 +181,11 @@ begin
   inStream := nil;
   try
     try
-      inStream := {$IFDEF FPC}TMemoryStream.Create();{$ELSE}TStringStream.Create(ARequestInfo.FormParams);{$ENDIF}
+      inStream := TMemoryStream.Create();
       AResponseInfo.ContentStream := TMemoryStream.Create();
 
       ctntyp := ARequestInfo.ContentType;
-    {$IFDEF FPC}
       inStream.CopyFrom(ARequestInfo.PostStream,0);
-    {$ENDIF}
       inStream.Position := 0;
       AResponseInfo.ContentType := ctntyp;
       frmt := Trim(ARequestInfo.Params.Values['format']);