Sección de códigos , trucos y ejemplos para visual basic

67 - Ejemplo de como desglosar un Gif animado en los archivos que lo forman para obtener la secuencia de archivos

Contenido

Ejemplo 1
Ejemplo 2
Enlaces relacionados

Ejemplo 1

Este ejemplo que hice hace un tiempo en base a otro que habia visto de como acceder al formato binario de un archivo Gif animado, lo que hace es separar el conjunto de archivos que lo forman y escribir esa secuencia de imagenes en el disco, es decir los archivos individuales.

Para correr el ejemplo, coloquen un gif animado en el c:\ llamado animado.gif

Luego la secuencia de imágenes se genera en el App.Path del proyecto

Código:

Private Sub Command1_Click() 'Le pasamos al sub el path del GIF animado SepararGifAnimado "c:\animado.gif" End Sub Private Sub SepararGifAnimado(sFile As String) Dim n As Integer, sImgHeader As String, sFileHeader As String, sBuff As String Dim sPicsBuff As String, i As Long, j As Long, sGifMagic As String sGifMagic = Chr$(0) & Chr$(33) & Chr$(249) 'Cargamos el gif en un buffer Open sFile For Binary Access Read As #1 sBuff = String(LOF(1), Chr(0)) Get #1, , sBuff Close #1 i = 1 j = InStr(1, sBuff, sGifMagic) + 1 sFileHeader = Left(sBuff, j) i = j + 2 ' Aca se comienza a separar los gif, es decir a desglozarlos y a guardarlos a disco en el App del proyecto Do j = InStr(i, sBuff, sGifMagic) + 3 If j > Len(sGifMagic) Then 'Acceedemos en modo binario para crear un archivo Open "imagen" & n & ".gif" For Binary As #1 sPicsBuff = String(Len(sFileHeader) + j - i, Chr$(0)) sPicsBuff = sFileHeader & Mid(sBuff, i - 1, j - i) Put #1, 1, sPicsBuff sImgHeader = Left(Mid(sBuff, i - 1, j - i), 16) i = j n = n + 1 End If Close #1 Loop Until j = 3 'Mostramos un mensaje con el resultado de cuantos archivos se separaron MsgBox "Se separò el GIF animado en: " & n & " archivos gif graficos individuales en el app de tu programa" End Sub

Ejemplo 2

Código fuente enviado por Helmuth Campos para separar o cortar un Gif

Nota: no funciona con todos los formatos.

Descargar código fuente

Formulario

vista previa del formulario para separa gifs

Recursos vb6 - Enlaces relacionados

Buscar en Recursos vb