瀏覽代碼

[dataRedis] increased tcp max line

Exilon 3 年之前
父節點
當前提交
852f1c13fc
共有 1 個文件被更改,包括 2 次插入1 次删除
  1. 2 1
      Quick.Data.Redis.pas

+ 2 - 1
Quick.Data.Redis.pas

@@ -7,7 +7,7 @@
   Author      : Kike Pérez
   Author      : Kike Pérez
   Version     : 1.0
   Version     : 1.0
   Created     : 22/02/2020
   Created     : 22/02/2020
-  Modified    : 03/03/2021
+  Modified    : 06/10/2021
 
 
   This file is part of QuickLib: https://github.com/exilon/QuickLib
   This file is part of QuickLib: https://github.com/exilon/QuickLib
 
 
@@ -229,6 +229,7 @@ begin
     begin
     begin
       if not RedisSELECT(fDataBaseNumber) then raise ERedisConnectionError.CreateFmt('Can''t select Redis Database "%d"',[fDataBaseNumber]);
       if not RedisSELECT(fDataBaseNumber) then raise ERedisConnectionError.CreateFmt('Can''t select Redis Database "%d"',[fDataBaseNumber]);
     end;
     end;
+    fTCPClient.IOHandler.MaxLineLength := MaxInt;
     fConnected := True;
     fConnected := True;
   except
   except
     on E : Exception do raise ERedisConnectionError.CreateFmt('Can''t connect to Redis service %s:%d (%s)',[Self.Host,Self.Port,e.Message]);
     on E : Exception do raise ERedisConnectionError.CreateFmt('Can''t connect to Redis service %s:%d (%s)',[Self.Host,Self.Port,e.Message]);