NET archivos - Página 4 de 6

Server Transfer

08/01/2016 por Jose Ortiz fernandez

Server.Transfer

Cuando se llama al método Server.Transfer, finaliza la ejecución de la primera página y comienza la ejecución de la segunda página. Si la primera página ha empezado a escribir en el búfer de respuesta, la segunda página se anexa al búfer en lugar de reemplazarlo. Si el almacenamiento en búfer está activado, pueden modificarse en el archivo ASP que se transfiere al encabezados HTTP. Si el almacenamiento en búfer está desactivado, los encabezados HTTP no son modificables por el archivo ASP que se transfiere, a menos que no se ha enviado ningún contenido ASP todavía. Además, las transferencias múltiples pueden llamarse en sucesión, encadenar las páginas de tal modo.

Los únicos datos que se transfieren a una segunda página ASP son el ASP integrado-en los objetos y los valores del objeto ASP Error desde la primera solicitud. Las variables declaradas en la primera página ASP no están disponibles en la segunda página ASP.

Cuando se transfiere a una página en otra aplicación, los objetos de aplicación y de sesión contendrá información desde la aplicación de origen. En consecuencia, la página ASP que se transfiere al se trata como parte de la aplicación de origen.

Ejemplo
Las páginas de ejemplo siguientes ilustran cómo puede utilizarse el método Server.Transfer. En este ejemplo, la página de inicio contiene dos formularios, uno mediante el método HTTP POST y la otra con el método GET de HTTP. Ambas páginas utilicen la misma segunda página que detecta el método HTTP y se transfiere a una tercera página diferente para cada método que se utiliza. Porque se utiliza el método de transferencia, el objeto Request todavía se rellena y se muestran los resultados correctos de la primera página en la tercera página respectiva.

Copie el siguiente código ASP y guárdelo como “page1.asp” (sin las comillas):

Guarde el siguiente código como “Pag2.asp” (sin las comillas):

<% @LANGUAGE="VBSCRIPT" %>
<h3>Step 1 - Form Page</h3>
GET<input name="Name" type="text" />
<input type="submit" value="Submit" />
<table border="1">
<tbody>
<tr>
<th>POST</th>
<td><form action="page2.asp" method="POST"><input name="Name" type="text" />
<input type="submit" value="Submit" /></form></td>
</tr>
</tbody>
</table>

<% @LANGUAGE="VBSCRIPT" %>

GET<input name="Name" type="text" />

<tbody>

<tr>

</tr>

</tbody>

</table>

Step 2 – Transfer Page

<% Select Case UCase(Request.ServerVariables("REQUEST_METHOD")) Case "POST" Server.Transfer "page3a.asp" Case "GET" Server.Transfer "page3b.asp" Case Else Response.Write "An unknown HTTP verb was used." End Select %>

1	<% Select Case UCase(Request.ServerVariables("REQUEST_METHOD")) Case "POST" Server.Transfer "page3a.asp" Case "GET" Server.Transfer "page3b.asp" Case Else Response.Write "An unknown HTTP verb was used." End Select %>

Guarde el siguiente código como “page3a.asp” (sin las comillas):

<% @LANGUAGE="VBSCRIPT" %>

1	<% @LANGUAGE="VBSCRIPT" %>

Step 3a – POST Results

Hello <% = Request.Form("Name") %>

1	Hello <% = Request.Form("Name") %>

Guarde el siguiente código como “page3b.asp” (sin las comillas):

<% @LANGUAGE="VBSCRIPT" %>

1	<% @LANGUAGE="VBSCRIPT" %>

Step 3b – GET Results

Hello <% = Request.QueryString("Name") %>

1	Hello <% = Request.QueryString("Name") %>

Nota: Las dos últimas páginas no son páginas HTML completas. Esto es debido a que ambas páginas se incorpora al búfer de respuesta que se inició en la segunda página.

Para probar este ejemplo, guardar todas las páginas en una carpeta Web con “Script” acceso permitido y busque “page1.asp.”

FUENTE:(http://support.microsoft.com/kb/219294/es)

Crear un Form con forma personalizada

07/30/2016 por Jose Ortiz fernandez

Crear un Form con forma personalizada

Buenas a todos,
En Este tutorial os voy a enseñar a hacer un formulario con forma personalizada.

Lo primero que debemos hacer es la imagen que nos va a servir de patron para el formulario.

Debemos crearla con un patron de colores de 8bit, porque en cualquier resolucion de colores este esta presente, y si lo hicieramos por ejemplo en 32bit, exiten colores que no estan en 16bit ni en 8 , con esto nos aseguramos que se visualize bien.

Una vez que tenemos todo y hemos rellenado la imagen con un color de fondo que no vamos a utilizar, nos fijamos muy muy bien en el color RGB que hemos elegido. este color no lo podemos utilizar nada mas para luego excluir el el fondo.

Una vez hecho todo esto creamos un formulario de windows y en el backgroundimage le establecemos el fondo que hemos creado.

A continuacion quitamos los bordes con el formstyle y los botones de minimizar,maximizar, y cerrar.

en el load, o en la caracteristica de transparenceKey le indicamos cual va a ser el color que debe tratar como transparente, y compilamos.

Me.TransparencyKey = Color.FromArgb(255, 255, 204, 204)

1	Me.TransparencyKey = Color.FromArgb(255, 255, 204, 204)

Ya esta!!! ya tenemos nuestro formulario con la forma que nosotros hemos creado.

Obtener Saber el color de un pixel

11/14/201907/30/2016 por Jose Ortiz fernandez

Obtener, Saber el color de un pixel

Hola a todos, aqui os traigo el ejemplo de como obtener el color de un pixel.

Para este ejemplo , necesitamos 2 picturebox y una imagen.
el primer picturebox, cargaremos la imagen de la cual vamos a recoger el color y en el segundo picturebox mostramos el color que tenemos debajo del cursor del raton al pasar por encima el primer picturebox.

Para ello vamos a utilizar el evento de picturebox.mouse move y añadimos el siguiente codigo.

 Dim b As Bitmap = Me.PictureBox1.Image 'Cogemos la imagen del picturebox y la pasamos a un bitmap
 Me.Label2.Text = b.GetPixel(e.X, e.Y).ToString 'cogemos el pixel indicado por el mouse y mostramos e argb
 Me.Label4.Text = Hex(b.GetPixel(e.X, e.Y).ToArgb) 'Convertimos a Hexadecimal el argb que es un numero entero
 Me.PictureBox2.BackColor = Color.FromArgb(b.GetPixel(e.X, e.Y).ToArgb) 'a el segundo bitmap le ponemos el color

Dim b As Bitmap = Me.PictureBox1.Image 'Cogemos la imagen del picturebox y la pasamos a un bitmap

Me.Label2.Text = b.GetPixel(e.X, e.Y).ToString 'cogemos el pixel indicado por el mouse y mostramos e argb

Me.Label4.Text = Hex(b.GetPixel(e.X, e.Y).ToArgb) 'Convertimos a Hexadecimal el argb que es un numero entero

Me.PictureBox2.BackColor = Color.FromArgb(b.GetPixel(e.X, e.Y).ToArgb) 'a el segundo bitmap le ponemos el color

Si quieres el codigo completo pincha aqui, VS2012

Espero que os sirva un saludo

convertir imagen a Base64 y viceversa

10/19/201707/30/2016 por Jose Ortiz fernandez

Imagen aBase64 y de Base64 a Imagen

Aqui os dejo el codigo para convertir una imagen aBase64 y de Base64 a imagen . el codigo es muy sencillo y muy facil de seguir.

Leer másconvertir imagen a Base64 y viceversa

FILTRAR UN DATAGRIDVIEW CON DATAVIEW

04/15/202107/29/2016 por Jose Ortiz fernandez

FILTRAR UN DATAGRIDVIEW CON DATAVIEW

Este es un Ejemplo de filtrado de un GridView usando un Dataview.

Se ha utilizado para este ejemplo un GridView y un TextBox.

Primero los datos y el codigo para filtrar,

Dim dv As New DataView
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Dim dt As New DataTable
       dt.TableName = "Nombres"
       dt.Columns.Add("ID")
       dt.Columns.Add("Nombre")
       Dim dr As DataRow = dt.NewRow
       dr("ID") = 1
       dr("Nombre") = "PACO"
       dt.Rows.Add(dr)
       dr = dt.NewRow
       dr("ID") = 2
       dr("Nombre") = "JUAN"
       dt.Rows.Add(dr)
       dr = dt.NewRow
       dr("ID") = 3
       dr("Nombre") = "PEDRO"
       dt.Rows.Add(dr)
       dr = dt.NewRow
       dr("ID") = 4
       dr("Nombre") = "RICARDO"
       dt.Rows.Add(dr)
       dv.Table = dt
       Me.DataGridView1.DataSource = dv<span class="cf3 fs19 ff2">  
 </span><span class="cf4 fs19 ff2">End</span> <span class="cf4 fs19 ff2">Sub</span>

Dim dv As New DataView

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

Dim dt As New DataTable

dt.TableName = "Nombres"

dt.Columns.Add("ID")

dt.Columns.Add("Nombre")

Dim dr As DataRow = dt.NewRow

dr("ID") = 1

dr("Nombre") = "PACO"

dt.Rows.Add(dr)

dr = dt.NewRow

dr("ID") = 2

dr("Nombre") = "JUAN"

dt.Rows.Add(dr)

dr = dt.NewRow

dr("ID") = 3

dr("Nombre") = "PEDRO"

dt.Rows.Add(dr)

dr = dt.NewRow

dr("ID") = 4

dr("Nombre") = "RICARDO"

dt.Rows.Add(dr)

dv.Table = dt

Me.DataGridView1.DataSource = dv<span class="cf3 fs19 ff2">

</span><span class="cf4 fs19 ff2">End</span> <span class="cf4 fs19 ff2">Sub</span>

<span class="cf3 fs19 ff2">    </span><span class="cf4 fs19 ff2">Private</span> <span class="cf4 fs19 ff2">Sub</span><span class="cf3 fs19 ff2"> TextBox1_TextChanged(sender </span><span class="cf4 fs19 ff2">As</span> <span class="cf4 fs19 ff2">Object</span><span class="cf3 fs19 ff2">, e </span><span class="cf4 fs19 ff2">As</span> <span class="cf5 fs19 ff2">EventArgs</span><span class="cf3 fs19 ff2">) </span><span class="cf4 fs19 ff2">Handles</span><span class="cf3 fs19 ff2"> TextBox1.TextChanged
        dv.RowFilter = </span><span class="cf6 fs19 ff2">"Nombre like'%"</span><span class="cf3 fs19 ff2"> & </span><span class="cf4 fs19 ff2">Me</span><span class="cf3 fs19 ff2">.TextBox1.Text & </span><span class="cf6 fs19 ff2">"%'"</span><span class="cf3 fs19 ff2">
    </span><span class="cf4 fs19 ff2">End</span> <span class="cf4 fs19 ff2">Sub</span>

<span class="cf3 fs19 ff2"> </span><span class="cf4 fs19 ff2">Private</span> <span class="cf4 fs19 ff2">Sub</span><span class="cf3 fs19 ff2"> TextBox1_TextChanged(sender </span><span class="cf4 fs19 ff2">As</span> <span class="cf4 fs19 ff2">Object</span><span class="cf3 fs19 ff2">, e </span><span class="cf4 fs19 ff2">As</span> <span class="cf5 fs19 ff2">EventArgs</span><span class="cf3 fs19 ff2">) </span><span class="cf4 fs19 ff2">Handles</span><span class="cf3 fs19 ff2"> TextBox1.TextChanged

dv.RowFilter = </span><span class="cf6 fs19 ff2">"Nombre like'%"</span><span class="cf3 fs19 ff2"> & </span><span class="cf4 fs19 ff2">Me</span><span class="cf3 fs19 ff2">.TextBox1.Text & </span><span class="cf6 fs19 ff2">"%'"</span><span class="cf3 fs19 ff2">

</span><span class="cf4 fs19 ff2">End</span> <span class="cf4 fs19 ff2">Sub</span>

Hasta aqui el ejemplo , es corto pero efectivo . Un saludo a todos.

ASPX Cookies y Tiempo de expiracion

07/29/201607/29/2016 por Jose Ortiz fernandez

ASPX Cookies y Tiempo de expiracion

Hola A tod@s. aqui os dejo un breve ejemplo de como utilizar una cookie para controlar el tiempo de expiracion de una pagina.

El formulario que os presento es muy simple, consta de 1 labels, 1 Boton,
un timer y un scriptmanager, que es necesario para nuestro timer.

El boton Renovar lo que hara es volverle a dar a nuestra cookie una nueva fecha de expiración.

Pues bien vamos con el codigo.
En el load, lo primero que debemos hacer es controlar el postback para que no recree la cookie, seguidamente la creamos la cookie , que luego recuperaremos mas adelante.
el codigo del load quedaria asi.

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
           Dim Pedazo As New HttpCookie("MiSesion")
           Pedazo.Expires = DateTime.Now.AddSeconds(30)
           Pedazo.Value = "MiCookie"
           Me.Label1.Text = Pedazo.Expires
           Response.Cookies.Add(Pedazo)
       End If    
End Sub

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

If Not IsPostBack Then

Dim Pedazo As New HttpCookie("MiSesion")

Pedazo.Expires = DateTime.Now.AddSeconds(30)

Pedazo.Value = "MiCookie"

Me.Label1.Text = Pedazo.Expires

Response.Cookies.Add(Pedazo)

End If

End Sub

Como veis a esta galleta le hemos añadido 30 segundos a la expiracion de la cookie para que nuestro navegador la tenga en cuenta.

Bueno ahora en el boton
Con el boton lo que haremos es darle otros 30 segundos de expiración,
siempre y cuado no haya caducado

el codigo seria el siguiente:

       Dim Pedazo As HttpCookie = Me.Request.Cookies("MiSesion")
       Pedazo.Expires = DateTime.Now.AddSeconds(30)
       Me.Response.Cookies.Set(Pedazo)

Dim Pedazo As HttpCookie = Me.Request.Cookies("MiSesion")

Pedazo.Expires = DateTime.Now.AddSeconds(30)

Me.Response.Cookies.Set(Pedazo)

Bien ahora nos queda lo siguiente,comprobar que si ha caducado haga algo. para ello utilizatremos el timer, pare ello en el evento tick añadimos el siguiente codigo.

       Dim galleta As HttpCookie = Me.Request.Cookies("MiSesion")
       If galleta Is Nothing Then
           Me.Response.Redirect("http://google.es")
       End If

Dim galleta As HttpCookie = Me.Request.Cookies("MiSesion")

If galleta Is Nothing Then

Me.Response.Redirect("http://google.es")

End If

Si la galleta es nada, hacemos que nos envie a google, por lo cual nos indica que la cookie habra expirado.

Espero que os aporte bastante para crear sesiones con caducidad.

Un Saludo

convertir Byte a String y de String a Byte

07/29/201607/27/2016 por Jose Ortiz fernandez

Funcion para convertir una cadena a array de byte y de array de byte a cadena en C# y VB.net

No acostumbro a subir ejemplos en c# pero me parecio bien hacer esta transformación, la verdad es que es mu facil el ejemplo y no necesita mucha explicación.

En C#:

public static byte[] GetByteSASCII(string Texto) {

ASCIIEncoding GetBytesAscii = new ASCIIEncoding();
byte[] ArrByte;
ArrByte = GetBytesAscii.GetBytes(Texto);
return ArrByte;
}

public static byte[] GetByteSASCII(string Texto) {

ASCIIEncoding GetBytesAscii = new ASCIIEncoding();

byte[] ArrByte;

ArrByte = GetBytesAscii.GetBytes(Texto);

return ArrByte;

}

public static String GetTextoFromByteArray(byte[] ArrayByte) {
ASCIIEncoding RetornoTexto = new ASCIIEncoding();
String ADevolver = RetornoTexto.GetString(ArrayByte);
return ADevolver;
}

public static String GetTextoFromByteArray(byte[] ArrayByte) {

ASCIIEncoding RetornoTexto = new ASCIIEncoding();

String ADevolver = RetornoTexto.GetString(ArrayByte);

return ADevolver;

}

En VB:

Public Function GetBytesFromASCII(ByVal Texto As String) As Byte()
Dim GetBytesAscii As New ASCIIEncoding
Return GetBytesAscii.GetBytes(Texto)
End Function

Public Function GetTextoFromByteArray(ByVal Arraybyte() As Byte) As String
Dim RetornoTexto As New ASCIIEncoding
Return RetornoTexto.GetString(Arraybyte)
End Function

Public Function GetBytesFromASCII(ByVal Texto As String) As Byte()

Dim GetBytesAscii As New ASCIIEncoding

Return GetBytesAscii.GetBytes(Texto)

End Function

Public Function GetTextoFromByteArray(ByVal Arraybyte() As Byte) As String

Dim RetornoTexto As New ASCIIEncoding

Return RetornoTexto.GetString(Arraybyte)

End Function

Espero que les sirva un saludo.

Y suscribete a el canal de souslmakers.

CREAR EVENTOS NUEVOS EN NUESTRA APLICACION

07/29/201607/26/2016 por Jose Ortiz fernandez

Ejemplo de un nuevo evento.

Crea una nueva clase ejemplo “Cliente”.
y añade las siguientes lineas.

Public Class cliente
       Public Event ValorCambiado(ByVal e As Object)
       Private NombreCliente_ As String
       Public Property NombreCliente() As String
           Get
               Return NombreCliente_
           End Get
           Set(ByVal value As String)
               NombreCliente_ = value
               RaiseEvent ValorCambiado(value)
           End Set
       End Property
       Public Sub New()

       End Sub
   End Class

Public Class cliente

Public Event ValorCambiado(ByVal e As Object)

Private NombreCliente_ As String

Public Property NombreCliente() As String

Get

Return NombreCliente_

End Get

Set(ByVal value As String)

NombreCliente_ = value

RaiseEvent ValorCambiado(value)

End Set

End Property

Public Sub New()

End Sub

End Class

Como verás estamos creando un evento cuando se rellena la propiedad nombrecliente, la cual devolvera el valor al cambiar.
una vez creada la clase instanciala de la siguente manera.

 Public WithEvents Miclase As New cliente

1	Public WithEvents Miclase As New cliente

y veras quela instancia tendrá el evento ValorCambiado.
el cual será invocado a traves del RaiseEvent pasando a “e” el valor que esta devuelto.

Miclase.NombreCliente = "PEPITO PEREZ"

1	Miclase.NombreCliente = "PEPITO PEREZ"

Asigna un valor y verás que el evento es invocado

Private Sub Miclase_ValorCambiado(e As Object) Handles Miclase.ValorCambiado
       MsgBox(e.ToString)
End Sub

Private Sub Miclase_ValorCambiado(e As Object) Handles Miclase.ValorCambiado

MsgBox(e.ToString)

End Sub

DATATABLE A XML Y DE XML A DATATABLE

11/14/201907/22/2016 por Jose Ortiz fernandez

Muy buenas a todo, aqui os dejo el codigo de ejemplo de como convertir los datos de un datatable a xml y viceversa.

La forma de acerlo es muy sencilla.

Primero vamos a crear el datatable.

       Dim dt As New DataTable
       dt.Columns.Add("ID")
       Dim dr As DataRow = dt.NewRow
       dr("ID") = 1
       dt.Rows.Add(dr)

Dim dt As New DataTable

dt.Columns.Add("ID")

Dim dr As DataRow = dt.NewRow

dr("ID") = 1

dt.Rows.Add(dr)

Un datatable muy sencillito para no complicarnos XD 🙂
Para recoger los datos del datatable vamos a utilzar DataSet. y lo vamo ha hacer de la siguiente forma

       Dim ds As New DataSet
       ds.Tables.Add(dt)
       Dim stringXML As String = ds.GetXml

Dim ds As New DataSet

ds.Tables.Add(dt)

Dim stringXML As String = ds.GetXml

Lo que nos devolvera el “StringXML” es lo siguiente:

"<NewDataSet>    <Table1>      <ID>1</ID>    </Table1>  </NewDataSet>"

1	"<NewDataSet> <Table1> <ID>1</ID> </Table1> </NewDataSet>"

Aqui lo he puesto lineal pero la estructura es XML
Bien ahora vamos a devolver este XML a un Nuevo Datatable.
Lo haremos de la siguiente manera. Ahora utilizaremos XMLStreamReader y DataSet.

       Dim ds2 As New DataSet
       Dim xmlSR As System.IO.StringReader = New System.IO.StringReader(stringXML)
       ds2.ReadXml(xmlSR)
       Dim dt2 As DataTable = ds2.Tables(0)

Dim ds2 As New DataSet

Dim xmlSR As System.IO.StringReader = New System.IO.StringReader(stringXML)

ds2.ReadXml(xmlSR)

Dim dt2 As DataTable = ds2.Tables(0)

Como veis he creado otro datatable “DT2” y lo hemos rellenado con los datos de la tabla que se ha creado en el dataset. Y con esto hemos concluido.

Espero que os haya servido de ayuda y seguimos adelante.

Quizas te interese como leer y guardar datos en un fichero. Lee el post de StreamReader StreamWriter aqui

Un saludo

Server.Transfer

Step 2 – Transfer Page

Step 3a – POST Results

Step 3b – GET Results

Crear un Form con forma personalizada

Obtener, Saber el color de un pixel

Imagen aBase64 y de Base64 a Imagen

FILTRAR UN DATAGRIDVIEW CON DATAVIEW

ASPX Cookies y Tiempo de expiracion

Funcion para convertir una cadena a array de byte y de array de byte a cadena en C# y VB.net

Ejemplo de un nuevo evento. Crea una nueva clase ejemplo “Cliente”. y añade las siguientes lineas.

Ejemplo de un nuevo evento.

Crea una nueva clase ejemplo “Cliente”.
y añade las siguientes lineas.