Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros temas > Trucos
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Los mejores trucos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 11-08-2007
Avatar de Emilio
*Emilio* Emilio is offline
Capo
 
Registrado: may 2003
Ubicación: Palma de Mallorca
Posts: 2.635
Poder: 10
Emilio Va por buen camino
Galeria de Imágenes en Delphi 7 (Paradox)

Hola, despues de una incansable búsqueda me resultó inutil tratar de hacer una galeria de imágenes por que realicé un formulario de facturación pero queria que al agregar algun articulo se tuviera la libertad de elegir una imagen y guardarla junto con sus datos.

de tanto intentar y fallar codigos posibles para esta accion logré alfin está funcion

la falta de informacion no es buena asi que voy a explicar lo que hice ya que he visto en muchisimos foros la busca de esta solucion.

trataré de ser lo mas específico posible ok? :)

pasos:

1- crea una carpeta ( donde se guardará el project).
2- crea una sub carpeta donde guardarás las imagenes.
3- crea una tabla (paradox 7) con los siguientes campos( nombF,DirF)con el nombre de dbFoto.
4- inserta en el formulario un componente opendialog, un componente table, 5 componente buttons, 1 componente label,un componente image y finalmente 2 componentes edit.
5-al button 1 lo llamaremos cargar al button 2 lo llamaremos guardar al buton 3 lo llamaremos cerrar al buton4 lo llamaremos anterior y al buton5 lo llamaremos siguiente.:)
6- el componente label es para que vaya encima del edit2 llamado nombre:

ok ya tenemos armado el formulario ahora vamos con el codigo :D

ahora solo haremos doble clic en cualquier parte vacia del formulario y ponemos este codigo

Código Delphi [-]
// ponemos los edit en blanco (no me gusta usar el clear por que en algunos casos da error :)
edit1.Text:='';
edit2.Text:='';
//enlazamos la tabla con el componente table
TABLE1.DatabaseName:=ExtractFilePath(Application.ExeName);
Table1.TableName:='bdfoto.db';
Table1.Open;


luego hacemos doble clic al boton cargar y ponemos este codigo

Código Delphi [-]
OpenDialog1.Execute;
Image1.Picture.LoadFromFile(OpenDialog1.FileName);
edit1.Text:=OpenDialog1.FileName;
luego hacemos doble clic en el boton guardar y ponemos este codigo
Código Delphi [-]
table1.Insert;
table1.FieldValues['dirf']:=edit1.Text;
table1.FieldValues['nomf']:=edit2.Text;
table1.post;
application.MessageBox('Foto Guardada','Guardar');
luego hacemos doble clic al boton anterior y ponemos este codigo
Código Delphi [-]
table1.prior;
edit1.Text:=table1.FieldValues['dirf'];
edit2.Text:=table1.FieldValues['nomf'];
 Image1.Picture.LoadFromFile(edit1.text);

luego hacemos doble clic en el boton siguiente y ponemos este codigo
Código Delphi [-]
table1.Next;
edit1.Text:=table1.FieldValues['dirf'];
edit2.Text:=table1.FieldValues['nomf'];
Image1.Picture.LoadFromFile(edit1.text);

y luego tienen que hacer los siguientes 21 pasos:

era un chiste ya esta listo jejejeje.

recuerda que para que el programa funcione debe haber imagenes en la carpeta donde se creo el project...

Espero les sirva a mi me sirvio sin problemas :D

como funciona?: funciona es guardando la ruta de acceso en la tabla ( y todo el mundo se quema las neuronas averiguando en internet como insertar graficos en una tabla).. no digo que no se pueda sino que es algo fastidioso y de paso que vas a recargar la base de datos de muchos de MB por que en la tabla no se guarda jpg ni bmp ni gif en la tabla se guarda es mediante codigos binarios en fin....... creo que mi solucion es mucho mas simple y cumple la misma funcion :)
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 00:49:25.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi