PRIVATE & Threads

[AUGE_OHR]

hi,

Die Beitrag ist für Fortgeschrittene Xbase++ User gedacht !

Code: Alles auswählen

PROCEDURE Main
PRIVAT zPATH := LEFT( AppName( .t. ),;
                          LEN( AppName( .t. ) ) - LEN( AppName( .f. ) ) )

//
// in einem andern PRG (!)
//

STATIC lCreThread := .F.
MEMVAR zPATH

PROCEDURE BildShow(oBrowse,cArtnr)
LOCAL oThBild
   IF lCreThread
   ELSE
      MSGBOX(zPath)                    // 1.)
      oThBild := Thread() :new()
      oThBild:start( "ThreadBild", oBrowse, cArtnr ... )
      //
      // Hold This Thread !!!
      //
      SLEEP(20)
      DO WHILE lCreThread
         SLEEP(10)
      ENDDO
   ENDIF
RETURN

PROCEDURE ThreadBild(oBrowse,cArtnr,...)
   lCreThread := .T. 
   MSGBOX(zPath)         // 2.)
   lCreThread := .F. 
RETURN

so was passiert jetzt bei 2.) MSGBOX() ?

gruss by OHR
Jimmy

[Tom]

MEMVAR kommt PRIVATE gleich, zPath wird also im zweiten PRG überladen. Da ihr kein Wert zugewiesen ist, dürfte MSGBOX() crashen. Oder ich bin heute total verpeilt. Möglich.

[AUGE_OHR]

hi,

MEMVAR kommt PRIVATE gleich, zPath wird also im zweiten PRG überladen. Da ihr kein Wert zugewiesen ist, dürfte MSGBOX() crashen. Oder ich bin heute total verpeilt. Möglich.

mit dieser Antwort hatte ich allerdings nicht gerechnet ...

ok ich habe jetzt 2x Msgbox() eingebaut, also was passiert bei den
beiden ?

gruss by OHR
Jimmy

[brandelh]

Hallo Jimmy,

die Antwort ist nicht ganz eindeutig zu erkennen.

zPath ist immer eine privat, da diese in keiner Funktion als LOCAL definiert wurde und somit der Standard gilt.

Ob es in 1. die gleiche Variable wie im MAIN ist, hängt davon ab ob MAIN die funktion BildShow() aufruft, dann wird nämlich die privat mit übergeben, ansonsten nicht.

Bei der 2. ist klar, dass zwar ein Aufruf stattfindet, aber in einem eigenen Thread. PRIVAT sind Threadlocal, somit knallt es in der 2. MsgBox.

Das ist je die Methode die Alaska Clipper S87 Programmierern bei der Migration schmackhaft machen will '... nimm Threads und du kannst deine privat behalten'. Davon halte ich nicht viel, denn mehrere Threads sind für Erfahrene Xbase++ler sicher kein Problem und werden auch gut unterstützt, aber ein Clipper S87 Programm hat erstens eine Aufarbeitung bitter nötig und zweitens sind die mit Threads und manchen 'speziellen' Situationen dadurch (Reihenfolge der Ausführung etc.) überfordert.
Insbesondere, wenn die Nebenwirkungen von private nicht unerwünscht waren

Trifft diese Antwort deine Erwartungen ?

[AUGE_OHR]

hi,

Bei der 2. ist klar, dass zwar ein Aufruf stattfindet, aber in einem eigenen
Thread. PRIVAT sind Threadlocal, somit knallt es in der 2. MsgBox.

Trifft diese Antwort deine Erwartungen ?

und wieder hat der Kandidat 100 Punkte.

Scheinbar werden "Fortgeschrittene" Fragen hier im Forum schneller
beantwortet als "Cl*pper Umsteiger" Fragen.

gruss by OHR
Jimmy