[Tino]

Hola. A ver si alguién se ha encontrado en la misma situación que yo y sabe darme algún consejo. Tengo una función PLSQL en el server que retorna un CLOB construido dinámicamente. Esta función es llamada por mi programita en delphi, mediante un TStoredProcedure. Va todo perfecto, salvo que no consigo que me retorne el CLOB. El código es:

Código Delphi [-]
 
function TDM.InstanciarDocumento(aParams: String; var aXML, Msg: String): Boolean;
// SPInstanciaXML es un TStoredProcedure
begin
  with SPInstanciaXML do
  try
     ParamByName('P_PARAM_XML').AsString := aParams;
     ExecProc();
     Result := ParamByName('RESULT').AsBoolean;
     if Result then
         aXML := ParamByName('P_DOC_XML').AsBlob
     else
         Msg := ParamByName('P_ERROR').AsString;
  finally
      Close;
  end; 
end;

La funcion SQL la tengo definida así:

 
FUNCTION Fu_Instancia_XML(
			 p_param_xml IN VARCHAR2, 
			 p_doc_xml OUT NOCOPY CLOB, 
			 p_error OUT VARCHAR2) RETURN BOOLEAN; 

La función plsql anterior me va de maravilla... si la ejecuto en un entorno plsql, pero desde Delphi no consigo hacer que funcione.

De hecho, tengo 2 ó 3 funciones por el estilo y ninguna de ellas me funciona. El resto de funciones, que no retornan un CLOB, me van sin problemas.

¿Estoy inicializando mal el TStoredProcedure? Según tengo entendido, un CLOB de Oracle es compatible con el tipo string de Delphi. ¿no es así?

Uso D7 y Oracle 8i pero también me pasa con la 9i.

Agradecería cualquier comentario.