读取BDE配置信息的动态库

最新推荐文章于 2017-10-07 23:21:00 发布

whw6_faye

最新推荐文章于 2017-10-07 23:21:00 发布

阅读量1.3k

点赞数

分类专栏： Oracle技术文章标签： integer string dll interface windows

本文链接：https://blog.csdn.net/whw6_faye/article/details/1612846

版权

这是一个关于如何读取和操作BDE配置信息的动态链接库（DLL）的实现。文章详细介绍了DLL内存管理的重要注意事项，并展示了如何使用PChar和记录类型传递字符串，避免使用BORLNDMM.DLL。代码中包含了一个名为ReadBDESettings的函数，用于遍历并读取BDE设置，以及一个GetDatabaseInfo函数，用于获取特定数据库的信息。

摘要由CSDN通过智能技术生成

代码贴出来，有兴趣的可以研究一下

library BDEExplorer;

{ Important note about DLL memory management: ShareMem must be the
  first unit in your library ' s USES clause AND your project ' s (select
  Project - View Source) USES clause if your DLL exports any procedures or
  functions that pass strings as parameters or function results. This
  applies to all strings passed to and from your DLL -- even those that
  are nested in records and classes. ShareMem is the interface unit to
  the BORLNDMM.DLL shared memory manager, which must be deployed along
  with your DLL. To avoid using BORLNDMM.DLL, pass string information
   using PChar or ShortString parameters. }

uses
  SysUtils,
  Classes,
  Windows,
  BDE;

type
  PrecBDEEntry = ^ TrecBDEEntry;
  TrecBDEEntry = Record
    sNodeName: string ;
    sDescription: string ;
    sValue: string ;
    bHasSubnodes: Boolean;
    sPath: string ;
  end;

{$R * .res}

var
  AList: TList;
  sList: TStringList;

procedure ClearList(var AList: TList);
var
  i: Integer;
  p: PrecBDEEntry;
begin
   for i: =