Recent content by cptngrb

Oracle.NoQueryOptimize:= True; Result := TOracleSession.Create(nil); Result.ThreadSafe := False; Result.StatementCache:= False{True}; Result.Pooling:= spInternal; These settings seem to solve the problem. but I'm not sure

Oracle Client version 12.2 win x64; DOA 4.1.3; Delphi RIO. why is this happening? I connect to one server. Result:= TOracleSessionPool.Create(nil); Result.Homogeneous:= True; Result.Max:= FSessionCountMax; Result.LogonUsername:= FUser; Result.LogonPassword:= FPassword; Result.LogonDatabase:=...

When the server stops responding and I try to connect via OracleSession.Logon, 18 of the 25 threads hang for an indefinite time, and only 7 threads return the error "ORA-12154: TNS:could not resolve the connect identifier specified", after 10 minutes, a couple more threads return the error, but...

except through editing file tnsnames.ora

How do I set the client settings for timeout?

I use the following sequence of actions in the thread (method Execute) while not Terminated do begin OracleSession.LogOn; OracleQuery.Execute; OracleSession.LogOff; end; P.S. Taking sessions from the pool

Oracle Client version 12.2 win x64; DOA 4.1.3; Delphi RIO. I use a session pool to connect to the DB. There are several (20-30) threads running in the app. Each thread has its own TOracleSession. The connection to the database is not stable. The server may restart. And in these conditions...

up

Do I need to use this option if each thread has been created TOracleSession and TOrackeQuery?

sequencing of actions OracleSession.Pool:= OracleSessionPool; OracleSession.LogOn; //sometimes here is the error OracleQuery.Session:= OracleSession; OracleQuery.Execute; OracleQuery.Close; OracleQuery.Session:= nil; OracleSession.LogOff;

several TSessionPreferences objects are lost under the debugger on error

function AddQuery(ASize: integer): TOracleQuery; var Q: TOracleQuery; begin Result:= nil; try Q:= TOracleQuery.create(nil); // Q.Session:= ASession; Q.DeleteVariables; Q.Sql.Text:='begin' + #13#10 + ' pinsert__buf(m1 => :m1,' + #13#10 + '...

type TobPack = class m1: Variant; m2: Variant; m3: Variant; m4: Variant; m5: Variant; m6:Variant; m7: Variant; m8: Variant; cnt_pack: integer; constructor Create(const dbSize: integer); overload; destructor Destroy; override; end; { TobPack }...

3 Thread. I will describe the main points -------------------- 1 type TListQuery = class private FCS: TCriticalSection; FList: TObjectQueue; FMaxCount: integer; FType: byte; FSize: integer; public constructor Create(const ACount, ASize, AMax...

Error floating. With 10 threads, no problems occurred