begin process at 2012 05 24 03:24:56
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Divers

 > METTRE PLUSIEURS IMAGES DANS UN FICHIER

METTRE PLUSIEURS IMAGES DANS UN FICHIER


 Information sur la source

Note :
9,5 / 10 - par 2 personnes
9,50 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Divers Niveau :Débutant Date de création :29/05/2005 Vu / téléchargé :2 398 / 246
Auteur : Kangourou_Nomade

Ecrire un message privé
Site perso
Commentaire sur cette source (4)
Ajouter un commentaire et/ou une note

 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 !  

Source

  • '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
'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


 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources de la même categorie

Source avec Zip EDITION D'ÉTIQUETTES SANS OUTIL EXTERNE par ucfoutu
Source avec Zip Source .NET (Dotnet) APPRENDRE À PRONONCER LES MOTS ANGLAIS par alpha5
Source avec Zip Source .NET (Dotnet) AFFICHAGE DE TEXTE DANS UNE PICTUREBOX par alpha5
Source avec Zip TEXTBOX EN NUMÉRIQUE par 320C
Source avec Zip DÉCIMAL TO HEXDECIMAL par loulou27200
Toutes les sources de la catégorie Divers

Commentaires et avis

Commentaire de darkman2 le 30/05/2005 08:58:56

pou un debut c bien joué
mais c fait pour les débutants
en tt as rien a dire a part une bonne continuation
voila

Commentaire de PaTaTe le 30/05/2005 14:00:42

Bonne source.

Tu devrait toutefois supprimer le répertoire temporaire à a fermeture :)

9/10

Commentaire de Kangourou_Nomade le 30/05/2005 22:35:00

Mais grave Patate, t'a trop raison. Mais dit toi que jen ai trop chié pour ca lol : )!
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 !

Commentaire de PaTaTe le 31/05/2005 00:17:49

essaie cette fonction. Je l'ai trouvé sur ce site (que l'auteur me pardonne, j'ai pas noter son nom) :

Public 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

 Ajouter un commentaire

Nos sponsors


Sondage...

CalendriCode

Mai 2012
LMMJVSD
 123456
78910111213
14151617181920
21222324252627
28293031   

Consulter la suite du CalendriCode

Photothèque

Photo Hand Holding Released ButtterfliesPhoto Monument Valley Utah known as The Mittens
Photo El Capitan View in Yosemite Nation Park 

Visiter la photothèque

A découvrir
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,373 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)