Asignar imagen a icono

[Angel.Matilla]

Estoy trabajando cn BCB 6 y probablemente no se pueda. He estado mirando por el foro y no he podido encontrar respuesta a una duda que tengo. A ver si puedo explicarme:

Tengo una tabla FB en la que guardo, entre otras cosas, el logotipo que usaré en los impresos de la aplicación, de forma que el usuario podrá cambiar el mismo cuando desee. Me preguntaba si esa imagen guardada a partir de un fichero JPG o BMP así:

TMemoryStream *msImagen = new TMemoryStream;

(Imagen->Picture->Bitmap)->SaveToStream(msImagen);
msImagen->Seek(0, soFromBeginning);
if (msImagen->Size != 0)
{
     Query->Close();
     Query->SQL->Text = "INSERT INTO Instalacion (Etiqueta, Imagen) VALUES ('Logo', :Imagen)";
     Query->ParamByName("Imagen")->LoadFromStream(msImagen, ftBlob);
     Query->ExecSQL();
     Query->Transaction->CommitRetaining();
}

Podría ser asignada, por ejemplo, al icono de la aplicación. He estado dando vueltas por foros y por la ayuda de Builder y se me había ocurrido que tal vez pudiera hacerse a través de un SaveToStream / LoadFromStream; se me había ocurrido esto:

Query->Close();
Query->SQL->Text = "SELECT Imagen FROM Instalacion WHERE Etiqueta = 'Logo'";
Query->Open();
static_cast<TGraphicField>(Query->FieldByName("Imagen"))->SaveToStream(msImagen);
if (msImagen->Size > 0)
     Application->Icon->LoadFromStream(msImagen);

pero da un error en el LoadFromStream.

[ecfisa]

Hola.

Fijate si te sirve de este modo:

Código PHP:

void blobToico(TField *field, TIcon* ico)
{
  try {
    if ( field->IsNull ) throw Exception("El campo tiene valor nulo");
    TStream *stream = field->DataSet->CreateBlobStream( field , bmRead );
    try {
      Graphics::TBitmap *bmp = new Graphics::TBitmap;
      bmp->LoadFromStream( stream );
      TImageList* list = new TImageList( bmp->Width, bmp->Height );
      try {
        list->AddMasked( bmp, bmp->TransparentColor );
        list->GetIcon( 0, ico );
      }
      __finally {
        delete list;
        delete bmp;
      }
    }
    __finally {
      delete stream;
    }
  }
  catch(const Exception& E) {
    MessageBox(0, E.Message.c_str(), "", MB_ICONERROR);
  }
} 


Ejemplo de uso:

Código PHP:

void __fastcall TForm1::btnBlobToIcoClick( TObject *Sender )
{
  TIcon* ico = new TIcon;

  try {
    blobToico(IBDataSet1->FieldByName("IMAGE"), ico );
    Application->Icon->Assign(ico);
  }
  __finally {
    delete ico;
  }
} 


Salida del ejemplo:


Agregué un componente imagen para resaltar los cambios, ya que dado el tamaño del ícono en la barra de título, no se visualiza muy bién en la animación.

Saludos

[Casimiro Notevi]

¿Eso se puede hacer a versiones anteriores de windows?

[Angel.Matilla]

Perfecto ecfisa. ¡Eres un hacha! Muchísimas gracias.

[ecfisa]

Hola Antonio.

Sólo usé el código bajo Windows 7, pero estimo que no tendría problemas de ejecutarse en versiones anteriores de windows.

Saludos

[ecfisa]

Hola Angel.

Empezado por Angel.Matilla

Perfecto ecfisa. ¡Eres un hacha! Muchísimas gracias.

Me alegro que el código te haya resultado útil.

Saludos