mostrar imagen
hola foro aqui ando de nuevo pidiendo su ayuda, bueno lo que quiero hacer es mostrar una imagen que seleccciono mediante un OpenPictureDialog1(dlAbrir), lo unico que eh podido hacer es mostrar el fieldname del OpenPictureDialog1 con este codigo :
begin dlAbrir.Filter := 'Imagen JPEG (*.jpg)|*.jpg|'; if dlAbrir.Execute then begin txtRuta.Text := dlAbrir.FileName; end; end; pero no la imagen, el fieldname lo muestra en un edit, me podrian ayudar en decirme como hacer que la imagen se muestre en un panel por favor. por su ayuda gracias |
Hola MARLON1,
¿probaste algo como?
Saludos, |
Hola
Saludos |
gracias por la ayuda
Cita:
|
Cita:
|
Gracias A Todos Por Su Ayuda :d
|
Hola
Significa que esta en el archivo actual. Hay un ejemplo que trae Delphi esta en: Demos, doc, GraphEx. Ahi vas a poder darte cuenta de esto, de todos modos revisa este otro mas sencillo. Saludos |
gracias por la ayuda
gracias a todos por la ayuda, ¿será que se puede guardar esa imagen el bd?, eh estado intentandolo tengo una tabla y en esa tabla tengo un campo tipo longblob, pero nose como guardar la imagen en la bd, uso mysql.Espero y me hechen otra manita gracias :D.
tengo este codigo pero me marca un error de sintaxis: if Button3.ModalResult= MrOk then begin if Not FileExists (txtRuta.Text) then begin MessageDlg('La imagen no existe.', mtWarning, [mbok], 0); txtRuta.SetFocus; exit; end; end; // esta parte no guarda la imagen query1.Close; query1.sql.clear; query1.sql.add ('insert into factseg8 img where id=:cla img=:imagen'); query1.ParamByName ('cla').Value:=DBEdit1.Text; query1.ParamByName('imagen').DataType:=ftBlob; ¿podré tomar el dato del Image1? query.open; end; |
Hola
Codigo de ChackAll. Saludos |
MARLON1, primero debes considerar si es viable guardar la imagen en la base de datos... recuerda que esto hace crecer mucho a la base de datos. Todo dependerá del uso de la base de datos, la disponibilidad de almacenamiento, velocidad, etc..
Si realmente estás interesado en guardar imagenes, te recomiendo que utilices el buscador, se ha tratado en muchísimas ocasiones el tema. Busca por blob y/o TStream. Saludos, |
gracias de nuevo a todos. tomaré muy en cuenta sus consejos.
|
Cita:
|
|
Cita:
|
En que lugar sale el error.
Ha colocado en el uses el jpg. Esta cargando BMP o JPG directo. |
hola nati1
Cita:
jpg.Assign(bmp); gracias |
Cita:
|
Hola
Revisalo completo: Recuerda que la foto tiene que ser BMP Saludos |
Gracias
El error me lo marcaba por el formato de la imagen que lo tenia en jpg, y no le puse el jpg en el uses y funciono gracias.
|
La franja horaria es GMT +2. Ahora son las 05:34:08. |
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