pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases 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
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 var
trgt,ctntyp, frmt : string; trgt,ctntyp, frmt : string;
rqst : IRequestBuffer; rqst : IRequestBuffer;
inStream : {$IFDEF FPC}TMemoryStream{$ELSE}TStringStream{$ENDIF}; inStream : TMemoryStream;
begin begin
trgt := ExtractNextPathElement(APath); trgt := ExtractNextPathElement(APath);
if AnsiSameText(sWSDL,trgt) then begin if AnsiSameText(sWSDL,trgt) then begin
@ -181,13 +181,11 @@ begin
inStream := nil; inStream := nil;
try try
try try
inStream := {$IFDEF FPC}TMemoryStream.Create();{$ELSE}TStringStream.Create(ARequestInfo.FormParams);{$ENDIF} inStream := TMemoryStream.Create();
AResponseInfo.ContentStream := TMemoryStream.Create(); AResponseInfo.ContentStream := TMemoryStream.Create();
ctntyp := ARequestInfo.ContentType; ctntyp := ARequestInfo.ContentType;
{$IFDEF FPC}
inStream.CopyFrom(ARequestInfo.PostStream,0); inStream.CopyFrom(ARequestInfo.PostStream,0);
{$ENDIF}
inStream.Position := 0; inStream.Position := 0;
AResponseInfo.ContentType := ctntyp; AResponseInfo.ContentType := ctntyp;
frmt := Trim(ARequestInfo.Params.Values['format']); frmt := Trim(ARequestInfo.Params.Values['format']);