optimisation dans la creation de fichierRésolu

Question

Voila j'ai fais un petit programme qui ouvre une image bitmap,
l'enregistre bit par bit dans un tableau, effectue quelques traitements
et apres cr&#233;&#233; une seconde image bitmap modifi&#233;e.

 Pour creer cette image, je copie l'image initiale et la modifie
bit par bit avec Fileput (vb.NET). Le gros probl&#232;me c'est que sur les
grosse images sa prend &#233;normement de temps.

 J'aimerai savoir si il y a d'autre solution plus rapide afin de
r&#233;aliser la meme chose , comme utilis&#233; qu'un seul Fileput pour le tout,
ou au lieu de copier tout le fichier et le modifier par la suite, cr&#233;er
directement un fichier auquel je mets mes morceaux bout &#224; bout.



En esp&#233;rant avoir &#233;t&#233; clair



merci

ScSami · Accepted Answer

Donc, ton probl&#232;me est en fait diff&#233;rent!!!

Il faut, soit convertir le tableau en string via une fonction (???),
soit directement passer par une string et oublier d'utiliser un tableau
(si c'est possible!!!).



Je pense qu'il doit y avoir une instruction qui fait l'inverse que ce que la fonction "Split" fait!



Sinon, pour Chr(), utilise plut&#244;t CStr()... Je pense que &#231;a irra un peu
plus vite (encore que, c'est &#224; tester!). CStr converti le type de ta
variable en type String (qu'importe le type d'origine donc!).



Tient, d'ailleurs, &#231;a me fait pense que tu pourrais essayer &#231;a pour convertir ton tableau en string :


Dim 
varTxt
 As String

varTxt = CStr(B)


Fileput( Filen(
varTxt)
 , 
varTxt
 , position)



Enjoy  

<hr size="2" width="100%">
(Si une r&#233;ponse vous convient, cliquez sur son bouton "Accepter ...")

ScSami · Answer

Je code en VB6... Donc, en VB7 &#231;a devrait aussi &#234;tre faisable!



Il suffit de modifier ton tableau de bits puis, en effet, d'&#233;crire le
buffer d'un coup d'un seul... A condition, &#233;videmment, que le buffer
ait la taille ad&#233;quate!

Enjoy  

<hr size="2" width="100%">
(Si une r&#233;ponse vous convient, cliquez sur son bouton "Accepter")

misteraoul · Answer

Est ce que tu pourrai pr&#233;ciser le code que t'utilise pour faire sa,
parce que la gestion du buffer je connais pas grand chose, donne en VB6
je me d&#233;brouillerai a trouver l'&#233;quivalent vb.NET



merci

ScSami · Answer

Oul&#224;, c'est beaucoup m'en demand&#233; &#231;a 



Bon, de t&#234;te &#231;a doit ressembler &#224; un truc du genre :



Dim varBuffer



Open "monFichier" For Binary As #1

 Put #1, varBuffer

Close #1



(Nota :  code peut-&#234;tre faux... je suis un peu naze l&#224;... d&#233;sol&#233;!)



Jack serait mieux te r&#233;pondre que moi sur cette question...



Mais je pense qu'il faut utiliser ton "FilePut" mais au lieu de
"FilePuter" chaque bit, tu fileputes tout d'un coup... tu comprends o&#249;
je suis pas clair l&#224; ???

En fait, FilePut doit, je pense, te permettre d'&#233;crire un block d'un
coup et pas seulement bit &#224; bit. Du coup, il suffit de modifier tes
bits dans ta variable (ou taleau ou autre, on s'en fout un peu =>
buffer) puis de balanc&#233; cette derni&#232;re &#224; l'&#233;criture (FilePut)!



Peut gu&#232;re te dire mieux... Sinon, refait un post pour avoir l'avis d'autres membres de CodesSources!



Enjoy  

<hr size="2" width="100%">
(Si une r&#233;ponse vous convient, cliquez sur son bouton "Accepter")

misteraoul · Answer

Oui Fileput peut ecrire tout d'un coup, le probl&#232;me est que mes donn&#233;es sont dans un tableau au format byte, format impossible a concat&#233;ner. De plus la commande fileput demande des donn&#233;es en format texte et convertis lui meme en binaire avant d'ecrire dnas le fichier. La seule solution que j'ai trouv&#233;e pour faire tout sa c'est dans ma boucle qui balaye bit par bit :

Fileput( Filenb , Chr(B(position)) , position)

B( ) &#233;tant mon tableau de valeur
P.S: de plus l'instruction Chr( ) est assez lente en elle meme

Merci pour tout se que t'as pus me r&#233;pondre ScSami

misteraoul · Answer

MERVEILLEUX

la fonction CStr n'accepte pas les tableaux de type byte mais avec la fonction inverse de split : join (gentilment donn&#233; dans l'aide vb.NET) l'&#233;criture est quasimment instantann&#233;e c'est formidable.


FilePut( filenb ,  Join(BB, "") ,  1 )

Et voila, tout est r&#233;&#233;cris d'un seul coup (j'ai du convertir quand meme BB en string pour le join( )  )

Merci beaucoup ScSami

Peut etre a une prochaine fois

Optimisation dans la creation de fichier

6 réponses

Discussions similaires