Offene DBF schließen - aus 2.Thread ?

[brandelh]

Hallo,

ich rufe mit setTimerEvent() eine Funktion auf, welche regelmäßig prüft, ob eine Datei im Netz steht. Wenn ja, wird das Programm abgebrochen.
QUIT schließt ja alle offenen Dateien, aber ich habe auch temporäre Dateien offen, die normalerweise in einer Funktion nach CLOSE ALL gelöscht werden, bevor das Programm beendet wird.

nachträgliche Anmerkung
es handelt sich um ein altes Programm nach Clipper Art, das Hauptprogramm kann in einem READ, ACHOICE, einer FOR-NEXT-Schleife oder sonstwo sein und hat keine Ahnung dass es beendet werden soll ... die Abbruchfunktion gibt 5 Minuten vorher Warnungen raus, bevor Quit kommt, aber die Abbruchfunktion und nicht das Hauptprogramm beenden das Programm.

Diese Funktion AppQuit() von mir rufe ich auch von der setTimerEvent-Testfunktion auf, aber dann arbeitet die Abbruchfunktion nicht mehr im ersten Thread, somit wirkt das CLOSE ALL nicht und die temporären Dateien bleiben stehen.

Weiß jemand, wie man einen Workspace eines anderen Threads schließen kann ? In der Onlinehilfe habe ich zwar den Hinweis auf ein Umschalten gefunden, aber nicht wie es geht. Außerdem scheint man den Alias erst freischalten zu müssen, was ich ja nicht kann.

Am einfachsten wäre es, wenn der neue Thread auch auf dem alten Workspace aufsetzen würde.

[Gerd König]

Hallo Hubert,

setze doch im Main-Thread eine Static- oder Klassenvariable beim Start auf False. Der Timerthread setzt diese dann auf True.

In der Event-Schleife der Main-Prozedur ist dann nur noch diese Variable zu überwachen und entsprechend zu reagieren. Es lassen sich auch beliebige Aktionen ausführen, wenn man anstelle des logischen z.B. einen numerischen Wert verwendet.

Viele Grüße Gerd

[brandelh]

Hallo Gerd,

dummerweise ist es ein Programm im Clipperstil ...
irgenwo im READ, einer FOR NEXT Schleife ...

[Gerd König]

aus diesem Grund progge ich nur GUI
Gerd

[brandelh]

aus diesem Grund progge ich nur GUI
Gerd

bei neuen Sachen mache ich auch nur noch GUI, aber es ist schon sehr alt ...

[andreas]

Hallo Hubert,

erstelle eine logische Public-Variable, die du in deinen Threads abfragst und wenn notwendig die Threads richtig abschliessen.
Vor dem Beenden muss du dann die Variable setzen und evtl. mit sleep() eine wartepause anlegen.

[AUGE_OHR]

moin,

ich rufe mit setTimerEvent() eine Funktion auf, welche regelmäßig prüft, ob eine Datei im Netz steht. Wenn ja, wird das Programm abgebrochen.
QUIT schließt ja alle offenen Dateien, aber ich habe auch temporäre Dateien offen, die normalerweise in einer Funktion nach CLOSE ALL gelöscht werden, bevor das Programm beendet wird.

also wenn du wirklich ALLE Datenbanken schliessen willst :

Code: Alles auswählen

WorkSpaceEval( {|| DbUnlockAll(), DbCloseAll() } ) 

gruss by OHR
Jimmy

[brandelh]

Hallo Jimmy,

das ist es, was ich brauche WorkSpaceEval() ... Danke.

[brandelh]

Hallo

als ich eben die Festplatte nach dem Suchbegriff WorkSpace durchsuche, finde ich unter anderem die Datei:

xppw32\source\sys\AppExit.prg

und es fällt wir wie Schuppen von den Augen.
Diese EXIT Funktion hatte ich schon mal gesehen.
Am Ende dieser Datei wäre genau der richtige Ort um meine Dateien zu löschen

oh diese Vergesslichkeit ...