function T_NavXLMUNMain.ExecuteSQL(aSQL: TOracleQuery): Boolean;
begin
Result := False;
if not MainDBConnect then
Exit;
try
aSQL.Execute;
Result := True;
except
on E: Exception do
begin
WriteLog('e', 'Ошибка в SQL: ' + E.Message + ' sql запрос (' + aSQL.SQL.Text + ')');
if not ControlDBConnect then
tmReconnectDB.Enabled := True;
end;
end;
end;
ORACLE HOME c:\ora\product\11.1.0\db_1
ORACLE HOME KEY SOFTWARE\ORACLE\KEY_ora1110
ORACLE HOME DIR
ORACLE HOME NAME ora1110
ORACLE HOME LIST ora10201client
ora1110
ORACLE BIN DIR TRUE
ORACLE OCI DLL c:\ora\product\11.1.0\db_1\bin\oci.dll
ORACLE OCI VERSION version 9.2
Тему можно закрывать?Похоже помогло выставление параметра ThreadSafe:= true. Пару месяцев проблем не наблюдалось.