Browse Source

* Port in small letters, postgres requires lowercase port setting

(cherry picked from commit 1da1a6736960a2a502dfe3e1b82e0e1aca2a9f08)
Michaël Van Canneyt 2 years ago
parent
commit
f1599dbfc8
1 changed files with 3 additions and 3 deletions
  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;
 function TSQLDBConnectionDef.GetPort: Word;
 begin
 begin
-  Result:=StrToIntDef(FParams.Values['Port'],0);
+  Result:=StrToIntDef(FParams.Values['port'],0);
 end;
 end;
 
 
 procedure TSQLDBConnectionDef.SetCharSet(AValue: UTF8String);
 procedure TSQLDBConnectionDef.SetCharSet(AValue: UTF8String);
@@ -406,9 +406,9 @@ end;
 procedure TSQLDBConnectionDef.SetPort(AValue: Word);
 procedure TSQLDBConnectionDef.SetPort(AValue: Word);
 begin
 begin
   if aValue=0 then
   if aValue=0 then
-    FParams.Values['Port']:=''
+    FParams.Values['port']:=''
   else
   else
-    FParams.Values['Port']:=IntToStr(aValue)
+    FParams.Values['port']:=IntToStr(aValue)
 end;
 end;
 
 
 procedure TSQLDBConnectionDef.SetRole(AValue: UTF8String);
 procedure TSQLDBConnectionDef.SetRole(AValue: UTF8String);