jueves, 17 de enero de 2019

Convertir documento a Byte base64

Convertir Doc a Byte()

Public Shared Function convertirDoc_Byte(rutaArchivo As String) As Byte()
        Dim fileBytes = File.ReadAllBytes(rutaArchivo)
        Dim encodedFile = Convert.ToBase64String(fileBytes)

        Dim aa = System.Text.Encoding.Default.GetBytes(encodedFile)
        Return aa
    End Function

Convertir Byte() a Doc
Public Shared Sub convertirByte_doc(archBytes As Byte(),rutaArchivo As String)
        Dim base64String = System.Text.Encoding.Default.GetString(archBytes)
        Dim imageBytes As Byte() = Convert.FromBase64String(base64String)

        File.WriteAllBytes(rutaArchivo, imageBytes)

    End Sub

Saludos

Mostrar una Imagen desde una ruta compartida

A veces se desea mostrar una imagen desde una ruta externa a la aplicación. Una de las soluciones seria la siguiente:

aspx:
<asp:Image ID="ss" runat="server" />

VB:
Dim reader = File.ReadAllBytes("\\XXXX\YYYY\icon.png")
Dim image1 = New MemoryStream(reader)
ss.ImageUrl = "data:image/png;base64," + Convert.ToBase64String(image1.ToArray(), 0, image1.ToArray().Length)

Saludos

miércoles, 26 de septiembre de 2018

IIS ampliar maxAllowedContentLength

El límite de solicitudes en .Net se puede configurar desde dos propiedades juntas:

primero 
Web.Config/system.web/httpRuntime/maxRequestLength
Unidad de medida: kilobytes
Valor predeterminado 4096 KB (4 MB)
Max. valor 2147483647 KB (2 TB)

 Segundo Web.Config/system.webServer/security/requestFiltering/requestLimits/maxAllowedContentLength (en bytes)
Unidad de medida: bytes
Valor predeterminado 30000000 bytes (28.6 MB)
Max. valor 4294967295 bytes (4 GB)


Ejemplo:
   <system.web>
     <!--The default size is 4096 kilobytes (4 MB). MaxValue is 2147483647 KB (2 TB)-->
     <!-- 100 MB in kilobytes -->
     <httpRuntime maxRequestLength="102400" />
   </system.web>
   <system.webServer>
     <security>
       <requestFiltering>          
         <!--The default size is 30000000 bytes (28.6 MB). MaxValue is 4294967295 bytes (4 GB)-->
         <!-- 100 MB in bytes -->
         <requestLimits maxAllowedContentLength="104857600" />
       </requestFiltering>
     </security>
   </system.webServer>
Salusos.

martes, 25 de septiembre de 2018

AutoComplete con BootStrap y js

A continuación se muestra un ejemplo de autocomplete con bootstrap.

sección js:

    
    
    
    

    

controles del formulario:
 

  


codigo vb:
 
< webmethod > _
    Public Shared Function ListarComitente(obj As ComitenteBE) As List(Of ComitenteBE)
        Dim lista = New ComitenteDA().ListarComitente(obj) 'en esta sección obtener el listado desde la BD
        Return lista
    End Function

objeto con las propiedades necesarias:
 
< serializable >
Public Class ComitenteBE
    Public Property CodComitente As String
    Public Property Descripcion As String
End Class

Saludos

lunes, 20 de agosto de 2018

martes, 16 de mayo de 2017

maxlength en un textbox Multiline

una forma de hacerlo, es asignando el atributo al TextBox desde el código(vb). ejemplo:

CajitaDeTexto..Attributes("maxlength") = 255

jueves, 4 de mayo de 2017

TransactionScope - Timeout

El siguiente código tomará el valor de timeout por defecto (1 min.) para una nueva conexión (el valor de TransactionManager.DefaultTimeout):
 
Using tran As New Transactions.TransactionScope
tran.Complete()
End Using
Sin embargo, este otro código tomará el valor 0, que significa infinito (aunque recuerda que nunca podrá irse más allá del valor de maxTimeout (por defecto 10 min.) establecido en el machine.config).
 
Dim options As New TransactionOptions
Using tran As New TransactionScope(TransactionScopeOption.Required, options)
tran.Complete()
End Using