Paradox Community

Items in pnews.paradox-programming

Subject:Locks
Date:Fri, 8 Feb 2019 17:07:20 -0800
From:Peter <peter@removespamwhiteknight.email>
Newsgroups:pnews.paradox-programming
Something I am not understanding about locks

Computer 1
A form with a table ("Name.db") in the datamodel
A button with code to put a full lock
:pushbutton:
if lock(":PROFILES:Name.DB","Full") then
    view("Full locks successfull")
else
    errorShow()
endIf

Computer 2 (for testing)
A form, no table in datamodel.
A button with code to put a full lock on the same tbl
:pushbutton:
tcu.open(":profiles:Name")
if not tcu.lock("Full") then
    errorShow()
else
     view(tcu.lockStatus("Full")
endIf
--------------------------------
The experiments

Step 1
Computer 2, pushbutton, view = "1" (full lock) as expected
Interactive Pdox select Tools|Security|Display Locks... - shows only an 
open lock for Computer 2
Conclusion: Interactive "display locks" does not show explicitly placed 
locks for same net session

Step 2
Computer 1, place full lock - successful (wth?)
Interactive Pdox select Tools|Security|Display Locks... - shows only one 
lock for Computer 1, "Exclusive"
Conclusion: Conclusion in Step 1 is wrong

How can Computer 1 place a full lock when tcursor on Computer 2 has a 
full lock already?

Step 3
Computer 2, Interactive Pdox select Tools|Security|Display Locks... - 
fails because Computer 1 has "Exclusive" lock, as expected.

Bottom Line Question
How come Computer 2 recognizes the lock placed by Computer 1 but 
Computer 1 does not recognize the lock placed by Computer 2?

Thank you.

Peter


Copyright © 2004 thedbcommunity.com