Differenze tra le versioni di "Sapere l'ordine dei byte utilizzato dal sistema per salvare i dati"

Da Gambas-it.org - Wikipedia.
(Creata pagina con 'Per sapere se il proprio sistema adotta la modalità ''Big-Endian'' o la modalità ''Little-Endian'' per salvare i dati in un file, è possibile utilizzare almeno due modi: ...')
 
 
(6 versioni intermedie di uno stesso utente non sono mostrate)
Riga 1: Riga 1:
 
Per sapere se il proprio sistema adotta la modalità ''Big-Endian'' o la modalità ''Little-Endian'' per salvare i dati in un file, è possibile utilizzare almeno due modi:
 
Per sapere se il proprio sistema adotta la modalità ''Big-Endian'' o la modalità ''Little-Endian'' per salvare i dati in un file, è possibile utilizzare almeno due modi:
−
 
  
 
===Uso della proprietà ''System.ByteOrder''===
 
===Uso della proprietà ''System.ByteOrder''===
−
Gambas mette a disposizione la specifica proprietà ''.ByteOrder'' della Classe ''System'' per conoscere l'ordine dei byte.
+
Gambas mette a disposizione la specifica Proprietà ".ByteOrder" della Classe ''System'' per conoscere l'[https://it.wikipedia.org/wiki/Ordine_dei_byte ordine dei byte].
  
 
Esempio:
 
Esempio:
 
  '''Public''' Sub Main()
 
  '''Public''' Sub Main()
 
   
 
   
−
  If System.ByteOrder = 0 then
+
  If System.ByteOrder == gb.LittleEndian then
−
      Print "Lettura Little-Endian"
+
    Print "Lettura Little-Endian"
−
  Else
+
  Else
−
      Print "Lettura Big-Endian"
+
    Print "Lettura Big-Endian"
−
  Endif
+
  Endif
 
   
 
   
 
  '''End'''
 
  '''End'''
  
  
−
===Leggendo da un flusso di dati===
+
===Usando un Puntatore a una variabile di tipo Short===
−
Quest'altro modo prevede che si scriva in un flusso di dati (''File'' o ''Stream'') il valore 1 contenuto in una variabile di tipo ''Short'', e che pertanto in esadecimale è rappresentato da due byte: ''00 01''. Da detto flusso di dati si leggerà, quindi, il primo byte salvato.
+
Quest'altro modo prevede che si ottenga un ''Puntatore'' da una variabile di tipo ''Short'', che sia stata inizializzata con il valore numerico '''1'''.
 +
<BR>Va ricordato che tale valore di tipo ''Short'' è rappresentato in esadecimale da due byte: ''00 01''.
 +
<BR>Si provvederà a dereferenziare il predetto ''Puntatore'' con l'apposita funzione "Byte@()", al fine di leggere soltanto il primo byte-dato del valore numerico "1", come immagazzinato in memoria.
 
<BR>Se il valore restituito è uguale a zero, allora l'ordine dei byte in cui vengono salvati i dati, sarà del tipo ''Big-Endian''; se il valore è uguale a 1 allora l'ordine dei byte sarà di tipo ''Little-Endian''.
 
<BR>Se il valore restituito è uguale a zero, allora l'ordine dei byte in cui vengono salvati i dati, sarà del tipo ''Big-Endian''; se il valore è uguale a 1 allora l'ordine dei byte sarà di tipo ''Little-Endian''.
  
Riga 24: Riga 25:
 
  '''Public''' Sub Main()
 
  '''Public''' Sub Main()
 
   
 
   
 +
  Dim c As Short = '''1'''
 
   Dim p As Pointer
 
   Dim p As Pointer
−
  Dim sh As Short = 1
+
−
  Dim st As Stream
+
   p = VarPtr(c)
−
  Dim b As Byte
+
−
    
+
   If Byte@(p) == 1 Then
−
    p = VarPtr(sh)
+
    Print "Lettura Little-Endian"
−
    st = Memory p For Read
+
  Else
−
    Read #st, b
+
    Print "Lettura Big-Endian"
−
    
+
  Endif
−
    If b = 1 Then
 
−
      Print "Lettura Little-Endian"
 
−
    Else
 
−
      Print "Lettura Big-Endian"
 
−
    Endif
 
−
   
 
−
    st.Close
 
 
   
 
   
 
  '''End'''
 
  '''End'''

Versione attuale delle 13:58, 21 set 2022

Per sapere se il proprio sistema adotta la modalità Big-Endian o la modalità Little-Endian per salvare i dati in un file, è possibile utilizzare almeno due modi:

Uso della proprietà System.ByteOrder

Gambas mette a disposizione la specifica Proprietà ".ByteOrder" della Classe System per conoscere l'ordine dei byte.

Esempio: 

Public Sub Main()

 If System.ByteOrder == gb.LittleEndian then
   Print "Lettura Little-Endian"
 Else
   Print "Lettura Big-Endian"
 Endif

End


Usando un Puntatore a una variabile di tipo Short

Quest'altro modo prevede che si ottenga un Puntatore da una variabile di tipo Short, che sia stata inizializzata con il valore numerico 1.
Va ricordato che tale valore di tipo Short è rappresentato in esadecimale da due byte: 00 01.
Si provvederà a dereferenziare il predetto Puntatore con l'apposita funzione "Byte@()", al fine di leggere soltanto il primo byte-dato del valore numerico "1", come immagazzinato in memoria.
Se il valore restituito è uguale a zero, allora l'ordine dei byte in cui vengono salvati i dati, sarà del tipo Big-Endian; se il valore è uguale a 1 allora l'ordine dei byte sarà di tipo Little-Endian.

Un possibile codice è il seguente: 

Public Sub Main()

 Dim c As Short = 1
 Dim p As Pointer

 p = VarPtr(c)

 If Byte@(p) == 1 Then
   Print "Lettura Little-Endian"
 Else
   Print "Lettura Big-Endian"
 Endif

End
Estratto da "https://www.gambas-it.org/wiki/index.php?title=Sapere_l%27ordine_dei_byte_utilizzato_dal_sistema_per_salvare_i_dati&oldid=32097"