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：如果是这样，则需要密码才能打开存档。 否则需要密码来处理文件。

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

NewPassword：需要的密码

Cancel：如果您不知道正确的密码，请将此设置为 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)。