Ver Mensaje Individual
  #3  
Antiguo 01-08-2014
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola edwin.simon

Como te menciona randenf la presentación de una imágen tipo bmp, si está almacenada físicamente en una tabla, es muy simple mediante un TDBImage .

Pero si deseas usar la ruta a la imágen, te pongo un ejemplo genérico de como podes implementarlo:
Código Delphi [-]
...
implementation

var
  Cod: Integer = 1;

// Mostrar al desplazarse
procedure TForm1.Tbl_FotosAfterScroll(DataSet: TDataSet);
begin
  with Tbl_Fotos.FieldByName('Imagen') do
    if not IsNull then
      Image1.Picture.LoadFromFile(AsString);
end;

// Agregar imágen
procedure TForm1.btnAddPictureClick(Sender: TObject);
begin
  with Tbl_Fotos do
  begin
    if OpenDialog1.Execute then
    begin
      Append;
      FieldByName('Codigo_Imagen').AsString:= Format('%.4d', [Cod]);
      FieldByName('Imagen').AsString:= OpenDialog1.FileName;
      Post;
      Inc(Cod);
    end;
  end;
end;

// Buscar registro x código - mostrar imágen
procedure TForm1.btnFindClick(Sender: TObject);
begin
  if Tbl_Fotos.Locate('Codigo_Imagen',Edit1.Text,[]) then
    Image1.Picture.LoadFromFile(Tbl_Fotos.FieldByName('Imagen').AsString);
end;
La conveniencia de almacenar físicamente la imágen o la ruta a la misma es un tema muy controversial.
Como muestra, se trata en este hilo: consejo para mostrar y guardar imagenes. Buscando en profundidad vas a encontrar mas material para que puedas decidir la mejor opción para tu caso.

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita