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.
|
|
Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!
Bearbeiten
Versionen