ASP.NET archivos - Soulsmakers

Validar usuario contra el dominio (active directory)

02/23/202102/23/2021 por Jose Ortiz fernandez

Hola a tod@s, aqui os dejo una funcion que te permite validar un usuario contra el dominio, el valor de retorno es un true o un false

Leer másValidar usuario contra el dominio (active directory)

Abrir Pdf desde array bytes asp.net vb

02/12/202102/12/2021 por Jose Ortiz fernandez

Para poder abrir un pdf desde un array de bytes en un webform de asp.net deberas hacerlo de la siguiente manera.

Para este ejemplo he añadido el pdf en el proyecto para que se copie siempre y poder realizarlo sin problemas

PdfContenido
PdfCoiarSiempre

Crea un aspx y ve a la parte de codigo, ya que le daremos las instrucciones desde el codebehind

Primero leeremos en fichero en cuestión y lo cargaremos en un array de bytes.

  Dim sr As New StreamReader(AppDomain.CurrentDomain.BaseDirectory &amp; "Soulsmakers.pdf")

1 2	Dim sr As New StreamReader(AppDomain.CurrentDomain.BaseDirectory & "Soulsmakers.pdf")

A Continuacion declaramos el array con la longitud del contenido y rellenamos los bytes.

        Dim by(sr.BaseStream.Length - 1) As Byte
        sr.BaseStream.Read(by, 0, by.Length - 1)

1 2	Dim by(sr.BaseStream.Length - 1) As Byte sr.BaseStream.Read(by, 0, by.Length - 1)

Ahora nos queda la parte final y es asignar a el webform el contenido del array dictando al context el formato que se le esta pasando.


        Context.Response.OutputStream.Write(by, 0, by.Length - 1)
        Response.ContentType = "application/pdf"
        Context.Response.Flush()

Context.Response.OutputStream.Write(by, 0, by.Length - 1)

Response.ContentType = "application/pdf"

Context.Response.Flush()

Bien, ejecuta. deberias de poder ver el pdf que has cargado.

PDF en aspx

y ya esta, ahora dejo todo el codigo seguido:


    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim sr As New StreamReader(AppDomain.CurrentDomain.BaseDirectory &amp; "Soulsmakers.pdf")

        Dim by(sr.BaseStream.Length - 1) As Byte
        sr.BaseStream.Read(by, 0, by.Length - 1)

        Context.Response.OutputStream.Write(by, 0, by.Length - 1)
        Response.ContentType = "application/pdf"
        Context.Response.Flush()
    End Sub

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Dim sr As New StreamReader(AppDomain.CurrentDomain.BaseDirectory & "Soulsmakers.pdf")

Dim by(sr.BaseStream.Length - 1) As Byte

sr.BaseStream.Read(by, 0, by.Length - 1)

Context.Response.OutputStream.Write(by, 0, by.Length - 1)

Response.ContentType = "application/pdf"

Context.Response.Flush()

End Sub

Espero que sirva un saludo

Fileupload con ftp asp vb.net

02/12/202102/08/2021 por Jose Ortiz fernandez

FileUpload ASPx con Ftp

Para subir ficheros a un ftp puedes usar fileupload.

&lt;asp:FileUpload ID="FileUpload1" runat="server" AllowMultiple="true" />
&lt;asp:Button Text="subir al Ftp" runat="server" OnClick="FTPUpload" />
&lt;hr />
&lt;asp:Label ID="label1" runat="server" />

<asp:FileUpload ID="FileUpload1" runat="server" AllowMultiple="true" />

<asp:Button Text="subir al Ftp" runat="server" OnClick="FTPUpload" />

<hr />

<asp:Label ID="label1" runat="server" />

Si te has fijado bien en este ejemplo marcamos que esta permitido subir multiples ficheros a la web.
si no deseas subir multiples ficheros establece AllowMultiple=”false”

Ahora vamos con la parte del botón muy facilita. lo dejo comentado para que puedas seguirlo

Protected Sub FTPUpload(sender As Object, e As EventArgs)
    'Direccion FTP.
    Dim ftp As String = "ftp://tuftp.com/"
 
    'Directorio donde vas a subir los ficheros.
    Dim ftpFolder As String = "Subidas/"
 
    For Each file As HttpPostedFile In FileUpload1.PostedFiles
        Dim fileBytes As Byte() = Nothing
 
        'Leemos los ficheros y creamos el array de bytes que seran escritos.
        Dim fileName As String = Path.GetFileName(file.FileName)
        Using fileStream As New StreamReader(file.InputStream)
            fileBytes = Encoding.UTF8.GetBytes(fileStream.ReadToEnd())
            fileStream.Close()
        End Using
 
        Try
            'LLamamos as webrequest de nuestro ftp y le indicamos que es subida de ficheros.
            Dim request As FtpWebRequest = DirectCast(WebRequest.Create(ftp &amp; ftpFolder &amp; fileName), FtpWebRequest)
            request.Method = WebRequestMethods.Ftp.UploadFile
 
            'Asignamos las credenciales y el modo passivo o no
            request.Credentials = New NetworkCredential("username", "password")
            request.ContentLength = fileBytes.Length
            request.UsePassive = True
            request.UseBinary = True
            request.ServicePoint.ConnectionLimit = fileBytes.Length
            request.EnableSsl = False
 'Escribimos los datos
            Using requestStream As Stream = request.GetRequestStream()
                requestStream.Write(fileBytes, 0, fileBytes.Length)
                requestStream.Close()
            End Using
 
            Dim response As FtpWebResponse = DirectCast(request.GetResponse(), FtpWebResponse)
 ' y al label le vamos pasando los ficheros almacenados
            lblMessage.Text &amp;= fileName &amp; " subido.&lt;br />"
            response.Close()
        Catch ex As WebException
            Throw New Exception(TryCast(ex.Response, FtpWebResponse).StatusDescription)
        End Try
    Next
End Sub

Protected Sub FTPUpload(sender As Object, e As EventArgs)

'Direccion FTP.

Dim ftp As String = "ftp://tuftp.com/"

'Directorio donde vas a subir los ficheros.

Dim ftpFolder As String = "Subidas/"

For Each file As HttpPostedFile In FileUpload1.PostedFiles

Dim fileBytes As Byte() = Nothing

'Leemos los ficheros y creamos el array de bytes que seran escritos.

Dim fileName As String = Path.GetFileName(file.FileName)

Using fileStream As New StreamReader(file.InputStream)

fileBytes = Encoding.UTF8.GetBytes(fileStream.ReadToEnd())

fileStream.Close()

End Using

Try

'LLamamos as webrequest de nuestro ftp y le indicamos que es subida de ficheros.

Dim request As FtpWebRequest = DirectCast(WebRequest.Create(ftp & ftpFolder & fileName), FtpWebRequest)

request.Method = WebRequestMethods.Ftp.UploadFile

'Asignamos las credenciales y el modo passivo o no

request.Credentials = New NetworkCredential("username", "password")

request.ContentLength = fileBytes.Length

request.UsePassive = True

request.UseBinary = True

request.ServicePoint.ConnectionLimit = fileBytes.Length

request.EnableSsl = False

'Escribimos los datos

Using requestStream As Stream = request.GetRequestStream()

requestStream.Write(fileBytes, 0, fileBytes.Length)

requestStream.Close()

End Using

Dim response As FtpWebResponse = DirectCast(request.GetResponse(), FtpWebResponse)

' y al label le vamos pasando los ficheros almacenados

lblMessage.Text &= fileName & " subido.<br />"

response.Close()

Catch ex As WebException

Throw New Exception(TryCast(ex.Response, FtpWebResponse).StatusDescription)

End Try

End Sub

Ya ves que facil.

seguramente te haga falta incorporar los imports siguientes

Imports System.IO
Imports System.Net
Imports System.Text

Imports System.IO

Imports System.Net

Imports System.Text

Espero que te sirva. un Saludo

Generar MD5 vb.net

02/12/202102/01/2021 por Jose Ortiz fernandez

GENERAR MD5

Hola aquí os dejo la función para generar un md5 vb.net

Espero que os sirva , Un Saludo

Imports System.Text
Imports System.Security.Cryptography

Function generarMD5(ByVal sCadena As String) As String
  
  Dim ueCodigo As New UnicodeEncoding()
 
  Dim Md5 As New MD5CryptoServiceProvider()

  Dim bHash() As Byte = Md5.ComputeHash(ueCodigo.GetBytes(sCadena))

  Return Convert.ToBase64String(bHash)
End Function

Imports System.Text

Imports System.Security.Cryptography

Function generarMD5(ByVal sCadena As String) As String

Dim ueCodigo As New UnicodeEncoding()

Dim Md5 As New MD5CryptoServiceProvider()

Dim bHash() As Byte = Md5.ComputeHash(ueCodigo.GetBytes(sCadena))

Return Convert.ToBase64String(bHash)

End Function

Compilar Publicar sin Roslyn

05/13/202005/20/2020 por Jose Ortiz fernandez

La dichosa carpeta de Roslyn nos da mas de un quebradero de cabeza pero la verdad es que es muy facil compilar sin ella

Leer másCompilar Publicar sin Roslyn

Función para buscar controles en un webform

05/14/202005/14/2020 por Jose Ortiz fernandez

Hola , como ya sabeis , webforms cambia los id de los controles en tiempo de ejecución y encontrar algun control es un poco tedioso, dependiendo donde este, asi aquí te dejo esta función para localizar un control en un webform,

Leer másFunción para buscar controles en un webform