Cargar imagen desde Firebird

[Angel.Matilla]

Empezado por TOPX

Ok, entonces hay que hacer el casteo al tipo de dato del parámetro, osea algo como

::BLOBtoJPG((TBlobField*)Query->FieldByName("Imagen"))

¿Ves? Estas cosas no se me ocurren nunca . Ha funcionado a la perfección.

Empezado por TOPX

Eso es equivocado; el método BLOBtoJPG no está pidiendo un valor, está pidiendo un objeto.

Ya, pero si se puede usar como parámetro (Query->ParamByName("Imagen")->AsBlob), alguna forma tiene que haber para llamar a ese objeto desde un FieldByName.

Empezado por ecfisa

Solo como observación, me parece ver un problema de memory leak en esa función...

¿Dónde? A mi no me da ningún error de memoria.

[ecfisa]

Empezado por Angel.Matilla

¿Dónde? A mi no me da ningún error de memoria.

TJPEGImage*  __fastcall BlobToJpg(TBlobField *CampoBLOB)
{
    if(!CampoBLOB->Value.IsEmpty())
    {
        TJPEGImage *JPeg = new TJPEGImage;             // <==== (1)
        TMemoryStream *StreamTmp = new TMemoryStream;  // <==== (2)
        CampoBLOB->SaveToStream(StreamTmp); //sacamos el jpg y se convierte a stream
        StreamTmp->Seek(0,soFromBeginning);
        JPeg->LoadFromStream(StreamTmp);
        return(JPeg);
    }
    else
        return(NULL);
}

Tal vez no todavia...

Cuando solicitas recursos usando VCL es tu responsabilidad liberarlos, Builder C++ no liberará automáticamente la memoria ocupada, aún cuando se trate de variables locales a la función.

En ese código no se libera la variable SteramTmp; y lo mas serio es que no se puede liberar la variable JPeg sin dejar inoperante la función.

Saludos

[TOPX]

Empezado por ecfisa

Cuando solicitas recursos usando VCL es tu responsabilidad liberarlos, Builder C++ no liberará automáticamente la memoria ocupada, aún cuando se trate de variables locales a la función.

Es muy importante esto que dice ecfisa, hay que aplicar esa directriz siempre.

Verguenza para mí que no lo había pillado en el código inicial.
-

[Angel.Matilla]

¡Pues no me había dado cuenta! Tenéis razón. El problema es cómo liberar ambas variables ya que el jpeg es lo que devuelve como respuesta la función; no se me ocurre como. Acaso sea mejor sistema el que me sugieres en tu código, invocando en la función tanto el campo blob como el TImage en que ha de situarse; de esa forma se pueden liberar recursos. Voy a probarlo.