Problem mit RunProgram

KoopaOne · Beitrag von **KoopaOne** » 01.10.2007 10:39

Ok, voriges Problem habe ich behoben. Jetzt habe ich folgendes, auch unerklärliches, Problem:

; ---------------------------------------------------------------
; LOG-Datei erstellen und Schreiben
; ---------------------------------------------------------------

  ini()
  log$=logdir$+FormatDate("%dd_%mm_%yy_%hh_%ii_%ss", Date())+".log"
  ergebnis=OpenFile(1,log$)
  WriteStringN(1, "Arbeitsverzeichnis:                " + workdir$)
  WriteStringN(1, "Verzeichnis für gedruckte Dateien: " + finishdir$)
  WriteStringN(1, " ")
  WriteStringN(1, FormatDate("%hh:%ii:%ss", Date())  + " - Programmstart")

Starte ich das Programm aus dem Editor wird die LOG-Datei einwandfrei erzeugt und auch geschrieben. Erzeuge ich eine EXE daraus, erzeugt er die Datei zwar wunderbar, aber sie ist leer ....

jpd · Beitrag von **jpd** » 01.10.2007 11:11

Hi KoopaOne,

war es so wie ich vermutet hatte, oder was lief da schief?

zu diesen problem hast du lese und schreibrechte auf log$?

Ciao
jpd

#NULL · Beitrag von **#NULL** » 01.10.2007 15:00

CloseFile(..) ?

Kaeru Gaman · Beitrag von **Kaeru Gaman** » 01.10.2007 15:28

yup genau...

ohne closefile bleiben die daten im buffer des OS hängen.
windows wartet eben, ob da noch was nachkommt, bevor es wirklich auf die platte schreibt.

KoopaOne · Beitrag von **KoopaOne** » 01.10.2007 15:46

Hi KoopaOne,
war es so wie ich vermutet hatte, oder was lief da schief?

Ja, Deine Lösung war richtig. Dankeschön!

Ok, das mit CloseFile klingt logisch, aber warum funktioniert das dann, wenn ich das Programm aus dem Editor starte? Und wenn ich die Datei mit Closefile schließe und mit Openfile wieder öffne, löscht er mir da nicht denn Inhalt? Wie mache ich ein Append?

Danke für die Hilfe!

Kaeru Gaman · Beitrag von **Kaeru Gaman** » 01.10.2007 15:57

> warum funktioniert das dann, wenn ich das Programm aus dem Editor starte?

vermutlich bekommt das OS eine etwas andere "zugriff beendet"-meldung,
als wenn die exe unvollständig ist.
vielleicht sorgt auch die IDE dafür, dass alle kanäle wieder geschlossen werden.
könnte ne debugger-funktion sein, is ja auch sinnvoll.

> Wie mache ich ein Append?

FileSeek bis ans ende, dann erst wieder schreiben.

#NULL · Beitrag von **#NULL** » 01.10.2007 18:45

Code: Alles auswählen

  If OpenFile(1,log$)
    FileSeek(Lof(1))
    WriteStringN(1, "Arbeitsverzeichnis:                " + workdir$)
    WriteStringN(1, "Verzeichnis für gedruckte Dateien: " + finishdir$)
    WriteStringN(1, " ")
    WriteStringN(1, FormatDate("%hh:%ii:%ss", Date())  + " - Programmstart") 
    CloseFile(1)
  EndIf

jpd · Beitrag von **jpd** » 01.10.2007 19:57

Ja, Deine Lösung war richtig. Dankeschön!

supi!!

und dank #NULL hast du auch nen append beispiel.

Ciao
jpd

KoopaOne · Beitrag von **KoopaOne** » 02.10.2007 10:33

herzlichen Danke Euch beiden, das funktioniert wunderbar *gg*

Pureboard rocks!