fix:

 - Corrigido AV não mostrando no cliente #117
 - Correção preventiva de erros nos clientes na função tratarExcecao
 - Correção preventiva de erro em casos de Param Stream vazio

feat:
 - Atualização de arquivo de fontes de identidade visual

Fixed #117

Author: mobius1qwe

Assets/Social preview - 1280x640.png

@@ -421,10 +421,14 @@ procedure TRALParam.SetAsStream(const AValue: TStream);
   if FContent <> nil then
     FreeAndNil(FContent);
 
-  AValue.Position := 0;
-
-  FContent := TRALStringStream.Create(AValue);
-  FContent.Position := 0;
+  if AValue <> nil then
+  begin
+    AValue.Position := 0;
+    FContent := TRALStringStream.Create(AValue);
+    FContent.Position := 0;
+  end
+  else
+    FContent := nil;
 end;
 
 procedure TRALParam.SetAsString(const AValue: StringRAL);

Assets/src/PascalRAL Assets.fig

@@ -704,10 +704,13 @@ procedure TRALServer.ProcessCommands(ARequest: TRALRequest; AResponse: TRALRespo
     end;
   except
     on e: exception do
+    begin
       if assigned(OnServerError) then
         OnServerError(e)
       else if RaiseError then
         raise;
+      AResponse.Answer(HTTP_InternalError, e.Message, rctTEXTPLAIN);
+    end;
   end;
 end;
 

src/base/RALParams.pas

@@ -62,11 +62,14 @@ procedure TRALIndyClientHTTP.SendUrl(AURL: StringRAL; ARequest: TRALRequest;
   vCookies: TStringList;
   vInt: IntegerRAL;
 
-  procedure tratarExcecao(ACode : IntegerRAL; AMessage : StringRAL);
+  procedure tratarExcecao(ACode: IntegerRAL; AMessage: StringRAL);
   begin
     AResponse.Params.CompressType := ctNone;
     AResponse.Params.CriptoOptions.CriptType := crNone;
-    AResponse.StatusCode := FHttp.ResponseCode;
+    if assigned(FHttp) then
+      AResponse.StatusCode := FHttp.ResponseCode
+    else
+      AResponse.StatusCode := ACode;
     AResponse.ResponseText := AMessage;
     AResponse.ErrorCode := ACode;
   end;
@@ -165,13 +168,13 @@ procedure TRALIndyClientHTTP.SendUrl(AURL: StringRAL; ARequest: TRALRequest;
       AResponse.StatusCode := FHttp.ResponseCode;
       AResponse.ResponseStream := vResult;
     except
-      on e : EIdSocketError do
+      on e: EIdSocketError do
         tratarExcecao(e.LastError, e.Message);
-      on e : EIdConnectTimeout do
+      on e: EIdConnectTimeout do
         tratarExcecao(10060, e.Message);
-      on e : EIdReadTimeout do
+      on e: EIdReadTimeout do
         tratarExcecao(10060, e.Message);
-      on e : Exception do
+      on e: Exception do
         tratarExcecao(-1, e.Message);
     end;
   finally

src/base/RALServer.pas

@@ -184,7 +184,7 @@ procedure TRALnetHTTPClientHTTP.SendUrl(AURL: StringRAL; ARequest: TRALRequest;
         AResponse.ResponseStream  := vResponse.ContentStream;
       end;	 	  
     except
-      on e : ENetHTTPClientException do begin
+      on e: ENetHTTPClientException do begin
         vErroCode := -1;
         if Pos('12029', e.Message) > 0 then
           vErroCode := 12029
@@ -193,7 +193,7 @@ procedure TRALnetHTTPClientHTTP.SendUrl(AURL: StringRAL; ARequest: TRALRequest;
 
         tratarExcecao(vErroCode, e.Message);
       end;
-      on e : Exception do
+      on e: Exception do
         tratarExcecao(-1, e.Message);
     end;
   finally

src/engine/indy/RALIndyClient.pas

@@ -38,12 +38,13 @@ procedure TRALSynopseClientHTTP.SendUrl(AURL: StringRAL; ARequest: TRALRequest;
   vCookies: TStringList;
   vInt: IntegerRAL;
 
-  procedure tratarExcecao(ACode : IntegerRAL; AMessage : StringRAL);
+  procedure tratarExcecao(ACode: IntegerRAL; AMessage: StringRAL);
   begin
     AResponse.Params.CompressType := ctNone;
     AResponse.Params.CriptoOptions.CriptType := crNone;
     AResponse.ResponseText := AMessage;
     AResponse.ErrorCode := ACode;
+    AResponse.StatusCode := ACode;
   end;
 
 begin

src/engine/netHTTP/RALnetHTTPClient.pas

@@ -274,6 +274,7 @@ function TRALSynopseServer.OnCommandProcess(AContext: THttpServerRequestAbstract
       end;
 
       ProcessCommands(vRequest, vResponse);
+
       with vResponse do
       begin
         AContext.OutContent := ResponseText;