UnlockFile

Demonstrates how to unlock a file.

Remarks

This example illustrates how to lock and unlock a file.

Code

 local integer tfid
 local int success 
 local string temp_file

 try

    temp_file = "./my.pix"
    delete temp_file noerror
    call CopyFile( GetPCIHOME() + "/demo/irvine.pix", \
                 temp_file)

    tfid = DBOpen(temp_file, "r+")
    success = LockFile(tfid, 1)
    print "Success ", Success
    success = UnlockFile(tfid)
    print "Success ", Success
    call DBClose (tfid)
 onerror
   print "Error: "+ GetLastErrorMessage()
 endonerror

Output

 Success 1
 Success 1