salut

voila un programme en vb que j'ai trouvé en net, permettant d'envoyer une image via le port série,

alors je cherche a rendre l'envoie valable pour tous les fichiers, j'ai essayé plusieurs fois mais ca marche pas avec moi !!!

pouvez vous m'aidez svp ??

Code:
Private Sub Form_Load()
MSComm1.CommPort = 1
MSComm1.Settings = "56000,n,8,1"
MSComm1.PortOpen = True
pic = App.Path & "\sample.bmp"
End Sub

Private Sub Command1_Click()

Call Compression.CompressFile(pic, App.Path & "\shoot.jp_", 9)
Dim Datas As String
Datas = ""
Open App.Path & "\shoot.jp_" For Binary Access Read As #1
    Datas = Input(LOF(1), #1)
Close

'envoi le fichier compressé
lng = Len(Datas)

If lng > 499 Then    'si la longueur est suppérieur à 499 octets, on divise par 500
   For rt = 1 To lng Step 500
       ProgressBar1.Value = (Int((rt * 100) / lng))
       DoEvents
       b$ = (Mid(Datas, rt, 500))
       MSComm1.Output = b$
   Next rt
   reste = (lng - ((Int(lng / 500) * 500)))
   b$ = (Right(Datas, reste))
Else      'sinon on l'envoi comme ça
   b$ = (Datas)
End If

MSComm1.Output = b$

qsd = Timer    ' Une petite pause
Do
DoEvents
Loop Until Timer > qsd + 0.5

MSComm1.Output = "Fin"  ' on envoi "Fin"
ProgressBar1.Value = 0
End Sub