Das deutsche QBasic- und FreeBASIC-Forum

[Andy19312]

Hallo zusammen,
da ich nun eine bmp Datei einlesen möchte, welche mir zuerst einmal den Dateikopf und Informationsblock anzeigen soll, wollte ich diese Grafik dann anschliessend auch noch darstellen.

Bevor ich jedoch zum darstellen der Grafik komme, muss ich erst einmal die Datei binär einlesen.

Irgendwie klappt es nicht:

Dim As Integer DateiNummer = FreeFile
Dim As String t

'--- Datei lesen ---
OPEN "a.bmp" FOR INPUT AS #DateiNummer
INPUT #DateiNummer, t
CLOSE #DateiNummer

PRINT t
SLEEP

Alles bekomme ich an Zeichen nicht angezeigt.
Was mache ich falsch

[Sebastian]

Hallo,

[Andy19312]

Ich will die Datei ganz normal in einen String einlesen.
Anschliessend mit right und left die erforderlichen Zeichen aus dem String herausfischen und dann anzeigen, wass im Dateikopf und Informationsblock steht.

Ist das schwer zu verstehen?

http://de.wikipedia.org/wiki/Windows_Bitmap

Cu Andy

[Jojo]

der code, den sebastian verlinkt hat, zeigt schon mal, wie man die höhe und breite des bildes ausliest. der rest geht genauso!
_________________
» Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.

[Sebastian]

Hallo!