Ottenere la directory di appartenenza di un file mediante le funzioni esterne del API di libgio
Da Gambas-it.org - Wikipedia.
Versione del 25 nov 2014 alle 14:18 di Vuott (Discussione | contributi) (Creata pagina con 'La libreria '''Libgio''' fornisce un'astrazione del file system che permette alle applicazioni di accedere ai file locali e remoti. E' possibile con alcune funzioni della lib...')
La libreria Libgio fornisce un'astrazione del file system che permette alle applicazioni di accedere ai file locali e remoti.
E' possibile con alcune funzioni della libreria Libgio sapere se un file possiede una directory genitore (di appartenza) e quale è tale directory.
Sarà necessario richiamare la libreria (nella sua attuale versione): libgio-2.0.so.0.4002.0
Mostriamo di seguito un semplice esempio pratico:
Library "libgio-2.0:0.4002.0" ' GFile * g_file_new_for_path (const char *path) ' Constructs a GFile for a given path. This operation never fails. Private Extern g_file_new_for_path(path As String) As Pointer ' gboolean g_file_has_parent (GFile *file, GFile *parent) ' Checks if file has a parent, and optionally, if it is parent. ' If parent is NULL then this function returns TRUE if file has any parent at all. ' If parent is non-NULL then TRUE is only returned if file is a child of parent. Private Extern g_file_has_parent(gfile As Pointer, parent As Pointer) As Boolean ' GFile * g_file_get_parent (GFile *file) ' Gets the parent directory for the file. If the file represents the root directory of the file system, then NULL will be returned. Private Extern g_file_get_parent(gfile As Pointer) As Pointer ' char * g_file_get_path (GFile *file) ' Gets the local pathname for GFile, if one exists. Private Extern g_file_get_path(gfile As Pointer) As String Public Sub Main() Dim gf, parent As Pointer Dim bo As Boolean Dim s As String gf = g_file_new_for_path("/percorso/del/file") If IsNull(gf) Then Error.Raise("Impossibile creare un oggetto GFile con il percorso del file impostato !") If g_file_has_parent(gf, 0) Then parent = g_file_get_parent(gf) If IsNull(parent) Then Error.Raise("Impossibile creare un oggetto GFile con il percorso del primo file impostato !") Endif s = g_file_get_path(parent) Print s End