以下是一个简单的示例，演示如何使用 DelphiRedisClient（https://github.com/danieleteti/delphiredisclient）将 MSSQL 数据缓存到 Redis 中：
```delphi
uses
Redis.Client, Redis.NetLib.INDY, Data.DB, FireDAC.Comp.Client, System.JSON;
procedure CacheMSSQLDataToRedis;
var
RedisClient: IRedisClient;
MSConnection: TFDConnection;
MSQuery: TFDQuery;
JSONData: TJSONObject;
begin
// 连接到 Redis 服务器
RedisClient := TRedisClient.Create;
RedisClient.Connect('localhost', 6379);
// 连接到 MSSQL 数据库
MSConnection := TFDConnection.Create(nil);
MSConnection.DriverName := 'MSSQL';
MSConnection.Params.Add('Server=localhost');
MSConnection.Params.Add('Database=YourDatabase');
MSConnection.Params.Add('User_Name=YourUsername');
MSConnection.Params.Add('Password=YourPassword');
MSConnection.LoginPrompt := False;
MSConnection.Connected := True;
// 执行 MSSQL 查询
MSQuery := TFDQuery.Create(nil);
try
MSQuery.Connection := MSConnection;
MSQuery.SQL.Text := 'SELECT * FROM YourTable';
MSQuery.Open;
// 将查询结果转换为 JSON
JSONData := TJSONObject.Create;
while not MSQuery.Eof do
begin
// 这里假设你的查询结果只包含字符串类型的字段
JSONData.AddPair(MSQuery.Fields[0].FieldName, MSQuery.Fields[0].AsString);
JSONData.AddPair(MSQuery.Fields[1].FieldName, MSQuery.Fields[1].AsString);
// 可以根据需要添加更多的字段
MSQuery.Next;
end;
// 将 JSON 数据存储到 Redis 中
RedisClient.SetKey('YourCacheKey', JSONData.ToString);
finally
MSQuery.Free;
MSConnection.Free;
RedisClient.Disconnect;
end;
end;
```
这个示例演示了如何连接到 Redis 服务器和 MSSQL 数据库，执行查询并将结果转换为 JSON，最后将 JSON 数据存储到 Redis 缓存中。