Hola ¿Es tu primera visita?
Registro
Mostrando resultados 1 de 2 de un total de 2
  1. #1
    Iniciante
    Fecha de registro:
    12 de septiembre de 2011
    Mensajes:
    5
    Dispositivo móvil:
    IKON
    Sistema operativo:
    Windows Mobile 6.5 o anterior

    Pregunta Como buscar un archivo jpg en smart device

    Saludos a todos,

    Nuevamente solicitando su valiosa ayuda, esta vez con la busqueda de archivos con VB .NET, les planteo mi situacion.

    Estoy desarrollando una aplicacion para un smart device, desde la cual tomo fotografias que almaceno en una carpeta en el dispositivo; la idea es que luego de la jornada laboral, los usuarios puedan descargar estas fotografias en una carpeta externa al dispositivo, digamos en un PC o un servidor. El inconveniente se presenta porque tengo varias fotografias y no encuentro la manera de indicarle a la aplicacion que debe buscarlas y descargarlas todas.

    Este es el codigo que utilizo en la aplicacion (VB .NET) para convertir la imagen a un arreglo de byte y enviarla en un dataset a un web service quien se encarga se guardarlas en la carpeta externa:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


    Dim img As Image = New Bitmap("\My Documents\Fotos\Equipos\prueba.jpg")
    ' Procedimiento donde se realiza la conversion a byte()
    ConvertirImagen(img, arr1)
    ' dataset donde se guarda la imagen, y se envia al WS como parametro

    Dim dt As New DataSet("Imagenes")
    Dim imagen As DataTable = dt.Tables.Add("Imagen")
    Dim dr As DataRow

    With imagen
    .Columns.Add(New DataColumn("array", GetType(Byte())))
    End With

    dr = imagen.NewRow()
    dr("array") = arr1
    imagen.Rows.Add(dr)
    ' INSTANCIO LA CLASE DEL WS PARA ACCEDER AL METODO QUE GUARDA LA IMAGEN
    Dim pruebaFOTO As WS.DatosWS = New WS.DatosWS

    Dim resultado As String = pruebaFOTO.GrabarImagen(dt)
    ' si todo se ejecuta correctamente envia mensaje
    If resultado = "OK" Then
    MessageBox.Show("IMAGEN GRABADA!!!")
    End If

    End Sub

    Y en el WS, hace lo siguiente:

    _
    Public Function GrabarImagen(dt as DataSet) As string
    dim retorno as string
    try

    For Each dr As DataRow In dt.Tables(0).Rows

    dim imagen as image = bytes2image(dr("array"))

    if (imagen isnot nothing) then

    imagen.save("c:\cargaimagen\prueba.jpg")
    retorno = "OK"
    else retorno = "FALLO"

    end if

    next

    Catch ex As Exception
    Throw ex
    End Try

    Return retorno

    End Function

    Espero que se entienda, y que alguien me pueda ayudar.

    Muchas Gracias de Antemano!

  2. #2
    Iniciante
    Fecha de registro:
    12 de septiembre de 2011
    Mensajes:
    5
    Dispositivo móvil:
    IKON
    Sistema operativo:
    Windows Mobile 6.5 o anterior

    Por defecto

    Continuando con mi busqueda encontre lo que necesitaba, aca les dejo el codigo, por si hay alguien que esta en las mismas:

    Dim Files As String(), File As String



    'Leyendo los archivos de la carpeta ‘C:\Musica’

    Files = IO.Directory.GetFiles("C:\Musica", "*.mp3")

    For Each File In Files

    'Lee el nombre del fichero sin su extension y muestra un MsgBox

    MsgBox(IO.Path.GetFileNameWithoutExtension(File))

    My.Application.DoEvents()'Deja al sistema hacer otras cosas

    Next

    FUENTE: http://www.programandoen.net/docs/?y...a-o-directorio

    Saludos!!!!


 

Información del tema

Users Browsing this Thread

Hay actualmente 1 usuarios viendo este tema. (0 usuarios registrados y 1 usuarios sin registrar)

Temas similares que te pueden interesar

  1. Como buscar y borrar un archivo .dll
    Por feliciano en el foro Software Windows Mobile (Todas las marcas)
    Respuestas: 0
    Último mensaje: 23 de octubre de 2006, 17:27
  2. Migrar asp.net a smart device
    Por Barbara en el foro Programación en Windows Mobile
    Respuestas: 0
    Último mensaje: 23 de mayo de 2006, 06:19
  3. Abrir un archivo txt en VB.NET con un proyecto SMART DEVICE
    Por manumite en el foro Programación en Windows Mobile
    Respuestas: 3
    Último mensaje: 05 de octubre de 2004, 01:12
  4. Smart Device Extensions
    Por agustincho en el foro Programación en Windows Mobile
    Respuestas: 14
    Último mensaje: 09 de septiembre de 2004, 17:59
  5. Como puedo buscar con el sofware smart v2?
    Por sony en el foro Software de navegación en carretera y PNA
    Respuestas: 6
    Último mensaje: 05 de junio de 2004, 15:20

Tags para este tema

Comparte este hilo en:

Comparte este hilo en:

Pautas del foro

  • No puedes publicar nuevos temas
  • No puedes publicar respuestas
  • No puedes publicar ficheros adjuntos
  • No puedes editar tus mensajes
  •  
Twitter Facebook You Tube RSS