怎样连接REDIS服务端

怎样连接REDIS服务端

REDIS服务器是TCP/IP SERVER，因此客户端要访问，必须先同服务器建立SOCKET连接，然后才可以发送各种REDIS COMMAND（指令）。

首先要引用单元文件

uses
Redis.Commons, // 接口和类型
Redis.Client, // REDIS客户类
Redis.NetLib.INDY, // TCP协议库
Redis.Values; // redis 命令的可空类型

 

var
lRedis: IRedisClient;  // 变量声明
lValue: TRedisString;

try
lRedis := TRedisClient.Create;   // 创建REDIS客户端对象
lRedis.Connect; // 连接REDIS服务器

lRedis.Auth('password'); // 如果REDIS服务器有设置密码，此处必须验证密码；如果REDIS服务器没有设置密码，则客户端不要验证密码
lRedis.&SET('firstname', 'Daniele');//开始执行REDIS命令
lValue := lRedis.GET('firstname');
if not lValue.IsNull then
WriteLn('KEY FOUND! key "firstname" => ', lValue.Value);
WriteLn('DEL firstname');
lRedis.DEL(['firstname']); // remove the key
lValue := lRedis.GET('firstname');
if lValue.IsNull then
WriteLn('Key "firstname" doesn''t exist (it''s correct!)')
else
WriteLn(lValue.Value); // never printed

except
on E: Exception do
WriteLn(E.ClassName, ': ', E.Message);
end;
readln; // just to keep the command prompt open