[HELP]leer y escribir imagenes

[shiryou]

Hola a todos! peaaso de foro que teneis aqui montado, me esta siendo la lexe de util para montar una aplicacioncita....pero weno...tengo un problemilla.

Mi jefe me ha pedido que le haga 1 ActiveX con 2 funciones, leer y escribir.

Las 2 reciben como parametro el path a una imagen determinada, pongamos c:/tmp.jpg, y lo que tengo que hacer con ellas es simplemenete eso; lee, tiene que leer la imagen y dejarla en una variable en memoria; y escribir, tiene que coger una imagen que tengo en una variable en memoria, y escribirla en el disco duro. La tecnica que estoy siguiendo para el lee es un

dim variable as byte
open path for binary as #1
    input #1, variable
close #1

y para el escribir igual pero en vez de input un write...el caso es que no me funciona y no tengo ni idea de por que....alguna ayuda??
gracias de antemano!

[{_The_Alwar_}]

Para guardar utiliza savepicture Imagen, Ruta-donde-guardar-imagen

[dexer]

o tb siguiendo como kerias hazer cambiando esto

Para leer
dim variable as string
open path for binary access read as #1
    variable = space(lof(1))
    get #1,,variable
close #1

Para escribir
open path for binary access write as #2
   put #2,,variable
close #2.

Otra forma si lo que quieres es copiarlo
FileCopy Origen,Destino.

Saludos.