Convertire un codice Unicode in carattere UTF-8 con la funzione g unichar to utf8() della libreria libglib-2.0: differenze tra le versioni
Vai alla navigazione
Vai alla ricerca
Nessun oggetto della modifica |
Nessun oggetto della modifica |
||
| (12 versioni intermedie di uno stesso utente non sono mostrate) | |||
| 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 condivisa: "''libglib-2.0.so.0. | E' necessario richiamare in Gambas la libreria condivisa: "''libglib-2.0.so.0.8400.4'' ". | ||
Mostriamo un esempio pratico: | Mostriamo un esempio pratico: | ||
Library "libglib-2.0:0. | Library "libglib-2.0:0.8400.4" | ||
<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 11: | Riga 11: | ||
Public Sub Main() | |||
Dim unicode, lun As Integer | Dim unicode, lun As Integer | ||
| Riga 25: | Riga 25: | ||
Print "Unicode "; unicode; " = "; Left(String@(p), lun) | Print "Unicode "; unicode; " = "; Left(String@(p), lun) | ||
<FONT Color=gray>' ''Dealloca l'area precedentemente riservata e si assicura che il Puntatore punti a un indirizzo non rilevante:''</font> | <FONT Color=gray>' ''Dealloca l'area precedentemente riservata e si assicura che il Puntatore punti a un indirizzo non rilevante di memoria:''</font> | ||
Free(p) | Free(p) | ||
p = 0 | p = 0 | ||
End | |||
Versione attuale delle 16:33, 31 ago 2025
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.8400.4 ".
Mostriamo un esempio pratico:
Library "libglib-2.0:0.8400.4" ' 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 di memoria: Free(p) p = 0 End