Merge pull request #116 from acgubamg/dev

Fixed #115

Author: mobius1qwe

src/base/RALClient.pas

@@ -542,7 +542,7 @@ procedure TRALClientHTTP.BeforeSendUrl(ARoute: StringRAL;
       vErrorCode := AResponse.ErrorCode;
     end;
 
-    if vErrorCode <> 0 then
+    if (vErrorCode <> 0) and (Parent.BaseURL.Count > 0) then
       FIndexUrl := (FIndexUrl + 1) mod Parent.BaseURL.Count;
 
     vConta := vConta + 1;

src/engine/netHTTP/RALnetHTTPClient.pas

@@ -77,8 +77,11 @@ procedure TRALnetHTTPClientHTTP.SendUrl(AURL: StringRAL; ARequest: TRALRequest;
   begin
     AResponse.Params.CompressType := ctNone;
     AResponse.Params.CriptoOptions.CriptType := crNone;
-    AResponse.ResponseText := AMessage;
-    AResponse.StatusCode := vResponse.GetStatusCode;
+    AResponse.ResponseText := AMessage;											   
+    if vResponse <> nil then // Antonio c Gomes
+      AResponse.StatusCode := vResponse.GetStatusCode
+    else
+      AResponse.StatusCode := ACode; // Antonio c Gomes													   
     AResponse.ErrorCode := ACode;
   end;
 
@@ -163,21 +166,23 @@ procedure TRALnetHTTPClientHTTP.SendUrl(AURL: StringRAL; ARequest: TRALRequest;
         amOPTIONS:
           vResponse := FHttp.Options(AURL, nil, vHeaders);
       end;
-
-      for vInt := 0 to Pred(Length(vResponse.Headers)) do
-        AResponse.AddHeader(vResponse.Headers[vInt].Name, vResponse.Headers[vInt].Value);
-
-      AResponse.ContentEncoding := vResponse.ContentEncoding;
-      AResponse.Params.CompressType := AResponse.ContentCompress;
-
+	  
+	  AResponse.Params.CompressType := AResponse.ContentCompress;
       AResponse.ContentEncription := AResponse.ParamByName('Content-Encription').AsString;
       AResponse.Params.CriptoOptions.CriptType := AResponse.ContentCripto;
+	  AResponse.ContentDisposition := AResponse.ParamByName('Content-Disposition').AsString;
       AResponse.Params.CriptoOptions.Key := Parent.CriptoOptions.Key;
 
-      AResponse.ContentType := vResponse.MimeType;
-      AResponse.ContentDisposition := AResponse.ParamByName('Content-Disposition').AsString;
-      AResponse.StatusCode := vResponse.GetStatusCode;
-      AResponse.ResponseStream := vResponse.ContentStream;
+      if vResponse <> nil then // Antonio c Gomes AV 
+      begin
+        for vInt := 0 to Pred(Length(vResponse.Headers)) do
+          AResponse.AddHeader(vResponse.Headers[vInt].Name, vResponse.Headers[vInt].Value);
+
+        AResponse.ContentEncoding := vResponse.ContentEncoding;      
+        AResponse.ContentType     := vResponse.MimeType;        
+        AResponse.StatusCode      := vResponse.GetStatusCode;
+        AResponse.ResponseStream  := vResponse.ContentStream;
+      end;	 	  
     except
       on e : ENetHTTPClientException do begin
         vErroCode := -1;