SoloCodigo

CLR: .Net / Mono / Boo / Otros CLR => VB .NET => Mensaje iniciado por: eve_21 en Lunes 14 de Junio de 2010, 22:14

Título: copiar imagen a ruta nueva
Publicado por: eve_21 en Lunes 14 de Junio de 2010, 22:14

Hola a todos estoy realizando un mantenedor en vb.net en donde en uno de los campos necesito cargar una imagen.
yo guardo la ruta de la imagen en una columna y hasta ahi todo bien.
ahora lo que yo necesito hacer es que cuando un usuario necesita insertar un registro nuevo debe seleccionar la imagen que desea y guardarla.
Mi problema es el siguiente:
yo cargo la imagen y la muestro en un picturebox.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 OpenFileDialog1.ShowDialog()
        Dim miruta As String = OpenFileDialog1.FileName
        PictureBox2.Image = Bitmap.FromFile(miruta)
end sub

lo que yo necesito ahora es asignarle una ruta en donde guardar esta imagen, ya que yo guardo todas las imagenes en una carpeta compartida en un servidor para que todos los usuarios accedan a ellas.
me gustaria saber como se hace esto ya que he buscado y ningun ejemplo que resulta.
de antemano muchas gracias.

Título: Re: copiar imagen a ruta nueva
Publicado por: gerloxxx en Martes 15 de Junio de 2010, 02:24

hola no se si entendi bien tu problema, si necesitas guardar la imagen mostrada por el picturebox en una carpeta compartida, basta con usar el metodo save de la imagen:

Código: C#

1.  
2. pictureBox1.Image.Save(@"\servidorrecurso_compartidonombreimagen.ext");
3.  
4.  

Título: Re: copiar imagen a ruta nueva
Publicado por: eve_21 en Martes 15 de Junio de 2010, 04:32

Muchas gracias por responder, ya encontre una solucion que se parece bastante a la tuya:

primero cargo la imagen que quiero y la mostrar en un picturebox.
dim ruta_origen as string
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        OpenFileDialog1.ShowDialog()
        ruta_origen = OpenFileDialog1.FileName
        PictureBox1.Image = Bitmap.FromFile(mi_ruta)
    End Sub

despues guardo la imagen con la funcion  System.IO.File.Copy
 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Try
dim ruta_destino as string
 ruta_destino = ("\SERVIDORc$carpetaimagen.jpg")
            System.IO.File.Copy(ruta_origen, ruta_destino, False)'se pone false para no sobrescribir una ruta con el mismo nombre, de lo contrario se pone true
            MsgBox("Foto cargada correctamente")
        Catch ex As Exception
            MsgBox("El nombre del archivo ya existe, cambielo por otro")
        End Try
 End Sub

y eso es todo :)