Convertire un codice Unicode in carattere UTF-8 con la funzione g unichar to utf8() della libreria libglib-2.0: differenze tra le versioni

Da Gambas-it.org - Wikipedia.
Vai alla navigazione Vai alla ricerca
(Creata pagina con "La funzione esterna ''g_unichar_to_utf8( )'' della libreria libglib-2.0 converte il codice Unicode in un carattere UTF-8. E' necessario richiamare in Gambas la libreria dina...")
 
Nessun oggetto della modifica
Riga 1: Riga 1:
La funzione esterna ''g_unichar_to_utf8( )'' della libreria libglib-2.0 converte il codice Unicode in un carattere  UTF-8.
La funzione esterna ''g_unichar_to_utf8( )'' della libreria libglib-2.0 converte il codice Unicode in un carattere  UTF-8.


E' necessario richiamare in Gambas la libreria dinamica condivisa: "''libglib-2.0.so''"
E' necessario richiamare in Gambas la libreria condivisa: "''libglib-2.0.so.0.6400.6'' ".




Mostriamo un esempio pratico:
Mostriamo un esempio pratico:
  Library "libglib-2.0"
  Library "libglib-2.0:0.6400.6"
   
   
  <FONT Color=gray>' ''gint g_unichar_to_utf8 (gunichar c, gchar *outbuf)''
  <FONT Color=gray>' ''gint g_unichar_to_utf8 (gunichar c, gchar *outbuf)''
Riga 16: Riga 16:
   Dim unicode, lun As Integer
   Dim unicode, lun As Integer
   Dim p As Pointer
   Dim p As Pointer
<FONT Color=gray>' ''Impostiamo il codice Unicode da convertire in UTF-8:''</font>
  unicode = &01D4
 
  p = Alloc(SizeOf(gb.Integer), 1)
 
  lun = g_unichar_to_utf8(unicode, p)
    
    
<FONT Color=gray>' ''Impostiamo il codice Unicode da convertire in UTF-8:''</font>
  Print "Unicode "; unicode; " =  "; Left(String@(p), lun)
  unicode = &01D4
 
 
<FONT Color=gray>' ''Dealloca l'area precedentemente riservata e si assicura che il Puntatore punti a un indirizzo non rilevante:''</font>
  p = Alloc(SizeOf(gb.Integer), 1)
  Free(p)
 
  p = 0
  lun = g_unichar_to_utf8(unicode, p)
 
  Print "Unicode "; unicode; " =  "; Left(String@(p), lun)
 
  Free(p)
    
    
  '''End'''
  '''End'''





Versione delle 17:41, 9 dic 2021

La funzione esterna g_unichar_to_utf8( ) della libreria libglib-2.0 converte il codice Unicode in un carattere UTF-8.

E' necessario richiamare in Gambas la libreria condivisa: "libglib-2.0.so.0.6400.6 ".


Mostriamo un esempio pratico:

Library "libglib-2.0:0.6400.6"

' gint g_unichar_to_utf8 (gunichar c, gchar *outbuf)
' Converts a single character to UTF-8.
Private Extern g_unichar_to_utf8(c As Integer, outbuf As Pointer) As Integer


Public Sub Main()
 
 Dim unicode, lun As Integer
 Dim p As Pointer

' Impostiamo il codice Unicode da convertire in UTF-8:
 unicode = &01D4
 
 p = Alloc(SizeOf(gb.Integer), 1)
 
 lun = g_unichar_to_utf8(unicode, p)
 
 Print "Unicode "; unicode; " =  "; Left(String@(p), lun)
 
' Dealloca l'area precedentemente riservata e si assicura che il Puntatore punti a un indirizzo non rilevante:
 Free(p)
 p = 0
  
End


Riferimenti