delphi - 释放优势数据库服务器表的代码示例

Question

我有一组包含在 Advantage Database 数据字典中的表。该词典不再可用，并且表格将无法打开。

我想使用代码(而不是 Advantage Data Architect)释放这些表。

我能找到的唯一引用是帮助中列出的名为 ADSDDFreeTable 的函数。

该函数的文档位于此链接:

http://devzone.advantagedatabase.com/dz/WebHelp/Advantage11.1/index.html?ace_adsddfreetable.htm

但它没有提供代码示例，我无法理解如何使用它。

是否有人愿意展示如何使用此函数的代码示例(使用变量，而不是文字，文件名等)

非常感谢!

Answer 1

Ace.pas 将 AdsDDFreeTable 定义为

function AdsDDFreeTable( pucTableName: PAceChar;
                         pucPassword: PAceChar ):UNSIGNED32; {$IFDEF WIN32}stdcall;{$ENDIF}{$IFDEF LINUX}cdecl;{$ENDIF}

相同的Ace.pas定义了PAceChar:

type
  PAceChar = PAnsiChar;

因此，对该函数的调用应该相当简单:

var
  TableName: AnsiString;
begin
  TableName := 'C:\Data\MyTable.adt`;
  if AdsDDFreeTable(PAnsiChar(TableName), nil) <> ADS_FREETABLEFAILED then
    ShowMessage('Table removed from datadictionary')
  else
    // Call ADSGetLastError to retrieve reason for failure;
end;