"Search the Borland Web Site"

http://www.borland.com/searchsite/

에서 "record lock" 으로 검색해 보시면 참고가 되실겁니다



function fDbiIsRecordLocked(Table: TTable): Boolean;

var

Locked: BOOL;

hCur: hDBICur;

rslt: DBIResult;

ByAnyone: boolean;

begin

Table.UpdateCursorPos;

// Is the record locked by the current session...

Check(DbiIsRecordLocked(Table.Handle, Locked));

Result := Locked;

// If the current session does not have a lock and the ByAnyone varable is

// set to check all sessions, continue check...



{ Always do this, so works with all current calls. }

ByAnyone := True;



if (Result = False) and (ByAnyone = True) then

begin

// Get a new cursor to the same record...

Check(DbiCloneCursor(Table.Handle, False, False, hCur));

try

// Try and get the record with a write lock...

rslt := DbiGetRecord(hCur, dbiWRITELOCK, nil, nil);

if rslt <> DBIERR_NONE then

begin

// if an error occured and it is a lock error, return true...

if HiByte(rslt) = ERRCAT_LOCKCONFLICT then

Result := True

else

// If some other error happened, throw an exception...

Check(rslt);

end

else

// Release the lock in this session if the function was successful...

Check(DbiRelRecordLock(hCur, False));

finally

// Close the cloned cursor...

Check(DbiCloseCursor(hCur));

end;

end;

end;

김영대 께서 말씀하시기를...

> "Search the Borland Web Site"

> http://www.borland.com/searchsite/

> 에서 "record lock" 으로 검색해 보시면 참고가 되실겁니다

>

> function fDbiIsRecordLocked(Table: TTable): Boolean;

> var

> Locked: BOOL;

> hCur: hDBICur;

> rslt: DBIResult;

> ByAnyone: boolean;

> begin

> Table.UpdateCursorPos;

> // Is the record locked by the current session...

> Check(DbiIsRecordLocked(Table.Handle, Locked));





김영대님 답변 정말 감사합니다..

그런데 아직 초보라서 실행이 않됨니다..





> Result := Locked;

> // If the current session does not have a lock and the ByAnyone varable is

> // set to check all sessions, continue check...

>

> { Always do this, so works with all current calls. }

> ByAnyone := True;

>

> if (Result = False) and (ByAnyone = True) then

> begin

> // Get a new cursor to the same record...

> Check(DbiCloneCursor(Table.Handle, False, False, hCur));

> try

> // Try and get the record with a write lock...

> rslt := DbiGetRecord(hCur, dbiWRITELOCK, nil, nil);

> if rslt <> DBIERR_NONE then

> begin

> // if an error occured and it is a lock error, return true...

> if HiByte(rslt) = ERRCAT_LOCKCONFLICT then

> Result := True

> else

> // If some other error happened, throw an exception...

> Check(rslt);

> end

> else

> // Release the lock in this session if the function was successful...

> Check(DbiRelRecordLock(hCur, False));

> finally

> // Close the cloned cursor...

> Check(DbiCloseCursor(hCur));

> end;

> end;

> end;

>

>



김영대님 답변 감사합니다..

그런데 3행에서 에러가 나는데....... hCur: hDBICur; 에서 error!

전 델파이 3를쓰구요. dbase를 사용하는데 에러나는이유와 관계있나요?....

아직 초짜라.....죄송합니다...실행안되는 이유가?????