anchor.diff:    r:Integer;
   begin
   {$IFDEF DIOCP_SSL}
  -  if FSsl <> nil then
  +  if (FSsl <> nil) and (self.FSslFlag = 1) then
     begin
       r := SSL_write(FSsl, pvBuffer, pvLength);
       CheckSocketSendResult(r);
  
positive.code: function TDiocpHttpClient.DoRecvBuff(var data; const len: Cardinal): Integer;
  begin
    {$IFDEF DIOCP_SSL}
    if FSsl <> nil then
    begin
      result := utils_openssl.SSL_read(FSsl, @data, len);
    end else
  
negative.code:   private
      FRaiseOnResponseOnExceptCode: Boolean;
      {$IFDEF DIOCP_SSL}
      FSslFlag:Integer;
      FSSLCtx: utils_openssl.PSSL_CTX;
      FSsl: utils_openssl.PSSL;
      procedure DoSSLAfterConnect;
  