VB-Homepage Tipp 258

Grafikinformationen auslesen [Bitmap & Gif]

Mitunter steht man vor der Frage, wie kann ich ermitteln, wie Breit bzw. wie Hoch eine Grafikdatei ist.

Natürlich will ich die Bitmaps hier nicht auslassen, auch wenn der eigentliche Tipp sich um die *gif Grafik dreht. Aber wenn Sie also wissen möchten, wie Breit und Hoch eine Bitmapgrafik ist, (BMP;DIB;WMF) laden Sie sie einfach in ein Picture oder Image Objekt, dessen Visible Eigenschaft Sie auf False setzen und ermitteln Sie nach dem Laden die Abmaße des Controls. (Picture1.Width / Picture1.Height)
Bei Grafiken im *.gif Format, scheitern Sie allerdings an dieser Methode (zumindestens bis VB4), da die Standardcontrols nur Bitmaps laden können. Hier hilft Ihnen nachfolgender Tipp weiter.

Erstellen Sie ein neues Projekt und fügen ein Label-Objekt (Label1) und einen Command-Button (Command1) hinzu.

Geben Sie dem Command-Button unter
Command1_Click folgende Anweisungen.

Open "Pfad zur gewünschten Gif Datei" For Binary As #1
   Einlesestring = Input(10, #1)
Close

Breite = Asc(Mid$(Dateistart, 8, 1)) * 256 + Asc(Mid$(Dateistart, 7, 1))
Hoehe = Asc(Mid$(Dateistart, 10, 1)) * 256 + Asc(Mid$(Dateistart, 9, 1))

Label1.Caption = "Grafik ist " & Breite & " Pixel breit und " & Hoehe & " Pixel hoch."

Wenn Sie den Pfad zu Ihrer *.gif Grafik modifiziert haben und nach einem Start des Projektes (F5) den Command-Button anklicken, erscheinen im Label-Objekt die Abmaße der Grafik in Pixel.

Des Rätsels Lösung steckt übrigens in einer Header Information jeder Grafik im *.Gif Format, der immer an der selben Stelle in der Datei auffindbar ist und der hier lediglich ausgelesen wird.


Tipp-Download

Quelle : BasicWorld / http://www.basicworld.com

Zurück zur Übersichtsseite