Tengo un problema al descargar una imagen

[Angel.Matilla]

La imagen está guardada en una tabla de una BB.DD. en Firebird. A ver si alguien me ayuda porque estoy más perdido que, como dice Alberto Chicote, un cerdo en una perfumería. Estoy compilando un proyecto y me da este error:

[Linker Error] Unresolved external 'BLOBtoJPG(Db::TBlobField *)' referenced from C:\TPV\DATFIJ.OBJ

En el formulario en que da el error tengo este código:

extern TJPEGImage* BLOBtoJPG(TBlobField *CampoBLOB);

y llamo a la función así:

TImage *Imagen = static_cast<TImage *>(Source);
Imagen->Picture->Assign(BLOBtoJPG(static_cast<TBlobField*>(fMenu->Query->FieldByName("Imagen"))));

y en el formulario donde la llamo están estos includes:

#include <vcl.h>
#include <memory>
#include <olectl.h>
#include <jpeg.hpp>

En un módulo que tengo para todas estas funciones que se usan en varios sitios la función está declarada así:

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

Esta función, y otras varias, estoy harto de usarlas con este mecanismo (definirlas en un fichero cpp y llamarlas con la declaración extern) desde hace mucho tiempo y no me ha dado error nunca, pero no sé cual es el problema, no soy capaz de verlo.

[Casimiro Noteví]

¿Puede que no esté bien la imagen guardada?
También intenta cambiar la extensión, en lugar de .obj

Código PHP:

TJPEGImage* BlobtoJPG(TBlobField *CampoBLOB)
{
    if (!CampoBLOB)
    {
        ShowMessage("CampoBLOB es NULL");
        return NULL;
    }
    
    if (CampoBLOB->Value.IsEmpty())
    {
        ShowMessage("CampoBLOB está vacío");
        return NULL;
    }
    
    try
    {
        TJPEGImage *JPeg = new TJPEGImage;
        TMemoryStream *StreamTmp = new TMemoryStream;
        
        ShowMessage("Tamaño del BLOB: " + IntToStr(CampoBLOB->BlobSize));
        
        CampoBLOB->SaveToStream(StreamTmp);
        ShowMessage("Tamaño del stream: " + IntToStr(StreamTmp->Size));
        
        StreamTmp->Position = 0;
        JPeg->LoadFromStream(StreamTmp);
        
        ShowMessage("JPEG cargado correctamente");
        delete StreamTmp;
        return JPeg;
    }
    catch(Exception &e)
    {
        ShowMessage("Error: " + e.Message);
        return NULL;
    }
} 


</div>

[Angel.Matilla]

Empezado por Casimiro Noteví

¿Puede que no esté bien la imagen guardada?
También intenta cambiar la extensión, en lugar de .obj

Gracias por la respuesta. Probaré ahora mismo. Lo del cambio de extensión no lo entiendo: esa extensión está en el mensaje de error que da al compilar, no la pongo yo.

[Casimiro Noteví]

¿Puede ser que hayas escrito en minúsculas en lugar de mayúculas?

Código Delphi [-]
// Declaración (en el .h) - MAYÚSCULAS
TJPEGImage* BLOBtoJPG(TBlobField *CampoBLOB);

// Implementación (en el .cpp) - minúsculas  
TJPEGImage* BlobtoJPG(TBlobField *CampoBLOB)  // ← ¡DIFERENTE!
{
    // código...
}

[Angel.Matilla]

Empezado por Casimiro Noteví

¿Puede ser que hayas escrito en minúsculas en lugar de mayúculas?


// Declaración (en el .h) - MAYÚSCULAS
TJPEGImage* BLOBtoJPG(TBlobField *CampoBLOB);

// Implementación (en el .cpp) - minúsculas
TJPEGImage* BlobtoJPG(TBlobField *CampoBLOB) // ← ¡DIFERENTE!
{
// código...
}

¡Seré mendrugo! Justo ese era el problema.

[Casimiro Noteví]

Empezado por Angel.Matilla

¡Seré mendrugo! Justo ese era el problema.

De todas formas edita tu functión porque no estás liberando la memoria.
Mira el ejemplo que te he puesto.