PureBoard

Verfasst: **02.01.2006 23:30**

Es geht auch wieder um ein bzw. das Listwiev.
Und zwar kann ich in der liste eine Datei auswählen und verschiedene aktionen durchführen zu z.B: das Editieren. Ich kann auch eine Datei hinzufügen also erstellen.
Wenn ich eine Datei hinzugefügt oder editiert habe und nach dem bestätigen auswähle egal wieviel zeit dazwischen verstreicht, kann die Datei nicht verwendet werden.

Hier Ist der kobe wenn man eine Datei erstellt oder bearbeitet. Also wenn man den "OK" Button betätigt wird das ausgefürt in beiden fällen (Editieren und Erstellen)

Code: Alles auswählen

name$ = GetExePath()
name$ + "Listen\"
name$ + GetGadgetText(#Add_Name)
name$ + ".txt"
q = CopyFile(Ausgangsdatei$, Zieldatei$)
ab$ = GetGadgetText(#Add_Logo) 
Debug sb$
If Image$ = ab$
  q = 1
ElseIf ab$ = "Logoname"
  q = 1
ElseIf img = 0
  q = 1
EndIf
If q <> 0
  bild$ = "Image\" + GetGadgetText(#Add_Logo) + ".jpg"
  If CreateFile(0, name$)
   WriteStringN(GetGadgetText(#Add_URL))
    WriteStringN(GetGadgetText(#Add_Info))
    WriteStringN(bild$)
    WriteStringN(GetGadgetText(#Add_IRCServer))
    WriteStringN(GetGadgetText(#Add_IRCChannel))
  Else
    MessageRequester("Information","Datei konnte nicht erstellt werden.")
  EndIf
  ClearGadgetItemList(#Listview_0)
  IncludeFile "StreamerLoad.pb" ;Aktualisieren das listwiev
  If edit = 1
    edit = 0
  EndIf
  CloseWindow(#Add_Stream)
Else
  MessageRequester("Information","Es Ergab Propleme Bei der Kopie der Logo Datei.")
EndIf

Verfasst: **02.01.2006 23:44**

Magix-Soft <Kain> hat geschrieben:
Code: Alles auswählen
CloseWindow(#Add_Stream)

mach da mal ein [c]CloseWindow(0)[/c] draus.

Grüße ... Kiffi

Verfasst: **03.01.2006 00:14**

Ich habe es versucht....

Das Fenster "#ADD_Stream" bleibt geöffnet und der Fehler ist denoch gebliben...

Verfasst: **03.01.2006 00:17**

> Ich habe es versucht....

ach schande über mich! Da habe ich völligen Mist geschrieben.

Vergiss das am besten sofort wieder.

Was ich eigentlich meinte: Wenn Du eine Datei öffnest

Code: Alles auswählen

If CreateFile(0, name$)

dann musst Du sie an entsprechender Stelle wieder schliessen:

Code: Alles auswählen

CloseFile(0)

Grüße ... Kiffi

// Edit:

So sieht das dann aus:

Code: Alles auswählen

  If CreateFile(0, name$)
   WriteStringN(GetGadgetText(#Add_URL))
    WriteStringN(GetGadgetText(#Add_Info))
    WriteStringN(bild$)
    WriteStringN(GetGadgetText(#Add_IRCServer))
    WriteStringN(GetGadgetText(#Add_IRCChannel))
    CloseFile(0) ; Hier die Datei wieder schliessen!
  Else
    MessageRequester("Information","Datei konnte nicht erstellt werden.")
  EndIf

Verfasst: **03.01.2006 00:24**

Super das hat geklapt!

Ich habe schon so offt nach dem Fehler gesucht aber auf die idee bin ich nicht gekommn das die Datei noch nicht geschlossen war

Naja jedenfals danke

PureBoard

Und noch ein Bug in Meinem Programm

Und noch ein Bug in Meinem Programm

Re: Und noch ein Bug in Meinem Programm