Mettre plusieurs images dans un fichier
Soyez le premier à donner votre avis sur cette source.
Vue 3 243 fois - Téléchargée 301 fois
Description
bon voila ma premiere source. Ca casse pas des briques mais j'ai pensé que pour les débutants ca pouvait donner des idées. Le format des fichiers est le GRH : c'est un format propriétaire (inventé). Rien n'empeche de mettre d'autres types de fichiers. En fait, le vrai bins c'est que je charge un buffer dans lequel s'accumule chaque fichier : je sais c'est un peu minable, ca veut dire qu'il faut autant de RAM que de taille totale de fichiers.
Mais soyers indulgents SVP !
Mais soyers indulgents SVP !
Source / Exemple :
'Format du GRH 1 'Liste en octets '********* I - Version : 4 octets '1 : 'G' '2 : 'R' '3 : 'H' '4 : 1 '********* II - Entête Général '1 : Taille du nom = nName (1 à 255) '2 à nName+1 : Nom (GRHName) 'nName+2 à nName+3 : Nombre de Fichiers images (1 à 65535)(nbDetach) '******** III - Entête par fichier '1 à 2 : Octets réservés à 0 '3 à 6 : Taille du fichier = LongFi '7 : Taille du nom de fichier sans extension = nNamef '8 à nNamef+7 : Nom de fichier sans extension (SimpleName) 'nNamef+7 : Taille de l'extension = nExtf 'nNamef+8 à nNamef+nExt+7 : Extension (SimpleType) '******* IV - De 1 à LongFi : Copie du fichier
Codes Sources
A voir également
- Mettre plusieurs images dans un fichier
- Visual Basic / VB.NET : Craps - le jeu (gestion image, fichier, drag and drop...) - CodeS SourceS - Guide
- Système de pagination avec bdd et images (fichiers) - Codes sources - PHP (Base de données)
- Visual Basic / VB.NET : Extraire des images d'un fichier .frx - CodeS SourceS - Guide
- Creation et utilisation de fichier de ressources (integrer des images ou autres fichier dans un exec - Codes sources - Visual Basic / VB.NET (Tutoriels)
- Comment stocker +ieurs images (avec leur nom) dans un fichier - Codes sources - Visual Basic / VB.NET (Graphique)
- Messages postés
-
2107
- Date d'inscription
- mercredi 21 août 2002
- Statut
- Contributeur
- Dernière intervention
- 19 février 2021
2Public Function SupprimeRépertoire(Répertoire As String) As Boolean
On Error GoTo Erreur
Dim SousRépertoireOuFichier As String
Dim Val As String
SousRépertoireOuFichier = Dir(Répertoire, vbDirectory + vbHidden + vbSystem + vbArchive)
Do While SousRépertoireOuFichier <> ""
If SousRépertoireOuFichier <> "." And SousRépertoireOuFichier <> ".." Then
If (GetAttr(Répertoire & SousRépertoireOuFichier) And vbDirectory) = vbDirectory Then
SupprimeRépertoire (Répertoire & SousRépertoireOuFichier & "")
Else
Val = Répertoire & SousRépertoireOuFichier
SetAttr Val, vbReadOnly = 0
Kill (Répertoire & SousRépertoireOuFichier)
End If
End If
SousRépertoireOuFichier = Dir(Répertoire, vbDirectory + vbHidden + vbSystem + vbArchive)
SousRépertoireOuFichier = Dir
SousRépertoireOuFichier = Dir
Loop
If ((Right(Répertoire, 2)) <> ":") Then
SetAttr Répertoire, vbReadOnly = 0
RmDir Répertoire
End If
SupprimeRépertoire = True
Exit Function
Erreur:
SupprimeRépertoire = False
End Function
Je lé fait de deux facon : l'une en faisant RmDir, l'autre en pointant un a un les fichiers et les supprimant avec Kill.
Mais dans les deux cas il voulait po en disant que le path existait pas.
C'est balo : si ta reussi à modifier et que ca marche en faisant qu'un dossier TMP : te gene pas, ca me sauverai la vie. En effet cette source est un sous ensemble d'un plus gros projet. Donc pour l'instant c'est un peu mon épine dans le pied pour avancer.
Merci en tout cas les gars, ca motive !
- Messages postés
-
2107
- Date d'inscription
- mercredi 21 août 2002
- Statut
- Contributeur
- Dernière intervention
- 19 février 2021
2Tu devrait toutefois supprimer le répertoire temporaire à a fermeture :)
9/10
mais c fait pour les débutants
en tt as rien a dire a part une bonne continuation
voila
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.