Merged revision(s) 3079 from SourceForge:

 Correção geral no Webpascal ServerContext e ContextRules(em Teste).

Author: mobius1qwe

CORE/Source/Basic/uRESTDWBasic.pas

@@ -2078,6 +2078,7 @@ interface
      End;
     If RESTDWFileExists(sFile, FRootPath) then
      Begin
+      StatusCode    := 200;
       ContentType   := GetMIMEType(sFile);
       ServerContextStream := TMemoryStream.Create;
       ServerContextStream.LoadFromFile(sFile);
@@ -3828,15 +3829,15 @@ interface
              LocalDoc := '';
              If TEncodeSelect(vEncoding) = esUtf8 Then
               sCharset := 'utf-8'
-              Else If TEncodeSelect(vEncoding) in [esANSI, esASCII] Then
+             Else If TEncodeSelect(vEncoding) in [esANSI, esASCII] Then
               sCharset := 'ansi';
              If Not vSpecialServer Then
               Begin
                StatusCode             := vErrorCode;
                If ServerContextStream <> Nil Then
                 Begin
                  If Not (Assigned(ResultStream)) Then
-                   ResultStream := TStringStream.Create('');  //Anderson
+                  ResultStream := TStringStream.Create('');
                  WriteStream(ServerContextStream, ResultStream);
                  FreeAndNil(ServerContextStream);
                 End
@@ -3854,6 +3855,8 @@ interface
                   {$IF CompilerVersion > 21}
                    mb                                   := TStringStream.Create(JSONStr{$IFNDEF FPC}{$IF CompilerVersion > 21}, TEncoding.UTF8{$IFEND}{$ENDIF});
                    mb.Position                          := 0;
+                   If Not (Assigned(ResultStream)) Then
+                    ResultStream := TStringStream.Create('');
                    WriteStream(mb, ResultStream);
                    FreeAndNil(mb);
                   {$ELSE}
@@ -6387,12 +6390,14 @@ interface
        vTagService := False;
        For B := 0 To TRESTDWServerContext(ServerMethodsClass.Components[i]).ContextList.Count -1 Do
         Begin
-         If ((LowerCase(urlContext) = LowerCase(TRESTDWServerContext(ServerMethodsClass.Components[i]).DefaultContext))) Or
-            ((Trim(TRESTDWServerContext(ServerMethodsClass.Components[i]).DefaultContext) = '') And (Pooler = '')        And
-             (TRESTDWServerContext(ServerMethodsClass.Components[i]).ContextList.ContextByName[urlContext] <> Nil))      Then
+         If ((LowerCase(Pooler) = LowerCase(TRESTDWServerContext(ServerMethodsClass.Components[i]).DefaultContext))) Or
+            ((Trim(TRESTDWServerContext(ServerMethodsClass.Components[i]).DefaultContext) = '')                      And
+             ((urlContext = '') or (urlContext = '/')))                                                              Then
+          vTagService := (TRESTDWServerContext(ServerMethodsClass.Components[i]).ContextList.ContextByName[Pooler] <> Nil);
+         If vTagService Then
           Begin
            vRootContext := TRESTDWServerContext(ServerMethodsClass.Components[i]).DefaultContext;
-           If ((Pooler = '')    And (vRootContext <> '')) Then
+           If (((urlContext = '') or (urlContext = '/')) And (vRootContext <> '')) And (Pooler = '') Then
             Pooler := vRootContext;
           End
          Else

CORE/Source/Consts/uRESTDWConsts.pas

@@ -71,7 +71,7 @@
  monthnames                 : Array [1 .. 12] Of string = ('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', {do not localize}
                                                            'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec'); {do not localize}
  RESTDWVersionINFO          = 'v2.0.2-';
- RESTDWRelease              = '3076';
+ RESTDWRelease              = '3079';
  RESTDWCodeProject          = 'Savage Reign - GitHub';
  RESTDWVersao               = RESTDWVersionINFO + RESTDWRelease + '(' + RESTDWCodeProject + ')';
  GOffsetFromUTC             : TDateTime = 0{$IFDEF HAS_DEPRECATED}deprecated{$ENDIF};

CORE/Source/Wizards/STLWizard.pas

@@ -1047,7 +1047,7 @@ function Tstlapplicationwizard.GetFrameworkTypes: TArray<string>;
 { Return the platform keys for the platforms this wizard supports }
 function Tstlapplicationwizard.GetPlatforms: TArray<string>;
 begin
-  SetLength(Result, 8);
+  SetLength(Result, 3);
   Result[0] := cWin32Platform;
   Result[1] := cWin64Platform;
   Result[2] := cLinux64Platform;
@@ -1062,7 +1062,7 @@ function Tstlapplicationwizard.GetPlatforms: TArray<string>;
 {$IF COMPILERVERSION > 31}
 function Tstlapplicationwizard.GetSupportedPlatforms: TArray<string>;
 begin
-  SetLength(Result, 8);
+  SetLength(Result, 6);
   Result[0] := cWin32Platform;
   Result[1] := cWin64Platform;
   Result[2] := cLinux64Platform;