Visual Basic - Esto se puede hacer??

Life is soft - evento anual de software empresarial
 
Vista:

Esto se puede hacer??

Publicado por Santiago Leyendeker (23 intervenciones) el 24/09/2003 09:16:17
hola, lo que yo quiero hacer es cargar unas fotos en una matriz tipo picture y despues guardarla en archivo para no necesitar mas lo .jpg !
no se si me explico, aca va el programita que hice para generar estos archivitos, pero me tira error !! esto se puede hacer

Private Sub Form_Load()
Dim X(15) As Picture

Set X(0) = LoadPicture("c:\fotos\Blanco.jpg")
Set X(1) = LoadPicture("c:\fotos\Beso_2_1.jpg")
Set X(2) = LoadPicture("c:\fotos\Beso_3_1.jpg")
Set X(3) = LoadPicture("c:\fotos\Beso_4_1.jpg")
Set X(4) = LoadPicture("c:\fotos\Beso_1_2.jpg")
Set X(5) = LoadPicture("c:\fotos\Beso_2_2.jpg")
Set X(6) = LoadPicture("c:\fotos\Beso_3_2.jpg")
Set X(7) = LoadPicture("c:\fotos\Beso_4_2.jpg")
Set X(8) = LoadPicture("c:\fotos\Beso_1_3.jpg")
Set X(9) = LoadPicture("c:\fotos\Beso_2_3.jpg")
Set X(10) = LoadPicture("c:\fotos\Beso_3_3.jpg")
Set X(11) = LoadPicture("c:\fotos\Beso_4_3.jpg")
Set X(12) = LoadPicture("c:\fotos\Beso_1_4.jpg")
Set X(13) = LoadPicture("c:\fotos\Beso_2_4.jpg")
Set X(14) = LoadPicture("c:\fotos\Beso_3_4.jpg")
Set X(15) = LoadPicture("c:\fotos\Beso_4_4.jpg")

FileNum = FreeFile

Open "C:\Beso.Pic" For Input As FileNum

For n = 0 To 15
Print #FileNum, X(n)
Next n

Close #FileNum

End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Esto se puede hacer??

Publicado por Cecilia Colalongo (3117 intervenciones) el 24/09/2003 11:59:32
Se puede hacer pero tendrías que crear un Type para guardar ese tipo de archivo, por ejemplo:

Public Type FormatoPic
Indice As Integer
Imagen As Byte()
End Type

Y luego cargar el vector con ese tipo y guardarlo con Put, en http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbenlr98/html/vastmputx.asp tienes un ejemplo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

No entendi

Publicado por Santiago Leyendeker (23 intervenciones) el 24/09/2003 19:42:40
Mira estuve probando pero no me sale! no podes pasarme bien bien como seria con el ejemplo que yo puse en la pregunta. Dado que me tira todo tipo de errores !!

GRACIASSSSSS
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:No entendi

Publicado por Alcatelo (3 intervenciones) el 24/09/2003 20:49:59
Hola amigo, si alguna vez te pasan eso dilo en el foro, por que yo tambien quiero hacerlo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Alguien LEA PLISS ***"MANEJO DE ARCHIVOS DE FOTOS

Publicado por Santiago Leyendeker (23 intervenciones) el 24/09/2003 23:55:56
Por favor el que sepa que ponga un ejemplo concreto !!

El problema es este.... tengo muchos .jpg y quiero no necesitar los jpg en mi programa, por lo tanto mi idea es ponerlos todos en una archivo onda FOTOS.DAT (vean la pregunta inicial que esta el programa)

Private Sub Form_Load()
Dim X(3) As Picture
Set X(1) = LoadPicture("c:\fotos\Beso_2_1.jpg")
Set X(2) = LoadPicture("c:\fotos\Beso_3_1.jpg")
Set X(3) = LoadPicture("c:\fotos\Beso_4_1.jpg")

FileNum = FreeFile

Open "C:\FOTOS.DAT" For Input As FileNum

For n = 1 To 3
Print #FileNum, X(n)
Next n

Close #FileNum

End Sub

Alguien dijo que use un registro, pero para esto tengo que definir el tamaño de los mismos para poder guardarlos como Random y no se cuanto puede ocupar una foto de esta forma !!

Aparte cuando le pongo el tipo de variable Byte me dice que la sobrepaso !!

Por favor que alguien de una Caso en concreto !! un ejemplo con este mismo que yo mande, pero que ande !! PLISSSS

Gracias de antemano....
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar