[Risolto] Salvare Byte[] su file?

[El Berto]

Ho una variabile RxData As Byte[4] e vorrei salvarla in un file, in modo da aprirlo in seguito e trovarmi il contenuto in un altro array del tipo FileData As Byte[xy].

Se non ho capito male dovrei dapprima convertire Byte[] in uno stream, poi salvare lo stream in un file; solo che in rete c'è tanta documentazione ma nessun esempio, ci sto uscendo pazzo!

Allora, partendo da RxData, come utilizzo la funzione Byte[].Write()?
Come gli indico che l'array di partenza è RxData?
Poi posso salvare lo stream normalmente come nell'esempio?


  

Codice: [Seleziona]

DIM binaryFile AS File
  binaryFile = OPEN "usr.home/test.hex" FOR CREATE
  WRITE #binaryFile, Stream
  CLOSE #binaryFile

[vuott]

Io farei così.

Se il vettore ha un numero fisso di elementi:

Codice: gambas [Seleziona]

Private RxData[4] As Byte

Public Sub Button1_Click() 

Dim binaryFile As File
Dim j As Integer

  binaryFile = Open User.Home & "/miofile" For Create
  
  For j = 0 To 3
 ' come esempio inserisco il valore di j nel mio file:
    RxData[j] = j
  
    Write #binaryFile, RxData[j] As Byte   ' se non scrivo "As Byte" lo interpreta come stringa, e in questo caso dà errore
  Next

  Close #binaryFile
  
End

Se il vettore non ha un numero fisso di elementi:

Codice: gambas [Seleziona]

Private RxData As New Byte[]


Public Sub Button1_Click() 

 Dim j As Integer
 Dim binaryFile As File
  
  For j = 0 To 3
 ' come esempio inserisco il valore di j nella variabile[]:
      RxData.add(j)
    Next

End


Public Sub Button2_Click()

Dim j As Integer

binaryFile = Open User.Home & "/miofile" For Create

 For j = 0 To 3
   Write #binaryFile, RxData[j] As Byte
  Next

  Close #binaryFile

End

Ma posso utilizzare anche il metodo Write() della variabile vettoriale:

Codice: gambas [Seleziona]

Private RxData As New Byte[]


Public Sub Button1_Click() 

Dim j As Integer
  
  For j = 0 To 3
 ' come esempio inserisco il valore di j nella variabile[]:
      RxData.add(j)
    Next

End


Public Sub Button2_Click()

   Dim binaryFile As File

   binaryFile = Open User.Home & "/miofile" For Create

   RxData.Write(binaryFile, 0, RxData.Count)

   binaryFile.Close

End
   

In tutti e tre i casi nel file generato ho il seguente risultato:
00 01 02 03

[El Berto]

Grazie!
Allora, infatti nel primo codice mi mette errore se lascio As Byte, ho appunto provato a togliere (come nel secondo caso) e in effetti riesco ad aprire il file con un hex editor!
Adesso mi tocca cercare come leggerlo..... 

[El Berto]

Ma che bella sorpresa!!!!!

Gambas lavora in LITTLE ENDIAN!!!!

Ma porca.....

Tratto da "A Beginner's guide to Gambas":

OPEN File name FOR [ READ ] [ WRITE ] [ CREATE | APPEND ] [ DIRECT ]
[ WATCH ] [ BIG | LITTLE ] AS # Variable

Solo che se provo così, mi dice che c'è un FOR "inaspettato", quindi suppongo non sia una sintassi corrette (o meglio, di qualche vecchia versione).

Tuttavia non riesco a trovare traccia di funzioni di conversione BIG-LITTLE endian.....

[El Berto]

Risolto, ho trovato per caso il campo "ByteOrder" di un file...

[vuott]

Allora, infatti nel primo codice mi mette errore se lascio As Byte, ho appunto provato a togliere (come nel secondo caso) e in effetti riesco ad aprire il file con un hex editor!

Scusami, ma tu hai Gambas-2 o Gambas-3 ?

[El Berto]

Penso sia 2....

[vuott]

Penso sia 2....

Credo di sì, se ti ha dato errore con "As Byte" (come avevo scritto io). Questa è una variazione propria di Gambas-3...

e va be', l'importante è che hai risolto.....

...a proposito, metti [Risolto] nell'intestazione del tuo primo messaggio di questa discussione.... se no Ceskho   ti fulmina  !