acceso lectura CLOB/BLOB

[Yomarcol]

hola a todos:

Estoy programando una aplicación en Delphi 5 en la que he acceder a un blob mediante componentes TOCIQUery. Uso Delphi 5 y el driver de Oracle SqlORA32.dll.

Tengo una tabla que tiene un campo CLOB_INI (tipo CLOB) que contiene un ini para una aplicación. En principio, revisando este foro, encontré el modo de leer y escribir, pero no sé por qué, a la hora de leer el campo, aparece un error ORA-3123: La operación se bloquearía.

Esto hace que no pueda descargar el ini ni poderlo manejar. el procedure que utilizo es éste (hay cosas comentada porque he querido verificar que realmente accedía a la bbdd y encontraba al menos un registro).

Si he puesto algo incorrecto, por favor decírmelo (tanto en el mensaje como en el código en sí...)

Saludos y gracias adelantadas

Código Delphi [-]
procedure LeerIni(mi_ini:TStream);
var
 Qry : TOCIQuery;
 tmp_ini:TStream;
 MS: TMemoryStream;
 BlobField: TField;
 blob: TBlobStream;



begin

 Qry := TOCIQuery.Create(nil);
 MS := TMemoryStream.Create;



 try

  Qry.DatabaseName := dmSql.DatabaseBLOB.DatabaseName;
  Qry.SQL.Add('SELECT *');
  Qry.SQL.Add(' FROM TABLA_INI');
  Qry.SQL.Add(' WHERE NOM_INI= ''fichero_ini'' ');
  try
        Qry.Open;
        except
        on e:exception do
                begin
                ShowMessage('Error cargando ini de BBDD: ' + e.Message);
                end;
        end;
 { qry.SQL.SaveToFile('c:/query1.txt');

  if Qry.RecordCount >0
  then Showmessage('hay un registro');}

 with Qry do
 begin
  tmp_ini := CreateBlobStream(Qry.FieldbyName('CLOB_INI') as TBlobField, bmRead);

 end;
 //Qry.Free;
 try
    tmp_ini.Seek(0, soFromBeginning);
          //contenidoIni.Seek(0, soFromBeginning);
     with TFileStream.Create( DIRECTORIO_INI + NOMBRE_INI, fmCreate) do
     try
             CopyFrom(tmp_ini, tmp_ini.Size)
     finally
              Free
     end;
 finally
          tmp_ini.Free;

 end;

 finally
  Qry.Free;

 end;

end;

[Pericles]

Hola, mucho no he manejado Oracle. Este error parece ser preventivo, como que el motor te avisa que esa operacion provocaria errores o colgadas en ese momento por x condiciones..
Revisando algunos casos del mismo error algunos mencionan
1)optimizar la consulta
2)colocar Select campo1, campo2.. en lugar de * y parece funcionar.. (raro esto ultimo)
3)configurar opcion de conexion de esta manera.. SQLSetConnectOption( hdbc, SQL_ASYNC_ENABLE_OFF, SQL_NTS );

quizas podrias demorar los siguientes procedimientos con un timer de manera de dar mayor tiempo de procesar la consulta..

Saludos
Nicolas Perichon

detalle mensaje.. (no es un error) tiene que ver con algo de time out.
ORA-03123peration would block
Cause:This is a status code that indicates that the operation cannot complete now.
Action: None; this is not an error. The operation should be retried again for completion.

[Yomarcol]

hola¡¡

Gracias por la respuesta¡¡ al final descubrí que era problema de la propiedad DatabaseBLOB.NonBlockingMode:= False; (yo la tenía al principio a True).

de todas maneras, como me tocará revisar este tema, tendré en cuenta lo que me has indicado.

Gracias de nuevo¡¡¡