Differenze tra le versioni di "Ottenere informazioni sulle icone presenti sulla Scrivania"
Da Gambas-it.org - Wikipedia.
Riga 1: | Riga 1: | ||
− | In via generale, per ottenere informazioni sui file e anche sulle icone a essi correlate, si potranno usare alcune funzioni esterne della libreria: "''libgio-2.0.so.0.8000. | + | In via generale, per ottenere informazioni sui file e anche sulle icone a essi correlate, si potranno usare alcune funzioni esterne della libreria: "''libgio-2.0.so.0.8000.5'' ". |
<BR>Mostriamo un semplice codice, con il quale si conosceranno varie informazioni su un file e sulla sua icona correlata: | <BR>Mostriamo un semplice codice, con il quale si conosceranno varie informazioni su un file e sulla sua icona correlata: | ||
− | Library "libgio-2.0:0.8000. | + | Library "libgio-2.0:0.8000.5" |
<FONT Color=gray>' ''GFile * g_file_new_for_commandline_arg (const char *arg)'' | <FONT Color=gray>' ''GFile * g_file_new_for_commandline_arg (const char *arg)'' | ||
Riga 134: | Riga 134: | ||
− | Library "libgio-2.0:0.8000. | + | Library "libgio-2.0:0.8000.5" |
<FONT Color=gray>' ''GFile * g_file_new_for_commandline_arg (const char *arg)'' | <FONT Color=gray>' ''GFile * g_file_new_for_commandline_arg (const char *arg)'' |
Versione attuale delle 17:13, 16 ott 2024
In via generale, per ottenere informazioni sui file e anche sulle icone a essi correlate, si potranno usare alcune funzioni esterne della libreria: "libgio-2.0.so.0.8000.5 ".
Mostriamo un semplice codice, con il quale si conosceranno varie informazioni su un file e sulla sua icona correlata:
Library "libgio-2.0:0.8000.5" ' GFile * g_file_new_for_commandline_arg (const char *arg) ' Creates a GFile with the given argument from the command line. Private Extern g_file_new_for_commandline_arg(arg As String) As Pointer ' GFileInfo * g_file_query_info (GFile *file, const char *attributes, GFileQueryInfoFlags flags, GCancellable *cancellable, GError **error ) ' Gets the requested information about specified file. Private Extern g_file_query_info(gfile As Pointer, attributes As String, flags As Integer, cancellable As Pointer, gerror As Pointer) As Pointer ' char ** g_file_info_list_attributes (GFileInfo *info, const char *name_space) ' Lists the file info structure's attributes. Private Extern g_file_info_list_attributes(info As Pointer, name_space As String) As Pointer ' char * g_file_info_get_attribute_as_string (GFileInfo *info, const char *attribute) ' Gets the value of a attribute, formatted as a string. Private Extern g_file_info_get_attribute_as_string(info As Pointer, attribute As String) As Pointer ' void g_object_unref (gpointer object) ' Decreases the reference count of object. Private Extern g_object_unref(gobject As Pointer) Public Sub Main() Dim percorso As String Dim fl, info As Pointer percorso = "/percorso/del/file" fl = g_file_new_for_commandline_arg(percorso) If fl == 0 Then Error.Raise("Errore !") info = g_file_query_info(fl, "*", 0, Null, Null) If info == 0 Then Error.Raise("Errore !") MostraAttributi(info) g_object_unref(info) g_object_unref(fl) End Private Procedure MostraAttributi(inf As Pointer) Dim attr, p As Pointer Dim i As Integer Dim s As String attr = g_file_info_list_attributes(inf, Null) Print "ATTRIBUTI:\n" s = String@(Pointer@(attr + (i * 8))) Repeat p = g_file_info_get_attribute_as_string(inf, s) Print String@(Pointer@(attr + (i * 8))); ": \e[31m"; String@(p); "\e[0m" Inc i Wait 0.1 s = String@(Pointer@(attr + (i * 8))) Until IsNull(s) End
Individuare le icone poste sulla Scrivania passandoci sopra con il puntatore del mouse
Mostriamo di seguito un codice che, utilizzando nuovamente le già viste funzioni esterne della libreria "libgio-2.0", permette di individuare le icone poste sulla Scrivania, mentre si sorvola su di esse con il puntatore del mouse, e di ottenere informazioni sulle icone stesse e sui file, ai quali esse sono collegate.
E' necessario attivare anche il Componente "gb.desktop".
Public Struct IconaFileDesktop nome As String x As Short y As Short rt As Rect End Struct Private icone As New IconaFileDesktop[] Private PERCORSO As String = Desktop.GetDirectory("DESKTOP") Private TImer1 As Timer Public Sub Form_Open() Dim nomefile, s As String Dim ifd As IconaFileDesktop ' Carica tutti i file corrispondenti alle icone presenti sulla Scrivania: For Each nomefile In Dir(PERCORSO, "*", gb.File) ' Usa alcune funzioni esterne della libreria "libgio-2.0": s = LeggeInfo(PERCORSO &/ nomefile) If IsNull(s) Then Continue ' Carica nella "Struttura" i dati utili del file individuato dalla funzione "Dir()": With ifd = New IconaFileDesktop .nome = nomefile .x = Val(Scan(s, "*,*")[0]) .y = Val(Scan(s, "*,*")[1]) ' Stabilisce un'area quadrata standard di 48x48 pixel per ciascuna icona di file individuato: .rt = New Rect(.x, .y, 48, 48) End With icone.Push(ifd) Next With timer1 = New Timer As "Timer1" .Delay = 50 .Start End With End Public Sub Timer1_Timer() Dim c As Short TextArea1.Clear For c = 0 To icone.Max ' Se le coordinate x,y in pixel correnti in cui si trova il puntatore del mouse rientrano in un'area quadrata caricata, va a vedere a quale icona e file appartiene: If icone[c].rt.Contains(Mouse.ScreenX, Mouse.ScreenY) Then ' Mostra alcune caratteristiche del file al quale corrisponde l'icona sorvolata dal puntatore del mouse: TextArea1.Text = "== Caratteristiche del file ==\n" & "\nPercorso: " & Stat(PERCORSO &/ icone[c].nome).Path & "\nDimensione: " & Stat(PERCORSO &/ icone[c].nome).Size & " Byte" & "\nUltimo Accesso: " & Stat(PERCORSO &/ icone[c].nome).LastAccess & "\nUltima modifica: " & Stat(PERCORSO &/ icone[c].nome).LastModified & "\nPermessi: " & Stat(PERCORSO &/ icone[c].nome).Auth & "\nUtente: " & Stat(PERCORSO &/ icone[c].nome).User & "\nGruppo: " & Stat(PERCORSO &/ icone[c].nome).Group & "\nMimetype icona: " & DesktopMime.FromFile(Stat(PERCORSO &/ icone[c].nome).Path).Type Endif Next End Library "libgio-2.0:0.8000.5" ' GFile * g_file_new_for_commandline_arg (const char *arg) ' Creates a GFile with the given argument from the command line. Private Extern g_file_new_for_commandline_arg(arg As String) As Pointer ' GFileInfo * g_file_query_info (GFile *file, const char *attributes, GFileQueryInfoFlags flags, GCancellable *cancellable, GError **error ) ' Gets the requested information about specified file. Private Extern g_file_query_info(gfile As Pointer, attributes As String, flags As Integer, cancellable As Pointer, gerror As Pointer) As Pointer ' char ** g_file_info_list_attributes (GFileInfo *info, const char *name_space) ' Lists the file info structure's attributes. Private Extern g_file_info_list_attributes(info As Pointer, name_space As String) As Pointer ' char * g_file_info_get_attribute_as_string (GFileInfo *info, const char *attribute) ' Gets the value of a attribute, formatted as a string. Private Extern g_file_info_get_attribute_as_string(info As Pointer, attribute As String) As Pointer ' void g_object_unref (gpointer object) ' Decreases the reference count of object. Private Extern g_object_unref(gobject As Pointer) Private Function LeggeInfo(percfile As String) As String Dim fl, info As Pointer fl = g_file_new_for_commandline_arg(percfile) If fl == 0 Then Error.Raise("Errore !") info = g_file_query_info(fl, "*", 0, Null, Null) If info == 0 Then Error.Raise("Errore !") percfile = EstraeAttributi(info) g_object_unref(info) g_object_unref(fl) Return percfile End Private Function EstraeAttributi(inf As Pointer) As String Dim attr, p As Pointer Dim i As Integer = -1 Dim s As String attr = g_file_info_list_attributes(inf, Null) Repeat Inc i s = String@(Pointer@(attr + (i * SizeOf(gb.Pointer)))) p = g_file_info_get_attribute_as_string(inf, s) Until s == Trim("metadata::nemo-icon-position") Return String@(p) End