Il codice che uso per la lettura del file è:
Quando faccio msgbox (Data) mi esce solo BMv›codice:Dim DATA As String Dim fileTemp As New FileInfo("C:\prova.bmp") Dim fsTemp As FileStream = fileTemp.OpenRead() Dim i As Integer Dim nBytes As Integer = 23 'numero dei byte da leggere, Dim ByteArrayTemp(nBytes) As Byte 'array che contiene i byte letti Dim nBytesReadTemp As Integer = fsTemp.Read(ByteArrayTemp, 0, nBytes) 'effettuo la lettura del file ed inserisco i byte letti nell'array For i = 0 To 23 DATA &= Chr(ByteArrayTemp(i)) Next MsgBox(DATA)
![]()
![]()
![]()
:master: :master:
![]()
![]()
![]()
![]()

Rispondi quotando