paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Always use TMemoryStream for request/response buffer instead of TStringStream

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@539 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa 2008-09-06 15:50:08 +00:00
parent b78fd41e93
commit 49bc394b54
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
wst/trunk/indy_http_server.pas
View File

@ -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']);