Explorar o código

* Port in small letters, postgres requires lowercase port setting

(cherry picked from commit 1da1a6736960a2a502dfe3e1b82e0e1aca2a9f08)
Michaël Van Canneyt %!s(int64=2) %!d(string=hai) anos
pai
achega
f1599dbfc8
Modificáronse 1 ficheiros con 3 adicións e 3 borrados
  1. 3 3
      packages/fcl-db/src/sqldb/sqldbpool.pp

+ 3 - 3
packages/fcl-db/src/sqldb/sqldbpool.pp

@@ -344,7 +344,7 @@ end;
 
 function TSQLDBConnectionDef.GetPort: Word;
 begin
-  Result:=StrToIntDef(FParams.Values['Port'],0);
+  Result:=StrToIntDef(FParams.Values['port'],0);
 end;
 
 procedure TSQLDBConnectionDef.SetCharSet(AValue: UTF8String);
@@ -406,9 +406,9 @@ end;
 procedure TSQLDBConnectionDef.SetPort(AValue: Word);
 begin
   if aValue=0 then
-    FParams.Values['Port']:=''
+    FParams.Values['port']:=''
   else
-    FParams.Values['Port']:=IntToStr(aValue)
+    FParams.Values['port']:=IntToStr(aValue)
 end;
 
 procedure TSQLDBConnectionDef.SetRole(AValue: UTF8String);