13/01/2006, 10:30
|
| | | Fecha de Ingreso: marzo-2005 Ubicación: Sevilla
Mensajes: 277
Antigüedad: 20 años, 1 mes Puntos: 2 | |
| problema al enviar imagen
Buenas, estoy realizando un programa para enviar una imagen a un script php. EL problema que tengo es que no se mucho de visual basic. tengo que abrir una imagen en modo binario, almacenar toda la informacion en una variable string.
usaba este codigo:
archivo = FreeFile
Open nombre_archivo For Binary As #archivo
i = 0
Do While i <> EOF(archivo)
Get #archivo, i, pru
resul = resul & pru
Loop
Close archivo
donde resul es la variable string que uso para almacenar todo el codigo binario. pru es una variable integer que uso para almacenar el dato en la posicion i.
supongo que esta mal el metodo para almacenar el codigo binario en una variable pero no he podido encontrar como hacerlo. una ayuda por favor. |