paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 17:50:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Parse the contenttype according to rfc1341 also for non-streaming

Browse Source 
processing

git-svn-id: trunk@49409 -
This commit is contained in:
joost 2021-05-29 11:17:54 +00:00
parent 52813c8965
commit 1e3de5db58
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
packages/fcl-web/src/base/httpdefs.pp
View File

@ -2464,14 +2464,18 @@ Var
B : String;
I : Integer;
S : String;
ST: TStringList;
begin
{$ifdef CGIDEBUG} SendMethodEnter('ProcessMultiPart');{$endif CGIDEBUG}
i:=Pos('=',Boundary);
B:=Copy(Boundary,I+1,Length(Boundary)-I);
I:=Length(B);
If (I>0) and (B[1]='"') then
B:=Copy(B,2,I-2);
ST := TStringList.Create;
try
ParseContentType(Boundary, ST);
B := ST.Values['boundary'];
finally
ST.Free;
end;
L:=CreateMimeItems;
Try
if Stream is TStringStream then