怎樣連接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

 


免責聲明!

本站轉載的文章為個人學習借鑒使用,本站對版權不負任何法律責任。如果侵犯了您的隱私權益,請聯系本站郵箱yoyou2525@163.com刪除。



 
粵ICP備18138465號   © 2018-2025 CODEPRJ.COM