怎样连接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