2
0
Эх сурвалжийг харах

* Fixed processing post-content of unknown content-types

git-svn-id: trunk@49387 -
joost 4 жил өмнө
parent
commit
fd91e8263c

+ 1 - 2
packages/fcl-web/src/base/httpdefs.pp

@@ -2573,10 +2573,9 @@ procedure TRequest.HandleStreamingUnknownEncoding(const State: TContentStreaming
 var
 var
   S: TStream;
   S: TStream;
 begin
 begin
+  ProcessStreamingSetContent(State, Buf, Size);
   if Assigned(FOnUnknownEncoding) then
   if Assigned(FOnUnknownEncoding) then
     begin
     begin
-    ProcessStreamingSetContent(State, Buf, Size);
-
     if state=cssEnd then
     if state=cssEnd then
       begin
       begin
       try
       try