Delphi RAR 组件请求存档密码

Question

我想要这个 RAR 组件： http://www.philippewechsler.ch/RARComponent.php
作者：菲利普·韦克斯勒。

但我不明白如何请求密码而不是存档中的文件而是存档？

文档中写的是我不明白如何使用：

OnPasswordRequired(Sender: TObject; const HeaderPassword: Boolean; 
const FileName: WideString;out NewPassword: Ansistring; out Cancel: Boolean);

如果需要密码才能继续，则会发生此事件。

HeaderPassword：如果为 true，则需要密码才能打开存档。 否则需要密码才能处理文件。

FileName：需要密码的文件的文件名（存档名 或存档内文件的文件名）

NewPassword：所需的密码

取消：如果您不知道正确的密码，请将此设置为 true

如何使用此代码？

Answer 1

OnPasswordRequired(Sender: TObject; const HeaderPassword: Boolean; 
const FileName: WideString;out NewPassword: Ansistring; out Cancel: Boolean);

我不确定这里的问题是什么...这是一个事件处理程序，您可以像分配任何其他事件处理程序一样分配它：通过双击对象中的 OnPasswordRequired 事件检查器，或者通过代码连接它：

implementation

  procedure TForm1.FormCreate(Sender: TObject);
  begin
    RARComp.OnPasswordRequired := RARPasswordRequired;
  end;

  procedure TForm1.RARPasswordRequired(Sender: TObject; 
    const HeaderPassword: Boolean; 
    const FileName: WideString; 
    out NewPassword: Ansistring; out Cancel: Boolean);
  begin
    if HeaderPassword then  // need whole archive password
      NewPassword := YourWholeArchivePassword  // provide whole archive password
    else
      // Need individual file password. If you have a separate password for
      // each file, provide it as each file is provided in "filename" param.
      if FileName = TheFilenameYouHavePasswordFor then
        NewPassword := ThisFilesPassword
      else
        Cancel := True;
  end;

我不知道组件名称是什么（我使用了 RARComp，但我不熟悉这个组件）；将其替换为正确的内容。 OnPasswordRequired 事件肯定有一个预定义的类型（例如 TPasswordRequiredEvent 或其他）；再说一遍，我对这个组件不熟悉。

解释一下：传递给事件处理程序的 out 参数类似于 var 参数，只不过它们在由组件传递之前不必进行初始化。事实上，它们是out，这意味着它们是输出；您需要为它们分配值。另一方面，您无法更改两个 const 参数（HeaderPassword 和 FileName）；它们是供您决定如何设置允许更改的两个参数的值。 Sender 将是 RARComp 或任何您调用的组件实例；如果需要使用 TRARComponent(Sender) 或 (Sender as TRARComponent) 等语法访问其他信息，可以对其进行类型转换。

同样，我不知道该组件的正确类名是什么，也不知道您的实例将被命名为什么。如果 IDE 组件选项板上的组件类名是 TRARComponent，并且您将其拖放到表单上，则它将被声明为 RARComponent1: TRARComponent;，并且您将使用名称 RARComponent1 和 TRARComponent(Sender)（如果适用）。