paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 12:01:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Port in small letters, postgres requires lowercase port setting

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-03-19 10:22:45 +01:00
parent 42e202f791
commit 1da1a67369
1 changed files with 3 additions and 3 deletions

6
packages/fcl-db/src/sqldb/sqldbpool.pp
View File

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