Code-Beispiel

BMP-Dateien laden, anzeigen und speichern

Lizenz:	Erster Autor:	Letzte Bearbeitung:
LGPL	Volta	28.04.2012

Ich hoffe die Kommentare im Listing erklären das Beispiel:

'bmp2img.bas --------- by Volta

Screen 19,32

Dim bild As Any Ptr

Dim As Integer breit, hoch, ff = freefile

Dim As String dateiname = "meine.bmp"



Open dateiname For Binary As #ff

Get #ff, 19, breit 'Breite aus der BMP-Datei holen

Get #ff, 23, hoch  'Höhe aus der BMP-Datei holen

Close #ff



bild = ImageCreate(breit,hoch)

'BMP in das Image laden

Bload dateiname, bild       'bmp2img

Put (0,0),bild,Pset

Sleep



'Image in einer BMP - Datei speichern

Bsave "neuer_Name.bmp",bild 'img2bmp

If bild <> 0 Then ImageDestroy bild 'Speicherplatz freigeben

Print "verdisch.."

Sleep

End 'img2bmp.bas --------- by Volta

Viel Spass damit
Volta

Hinweis

Wer lediglich einen bequem zu verwendenden Code zum Laden/Anzeigen von BMP-Bildern sucht, findet hier ein weiteres, interessantes Code-Beispiel.

Zusätzliche Informationen und Funktionen

Das Code-Beispiel wurde am 18.06.2007 von Volta angelegt.
Die aktuellste Version wurde am 28.04.2012 von Sebastian gespeichert.

Bearbeiten

Versionen

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.