mostrar imagen

[MARLON1]

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

[[Delphius]]

Hola MARLON1,

¿probaste algo como?

Código Delphi [-]
if OpenPictureDialog1.Execute
  then Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);

Saludos,

[[Caral]]

Hola

Código Delphi [-]
procedure TForm1.BuscaryAbrir1Click(Sender: TObject);
begin
    if OpenDialog1.Execute then
  begin
    CurrentFile := OpenDialog1.FileName;
    SaveStyles;
    Image.Picture.LoadFromFile(CurrentFile);
    RestoreStyles;
  end;
end;

Saludos

[MARLON1]

Empezado por Caral

Hola

Código Delphi [-]
procedure TForm1.BuscaryAbrir1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
CurrentFile := OpenDialog1.FileName;
SaveStyles;
Image.Picture.LoadFromFile(CurrentFile);
RestoreStyles;
end;
end;



Saludos

hola caral me podrias decir a que te refieres con CurrentFile por favor.

[ixMike]

Empezado por MARLON1

hola caral me podrias decir a que te refieres con CurrentFile por favor.

Parece una variable string para almacenar el nombre del archivo (por si después la necesitas). "Current file" significa "archivo actual".

[MARLON1]

Gracias A Todos Por Su Ayuda :d

[[Caral]]

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.

Código Delphi [-]
procedure TForm1.Open1Click(Sender: TObject);
Var
 Ruta: String;
begin
    Ruta:= Edit1.Text + '.Jpg';
    Image.Picture.LoadFromFile(Ruta);
end;

Saludos

[MARLON1]

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 .
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;

[[Caral]]

Hola
Codigo de ChackAll.

Código Delphi [-]

procedure TForm1.Button1Click(Sender: TObject);
var bmp: TBitmap; Stream: TStream;
begin
 if not OpenDialog1.Execute then Exit;

 bmp := TBitmap.Create;           // Creamos el objeto que "entiende" al Bitmap
 bmp.LoadFromFile(OpenDialog1.FileName);  // cargamos la imagen
 jpg.Assign(bmp);                 // signamos la imagen BMP al objeto del JPEG
 bmp.Destroy;                     // y liberamos el objeto. }

 ADOTable1.Open;                  // Abrimos la tabla
 ADOTable1.Insert;                // Insertamos una nueva tupla
 Stream := ADOTable1.CreateBlobStream(ADOTable1.FieldByName('photo'), bmWrite); // Asignamos el BLOB a un stream
 jpg.SaveToStream(Stream);        // y guardamos la imagen como JPEG (convertido), en el stream
 Stream.Destroy;                  // liberamos.
 ADOTable1.Post;                  // Guardamos.

end;

Saludos

[[Delphius]]

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,