| Files includen. von ??? |
| Ich weiß daß der eine oder andere soetwas ähnliches schon für sich programmiert hat. Ich will den Kram hier trotzdem mal posten (spam) :) [code:1:0b25e71fdc] ;------------------------------------------------- ; Include Bitmap ;------------------------------------------------- EOL$=Chr(13)+Chr(10) bitmap$=Input$("Bild zum imcluden: ") If FileType(bitmap$)=1 pnt=Instr(bitmap$,".") If pnt name$=Left(bitmap$,pnt-1) inc$=name$+".bb" stream_in=ReadFile(bitmap$) stream_out=WriteFile(inc$) WriteLine stream_out,"."+name$ c=0 While Not Eof(stream_in) lne$=lne$+Str(ReadByte(stream_in))+"," c=c+1 Wend lne$=Left(lne$,Len(lne$)-1) WriteLine stream_out,"Data "+Str(c)+","+lne$ CloseFile stream_in CloseFile stream_out Print "Die Datei "+bitmap$+" wurde erfolgreich konvertiert." Print "Drücke eine Taste um das Programm zu beenden" Else Print "Die Datei "+bitmap$+" hat keine Endung." Print "Drücke eine Taste um das Programm zu beenden" EndIf Else Print "Die Datei "+bitmap$+" existiert nicht." Print "Drücke eine Taste um das Programm zu beenden" EndIf WaitKey : End [/code:1:0b25e71fdc] Dieser Code liest eine Datei ein und erzeugt ein BB File welches man includen kann. Wie das funktioniert zeigt der folgende Testcode: [code:1:0b25e71fdc] ; Hier wird die player_temp.bb aus dem BBC-Projekt verwendet Graphics 640,480,16,2 SetBuffer BackBuffer() Restore player_temp Read count DebugLog count stream=WriteFile("player.bmp") For i=0 To count-1 Read byte WriteByte stream,byte Next CloseFile stream ply=LoadImage("player.bmp") Repeat Cls DrawImage ply,0,0 Flip Until KeyHit(1) End Include "player_temp.bb" [/code:1:0b25e71fdc] Sinnvoll ist das für kleinere Bitmaps, die Exe schwillt nämlich um genau die Größe an welche man included! Eine mögliche Erweiterung wäre, wenn man diesen Code nur für Bitmaps verwendet, den Header überliest und dann selbst wieder hinzufügt. Das erspart einem einige Bytes. |