Lectura de un archivo binario (2 - GIF) Curso de Programación Visual Basic

Lección:

Administración de Archivos


Ejercicio:

Lectura de un archivo binario (2 - GIF) 23


Objetivo:

Cree un programa de Visual Basic para comprobar si un archivo de imagen GIF parece ser correcto.

Debe ver si los primeros cuatro bytes son G, I, F, 8.

En caso de que parezca correcto, también debe mostrar la versión GIF (87 u 89), comprobando si el siguiente byte es un 7 o un 9.


Código:

Imports System
Imports System.IO
Public Class GifFile
    Public Shared Sub Main()
        Dim data As Byte() = New Byte(4) {}
        Dim file As BinaryReader = New BinaryReader(File.Open("test.gif", FileMode.Open))

        For i As Integer = 0 To 5 - 1
            data(i) = file.ReadByte()
        Next

        file.Close()

        If data(0) = Convert.ToByte("G"c) AndAlso data(1) = Convert.ToByte("I"c) AndAlso data(2) = Convert.ToByte("F"c) AndAlso data(3) = Convert.ToByte("8"c) Then
            Console.WriteLine("Its a GIF8" & data(4))
        Else
            Console.WriteLine("It not gif file")
        End If
    End Sub
End Class