problema al enviar imagen

[Manu_Leon]

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.

[David]

Iniciado por Manu_Leon

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.

No está mal (según mi escaso entendimiento, al menos yo lo hago con un String), pero podrías simplificarlo Así:

Código:

 
Dim Archivo As String
Open "C:\Imagen.jpg" For Binary As #1
Archivo = Input(LOF(1), 1)
Close