Ayuda Para Insertar una imagen en una Base de Datos...

[[Caral]]

Hola
No entiendo muy bien pero aqui vamos:

Código Delphi [-]
  If OpenPictureDialog1.Execute then
      begin
        Filter:= 'Bitmaps|*.bmp';  // filtra los bmp, si no funciona quitalo
         TAgenda.Edit;
         TAgendaFoto.Picture.LoadFromFile (FileName); 
         TAgenda.post;
   End;

A ver que pasa
Para mi el componente OpenPictureDialog1, tiene que estar creado con anterioridad en el form.
Saludos

[zeta2]

Exactamente el mismo problema, en la misma linea...

If OpenPictureDialog1.Execute then
begin
TAgenda.Edit;
TAgendaFoto.Picture.LoadFromFile (FileName);
TAgenda.post;
End;

El error que tira dice:

undeclarer identifier: 'TAgendaFoto'
undeclarer identifier: 'filename'

El Error me salta en 'TAgendaFoto', Estabien puesto esto? Por que veo que todos los ponen pero ami me salta error siempre... No habra que definirlo como alguna variable?

Gracias por responder a mis dudas caral... Saludos.

Atte. Marco.

[[Delphius]]

¿TAgendaFoto que es? ¿Un TImage?
Por lo que estoy leyendo:

Código Delphi [-]
TAgendaFoto.Picture.LoadFromFile (FileName);

Por el .Picture. ya me inclino por que sea un TImage.

¿Que es TAgenda? ¿Un TTable?

Creo que estas mezclando cosas... y te estas mareando. Si deseas insertar una imagen en una base de datos la cosa no va por allí. Sino por ésta (por ejemplo) Una búsqueda con los términos Blob e imagen te va a dar buenos resultados.

Ahora, viendo los errores a simple vista... me parece que no lo tienes declarados.

Espero serte de ayuda.
Saludos,

[zeta2]

Seeeeee Mesalio!!!!!!!!!!!!!!!!!

Si no fuera por Caral que me dio el ejemplo y Delphius que me hizo ver el error aun seguiría teniendo el problema!!! Muchisimas gracias Gente!!!

El codigo que me andubo fue el siuiente:

If OpenPictureDialog1.Execute then
begin
TAgenda.edit; \\ o append...
DBImage1.Picture.LoadFromFile (openpicturedialog1.FileName);
TAgenda.Post;
End;

TAgendaFoto habia sido el nombre de DBImage y Filename no va solo va con el OpenPictureDialog1 antes...
Claro Adjunto archivos .BMP Pero es un buen comienzo...

Gracias Chicos (Caral Y Delphius), les debo una!!!

Atte. MArco Iván Arriondo.

[[Caral]]

Hola
Y si usas esta sentencia no necesitas especificar mas cosas de la cuenta:

Código Delphi [-]
 with TOpenPictureDialog1.Create(nil) do  // aqui creas el componente
  try
      if Execute then  // aqui esta el detalle, no ocupas el que estas usando
      TAgenda.edit;
      DBImage1.Picture.LoadFromFile(FileName);// no ocupa la repeticion
      TAgenda.Post;
  finally
    Free;// libera el componente de la memoria
  end;

Nada mas por ampliar un poco esto.
Me alegro de que te funcione.
Saludos