Dateispeicherdialog/Öffnedialog

Übersicht

BlitzBasic

Beginners-Corner

	Phlox Betreff: Dateispeicherdialog/Öffnedialog	Di, Aug 21, 2007 21:10 Antworten mit Zitat
Hi Community, Ich habe ein kleines Problem mit meinem Dateidialog. Ich möchte einen Dialog schreiben, mit dem man Dateien laden und speichern kann. Die Namen der Dateien werden in dem Bild ls\img gespeichert. Dieses Bild wird aber dummerweise nicht gezeichnet, oder die Dateien werden nicht ausgelesen. Warum nicht??? Code: [AUSKLAPPEN] [EINKLAPPEN] ;Dateispeicher/ladedialog v1.0 AppTitle "Datei speichern/laden" Graphics 800,600,16,2 SetBuffer BackBuffer() Type dialog Field x,y,adresse$,moveable,name$,verzeichnislesen=1,handleofdir,flnms[100000],img,selectedfilename$,hoch,lsy,zeigen End Type ls_Create(100,100,1,"Test","C:\") While Not KeyDown(1) ls_Update() Flip 0 Cls Wend End Function ls_Create(startx,starty,moveable,name$,startadresse$="C:\") ls.dialog=New dialog ls\x=startx ls\y=starty ls\moveable=moveable ls\name$=name$ ls\adresse$=startadresse$ ls\verzeichnislesen=1 End Function Function ls_Update() For ls.dialog=Each dialog loc=0 Color 255,255,255 Rect ls\x,ls\y,500,300,0 Rect ls\x,ls\y,500,30,0 Text ls\x+10,ls\y+10,ls\name$ Rect ls\x+20,ls\y+50,450,200,0 Rect ls\x+20,ls\y+29,450,22,0 If ls\zeigen=1 Then DrawImageRect ls\img,ls\x+20,ls\y+50,0,ls\hoch,200,450 If StringWidth("Adresse:"+ls\adresse)<440 Then Text ls\x+24,ls\y+34,"Adresse:"+ls\adresse$ Else Text ls\x+24,ls\y+34,"Adresse zu lang zum anzeigen!!" EndIf If ls\verzeichnislesen=1 Then ls\handleofdir=ReadDir(ls\adresse$) If ls\handleofdir=0 Then RuntimeError "Fehler:5293 - Verzeichnis nicht gefunden!" ls\img=CreateImage(200,10000) SetBuffer ImageBuffer(ls\img) While filename$<>"" loc=loc+1 ls\lsy=ls\lsy+15 filename$=NextFile(ls\handleofdir) Color 255,255,255 If FileType(filename$)=1 Then Text 0,ls\lsy,"Datei:"+filename$ If FileType(filename$)=2 Then Text 0,ls\lsy,"Ordner:"+filename$ ls\flnms[loc]=filename$ Wend SetBuffer BackBuffer() CloseDir ls\handleofdir ls\verzeichnislesen=0 ls\zeigen=1 EndIf Next End Function TIA MfG QWERTZ

Phlox

Betreff: Dateispeicherdialog/Öffnedialog

Di, Aug 21, 2007 21:10
Antworten mit Zitat

Hi Community,
Ich habe ein kleines Problem mit meinem Dateidialog.
Ich möchte einen Dialog schreiben, mit dem man Dateien
laden und speichern kann. Die Namen der Dateien werden in dem Bild
ls\img gespeichert. Dieses Bild wird aber dummerweise nicht gezeichnet, oder
die Dateien werden nicht ausgelesen.
Warum nicht???

Code: [AUSKLAPPEN]

;Dateispeicher/ladedialog v1.0
AppTitle "Datei speichern/laden"
Graphics 800,600,16,2
SetBuffer BackBuffer()

Type dialog
Field x,y,adresse$,moveable,name$,verzeichnislesen=1,handleofdir,flnms[100000],img,selectedfilename$,hoch,lsy,zeigen
End Type

ls_Create(100,100,1,"Test","C:\")

While Not KeyDown(1)

ls_Update()
Flip 0
Cls
Wend
End

Function ls_Create(startx,starty,moveable,name$,startadresse$="C:\")
ls.dialog=New dialog
ls\x=startx
ls\y=starty
ls\moveable=moveable
ls\name$=name$
ls\adresse$=startadresse$
ls\verzeichnislesen=1

End Function

Function ls_Update()
For ls.dialog=Each dialog
loc=0
Color 255,255,255
Rect ls\x,ls\y,500,300,0
Rect ls\x,ls\y,500,30,0
Text ls\x+10,ls\y+10,ls\name$
Rect ls\x+20,ls\y+50,450,200,0
Rect ls\x+20,ls\y+29,450,22,0
If ls\zeigen=1 Then DrawImageRect ls\img,ls\x+20,ls\y+50,0,ls\hoch,200,450
If StringWidth("Adresse:"+ls\adresse)<440 Then
Text ls\x+24,ls\y+34,"Adresse:"+ls\adresse$
Else
Text ls\x+24,ls\y+34,"Adresse zu lang zum anzeigen!!"
EndIf
If ls\verzeichnislesen=1 Then
ls\handleofdir=ReadDir(ls\adresse$)
If ls\handleofdir=0 Then RuntimeError "Fehler:5293 - Verzeichnis nicht gefunden!"
ls\img=CreateImage(200,10000)
SetBuffer ImageBuffer(ls\img)
While filename$<>""
loc=loc+1
ls\lsy=ls\lsy+15
filename$=NextFile(ls\handleofdir)
Color 255,255,255
If FileType(filename$)=1 Then Text 0,ls\lsy,"Datei:"+filename$
If FileType(filename$)=2 Then Text 0,ls\lsy,"Ordner:"+filename$
ls\flnms[loc]=filename$
Wend
SetBuffer BackBuffer()
CloseDir ls\handleofdir
ls\verzeichnislesen=0
ls\zeigen=1
EndIf
Next
End Function

TIA

MfG QWERTZ

	Silver_Knee	Di, Aug 21, 2007 21:23 Antworten mit Zitat
haha wie geil als ich den fehler gefuden habe... oh mann das hätte mir passieren können! Code: [AUSKLAPPEN] [EINKLAPPEN] While filename$<>"" ai was ist den filename wenn die schleife beginnt... RICHTIG: filename=""!!! einfach vor die schleife Code: [AUSKLAPPEN] [EINKLAPPEN] filename="Blabla wird eh nicht angezeigt aber ich bin nicht leer" schreiben den rest tuts wies soll^^ EDIT: ach ja ich nehme zum order auslesen immer ne repeat-until schleife. jetzt weiiß ich wieder warum^^

Silver_Knee

Di, Aug 21, 2007 21:23
Antworten mit Zitat

haha wie geil als ich den fehler gefuden habe... oh mann das hätte mir passieren können!
Code: [AUSKLAPPEN]

While filename$<>""

ai was ist den filename wenn die schleife beginnt... RICHTIG: filename=""!!! einfach vor die schleife
Code: [AUSKLAPPEN]

filename="Blabla wird eh nicht angezeigt aber ich bin nicht leer"

schreiben den rest tuts wies soll^^

EDIT:

ach ja ich nehme zum order auslesen immer ne repeat-until schleife. jetzt weiiß ich wieder warum^^