after upgrading to version 8.4.1 a simple console application creates multiple connections to postgres,
Code: Select all
Con := TUniConnection.Create(nil);
Con.Database := 'xxxx';
Con.Username := 'xxxx';
Con.Password := 'xxxx';
Con.Options.EnableBCD := True;
Con.Options.EnableFMTBCD := True;
Con.ProviderName := TPostgreSQLUniProvider.GetProviderName();
Con.SpecificOptions.Values['ProtocolVersion'] := 'pv30';
Con.SpecificOptions.Values['MultipleConnections'] := 'False';
Con.SpecificOptions.Values['UseUnicode'] := 'True';
Con.SpecificOptions.Values['CharSet'] := 'UTF8';
Con.SpecificOptions.Values['Schema'] := 'xxxx';
Con.SpecificOptions.Values['ApplicationName'] := 'foobar';
Con.Connect;
Query := TUniQuery.Create(nil);
try
Query.Connection := Con;
Query.SQL.Text := 'SELECT SAK_KONTO, SAK_DATUMAB FROM AGF_SAK ORDER BY SAK_KONTO, SAK_DATUMAB';
Query.Open;
finally
Query.Free();
end;
Con.Free();
except
on E: Exception do
Writeln(E.ClassName, ': ', E.Message);
end;
Code: Select all
TPgSQLRecordSet.GetExtFieldsInfo;
Code: Select all
TPgSQLCommand(RecordSet.GetCommand).FForceSwapConnection := True;