Club Builder

[chezqui]

Hola a todos,
en primer lugar decir que estoy iniciandome en esto del builder.
Tengo un problema cuando intento insertar una imagen desde archivo, en un campo TOLE de una base de datos. Yo lo intento hacer así:

if(OpenPictureDialog1->Execute())
{
DBImageFoto->Picture->LoadFromFile(OpenPictureDialog1->FileName);

//nos posicionamos en el registro adecuado (en la fila)
DataModule2->tbSocios->GotoBookmark(DataModule2->tbSocios->GetBookmark());
//preparamos para la edicion;
DataModule2->tbSocios->Edit();
DataModule2->tbSociosFOTO->LoadFromFile(OpenPictureDialog1->FileName);
try{
DataModule2->tbSocios->Post();
}
catch(...)
{
DataModule2->tbSocios->Cancel();

}
DataModule2->tbSocios->FreeBookmark(DataModule2->tbSocios->GetBookmark());
//DataModule2->tbSocios->Fields->Count
}

Nota:
tbSociosFOTO es el campo de la base de datos tbSocios, del tipo TOLE.
También lo he probado poner TGraphic y nada de nada.

Me sale un error en tiempo de ejecucion, diciendome que el tipo de imagen no es la adecuada.
Tambien he insertado la librería jpeg.hpp, para poder insertar archivos jpg.
Bueno eso es todo. Espero haberme explicado bien y que alquien me ayude, sorry.
Muchas Gracias.

[Marky]

Hola!

Mira este mensaje:

https://cppbuilder.es/viewtopic.php?t=3467

Suerte!

[Invitado]

[Marky]

El código que te comento es perfectamente funcional (yo lo uso y no da ni un problema) con la única pega que solo vale para guardar/leer jpgs.

El problema está al situarte en el registro marcado en la base de datos. Debes tener configurado el TSession o algún componente de acceso a datos de forma errónea por lo que no te deja modificar el registro,

[chezqu]

Ante todo muchas gracias Marky por tu ayuda.

Perdona también la tardanza, pero he tenido un problema de salud, del que afortunadamente estoy mejor.
Bueno, a lo que iba; solucionado el problema de la sesion, ahora, una vez introducido tu código, me sale un error distinto cuando intento guardar una imagen. El error es algo así:

Error jpg 41

Sin embargo el compilador no se cuelga con errores de memoria.
El código nuevo de la aplicacion es:

void __fastcall TForm1::ImageFotoDblClick(TObject *Sender)
{
if(OpenPictureDialog1->Execute())
{
//Cargo la imagen en el dbEdit
ImageFoto->Picture->LoadFromFile(OpenPictureDialog1->FileName);
DataModule2->tbSocios->Edit();

//*******tu código*******
TJPEGImage *JPeg;
TMemoryStream *Corriente;
JPeg = new TJPEGImage;
Corriente = new TMemoryStream;
static_cast <TGraphicField *>(DataModule2->tbSociosFOTO)->SaveToStream(Corriente);
//DataSetOrigen en el TDataSet que le paso como parámetro
Corriente->Seek(0,soFromBeginning);
JPeg->LoadFromStream(Corriente);
ImageFoto->Picture->Assign(JPeg); //Imagen es un TImage
Corriente->Free();
JPeg->Free();
//mediante est ShoMessage he comprobado que me situo en
//el registro adecuado, y me situo bien
ShowMessage(DataModule2->tbSociosNOMBRE->Value);

static_cast<TGraphicField*>(DataModule2->tbSociosFOTO)->LoadFromFile(OpenPictureDialog1->FileName);
//***********************fin tu código

try{
DataModule2->tbSocios->Post();
}
catch(...)
{
DataModule2->tbSocios->Cancel();

}



Para cargar la imgen utilizo el evento Doble Click del DBImage.
Como cuando llamo al evento me encuentro en un determinado registro, no hace falta utilizar la marca, para posicionarme en el (lo he comprobado tambien).

Espero que te enteres.

Bueno, si puedes ayudarme muchas gracias y sino tambien.





}

}

[Marky]

Es que aquí hay un pequeño problema de interpretación.

Para grabar la imagen en la base de datos es suficiente con usar el método LoadFromFile. Con esto, y tras llamar a Post(), la imagen ya quedaría grabada en el campo.

Con mi código lo que haces es visualizar el contenido del campo y cargarlo en un TImage, por ejemplo cuando editas un registro. No se si me entiendes, este código se usa para mostrar el contenido de un campo ftGraphic que ya fue grabado con anterioridad.

Por tanto, lo que te tiene que quedar claro es:

Para insertar la imagen en el campo

[chezqui]

Ante todo perdón por la tardanza.
Tenías razón, tu código funciona bien. El problema era debido a que yo utilizaba un TDBImage, en vez de un TImage. El componente al que hago referencia( TDBImage), sólo puede visualizar imágenes *.bmp y wmf.

Pues lo dicho, muchas gracias markey