Differenze tra le versioni di "Verificare con le risorse del API di PulseAudio se una stringa contiene solo caratteri UTF8 validi"

Da Gambas-it.org - Wikipedia.
 
Riga 11: Riga 11:
 
   
 
   
 
   
 
   
  '''Public''' Sub Main()
+
  Public Sub Main()
 
   
 
   
 
   Dim s, t As String
 
   Dim s, t As String
Riga 20: Riga 20:
 
   If IsNull(t) then Print "La stringa non contiene solo caratteri UTF8 validi !"
 
   If IsNull(t) then Print "La stringa non contiene solo caratteri UTF8 validi !"
 
    
 
    
  '''End'''
+
  End

Versione attuale delle 08:29, 24 giu 2023

La funzione esterna "pa_utf8_valid()" della libreria PulseAudio consente di verificare se una stringa risponde totalmente alle caratteristiche del formato UTF-8; ossia se contiene solo caratteri UTF-8 validi.

E' necessario richiamare in Gambas la libreria dinamica condivisa: "libpulse.so.0.21.2 ".

Mostriamo un semplice esempio:

Library "libpulse:0.21.2"

' char *pa_utf8_valid(const char *str)
' Test if the specified strings qualifies as valid UTF8.
Private Extern pa_utf8_valid(strs As String) As String


Public Sub Main()

 Dim s, t As String
 
 s = Chr(190)
  
 t = pa_utf8_valid(s)
 If IsNull(t) then Print "La stringa non contiene solo caratteri UTF8 validi !"
  
End