RedisSimpleClient

KO | EN

gitlite — search

#python #java #python3 #arduino #golang #machine-learning #rust #html #flask #javascript #seismology #nodejs

RedisSimpleClient

★ 10 Open GitHub ↗

a simple redis client for delphi

// repository documentation

Was this content helpful?

★ 0 (0 ratings)

# Redis simple client

一个简单小巧的 redis 客户端， 封装了常用的功能，包括 hash set 和 get， queue 之类的命令，也包括事务 Watch unWatch。

核心单元： uRedisSimpleClient.pas

这个客户端只在我自己的一个项目上运行。至今还没发觉有 BUG。

代码借鉴了 dephiredisclient：

https://github.com/danieleteti/delphiredisclient

delphiredisclient 用上了工厂模式等 oop 技术， 但我觉得它对 redis 的通讯理解（包括事务）有点不对。所以重新封装了这一个客户端。

两相比较， RedisSimpleClient 提供了更可控的 API 交互模式。

由于新 DELPHI 的 string 为 2byte wideChar，所以提供了 tBytes 类型的参数以便提交 utf8 的文本。控件初始化的时候，指定一个 TEncoding.UTF8 编码，RedisSimpleClient 会在接收到数据后，自动做编码转换。

server 开发的要求是严谨的，这个客户端被设计成自动连接的工作模式，它会自己判断并一直维系连接的可靠性。

对于 redis db index （数据库索引）的维持，也是自动化的，指定 forceDbIndex = y 即可， 当TCP重连的时候，它会保证你依然连接到指定的 db index。

初始化的代码如下：

cli := TRedisSimpleClient.Create( TEncoding.UTF8);
    cli.Host := '127.0.0.1';
    cli.Port := 6379;
    cli.ConnectTimeout := 1000;
    cli.AuthUserName := '000000';
    cli.ForceDbIndex := -1;
  
操作代码如下：

if cli.Get('ok') then  //cmd is call success
    begin
      if cli.ResValue.ValueTypeIsBulk then  //value of key : ok have data
        add('get(ok)= ' + cli.ResValue.GetBulkAsString)  
      else
      if cli.ResValue.ValueTypeIsNullBulk then  //value of key : ok is null
        add('get(ok)=  null');
    end;
    
你会注意到： redis 在执行一个命令后， 就会返回一个数据类型，我把它封装在了 cli.ResValue。

cli.resValue.ValueType = TRedisValueType

TRedisValueType = (rvtNone, rvtErr, rvtNullArray, rvtNullBulk, rvtOK, rvtQueued, rvtInt, rvtBulk, rvtArray);

普通情况下，Set 指令这么执行：

SetOK := cli.Set_('ok', 'abc') and (cli.ResValue.ValueType = TRedisValue._Set_);
    //note: const TRedisValue._Set = TRedisValueType.rvtOK

在 watch multi 的时候（事务模式），代码应该换成这样：

SetOK := cli.Set_('ok', 'abc') and (cli.ResValue.ValueType = TRedisValueType.rvtQueued);
    
Redis 普通情况下返回 ok，但在事务中返回的是 queue。
    
事务的执行是这样的：

cli.Watch(['ok']);
    cli.Get('ok');
    cli.Multi;
    cli.Set_('no', '2');
    cli.HSet('h', 'f1', 'multiset v');
    cli.HSet('h', 'f2', 'multiset 2');
    cli.Exec;
  
目前只是封装了常用的命令，如果你需要的不在列，请参考 delphiredisclient，把命令追加上去（很容易做到）。  
  
介绍完毕

RedisSimpleClient

Explore Similar Repositories

Was this content helpful?

Recent Feedback

Download README