Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Conexión con bases de datos
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Conexión con bases de datos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 22-03-2008
Avatar de Max_E.
Max_E. Max_E. is offline
Miembro
 
Registrado: sep 2006
Posts: 90
Poder: 18
Max_E. Va por buen camino
cargar imagen para base de datos

hola a todos:
hace ya meses pude crear con mucha mucha ayuda de este foro una aplicación de base de datos sobre las partes que llevan ciertos componentes, indicando nombre, serie, cantidad y además un comentario del mismo (el cual me sirve de mucho por la gran cantidad de componentes que hay) pero lo que no puedo hacer es que además de un comentario me de también una imagen de la parte en mención.

Me explico....


utilizo 2 archivos componente. DB, partes.DB (table1, table2), uno donde están todos los componentes y otro donde están las partes de cada componte, el programa filtra según la elección del componente y los muestra en un DBGRID, y cuando se hace click en una de las celdas de las partes muestra un comentario en un DBMEMO. En el archivo componentes.DB en el campo comentario puse tipo memo y al DBMEMO lo enlace con el table1 con un DataSource1.

Y por fin la pregunta....

como le ago si quiero mostrar una imagen que se a cargado desde la creación o cargarla en ejecución pero que se guarde la ruta para la próxima consulta ???????......
Responder Con Cita
  #2  
Antiguo 25-03-2008
Avatar de Max_E.
Max_E. Max_E. is offline
Miembro
 
Registrado: sep 2006
Posts: 90
Poder: 18
Max_E. Va por buen camino
Hola a todos denuevo.

bueno encontre un ejemplo de como cargar una imagen en base de datos en preguntas parecidas en el foro, y si resultan pero lo que yo quiero es cargar imagenes .jpg y en el ejemplo solo se puede cargar imagenes .bmp este es el codigo

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
begin
If OpenPictureDialog1.Execute then
begin
table1.Edit;
DBImage1.Picture.LoadFromFile (openpicturedialog1.FileName);
end;

talves falta algo en USES, estos son los que utilizo

Código Delphi [-]
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, DB, DBTables, DBCtrls, ExtCtrls, Menus,
  Mask, ExtDlgs, jpeg;

encontre otro ejemplo pero no funciona y me muetsra el error 'bitmap image is not valid'

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
  var
    Jpg: TJpegImage;
    Stream: TMemoryStream;
  begin
    Jpg := nil;
    Stream := nil;
    try

      // Create a JPEG image and load it from a file

      Jpg := TJpegImage.Create;

If OpenPictureDialog1.Execute then
begin

DBImage1.Picture.LoadFromFile (openpicturedialog1.FileName);


End;
 Jpg.LoadFromFile(openpicturedialog1.FileName);

      // Create a stream and save the image to the stream

      Stream := TMemoryStream.Create;
      Jpg.SaveToStream(Stream);
      Stream.Position := 0;
      Table1.Append;

      // Load the Blob field from the stream

      TBlobField(Table1.FieldByName('Image')).LoadFromStream(Stream); (aqui se detiene)

//      Table1.Post;
    except
      jpg.Free;
      Stream.Free;
      raise;
    end;
    jpg.Free;
    Stream.Free;

end;

tal ves el problema esta en las propiedades del campo image???, guardarlo en bmp me ocuparia mucho espacio es por eso que preferiria que se guarde con externcion .jpg

en verdad ya e buscado en preguntas anteriores pero nada aun, espero que alguien pueda yurdarme, gracias de ante mano.

Última edición por Max_E. fecha: 25-03-2008 a las 18:56:57. Razón: aclaración
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

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Ayuda Para Insertar una imagen en una Base de Datos... zeta2 Conexión con bases de datos 5 23-05-2007 22:34:37
Crear base de datos y cargar datos desde delphi Albano MySQL 4 17-05-2007 21:01:18
Como cargar una imagen en una base de datos rls JAVA 1 15-11-2006 16:50:57
Cargar desplegable desde base de datos melanthea JAVA 0 07-09-2004 15:03:09


La franja horaria es GMT +2. Ahora son las 10:58:33.


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