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)
Más que contenido para programadores
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)
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
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.
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.
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.
1 2 3 4 5 |
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.
y ya esta, ahora dejo todo el codigo seguido:
1 2 3 4 5 6 7 8 9 10 11 12 |
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
Hola aqui os dejo es TSQL para saber que campo tiene identidad dentro de una tabla de SQL SERVER ,vamos con ello:
1 2 |
select t.name as Tabla ,c.name as Campo ,c.is_identity from sys.columns c inner join sys.tables t on t.object_id = c.object_id where is_identity= 1 and t.name = 'Tabla' |
Así de corto el post (identity SQL SERVER)
Espero que te sirva un saludo
FileUpload ASPx con Ftp
Para subir ficheros a un ftp puedes usar fileupload.
1 2 3 4 |
<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
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 |
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 Next End Sub |
Ya ves que facil.
seguramente te haga falta incorporar los imports siguientes
1 2 3 |
Imports System.IO Imports System.Net Imports System.Text |
Espero que te sirva. un Saludo
Generar SHA512
Hola aqui te dejo la funcion para generar el codificado en SHA512 en vb.net
1 2 3 4 5 6 7 8 9 10 11 12 |
Function generarSHA512(ByVal sCadena As String) As String ' Objeto de codificación Dim ueCodigo As New UnicodeEncoding() ' Objeto para instanciar las codificación Dim SHA As New SHA512Managed</code> ' Calcula el valor hash de la cadena recibida Dim bHash() As Byte = SHA.ComputeHash(ueCodigo.GetBytes(sCadena)) ' Convierte el valor anterior en cadena y lo devuelve Return Convert.ToBase64String(bHash) End Function |
Espero que te sirva un Saludo
GENERAR MD5
Hola aquí os dejo la función para generar un md5 vb.net
Espero que os sirva , Un Saludo
1 2 3 4 5 6 7 8 9 10 11 12 13 |
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 |