muy buenas,estoy haciendo un proyecto,y me gustaria saber,como se guardan los datos de un archivo .res en el disco duro.
bueno,lo que tengo es un front con un picturebox,para hacer las pruebas.y un modulo.
lo que ago es intentar agregar como recurso una carpeta con 3 imajenes jpg,al no poder meterlo con carpeta,las meti una a una,quedaria algo asin.
imagen1 ->(101, "CUSTOM")
imagen2 ->(102, "CUSTOM")
imagen3 ->(103, "CUSTOM")
lo 1º alcompilar el av me dice que tiene virus,solo cuando le meto las fotos como recurso.
lo 2º es que no se como estraer las 3 fotos que estan como recurso y guardarla en c:\prueba\imagen1.jpg.
bamos lo + importante es la 2º.si le pongo asin:
imagen1 = LoadResData(101, "CUSTOM")
lo que ago es cargar la 1º foto en la variable imagen1,intento cojer los datos de imagen1 en binario con get y luego con put le agrego los datos,pero la foto no se ve.
se crea el archivo con contenido pero la foto no se muestra y me salta error.
que podria hacer para extraer las 3 fotos al disco duro?
y ya que estamos,para no abri pos cada x tiempo,aparte de las fotos,si meto un exe o bat o txt y eso como puedo extraerlo al disco duro?
un salu2 y mil gracias
una forma es algo asi:
Dim vDatos As String
vDatos = StrConv(LoadResData(101, "CUSTOM"), vbUnicode)
Open "C:\Imagen.jpg" For Binary As #1
Put #1, , vDatos
Close
Picture1.Picture = LoadPicture("C:\Imagen.jpg")
Kill "C:\Imagen.jpg"
Saludos.
ok gracias seba123neo,lo unico que me faltaba era esto:
StrConv y esto vbUnicode
aun no se si servira,pero para que esas instrucciones? o el por que?
por lo que entiendo,las string las convierte,luego carga los datos de la foto que son los que se ban a convertir,y lo pasas a unicode no?
y si es asin,como se cuando he de hacer eso?
un salu2 y gracias de nuevo,voy a provar.
ok me bino de lujo,ahora solo necesito saber la pregunta anterior,StrConv y esto vbUnicode.
un salu2