Delphi-n Software VCL组件包 支持最新13.2

摘要：  n Software VCLSoftware 是一家成立于 1995 年的老牌组件开发商，专注于通信、安全与电子商务领域的跨平台开发组件。其 VCL 产品线是专为 Em...

n Software VCL

Software 是一家成立于 1995 年的老牌组件开发商，专注于通信、安全与电子商务领域的跨平台开发组件。其 VCL 产品线是专为 Embarcadero Delphi 和 C++ Builder 打造的原生组件库，采用原生代码编写与编译，直接嵌入 IDE 工具面板，开发者可通过拖拽方式快速构建网络与安全功能。

核心产品线以 IPWorks 为主干，涵盖数十种功能模块：安全通信（SSL/TLS、SSH、SFTP）、消息队列、加密（AES、RSA、OpenPGP）、云服务集成（S3、Google Drive、Dropbox）、身份认证（OAuth、LDAP、Kerberos）、压缩（Zip）以及 VoIP/SIP 等。所有组件均支持 x86 与 x64 平台，兼容从 C++ Builder 2009 到 RAD Studio 13 的广泛版本范围。

实例：使用 IPWorks Zip 压缩文件（Delphi VCL）

以下示例展示如何在 Delphi 中通过 TIPZip 组件将一个文件夹打包为 ZIP 文件。该组件为原生 VCL 控件，无需外部 DLL 依赖。

uses
  IPWorksZip_TLB;  // 根据实际安装的单元名称调整

procedure TForm1.btnCompressClick(Sender: TObject);
var
  Zip: TIPZip;
begin
  Zip := TIPZip.Create(nil);
  try
    // 设置目标归档路径
    Zip.ArchiveFile := 'C:\Backup\project_backup.zip';
    
    // 添加要压缩的文件夹（含子目录）
    Zip.IncludeFiles('C:\Projects\MyApp\*.*');
    Zip.RecurseSubdirectories := True;
    
    // 可选：设置压缩级别（0-9，9 为最高压缩率）
    Zip.CompressionLevel := 9;
    
    // 执行压缩
    Zip.Compress();
    
    ShowMessage('压缩完成：' + Zip.ArchiveFile);
  finally
    Zip.Free;
  end;
end;

关键点说明：IncludeFiles 支持通配符批量添加文件，RecurseSubdirectories 控制是否递归子目录。IPWorks Zip 还支持 AES 加密归档、分卷压缩以及流式内存操作，适用于备份工具或文件管理器的快速集成。

对于需要 SSH 安全传输的场景，可替换为 TIPSSH 或 TIPSFTP 组件，API 风格保持一致，降低学习成本。