| Ver tema anterior :: Ver tema siguiente |
| Autor |
Mensaje |
Rafael Ramírez Cdt

Registrado: 29 Jun 2004Mensajes: 9Ubicación: Querétaro, México
|
Publicado: Mar 06 Jul, 2004 4:09 am Asunto: Problema con DBImage |
|
|
Antes que nada, quiero agradecer a LordNemesis y César C. Salazar, por su ayuda, que fue muy valiosa.
Tengo un componente DBImage vinculado con un componente table (en una base de datos Paradox7) en un formulario y al hacerle doble click se ejecuta el siguiente código:
(AbreImagen1 es un cuadro de diálogo para cargar imágenes)
void __fastcall TMeFo::DBImage1DblClick(TObject *Sender)
{
if(AbreImagen1->Execute()) {
DBImage1->Picture->LoadFromFile(AbreImagen1->FileName);
DBImage1->LoadPicture();
}
}
Cuando ejecuto el programa puedo cargar la imagen, pero al explorar la base de datos, desde el programa que incluye el Builder, no aparece nada.
Más concretamente mi pregunta es: ¿cómo puedo agregar una imagen en un registro de una tabla que, además de tener campos de texto, tiene campos de tipo ParadoxOLE? |
|
| Volver arriba |
|
 |
alfredo Master

Registrado: 13 Oct 2003Mensajes: 246Ubicación: Valencia Venezuela
|
Publicado: Mar 06 Jul, 2004 6:33 pm Asunto: |
|
|
| ¿Has hecho Post() a la tabla despues de guardar la imagen? |
|
| Volver arriba |
|
 |
Rafael Ramírez Cdt

Registrado: 29 Jun 2004Mensajes: 9Ubicación: Querétaro, México
|
Publicado: Jue 08 Jul, 2004 10:27 pm Asunto: |
|
|
El Post se lo agrego en el método de un botón guardar en el que guarda además los campos de texto, no tengo el código pero es algo más o menos así:
| Código: |
void __fastcall TForm1::BtnSalvarClick(TObject *Sender)
{
Table1->Edit();
Table1->FieldByName("Campo1")->AsString = Edit1->Text;
Table1->FieldByName("Campo2")->AsString = Edit2->Text;
Table1->FieldByName("Campo3")->AsString = Edit3->Text;
Table1->FieldByName("Campo4")->AsString = Edit4->Text;
. . .
. . .
Table1->Post();
}
|
|
|
| Volver arriba |
|
 |
TOÑO Master

Registrado: 26 Ago 2002Mensajes: 223Ubicación: Madrid - España -
|
Publicado: Lun 19 Jul, 2004 1:15 pm Asunto: |
|
|
HOLA
if (OP ->Execute())
{
if (Table1 ->State == dsBrowse)
Table1 ->Edit();
DBImage1->Picture->Bitmap ->LoadFromFile(OP->FileName);
}
by. |
|
| Volver arriba |
|
 |
|