Club Builder - Foros de discusión Club Builder
Foro de C++Builder en español
 
 FAQFAQ   BuscarBuscar   MiembrosMiembros   Grupos de UsuariosGrupos de Usuarios   RegistrarseRegistrarse 
 PerfilPerfil   Entra para ver tus mensajes privadosEntra para ver tus mensajes privados   EntrarEntrar 

Problema con DBImage

 
Publicar nuevo tema   Responder al tema    Foros de discusión -> Bases de Datos
Ver tema anterior :: Ver tema siguiente  
Autor Mensaje
Mensaje    Asunto: Problema con DBImage Responder citando

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
Ver perfil de usuario Enviar mensaje privado MSN Messenger
Mensaje    Asunto: Responder citando

¿Has hecho Post() a la tabla despues de guardar la imagen?
Volver arriba
Ver perfil de usuario Enviar mensaje privado Enviar email
Mensaje    Asunto: Responder citando

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
Ver perfil de usuario Enviar mensaje privado MSN Messenger
Mensaje    Asunto: Responder citando

HOLA


if (OP ->Execute())
{
if (Table1 ->State == dsBrowse)
Table1 ->Edit();

DBImage1->Picture->Bitmap ->LoadFromFile(OP->FileName);

}


by.
Volver arriba
Ver perfil de usuario Enviar mensaje privado
Mostrar mensajes de anteriores:   
Cambiar a:  
No puedes publicar temas nuevos en este foro
No puedes responder a temas en este foro
No puedes editar tus mensajes en este foro
No puedes borrar tus mensajes en este foro
No puedes votar en las encuestas de este foro


Hosting WordPress Indedmedia desde 3,99 €
© 2002–2026 Club Builder · Funciona con phpBB.