Delphi Redis Client：高效、跨平台的Redis客户端库

uses
  Redis.Client, Redis.NetLib.INDY, Redis.Values;
 
var
  RedisClient: IRedisClient;
  ByteValue: Byte;
  StringValue: string;
  SetValue: IRedisSet;
  ListValue: IRedisList;
  SortedSetValue: IRedisSortedSet;
  HashValue: IRedisHash;
 
begin
  // 创建一个使用INDY库的Redis客户端实例
  RedisClient := TRedisClientIndy.Create('localhost', 6379);
 
  // 连接到Redis服务器
  if RedisClient.Connect then
  try
    // 设置和获取字符串值
    RedisClient.Set('mykey', 'Hello, Redis!');
    StringValue := RedisClient.Get('mykey');
 
    // 设置和获取字节值
    RedisClient.Set('mybytekey', 123);
    ByteValue := RedisClient.Get('mybytekey');
 
    // 操作集合、列表、有序集合和哈希
    RedisClient.SAdd('myset', 'item1');
    RedisClient.RPush('mylist', 'item2');
    RedisClient.ZAdd('mysortedset', 1, 'item3');
    RedisClient.HSet('myhash', 'field1', 'value1');
 
    // 获取集合、列表、有序集合和哈希的值
    SetValue := RedisClient.SMembers('myset');
    ListValue := RedisClient.LRange('mylist', 0, -1);
    SortedSetValue := RedisClient.ZRange('mysortedset', 0, -1);
    HashValue := RedisClient.HGetAll('myhash');
 
  finally
    RedisClient.Disconnect;
  end;
end;

这段代码展示了如何使用Delphi创建并使用一个基于INDY库的Redis客户端实例。它连接到Redis服务器，设置并获取不同类型的值，包括字符串、字节、集合、列表、有序集合和哈希。最后，代码确保在完成操作后断开连接。