Pascal JPPack：轻量高效的Delphi数据打包库

icy 昨天 19 抢沙发

默认

摘要： Pascal JPPack：轻量高效的Delphi数据打包库项目概述 JPPack 是一个用 Pascal/Delphi 编写的轻量级数据打包库，由开发者 jackdp 创建并维...

Pascal JPPack：轻量高效的Delphi数据打包库

项目概述

JPPack 是一个用 Pascal/Delphi 编写的轻量级数据打包库，由开发者 jackdp 创建并维护。该项目旨在为 Delphi 开发者提供一个简单、高效的数据序列化和反序列化解决方案，特别适用于需要将结构化数据转换为二进制格式进行存储或网络传输的场景。

核心特性

1. 简洁的 API 设计

JPPack 提供了直观易用的接口，开发者只需几行代码就能实现复杂数据结构的打包和解包操作。

2. 高性能处理

采用优化的二进制处理算法，确保数据打包和解包过程的高效执行，特别适合对性能有要求的应用场景。

3. 跨平台兼容

支持 Delphi 的多个版本，并能在 Windows、macOS 等多种平台上运行。

4. 灵活的数据类型支持

支持整数、浮点数、字符串、数组、记录等多种 Pascal 数据类型。

安装与配置

通过 GitHub 安装

text

git clone https://github.com/jackdp/JPPack.git

手动安装

下载项目源代码
将 JPPack 目录添加到 Delphi 的库路径中
在项目中添加必要的单元文件引用

基础使用示例

示例 1：基本数据类型打包

text

uses
  JPPack;

procedure BasicPackExample;
var
  Packer: TJPPacker;
  Data: TBytes;
  IntValue: Integer;
  StrValue: string;
  FloatValue: Double;
begin
  // 创建打包器
  Packer := TJPPacker.Create;
  try
    // 打包数据
    Packer.PackInteger(42);
    Packer.PackString('Hello JPPack');
    Packer.PackDouble(3.14159);
    
    // 获取打包后的字节数据
    Data := Packer.ToBytes;
    
    // 创建解包器
    Packer.ResetPosition;
    
    // 解包数据
    IntValue := Packer.UnpackInteger;
    StrValue := Packer.UnpackString;
    FloatValue := Packer.UnpackDouble;
    
    WriteLn('Integer: ', IntValue);
    WriteLn('String: ', StrValue);
    WriteLn('Double: ', FloatValue:0:5);
  finally
    Packer.Free;
  end;
end;

示例 2：自定义记录类型打包

text

type
  TPerson = record
    ID: Integer;
    Name: string;
    Age: Byte;
    Salary: Double;
    Active: Boolean;
  end;

procedure PackPerson(const Person: TPerson): TBytes;
var
  Packer: TJPPacker;
begin
  Packer := TJPPacker.Create;
  try
    Packer.PackInteger(Person.ID);
    Packer.PackString(Person.Name);
    Packer.PackByte(Person.Age);
    Packer.PackDouble(Person.Salary);
    Packer.PackBoolean(Person.Active);
    Result := Packer.ToBytes;
  finally
    Packer.Free;
  end;
end;

function UnpackPerson(const Data: TBytes): TPerson;
var
  Packer: TJPPacker;
begin
  Packer := TJPPacker.Create(Data);
  try
    Result.ID := Packer.UnpackInteger;
    Result.Name := Packer.UnpackString;
    Result.Age := Packer.UnpackByte;
    Result.Salary := Packer.UnpackDouble;
    Result.Active := Packer.UnpackBoolean;
  finally
    Packer.Free;
  end;
end;

示例 3：数组和动态数据打包

text

procedure ArrayPackExample;
var
  Packer: TJPPacker;
  Numbers: array of Integer;
  Names: TArray<string>;
  i: Integer;
begin
  Packer := TJPPacker.Create;
  try
    // 打包整数数组
    SetLength(Numbers, 5);
    for i := 0 to 4 do
      Numbers[i] := i * 10;
    
    Packer.PackArray<Integer>(Numbers, 
      procedure(P: TJPPacker; Value: Integer)
      begin
        P.PackInteger(Value);
      end);
    
    // 打包字符串数组
    Names := TArray<string>.Create('Alice', 'Bob', 'Charlie');
    Packer.PackArray<string>(Names,
      procedure(P: TJPPacker; Value: string)
      begin
        P.PackString(Value);
      end);
    
    // 解包示例
    Packer.ResetPosition;
    
    // 解包整数数组
    Numbers := Packer.UnpackArray<Integer>(
      function(P: TJPPacker): Integer
      begin
        Result := P.UnpackInteger;
      end);
    
    // 解包字符串数组
    Names := Packer.UnpackArray<string>(
      function(P: TJPPacker): string
      begin
        Result := P.UnpackString;
      end);
  finally
    Packer.Free;
  end;
end;

高级功能

1. 版本兼容性处理

text

procedure VersionAwarePack;
var
  Packer: TJPPacker;
  Version: Integer;
begin
  Packer := TJPPacker.Create;
  try
    // 写入版本号
    Packer.PackInteger(2); // 数据版本
    
    // 根据版本打包不同数据
    Packer.PackString('Data Field 1');
    
    if Version >= 2 then
    begin
      Packer.PackInteger(100); // V2 新增字段
    end;
  finally
    Packer.Free;
  end;
end;

2. 网络数据传输示例

text

procedure SendDataOverNetwork;
var
  Packer: TJPPacker;
  Data: TBytes;
  Stream: TMemoryStream;
begin
  Packer := TJPPacker.Create;
  try
    // 打包要发送的数据
    Packer.PackInteger(GetCommandCode);
    Packer.PackString(GetUserName);
    Packer.PackDouble(GetTimestamp);
    
    Data := Packer.ToBytes;
    
    // 通过网络发送
    Stream := TMemoryStream.Create;
    try
      Stream.WriteBuffer(Data[0], Length(Data));
      // 这里添加网络发送代码
      // SendStreamOverNetwork(Stream);
    finally
      Stream.Free;
    end;
  finally
    Packer.Free;
  end;
end;