Bildinformationen auslesen (Bitmaps) Mit diesem Code lässt sich die Größe, Farbebenen, Farbtiefe... von BMP-Dateien ermitteln.
Autor:   Steffen Stamprath	Bewertung:     [ Jetzt bewerten ]	Views:  24.237
www.bluedeveloper.de	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 17 Bewertung insgesamt: gut Durchschnittliche Bewertung: 3.9 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Mit nachfolgendem Code lassen sich aus vorhandenen BMP-Dateien due Größe, Farbebenen, Farbtiefe u.v.m. auslesen.

Option Explicit
 
' Info-Struktur
Private Type BitmapHeaderA
  KennzeichenDerBitmapDatei As Integer
  DateigrößeInByte As Long
  ReserviertA As Integer
  ReserviertB As Integer
  OffsetDesErstenGrafikbytes As Long
  Strukturgröße As Long
  BreiteInPixel As Long
  HöheInPixel As Long
  Farbebenen As Integer
  FarbtiefeInBit As Integer
  Komnpressionstyp As Long
  BildgrößeInBytes As Long
End Type

' Bitmap-Header auslesen
Private Function GetBitmapHeader(DateiA As String) _
  As BitmapHeaderA
 
  Dim F As Integer
 
  F = FreeFile
  Open DateiA For Binary Access Read As #F
  Get #F, , GetBitmapHeader
  Close #F
End Function

Beispiel:

Dim sFile As String
Dim uHeader As BitmapHeaderA
 
' BMP-Datei  
sFile = "Bild.bmp"
 
' Header auslesen
uHeader = GetBitmapHeader(sFile)
 
' Infos in einer ListBox anzeigen  
With uHeader
  List1.Clear
  List1.AddItem "Bildgröße: " + CStr(.BildgrößeInBytes)
  List1.AddItem "Breite in Pixel: " + CStr(.BreiteInPixel)
  List1.AddItem "Höhe in Pixel: " + CStr(.HöheInPixel)
  List1.AddItem "Farbtiefe in Bit: " + CStr(.FarbtiefeInBit)
  List1.AddItem "Farbenenen: " + CStr(.Farbebenen)
  ...
End With