images en binary

Réponse acceptée !
Bonjour,

Juste 1 idée en passant, (je n'ai pas vérifié) mais il me semble que copier du binary dans 1 variable string, il y a des risques ! Essaies plutôt de passer par 1 tableau d'octets, ça sera + long mais je pense que ça marche sûrement mieux.

Réponse acceptée !
Salut,

Dans ce cas particulier, un CopyFile (API Win32) ou un FileCopy seraient plus approprié pour faire une copie de fichier.

Sinon voici un code avec un tableau d'octet :

Private Sub Command1_Click()
Dim nFile As Long
Dim AnData() As Byte

ReDim AnData(1 To FileLen("image.bmp"))

nFile = FreeFile
Open "image.bmp" For Binary Access Read As #nFile
Get #nFile, , AnData
Close #nFile

nFile = FreeFile
Open "image2.bmp" For Binary Access Write As #nFile
Put #nFile, , AnData
Close #nFile

End Sub

Réponse acceptée !
Salut,
t'as oublié de donner la taille de variable




    Dim variable As String
   
    Open App.Path & "\image1.bmp" For Binary Access Read As #1
    variable = Space$(LOF(1))
    Get #1, , variable
    Close #1
   
    Open App.Path & "\image2.bmp" For Binary Access Write As #2
    Put #2, , variable
    Close #2


Daniel