Gracias!!!
Me sirvio mucho tu respuesta..
Pero el problema es que necesito hacerlo almacenando las imagenes.. habia pensado en hacerlo con los links pero me faltaba aprender un par de cosas que las aprendi de tu respuesta..
Logre almacenar al fin las imagenes dentro de la base de datos... pero tengo un dbgrid y cuando le pongo para agregar un nuevo registro lo agrega siempre al final...
Aca les paso el codigo..
void __fastcall TForm1::Button3Click(TObject *Sender)
{
if(Abrir->Execute())
{
Table1->Append();
Image1->Picture->LoadFromFile(Abrir->FileName);
TBlobStream *Bs;
Bs =new TBlobStream ((TBlobField *)Table1->Fields->Fields[7], bmWrite);
Image1->Picture->Graphic->SaveToStream(Bs);
}
}
//////////////////////////////////////////////////////////////////////////
void __fastcall TForm1::Button4Click(TObject *Sender)
{
if (Table1->Fields->Fields[7]->IsNull)
Image1->Picture->Graphic = NULL;
else
{
TBlobStream *Bs;
Bs =new TBlobStream ((TBlobField *)Table1->Fields->Fields[7], bmRead);
TJPEGImage *Graphic;
Graphic=new TJPEGImage;
Graphic->LoadFromStream(Bs);
Image1->Picture->Graphic = Graphic;
}
}
Espero que alguno pueda ayudarme
Gracias