Discussion :

[thetom]

Bonjour,

j'aimerais savoir comment sauvegarder plusieurs images dans un seul et même fichier.

EX : J'ai 4 picturebox, le code leur attribur chacune une image différente, j'aimerai pouvoir sauvegarder les image dans un fichier pour pouvoir les réutilisés

(pas le chemin vers l'image, l'image elle même)

Est-ce possible ?

Merci d'avance

[DarkVader]

Bonjour,
Tout dépend du but recherché et de la complexité à mettre en œuvre :
pour les solutions conventionnelles, il y a les métafichiers (voir le récent post de delbeke sur le sujet)
ou plus accessoirement le gif (un gif animé est une collection d'images).
Plus simplement, si tu gères le stockage et la récupération de données,
il suffit de créer toi-même un fichier unique des différentes données -
par exemple, sur une première ligne, définir une entête des différentes positions des données dans le fichier
et ensuite ajouter les données image à la suite les unes des autres.

[thetom]

J'ai essayer ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Type Imgs
    img1 As Image
    img2 As Image
End Type
Dim Imgs As Imgs
 
Private Sub Command1_Click()
    Imgs.img1 = Picture1.Picture
    Imgs.img2 = Picture2.Picture
    Dim f As Long, file As String
    file = App.Path & "\imgs.dat"
    f = FreeFile
 
    Open file For Binary As #f
        Put #f, , Imgs
    Close #f
End Sub

Mais ça marche pas :

[thetom]

up s'il vous plait j'ai vraiment besoin de ce script

[SfJ5Rpw8]

up s'il vous plait j'ai vraiment besoin de ce script

et tu est sur d'avoir essayé de suivre la procédure indiquée par DarVader ? avec ton code ?

[thetom]

Je crois que oui :

pour les solutions conventionnelles, il y a les métafichiers (voir le récent post de delbeke sur le sujet)

Je ne comprend rien de ce script

ou plus accessoirement le gif (un gif animé est une collection d'images).

Ce n'est pas ce que je recherche

Plus simplement, si tu gères le stockage et la récupération de données,
il suffit de créer toi-même un fichier unique des différentes données -
par exemple, sur une première ligne, définir une entête des différentes positions des données dans le fichier
et ensuite ajouter les données image à la suite les unes des autres.

j'ai essayer de créer un type de fichier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Type Imgs
    img1 As Image
    img2 As Image
End Type

et de le sauvegarder

Imgs.img1 = Picture1.Picture
Imgs.img2 = Picture2.Picture
Dim f As Long, file As String
file = App.Path & "\imgs.dat"
f = FreeFile

Open file For Binary As #f
Put #f, , Imgs
Close #f

Ce n'est peut être absolument pas ça mais je ne suis qu'un débutant (et qui ne comprend pas tout )

[DarkVader]

.../...
Ce n'est peut être absolument pas ça mais je ne suis qu'un débutant (et qui ne comprend pas tout )

Dans ce cas il y a des tutoriels sur le site pour t'aider.

Remarque :

j'ai essayer de créer un type de fichier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Type Imgs
    img1 As Image
    img2 As Image
End Type

et de le sauvegarder

Cela ne correspond pas aux données binaires des images comme je l'ai précédemment indiqué mais aux objects correspondants ;
si tu avais écrit une classe MaGrandMere, il ne te viendrait pas à l'idée de chercher à faire une sauvegarde directe de l'object MaGrandMère, non ?
Quelque soit l'object à sauvegarder il importe auparavant de sérialiser les données le définissant.

[SfJ5Rpw8]

....
Ce n'est peut être absolument pas ça mais je ne suis qu'un débutant (et qui ne comprend pas tout )

Alors pour simplifier plutôt que tout mettre dans le même fichier tu pourrai mettre plusieurs fichiers dans un dossier par exemple ... ainsi un simple SavePicture te permet d'effectuer ta sauvegarde...