怎样连接REDIS服务端

Posted 2021-02-11 咏南中间件和开发框架

怎样连接REDIS服务端

1）创建REDIS客户端对象

procedure TForm1.FormCreate(Sender: TObject);
begin
  Redis := TsfRedisClient.Create();
  ConnRedisServer(‘127.0.0.1‘, ‘‘, 6379);
end;

　　2）连接并验证

procedure TForm1.ConnRedisServer(ip, password: string; port: Integer);
var
  s: string;
begin
  Redis.Connect(ip, port);
  if password <> ‘‘ then
  begin
    s := Redis.doCommand([‘AUTH‘, password]);
    if s <> ‘OK‘ then
    begin
      ShowMessage(s);
      Exit;
    end;
  end;
end;