Desktop.Open ma non troppo

[alcresio]

Dopo un periodo di lavoro trascorso all'estero, mi riaffaccio al forum con una domanda insolita (e quando mai ne faccio una normale): 
poniamo che abbia una serie di file di vario tipo (per lo più video immagini raw, tif e jpg) che stanno venendo trasferiti da un pc remoto ad un server con cartelle condivise posto in locale.
Bene,  fintanto che il trasferimento non è completo i file che vedo hanno l'estenzione ".part"... se voglio vedere un'anteprima del file devo aprirlo con il programma adatto, per esempio vlc per il video, e lightzone per le immagini raw.

Ovviamente il doppio click sul file non funziona in quanto l'estenzione ".part", giustamente non è associata a nessun programma e non può esserlo in quanto il file parziale potrebbe essere di qualsiasi tipo.
Fare ogni volta "apri con" è un supplizio!  Quindi vorrei creare una piccola applicazione da associare al ".part" la quale capisca cosa debba lanciare e farlo con, per esempio, shell o
desktop.open o chissà che cos'altro...

Facile dirà qualcuno, basta usare  Desktop.Open(miofile), grazie, ma mio file è per esempio pippo.avi.part e .part è associato all'applicazione stessa...
Contorto?
Si, lo so...
Esiste il modo di capire quale applicazione sia predefinita per aprire/visualizzare un tipo di file?
Una volta scoperto potrei fare una cosa del genere:

shell (`which programma_predefinito`) Left(Com, Len(Com) - 5

ecco tutto li....
 

[vuott]

Esiste il modo di capire quale applicazione sia predefinita per aprire/visualizzare un tipo di file?

Ci sarà un file di sistema, nel quale sono registrati i vari tipi di file associati a determinate applicazioni ?

[alcresio]

Ci sarà un file di sistema, nel quale sono registrati i vari tipi di file associati a determinate applicazioni ?

si, ma in questo modo non si ha una uniformità tra le varie distro/DE. se ci fosse l sistema da gambas non coi sarebbero problemi al cambio dei de o delle distro...

[vuott]

si, ma in questo modo non si ha una uniformità tra le varie distro/DE. se ci fosse l sistema da gambas non coi sarebbero problemi al cambio dei de o delle distro...

...è vero. Ma magari.... almeno per l'immediato....   

[vuott]

Ci sarà un file di sistema, nel quale sono registrati i vari tipi di file associati a determinate applicazioni ?

Per esempio, per Linux Mint dovrebbe essere questo file:  
 
  /usr/share/applications/mimeinfo.cache

ed anche:

  ~/.local/share/applications/mimeapps.list

[alcresio]

si, ma in questo modo non si ha una uniformità tra le varie distro/DE. se ci fosse l sistema da gambas non coi sarebbero problemi al cambio dei de o delle distro...

...è vero. Ma magari.... almeno per l'immediato....   

infatti, ora vedo di fare un accrocchio.... :-)

[vuott]

infatti, ora vedo di fare un accrocchio.... :-)

...alto 1,80 ? 

[alcresio]

...alto 1,80 ? 

te caro Vuott non stai bene! 
Dai, fatti un salto di là dalla pozzanghera adriatica e vieni a trovarmi, così ti presento "l'accrocchio" e la facciamo finita! 
Non a nuoto però, non è stagione! 

[vuott]

Non a nuoto però, non è stagione!

Ma ogni stagione va bene per dare una risposta utile.   

se ci fosse l sistema da gambas non coi sarebbero problemi al cambio dei de o delle distro...

La soluzione universale - tutta Gambas - è la seguente: attivato il componente gb.desktop, devi utilizzare le sue Classi DesktopMime e DesktopFile:

Codice: gambas [Seleziona]

Public Sub Form_Open()

  Dim dm As New DesktopMime
  Dim df As DesktopFile
  Dim percorso As String


   percorso = "/percorso/del/mioFile"


   With df = New DesktopFile(percorso)
     Print "Il file '"; percorso; "' è associato con il programma: "; .FromMime(dm.FromFile(percorso).Type)[0].ProgramName
   End With

End

[alcresio]

Non a nuoto però, non è stagione!

Ma ogni stagione va bene per dare una risposta utile.  

se ci fosse l sistema da gambas non coi sarebbero problemi al cambio dei de o delle distro...

La soluzione universale - tutta Gambas - è la seguente: attivato il componente gb.desktop, devi utilizzare le sue Classi DesktopMime e DesktopFile:

Codice: gambas [Seleziona]

Public Sub Form_Open()

  Dim dm As New DesktopMime
  Dim df As DesktopFile
  Dim percorso As String


   percorso = "/percorso/del/mioFile"


   With df = New DesktopFile(percorso)
     Print "Il file '"; percorso; "' è associato con il programma: "; .FromMime(dm.FromFile(percorso).Type)[0].ProgramName
   End With

End

Grande!!! ora lo provo
in verità ci ero riuscito facendo un poco elegante parsing del file  ~/.local/share/applications/mimeapps.list... una vergogna, però funzionante... ahhaah Grazie mille!

[vuott]

Puoi anche ad esempio ottenere contemporaneamente:
* il nome dell'applicazione associata al tipo di file;
* l'icona dell'applicazione associata al tipo di file;
* l'icona di quel tipo di file.

L'esempio prevede che sul Form siano posti un Button e due PictureBox:

Codice: gambas [Seleziona]

Public Sub Button1_Click()

  Dim df As DesktopFile
  Dim percorso As String


   percorso = "/percorso/del/file"

   With df = DesktopFile.FromMime(DesktopMime.FromFile(percorso).Type)[0]
     Print "Il file '"; percorso; "' è associato con il programma: "; .ProgramName
     PictureBox1.Picture = .GetIcon(48).Picture
   End With


   PictureBox2.Picture = DesktopMime.FromFile(percorso).GetIcon(48).Picture

End

In vero, puoi ottenere l'icona associata ad un tipo di file più semplicemente mediante il metodo ''Desktop.GetFileIcon()'':

Codice: gambas [Seleziona]

Public Sub Form_Open()

  PictureBox1.Picture = Desktop.GetFileIcon("/percorso/del/file", 48)

End