- adicionado compress type ctNone na lista de compressao dos componentes RALServer e RALCliente

- correção de AV para descompressão de stream com size = 0

Author: FernandoBanhos

src/base/RALClient.pas

@@ -212,8 +212,20 @@ procedure DoneEngineDefs;
 end;
 
 procedure RegisterEngine(AEngine: TRALClientHTTPClass);
+//var
+//  vTxt : TextFile;
 begin
   CheckEngineDefs;
+{
+  AssignFile(vTxt, 'd:\testeral.txt');
+  if FileExists('d:\testeral.txt') then
+    Append(vTxt)
+  else
+    Rewrite(vTxt);
+  Writeln(vTxt, AEngine.ClassName);
+  CloseFile(vTxt);
+}
+
   if EnginesDefs.IndexOfName(AEngine.EngineName) < 0 then
     EnginesDefs.Add(AEngine.EngineName + '=' + AEngine.ClassName);
 end;
@@ -838,6 +850,7 @@ destructor TRALThreadClient.Destroy;
 end;
 
 initialization
+  EnginesDefs := nil;
 
 finalization
   DoneEngineDefs;

src/utils/RALCompress.pas

@@ -124,8 +124,13 @@ function GetCompressClass(ACompressType: TRALCompressType): TRALCompressClass;
 procedure GetCompressList(AList: TStrings);
 var
   vInt : IntegerRAL;
+  vStrType : StringRAL;
 begin
   CheckCompressDefs;
+
+  vStrType := GetEnumName(TypeInfo(TRALCompressType), Ord(ctNone));
+  AList.Add(vStrType);
+
   for vInt := 0 to Pred(CompressDefs.Count) do
     AList.Add(CompressDefs.Names[vInt]);
 end;
@@ -229,7 +234,8 @@ function TRALCompress.Decompress(const AString: StringRAL): StringRAL;
 function TRALCompress.Decompress(AStream: TStream): TStream;
 begin
   Result := TMemoryStream.Create;
-  InitDeCompress(AStream, Result);
+  if AStream.Size > 0 then
+    InitDeCompress(AStream, Result);
 end;
 
 procedure TRALCompress.DecompressFile(AInFile, AOutFile: StringRAL);