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

213 - Leer la cabecera de un archivo Gif y Png para averiguar el Ancho y alto en pixeles

<Volver> - Anterior - Siguiente

Contenido de la página

Leer dimensiones de un GIF
Leer dimensiones de un PNG
Enlaces relacionados

Leer dimensiones de un GIF

Este ejemplo me lo pasó en un foro Fernando Bazan.

Para leer la información del archivo se pasa el path del fichero a la sub Gif, por ejemplo

Call Gif(Path)

Código fuente en un formulario con un CommandButton

Option Explicit Private Sub Gif(ByVal path As String) On Error GoTo ErrSub Dim x As Integer, Caracter As Byte Dim P As Integer, Cabecera As String Dim An As String, Al As String Dim LenFile As String, Ancho As Integer, Alto As Integer 'Abre el archivo en modo binario de lectura Open path For Binary Access Read As #1 'Tamaño en bytes del archivo Gif LenFile = LOF(1) / 1024 'Obtiene la parte entera del número devuelto antes P = InStr(LenFile, ",") LenFile = Left(LenFile, P - 1) 'Obtiene los primeros cinco bytes de la cabecera del archivo _ para ver si es un GIF For x = 0 To 5 Get #1, , Caracter Cabecera = Cabecera + Chr(Caracter) Next 'si no es un Gif sale de la Rutina If Left(Cabecera, 3) <> "GIF" Then MsgBox "El archivo no Formato GIF", vbCritical Close: Exit Sub End If 'Lee el ancho del GIF Get #1, , Caracter An = An + Chr(Caracter) Get #1, , Caracter An = An + Chr(Caracter) Ancho = Asc(Left(An, 1)) + 256 * Asc(Right(An, 1)) 'Lee el ALTO Get #1, , Caracter Al = Al + Chr(Caracter) Get #1, , Caracter Al = Al + Chr(Caracter) Alto = Asc(Left(Al, 1)) + 256 * Asc(Right(Al, 1)) Close ' Muestra los Valores MsgBox "Ancho: " & Ancho & vbNewLine & "ALto: " & Alto, vbInformation 'Error Exit Sub ErrSub: MsgBox Err.Description & " " & Err.Number, vbCritical End Sub Private Sub Command1_Click() Call Gif("c:\archivo.gif") End Sub

Leer las dimensiones de un archivo Png

Ejemplo hecho por Leandro Ascierto

Colocar un control Commandbutton y especificar la ruta del archivo png

Nota: en el siguiente enlace , en el último ejemplo, hay un módulo de clase para Visual basic 6.0 que permite obtener el ancho y alto, la profuncidad de colores y el tipo de gráfico para los siguientes formatos de imagenes: BMP, GIF, JPEG y PNG . Módulo de clase cImageInfo

Código fuente en el formulario

' Convierte los byte a decimal Private Function GetSize(D() As Byte) As Long Dim A As Long, B As Long, C As Long A = CLng(D(0)) * 65536 B = CLng(D(1)) * 256 C = D(2) GetSize = A + B + C End Function Private Sub Obtener_Dimensiones_PNG(Ruta As String) 'Array de bytes Dim Data(2) As Byte 'Variables para el ancho y alto Dim HederWidth As Long Dim HederHeight As Long ' abre el Png para leer la cabecera ( los bytes que representan al alto y ancho) Open Ruta For Binary Access Read As #1 'Lee los bytes para el ancho Get #1, 18, Data HederWidth = GetSize(Data) 'Lee los bytes para el Alto Get #1, 22, Data HederHeight = GetSize(Data) Close 'Muestra las dimensiones MsgBox "Ancho: " & HederWidth & " Pixels " & vbCrLf & _ "Alto: " & HederHeight & " Pixels" End Sub Private Sub Command1_Click() Obtener_Dimensiones_PNG ("c:\imagen.png") End Sub Private Sub Form_Load() Command1.Caption = " Obtener ancho y alto PNG " End Sub

Recursos Visual basic 6.0 - Enlaces relacionados

Buscar en Recursos vb