* Ajustes de servidor de testes Lazarus com modo debug

 - correção de .lpi

Author: mobius1qwe

Lazarus/Console/RALTestServerConsoleLazarus.lpi

@@ -136,7 +136,7 @@
     </Linking>
     <Other>
       <Verbosity>
-        <ShoLineNum Value="True"/>
+        <ShowLineNum Value="True"/>
         <ShowDebugInfo Value="True"/>
       </Verbosity>
     </Other>

Lazarus/Console/RALTestServerConsoleLazarus.lpr

@@ -13,7 +13,7 @@
   // engine components
   RALSynopseServer, RALIndyServer, RALfpHTTPServer, RALSaguiServer,
   // general base components
-  RALServer, RALRequest, RALResponse, RALConsts;
+  RALServer, RALRequest, RALResponse, RALConsts, RALMIMETypes, RALCompress;
 
 type
 
@@ -47,7 +47,7 @@   TRALApplication = class(TCustomApplication)
 
   procedure TRALApplication.Ping(Request: TRALRequest; Response: TRALResponse);
   begin
-    Response.Answer(200, 'pong');
+    Response.Answer(HTTP_OK, 'pong', rctTEXTPLAIN);
   end;
 
   constructor TRALApplication.Create(AOwner: TComponent);
@@ -59,6 +59,9 @@   TRALApplication = class(TCustomApplication)
     StopOnException := True;
 
     WriteLn('RAL TestServer Lazarus - v' + RALVERSION);
+    {$IFOPT D+}
+    WriteLn('Debug Enabled');
+    {$ENDIF}
     WriteLn('Choose the engine:');
     WriteLn('1 - Synopse mORMot2 ' + SYNOPSE_FRAMEWORK_VERSION);
     WriteLn('2 - Indy ' + gsIdVersion);
@@ -73,13 +76,17 @@   TRALApplication = class(TCustomApplication)
       4: begin
         FServer := TRALSaguiServer.Create(nil);
         TRALSaguiServer(FServer).LibPath := ExtractFilePath(ParamStr(0)) + SG_LIB_NAME;
+        {$IFOPT D+}
+        WriteLn(TRALSaguiServer(FServer).LibPath);
+        {$ENDIF}
       end;
     end;
     WriteLn('Type the port used by server (0 for default 8000)');
     ReadLn(port);
     if port <= 0 then port := 8000;
     FServer.Port := port;
     FServer.CreateRoute('ping', @Ping);
+    FServer.CompressType := ctNone;
     FServer.Start;
   end;
 

Lazarus/Console/RALTestServerConsoleLazarus.lps

@@ -15,7 +15,6 @@
       <XPManifest>
         <DpiAware Value="True"/>
       </XPManifest>
-      <Icon Value="0"/>
     </General>
     <BuildModes>
       <Item Name="Default" Default="True"/>