6 replies to this topic

[santiago14]

Buenas, antes que nada, feliz 2.017 para todos. Que sea un mejor año.

Si este Post no está en el lugar adecuado, pido por favor que lo envíen a donde corresponda. Mientras no sea el basurero.

 

Explico: Tengo un proceso en Delphi XE5 que recupera algunas cosas desde la BBDD (Firebird 2.5), este proceso llama a un Store Procedure de Firebird.

El tema está cuando quiero recuperar datos que son Blob's. Siempre me devuelve vacío.

 

Mi proceso es:

delphi

function TDataModule1.recupero_Valor_Entorno(cod_sucursal:integer; nombre_Entorno:string):TStream;
//var
//  resultado:TStream;
begin
//spValorEntorno es un componente StoreProc de FireDAC
  with DataModule1.spValorEntorno do
  begin
    Close;
    Params.Clear;
    StoredProcName:='RECUPERO_VALOR_ENTORNO ';  //nombre del store procedure
    Params.CreateParam(ftInteger, 'COD_SUCURSAL', ptInput); //creamos el parametro de entrada
    Params.CreateParam(ftWideString, 'NOMBRE_ENTORNO', ptInput); //creamos el parametro de entrada
//Quiero que me devuelva un valor Blob
    Params.CreateParam(ftBlob, 'VALOR', ptOutput);   //creamos el parametro de salida
    ParamByName('COD_SUCURSAL').AsInteger:=cod_sucursal;
    ParamByName('NOMBRE_ENTORNO').AsString:=nombre_entorno ;  //le asignamos al param. entrada su valor
 
    Prepare; //hacemos que se "arme" el objeto SP
    try
      ExecProc;
    //que me devuelva lo que esta en el parametro de salida
 
   //Aquí, por supuesto me tira un error.
      Result:=ParamByName('VALOR').AsBlob; //capturamos lo que devolvió el SP
 
      unPrepare;
    except
      on exception do
      begin
        UnPrepare;
        raise;
      end;
    end; //del try
  end;
end;

Mi Procedimiento almacenado es:

sql

CREATE OR ALTER PROCEDURE RECUPERO_VALOR_ENTORNO (
    COD_SUCURSAL INTEGER,
    NOMBRE_ENTORNO VARCHAR(100))
RETURNS (
    VALOR BLOB sub_type 0 segment SIZE 100)
AS
DECLARE variable CODIGO_ENTORNO INTEGER;
BEGIN
  /*Ya no actualiza en Entorno, ahora lo hace en Valores*/
  SELECT e.cod_entorno
  FROM entorno e
  WHERE e.nombre_entorno = :nombre_entorno
  INTO :codigo_entorno;
 
  /* Recupero el valor entorno según el nombre_entorno solicitado */
  SELECT FIRST 1 v.valor FROM valores v
  WHERE v.cod_valor IN (SELECT se.cod_valor
                         FROM sucursales_entorno se
                         WHERE se.cod_sucursal = :cod_sucursal
                         AND se.cod_entorno = :codigo_entorno)
  INTO :valor;
  SUSPEND;
END

Haciendo pruebas dentro de la BBDD recupera bien las cosas, pero cuando lo llamo, devuelve datos vacíos, o mi Procedimiento no sabe recuperar bien los datos, o algo...

 

El campo "v.valor" es un Blob definido en la tabla "Valores"

 

Bueno, espero haber sido claro...

Gracias.

[enecumene]

Debes guardarlo en un stream, algo así de rápido:

delphi

if Dataset.FieldByName('campo') is TBlobField then begin
  TBlobField(DataSet.FieldByName('campo')).SaveToStream(variable);
  Variable.Seek(0, soFromBeginning);
  //Continúas tratando el Stream
  ...
end;

Al no saber qué tipo de datos almacenas en ese campo no puedo dar más detalles.

[Delphius]

¿Que componentes estás usando? Yo tengo Delphi Berlin 10.1 Starter, y la cual no viene con suites de acceso a bases de datos. Hay que instalarlos por aparte como las Zeos por ejemplo. Si usas estos componentes puedo hacer una prueba.

 

No estoy completamente seguro, pero creo que el problema puede ser una de dos cosas (o quizá ambas):

 

1. Tu función recupero_Valor_Entorno() regresa como resultado un TStream, mientras que tu en ParamByName() pretendes asignarle un Blob, que no necesariamente es lo mismo. Puede que te devuelva vacío ya que no es tan directo el pase de BLOB a TStream.

 

2. Cuando creas el parámetro para el campo de retorno VALOR le estableces como tipo ptOutPut. Es posible que en este caso debiera ser ptResult.

 

Como alternativa al punto 2, en lugar de recuperarlo por ParamByName() quizá sea necesario mediante FieldByName(). Esto te lo comento debido a que existe la posibilidad de que este tipo de SP al regresar un blob sea del tipo seleccionable. Aún cuando se trate de un único registro, y mono atributo. Es un dataset, de todas formas.

 

Saludos,

[santiago14]

Debes guardarlo en un stream, algo así de rápido:

delphi

if Dataset.FieldByName('campo') is TBlobField then begin
  TBlobField(DataSet.FieldByName('campo')).SaveToStream(variable);
  Variable.Seek(0, soFromBeginning);
  //Continúas tratando el Stream
  ...
end;

Al no saber qué tipo de datos almacenas en ese campo no puedo dar más detalles.

 

En ese campo hay almacenado: imágenes, direcciones web, datos de facturación (CUIT, IIBB, etc.) Esto puede reconocerse a través del nombre. Así , si NOMBRE_ENTORNO = 'IMAGEN_FACTURA', ese Blob tiene el logo de la empresa que va en los comprobantes de venta.

sql

CREATE TABLE ENTORNO (
    COD_ENTORNO       INTEGER NOT NULL,
    NOMBRE_ENTORNO    VARCHAR(50),
    OBSERVAC_ENTORNO  VARCHAR(500),
    AGRUPAMIENTO      VARCHAR(200)
);

A través de NOMBRE_ENTORNO entro a otra tabla, VALORES:

sql

CREATE TABLE VALORES (
    COD_VALOR       INTEGER NOT NULL,
    VALOR           BLOB SUB_TYPE 0 SEGMENT SIZE 80 CHARACTER SET ISO8859_1,
    OBS_VALOR       VARCHAR(500),
    VALOR_EDITABLE  BOOLEANO /* BOOLEANO = CHAR(2) NOT NULL CHECK(VALUE IN ('SI', 'si', 'NO', 'no')) */
);

Y aquí está el Blob, que puede contener cualquier cosa. Esa "cualquier cosa" está identificada por NOMBRE_ENTORNO, que me dice que es lo que hay ahí.

 

Y es aquí donde entra en juego el Store Procedure, motivo del Post.

 

 

Espero haber sido claro.

Gracias.

Edited by santiago14, 17 January 2017 - 05:52 AM.

[enecumene]

Estaba claro desde el principio mi estimado, el stored procedure, o más bien, el motor firebird, devuelve los campos Blob como stream, claro, siempre y cuando sea binario, si es texto te devuelve sin problemas, la clave está en cómo tratas esa información en Delphi, tanto Delphius como yo, te recomendamos el uso de TStream, ahora bien, debes crear algún algoritmo para tratar la información de acuerdo al tipo de dato guardado en ese campo, como mi ejemplo anterior, si es texto:

delphi

var Texto: String;
 
...
 
if Dataset.FieldByName('campo') is TBlobField then begin
  TBlobField(DataSet.FieldByName('campo')).SaveToStream(variable);
  Variable.Seek(0, soFromBeginning);
  Texto := Variable.readString(Variable.Size);
end;

En las imágenes es más complejo pero a la vez más sencillo, porque debes determinar que formato es (jpg,png bitmap, etc), en este caso te doy un ejemplo con JPG:

delphi

var logo: TJPEGImage;
begin
 try
   logo := TJPEGImage.create;
   logo.assign(Dataset.FieldByName('blob'));
   Image1.assign(logo);
 finally
   logo.free;
 end;
end;

En fin, el Stored Procedure nunca te va a devolver el campo BLOB ya "tratado", debes tratarlo en el entorno que desarrolles.

[santiago14]

Perfecto, esa fue la idea desde un principio. Necesitaba que el Store Procedure me devolviera un TStream. Luego, en una siguiente instancia, paso ese resultado al tipo que corresponda.

Para ello, tengo algunos métodos interesantes: StreamToString, StreamToPicture, ...

 

Gracias.

[santiago14]

Bueno, después de mucho probar y fracasar pude hacer funcionar. Jajaja, me salió verso...

Bueno, ahí va:

delphi

function TDataModule1.recupero_Valor_Entorno(cod_sucursal:integer; nombre_Entorno:string):TStream;
begin
  with DataModule1.spValorEntorno do
  begin
    Close;
    Params.Clear;
    StoredProcName:='RECUPERO_VALOR_ENTORNO ';  //nombre del store procedure
    Params.CreateParam(ftInteger, 'COD_SUCURSAL', ptInput); //creamos el parametro de entrada
    Params.CreateParam(ftWideString, 'NOMBRE_ENTORNO', ptInput); //creamos el parametro de entrada
    //Params.CreateParam(ftWideString, 'VALOR', ptOutput);   //creamos el parametro de salida
    Params.CreateParam(ftBlob, 'VALOR', ptOutput);   //creamos el parametro de salida
    ParamByName('COD_SUCURSAL').AsInteger:=cod_sucursal;
    ParamByName('NOMBRE_ENTORNO').AsString:=nombre_entorno ;  //le asignamos al param. entrada su valor
 
    Prepare; //hacemos que se "arme" el objeto SP
    try
      OpenOrExecute;
      if FieldByName('VALOR') is TBlobField then
      begin
        Result:=CreateBlobStream(spValorEntorno.FieldByName('VALOR'), bmRead);
      end;
      unPrepare;
    except
      on exception do
      begin
        UnPrepare;
        raise;
      end;
    end; //del try
  end;
end;

Mil gracias por todos los aportes, sirvieron de mucho. Este Procedure tiene la capacidad de devolver un Stream, que luego lo transformo convenientemente en lo que yo quiera.

Gracias de nuevo.