Cita:
Empezado por ecfisa
Y para no dejar el caso inconcluso, este código muestra en un componente TImage los tipos de imagenes soportados y cuya firma sea evaluada y creada en consecuencia.
Código PHP:
void __fastcall TForm1::DataSource1DataChange(TObject *Sender,
TField *Field)
{
unsigned short us;
TBlobField *blob = static_cast<TBlobField*>(IBDataSet1->FieldByName("IMAGE"));
CopyMemory(&us, &blob->Value[1], sizeof(us));
AnsiString st = IntToHex(us, 4);
TGraphic *gr;
try {
if (st == "4D42") gr = new Graphics::TBitmap;
else if (st == "D8FF") gr = new TJPEGImage;
else if (st == "0000") gr = new TIcon;
else if (st == "5089") gr = new TPNGObject;
// etc, etc, ...
gr->Assign(blob);
Image1->Picture = NULL;
Image1->Picture->Bitmap->Height = gr->Height;
Image1->Picture->Bitmap->Width = gr->Width;
Image1->Picture->Bitmap->Canvas->Draw(0, 0, gr);
} __finally {
delete gr;
}
}
Saludos  |
Interesante código pero, al menos en BCB 6 tengo un probelma: Al compilar me da un error en la línea else
if (st == "5089") gr = new TPNGObject; bueno para ser exactos da tres en la misma línea pero es evidente que resuelto, resueltos todos. Son estos:
- [C++ Error] E2303 Type name expected
- [C++ Error] E2034 Cannot convert 'int *' to 'TGraphic *'
- [C++ Error] E2379 Statement missing ;
Está claro que en BCB 6 no sabe como tratar un PNG. Por otra parte, ¿dónde puedo encontrar las
firmas de los diferentes tipos de gráfico?