2
0
Эх сурвалжийг харах

* Port in small letters, postgres requires lowercase port setting

Michaël Van Canneyt 2 жил өмнө
parent
commit
020c435872

+ 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);