paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 14:09:17 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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