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;
procedure TForm1.Tbl_FotosAfterScroll(DataSet: TDataSet);
begin
with Tbl_Fotos.FieldByName('Imagen') do
if not IsNull then
Image1.Picture.LoadFromFile(AsString);
end;
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;
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