Bug? (copie par writedouble) [Résolu]

[SPH]

Et voila, encore un bug inexplicable. Cette fois ci, c'est avec les readdouble et writedouble. Ce code permet de copier double par double tout un fichier et fini octet par octet. La copie est de la meme taille mais chez moi, il y a dans le fichier un octet qui cloche. Ainsi, cette image :

se copie mal comme ca:

Et chez vous ?

Code : Tout sélectionner

UseJPEGImageDecoder()


file$ = OpenFileRequester("Sélectionnez un fichier","","JPG (.jpg)|*.jpg|All files (*.*)|*.*",0)
  If file$
    If ReadFile(0, file$) 
      len=Lof(0)
      length = Len/8
      Dim p.d(length)
      Dim p2.b(8)
      For i=0 To length-1
        p(i)=ReadDouble(0)
      Next
      For i=1 To Len-length*8
        p2(i)=ReadByte(0)
      Next
      
    EndIf
      CloseFile(0)
  EndIf
  
  
CreateFile(0, "d:/000.jpg")
For i=0 To length-1
  WriteDouble(0,p(i))
Next
For i=1 To Len-length*8
  WriteByte(0,p2(i))  
Next
  CloseFile(0)

[SPH]

Meme bug sous vista.

Je me demande vraiment ce que vous allez m'inventer

[G-Rom]

je comprends pas ton code :

For i=0 To length-1
WriteDouble(0,p(i))
Next
For i=1 To Len-length*8
WriteByte(0,p2(i))
Next


tu écrit un double puis tu réecris des bytes au mêmes endroit...

[SPH]

je comprends pas ton code :

For i=0 To length-1
WriteDouble(0,p(i))
Next
For i=1 To Len-length*8
WriteByte(0,p2(i))
Next


tu écrit un double puis tu réecris des bytes au mêmes endroit...

Un fichier peux contenir un nombre non entier de double. Alors on ecrit tous les double et on complete les octets restants

[SPH]

En "long", ca marche :

Code : Tout sélectionner

UseJPEGImageDecoder()


file$ = OpenFileRequester("Sélectionnez un fichier","","JPG (.jpg)|*.jpg|All files (*.*)|*.*",0)
  If file$
    If ReadFile(0, file$) 
      len=Lof(0)
      length = Len/4
      Dim p.d(length)
      Dim p2.b(8)
      For i=0 To length-1
        p(i)=ReadLong(0)
      Next
      For i=1 To Len-length*4
        p2(i)=ReadByte(0)
      Next
      
    EndIf
      CloseFile(0)
  EndIf
  
  
CreateFile(0, "d:/000.jpg")
For i=0 To length-1
  WriteLong(0,p(i))
Next
For i=1 To Len-length*4
  WriteByte(0,p2(i))  
Next
  CloseFile(0)

[G-Rom]

Un fichier peux contenir un nombre non entier de double. Alors on ecrit tous les double et on complete les octets restants

C'est de la prise de tête, j'ai pas envi de me raclé la soupière ce soir.
Bonne soirée.

[Le Soldat Inconnu]

C'est pas Double qu'il faut prendre, c'est Quad

Code : Tout sélectionner

UseJPEGImageDecoder()

file$ = "5.jpg"
If file$
	If ReadFile(0, file$)
		len = Lof(0)
		length = len / 8
		Dim p.q(length)
		Dim p2.b(8)
		
		For i = 0 To length - 1
			p(i) = ReadQuad(0)
		Next
		
		For i = 1 To len - length * 8
			p2(i) = ReadByte(0)
		Next
		
	EndIf
	CloseFile(0)
EndIf


If CreateFile(0, "6.jpg")
	For i = 0 To length - 1
		WriteQuad(0, p(i))
	Next
	For i = 1 To len - length * 8
		WriteByte(0, p2(i))
	Next
	CloseFile(0)
EndIf

[SPH]

J'avais essayé mais ca ne marchait pas. Et puisque ton code fonctionne, je me suis appercu que la difference etait la :

Code : Tout sélectionner

      Dim p.q(length)

Merci

[Backup]

..............