Question

我有一个图书馆＆＃34; Utilities.DPR＆＃34;其中包含名为＆＃34; Container.Pas＆＃34;的子单元。图书馆＆＃34; Utilities.DPR＆＃34;中有一些功能。我能够使用在Container.pas中定义和声明的函数，并调用它的Library.dpr单元。但是我也想在库单元中使用一些函数。

library Utilities;

{ 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
  System.SysUtils, System.Classes, windows, Winapi.Messages, System.Variants, Vcl.Graphics, Vcl.Controls,
  Vcl.Forms, Vcl.Dialogs,System.NetEncoding, Vcl.StdCtrls,
  DCPcrypt2, DCPblockciphers, DCPblowfish, DCPsha256, IdGlobal,
  Types, Soap.EncdDecd, IdCoder,IdCoderMIME, LbCipher, Winsock,
  DateUtils,
  container in 'container.pas' {frmContainer};

{$R *.res}
var
    s,n,Temp:widestring;
    length_:integer;

function bitshifter(Const TestStr:WideString):Boolean;
begin
      ....
      ....

end;

和

unit container;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, FireDAC.Stan.Def,
  LbClass,DateUtils;

type
  TfrmContainer = class(TForm)
    FDSQLiteFunc: TFDSQLiteFunction;
    SQLiteConn: TSQLConnection;
    FDSQLiteRTree: TFDSQLiteRTree;
    FDSQLiteBkp: TFDSQLiteBackup;
    SQLQuery: TSQLQuery;
    FDSQLiteValidate1: TFDSQLiteValidate;
    FDLocalSQL1: TFDLocalSQL;
    FDConn: TFDConnection;
    FDQuery1: TFDQuery;
    FDSQLiteSec: TFDSQLiteSecurity;
    FDGUIxWaitCursor1: TFDGUIxWaitCursor;
    FDPhysSQLiteDriverLink1: TFDPhysSQLiteDriverLink;

    procedure FDSQLiteValidate1Progress(ASender: TFDPhysDriverService;
      const AMessage: string);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

function CheckSQLiteDLL:boolean;
function CheckAllowed(const s: string): boolean;

var
  frmContainer: TfrmContainer;



implementation

procedure TfrmContainer.FormCreate(Sender: TObject);
begin
      //Connection should be created once only)
      bitshifter('Hello');
      ....
end;

Answer 1

单位不能引用项目文件中声明的符号。要使容器调用bitshifter，您需要将该函数移动到一个单元中。它可以是容器，也可以是其他单位。

Answer 2

在Delphi中， dpr 文件基本上只是一种特殊类型的单元。 dpr 与其他单位之间的一个区别是，您无法使用来自其他单位。

另一件需要注意的事情是两个单元在其接口部分中不能互相使用。这将创建一个循环单元引用，这是不允许的。

所以，以你的情况为例：

公用事业DPR：

实施 bitshifter 功能
使用容器单元

容器PAS：

需要使用 bitshifter 功能

要使 bitshifter 功能可供其他单位使用，必须首先将其移动到一个单位或移动到使用它的单位。

即。您可以将其移至容器单元。但是将一个通用实用程序功能（实际上是这个功能）移动到一个实现UI特定组件的单元（因为在这种情况下，容器是一个表单）并不是一个好主意。单元）。

在这里创建一个专门用于此和任何相关例程的新单元会更有意义。在这种情况下，我们可能会创建一个名为 BitUtilities.pas 的单元。

如果DPR包含使用该功能的代码，则DPR需要同时使用现有的容器单元以及新的 BitUtilities 单元。您可能希望DPR使用此单元，即使它没有直接调用其中的功能，因为让DPR知道项目中使用的所有单元可以帮助确保某些IDE设施按预期工作（例如ctrl +点击引用函数的导航等）。

否则，容器单元只需使用 BitUtilities ：

公用事业DPR：

使用 BitUtilities 单元（可选，除非 DPR还包含调用 bitshifter 功能本身的代码）
使用容器单元

BitUtilities PAS：

实现 bitshifter 功能（以及任何其他类似/相关的＆＃34;位＆＃34;功能）

容器PAS：

使用 BitUtilities 单元

如何在其单位

2 个答案: