Fixed XE3 compliation errors

Author: vincentparrett

Source/VSoft.HttpClient.Response.pas

@@ -361,7 +361,7 @@ procedure THttpResponse.WriteBuffer(const buffer: TBytes; const length : NativeI
 begin
   if FStream = nil then
     exit;
-  {$IF CompilerVersion > 23}
+  {$IF CompilerVersion > 23.0} //XE3+
     FStream.WriteData(buffer, length);
   {$ELSE}
     FStream.WriteBuffer(buffer, length);

Source/VSoft.HttpClient.WinHttpClient.pas

@@ -92,12 +92,12 @@   THttpClient = class(THttpClientBase, IHttpClient, IHttpClientInternal)
 
     //IHttpClientInternal
     function Send(const request : TRequest; const cancellationToken : ICancellationToken = nil) : IHttpResponse;overload;
-    procedure ReleaseRequest(const request : TRequest);override;
 
 
   public
     constructor Create(const uri : IUri);
     destructor Destroy;override;
+    procedure ReleaseRequest(const request : TRequest);override;
   end;
 
 
@@ -721,7 +721,7 @@ function THttpClient.Send(const request: TRequest; const cancellationToken: ICan
         bufferSize := TRequestCracker(FCurrentRequest).GetContentLength;
         SetLength(buffer,bufferSize);
         ZeroMemory(@buffer[0], bufferSize);
-        {$IF CompilerVersion > 23} //XE3+
+        {$IF CompilerVersion > 24.0} //XE4+
         stream.ReadBuffer(buffer,0 , bufferSize);
         {$ELSE}
         stream.ReadBuffer(buffer, bufferSize);

Source/VSoft.HttpClient.pas

@@ -587,7 +587,7 @@ function TRequest.GetBody: TStream;
 function TRequest.GetCharSet: string;
 begin
   if FEncoding <> nil then
-  {$If CompilerVersion > 33}
+  {$If CompilerVersion > 33.0} //10.4+
     result := FEncoding.MIMEName
   {$ELSE}
     result := FEncoding.EncodingName

VSoft.HttpClient.dspec

@@ -1,7 +1,7 @@
 {
    "metadata":{
       "id":"VSoft.HttpClient",
-      "version":"0.9.0-alpha.7",
+      "version":"0.9.0-alpha.8",
       "description":"WinHttp base http client",
       "authors":"Vincent Parrett",
       "projectUrl":"https://github.com/VSoftTechnologies/VSoft.HttpClient",