Jelajahi Sumber

* Correction in connection pooling, we were leaking connections

git-svn-id: trunk@25522 -
michael 12 tahun lalu
induk
melakukan
a814e0eb27
1 mengubah file dengan 1 tambahan dan 0 penghapusan
  1. 1 0
      packages/fcl-db/src/sqldb/postgres/pqconnection.pp

+ 1 - 0
packages/fcl-db/src/sqldb/postgres/pqconnection.pp

@@ -409,6 +409,7 @@ begin
   else
     begin
     tr.PGConn := PQconnectdb(pchar(FConnectString));
+    T.FPGConn:=tr.PGConn;
     CheckConnectionStatus(tr.PGConn);
     if CharSet <> '' then
       PQsetClientEncoding(tr.PGConn, pchar(CharSet));