Ver Mensaje Individual
  #3  
Antiguo 21-10-2004
Avatar de Tino
Tino Tino is offline
Miembro
 
Registrado: may 2004
Posts: 40
Reputación: 0
Tino Va por buen camino
Por si sirve de algo, este es el plsql que quisiera "meter" en Delphi:
Código:
DECLARE
   vXMLParam VARCHAR2(200) := 
	   '<?xml version="1.0" encoding="iso-8859-1"?>' || 
	   '<parametros>' ||
	   '<PARAMNIF>394002</PARAMNIF>' || 
	   '</parametros>';
   cDoc CLOB;
   err VARCHAR2(2000);
   vId NUMBER;
BEGIN
 
   SELECT campo3 INTO vId
   FROM tabla
   WHERE campo1 = 'PRUEBA' AND campo2='PRUEBA';
 
   dbms_LOB.CreateTemporary(cDoc, TRUE);
   dbms_LOB.Open(cDoc, dbms_LOB.LOB_READWRITE); 
   cDoc := Fu_Instancia_XML(vId, vXMLParam);

   PrintCLOBOut(cDoc); <== E S T O   E S   L O   Q U E	N E C E S I T O 
 
   dbms_lob.Close(cDoc); 
   dbms_lob.freetemporary(cDoc); 
 
END;
Saludos.

Última edición por Tino fecha: 21-10-2004 a las 20:45:00.
Responder Con Cita