Gif e cursori animati

[sandro]

Salve a tutti. Dopo molto tempo ho deciso di provare a creare un programmino per poter gestire una gif animata o un cursore animato, senza usare MovieBox o altri controlli.
Sulla wiki ci sono molti esempi per poter creare una gif ma non c'è nessun riferimento a nessuna libreria per poter aprire, visualizzare e gestire questo tipo di file.
Se qualcuno più esperto di me potesse darmi delle indicazioni gli sarei molto grato.

[vuott]

... gestire una gif animata o un cursore animato, senza usare MovieBox o altri controlli.
... libreria per poter aprire, visualizzare e gestire questo tipo di file.

Questo comporterà che la gif animata sarà mostrata su una superficie automaticamente generata dalla libreria grafica utilizzata, e pertanto non controllabile direttamente da nessuna risorsa di Gambas.

...però... poiché tu parli di cursori animati, è proprio una superficie indipendente dal Form di Gambas che vuoi ?

[vuott]

La modalità più diretta, brutale e semplice è utilizzare il Metodo ".Open( )" della Classe Desktop, il quale determinerà l'esecuzione della gif animata mediante il programma di sistema predefinito per l'esecuzione di tali file.

http://www.gambas-it.org/wiki/index.php?title=Eseguire_un_file_Video_mediante_il_Metodo_.Open()_della_Classe_Desktop

[sandro]

Ciao vuott,
allora io vorrei aprire un file .gif e estrapolare ogni singolo fotogramma in modo da inserirli in dei contenitori di numero uguale al numero dei fotogrammi stessi.

[vuott]

vorrei aprire un file .gif e estrapolare ogni singolo fotogramma in modo da inserirli in dei contenitori di numero uguale al numero dei fotogrammi stessi.

Ho dato un'occhiata all'organizzazione interna di un file di formato GIF animato; e tenendo conto dei blocchi necessari (header, Logical Screen Descriptor, Global Color Table, Graphics Control Extension, Image Descriptor, Image Data e Trailer), ti propongo una soluzione con le sole risorse di Gambas:

Codice: [Seleziona]

Public Sub Main()

  Dim s, parz1, parz2 As String
  Dim i As Integer
  Dim ii As New Integer[]
  
   s = File.Load("/percorso/del/file/animato.gif")
   
   Do   ' Applichiamo il ciclo "Gianluigi/vuott" per ottenere tutte le occorrenze dell'inizio del blocco "Graphics Control Extension"
     i = InStr(s, Chr(&00) & Chr(&21) & Chr(&F9) & Chr(&04), i + 1)
     If i = 0 Then Break
     ii.Push(i)
   Loop
   
   For i = 0 To ii.Max
     parz1 = Mid(s, 1, ii[0])
     If i = ii.Max Then
       parz2 = Mid(s, ii[ii.Max] + 1, Len(s) - ii[ii.Max])
     Else
       parz2 = Mid(s, ii[i] + 1, ii[i + 1] - ii[i]) & Chr(&3B)
     Endif
     File.Save("/percorso/di/ciascun/fotogramma" & CStr(i) & ".gif", parz1 & parz2)
   Next

End

[sandro]

Ok. Provato e funzionante(mi salva tutti i fotogrammi che inserirò in dei contenitori. Grazie tantissime!!

[sandro]

Ci tengo a ringraziare tutto lo staff del forum che si prodiga a cercare di risolvere i tanti problemi che abbiamo noi gamberetti nell'interpretazione del codice Gambas. Grazie ancora tantissime

[Gianluigi]

Ci tengo a ringraziare tutto lo staff del forum che si prodiga a cercare di risolvere i tanti problemi che abbiamo noi gamberetti nell'interpretazione del codice Gambas. Grazie ancora tantissime

  Ti ringrazio molto delle belle frasi, capisco bene cosa intendi per staff, non quell'entità che oramai in pratica si riduce al sottoscritto, ma i molti che cercano di aiutare gli altri con in prima fila il grande Vuott, vera anima di questo forum.

 

[sandro]

Un grazie particolare a Vuott che se lo merita davvero per tutta la dedizione che dedica a questo forum

[vuott]

...portatemi pure in processione:

[sandro]

Ciao vuott, ritornando al codice per l' estrazione dei fotogrammi, sto facendo scorrere i fotogrammi con un timer con intervallo ma non è l'intervallo esistente nella gif animata.
Volevo sapere se esiste la possibilità di estrarre le informazioni inserte nella gif riguardanti il tempo di intervallo fra un fotogramma e l'altro.

( Come puoi notare dalla data noi appassionati e attaccati al vile denaro lavoriamo anche domenica!!!)

[Gianluigi]

Ciao vuott, ritornando al codice per l' estrazione dei fotogrammi, sto facendo scorrere i fotogrammi con un timer con intervallo ma non è l'intervallo esistente nella gif animata.
Volevo sapere se esiste la possibilità di estrarre le informazioni inserte nella gif riguardanti il tempo di intervallo fra un fotogramma e l'altro.

( Come puoi notare dalla data noi appassionati e attaccati al vile denaro lavoriamo anche domenica!!!)

Parlo di una cosa che non ho provato ma, tempo totale diviso fotogrammi non va bene?

[sandro]

Ciao vuott,
si è talmente semplice che non ci avevo minimamente pensato. Ho provato e va bene! ok.

[sandro]

Scusa volevo dire Ciao Gianluigi

[Gianluigi]

Non ti devi scusare oramai sono in molti che scambiano i miei suggerimenti per quelli del maestro, capita sempre quando l'allievo sta per superarlo