📄 dbiacqpersisttablelock.html

📁 Delphi API应用手册
💻 HTML
字号:
<HTML>
<HEAD>
<TITLE>BDE API Examples (DbiAcqPersistTableLock)</TITLE>
<META NAME="KEYWORDS" CONTENT="BDE, Borland">
<META NAME="DESCRIPTION" CONTENT="">
</HEAD>

<BODY BGCOLOR="#FFFFFF" TEXT="#000000" LINK="#000000" ALINK="#999999" VLINK="#666666">

<CENTER>
<TABLE CELLPADDING="4" CELLSPACING="4" BORDER="0" WIDTH="600">

<TR>

<TD ALIGN="CENTER" VALIGN="TOP" COLSPAN="1"><NOBR><A HREF="/"><IMG SRC="/images/bolus.gif" ALT="[View Borland Home Page]" BORDER="0"></A><A HREF="/products.html"><IMG SRC="/images/products.gif" ALT="[View Product List]" BORDER="0"></A><A HREF="/searchsite/"><IMG SRC="/images/search.gif" ALT="[Search This Web Site]" BORDER="0"></A><A HREF="/download.html"><IMG SRC="/images/downloads.gif" ALT="[View Available Downloads]" BORDER="0"></A><A HREF="/membership.html"><IMG SRC="/images/membership.gif" ALT="[Join Borland Online]" BORDER="0"></A><A HREF="/newsgroups/"><IMG SRC="/images/newsgroups.gif" ALT="[Enter Discussion Area]" BORDER="0"></A><A HREF="/feedback/"><IMG SRC="/images/feedback.gif" ALT="[Send Email To Webmaster]" BORDER="0"></A></NOBR></TD>
</TR>

<TR>

<TR><TD ALIGN="LEFT" VALIGN="TOP" COLSPAN="1"><font size=2>

<h2>BDE API Examples (DbiAcqPersistTableLock)</h2>
Acquires an exclusive persistent lock on the table preventing other users from using the table or creating a table of the same name. 
<hr size=2 noshade>
<p>

<b>Place a lock on a non-existent table:</b>
<DD>This example is included with Delphi in the BDE32.HLP file.

<hr size=2 noshade>
<h3>Create a directory "read only" lock file for accessing Paradox tables on
CD-ROMs and "read only" network directories.</H3>
 This example uses the following input:<BR> <I>CreateReadOnlyLockFile(Database1)</I><BR>
NOTE: Once the .lck files are created, you can move them to any directory to create a 
read only directory.  Also, if this lock is used on a local machine, LOCAL SHARE will 
need to be set to TRUE.
<PRE>procedure CreateReadOnlyLockFile(Database: TDatabase);
var
  DBType, Dir: string;
  Len: word;

begin
  SetLength(DBType, DBIMAXNAMELEN + 1);
  // Make sure that the database is of STANDARD type...
  Check(DbiGetProp(hDBIObj(Database.Handle), dbDATABASETYPE, Pchar(DBType),
           DBIMAXNAMELEN, Len));
  SetLength(DBType, Len - 1);
  if DBType <> 'STANDARD' then
    raise EDatabaseError.Create('Directory locks can only be created on STANDARD aliases');
  SetLength(Dir, DBIMAXPATHLEN + 1);
  // Get the directory that the TDatabase is pointing to...
  Check(DbiGetDirectory(Database.Handle, False, PChar(Dir)));
  SetLength(Dir, StrLen(PChar(Dir)));
  // Lock the directory...
  Check(DbiAcqPersistTableLock(Database.Handle, 'paradox.dro', szPARADOX));
end;</PRE>
<!-- SF, Oct 17th, 97 -->

<hr size=2 noshade>
<p>

<A HREF="/devsupport/bde/bdeapiex/index.html">Back to BDE API Reference Page</A>




</TD></TR>

<TR><TD ALIGN="LEFT" VALIGN="TOP" COLSPAN="1"><font size=2>


<HR SIZE="2" NOSHADE>

<FONT SIZE = 2><i><b>DISCLAIMER:</b> You have the right to use this technical information subject to 
the terms of  the No-Nonsense License Statement that you received with the Borland product to which 
this information pertains.</FONT></i></B>


</dl>
</td>

</TR>

<TR>

<!-- THIS IS THE BOTTOM COPYRIGHT & UPDATED MESSAGE -->

<TD ALIGN="CENTER" VALIGN="TOP" COLSPAN="3"><FONT SIZE="2"><A HREF="/copyright.html">Trademarks &amp; Copyright</A> &#169; 1998 Borland International, Inc.

<SCRIPT LANGUAGE="JavaScript">
<!-- HIDE FROM OLD BROWSERS

// THIS WILL WRITE OUT THE LAST MODIFIED DATE
// YOU DO NOT NEED TO CHANGE ANYTHING HERE

function makeArray(arraySize) {
     this.length = arraySize
     return this
}

monthNames = new makeArray(12)
monthNames[1] = "January"
monthNames[2] = "February"
monthNames[3] = "March"
monthNames[4] = "April"
monthNames[5] = "May"
monthNames[6] = "June"
monthNames[7] = "July"
monthNames[8] = "August"
monthNames[9] = "September"
monthNames[10] = "October"
monthNames[11] = "November"
monthNames[12] = "December"

updated = new Date(document.lastModified)
theMonth = monthNames[updated.getMonth() + 1]
theDate = updated.getDate()
theYear = updated.getYear() + 1900

document.write("Last modified on " + theDate +  "-" + theMonth + "-" + theYear + ".")
// END HIDING -->
</SCRIPT></FONT></TD>
</TR>

</TABLE>
</CENTER>

</BODY>
</HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -