Nextfile Problem

Übersicht

BlitzBasic

Allgemein

	Bms Betreff: Nextfile Problem	Sa, Aug 21, 2004 10:42 Antworten mit Zitat
Hy. Hab versucht, ein program zu schreibn, das alle bilder eines ordners anzeigt und dann auf einen tastendruck wartet. dann würde das nächste bild kommen. funzt aber ned. hier der code: Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 1024,768,16,1 AppTitle "Bilder" SetBuffer BackBuffer() ;Verzeichnis verz=ReadDir("C:\bilder\") ;CloseDir verz ?????? ;Hauptschleife Repeat ;Bild laden bild=LoadImage(NextFile$(verz)) ;Wenn datei , dann anzeign If FileType(bild)=1 Then Cls DrawBlock bild,0,0 Flip Delay 3000 FlushKeys() WaitKey() EndIf Until (KeyDown(1)) Or (NextFile$(verz)="") thanxxx im voraus.

Bms

Betreff: Nextfile Problem

Sa, Aug 21, 2004 10:42
Antworten mit Zitat

Hy.
Hab versucht, ein program zu schreibn, das alle bilder eines ordners anzeigt und dann auf einen tastendruck wartet. dann würde das nächste bild kommen. funzt aber ned. Sad

hier der code:
Code: [AUSKLAPPEN]

Graphics 1024,768,16,1
AppTitle "Bilder"
SetBuffer BackBuffer()

;Verzeichnis
verz=ReadDir("C:\bilder\")

;CloseDir verz ??????

;Hauptschleife
Repeat

;Bild laden
bild=LoadImage(NextFile$(verz))
;Wenn datei , dann anzeign
If FileType(bild)=1 Then
Cls
DrawBlock bild,0,0
Flip
Delay 3000
FlushKeys()
WaitKey()
EndIf

Until (KeyDown(1)) Or (NextFile$(verz)="")

thanxxx im voraus.

	Vertex	Sa, Aug 21, 2004 10:49 Antworten mit Zitat
CloseDir erst nach dem auslesen des Ordners, und "C:\bilder\"+NextFile$(verz). Weiter solltest du auch die Bilder nach dem Anzeigen mit FreeImage aus dem Speicher nehmen.
vertex.dreamfall.at \| GitHub

Vertex

Sa, Aug 21, 2004 10:49
Antworten mit Zitat

CloseDir erst nach dem auslesen des Ordners, und "C:\bilder\"+NextFile$(verz). Weiter solltest du auch die Bilder nach dem Anzeigen mit FreeImage aus dem Speicher nehmen.

vertex.dreamfall.at | GitHub