Aquí te dejo un ejemplito donde meto una imagen en una tablita:
Código Delphi
[-]
procedure TFFotos.CargarImagen2Click(Sender: TObject);
begin
if opendialog1.Execute then
begin
TFotos.Append
if TFotosFoto = NIL then TFotos.APPend
else TFotos.Edit;
TFotosFoto.LoadFromFile(opendialog1.FileName);
TFotosTipo.Value := ansiuppercase(extractFileExt(opendialog1.FileName));
TFotos.Post;
TFotosAfterScroll(TFotos);
end;
end;
procedure TFFotos.TFotosAfterScroll(DataSet: TDataSet);
var
wTipo : byte;
blob : tmemorystream;
imJPG : TJpegImage;
begin
blob := tmemorystream.create;
imJPG := TJPEGIMage.create;
try
if TFotosTipo.Value = '.BMP' then wtipo := 0;
if pos(TFotosTipo.Value,'.WMF.EMF') > 0 then wtipo := 1;
if TFotosTipo.Value = '.JPG' then wtipo := 2;
TFotosFoto.savetostream(blob);
blob.position := 0;
if blob.Size > 0 then
case wtipo of
0: Image1.Picture.bitmap.loadfromstream(blob);
1: Image1.Picture.metafile.loadfromstream(blob);
2:
begin
imJPG.LoadFromStream(blob);
Image1.Picture.assign(imjpg);
end;
end
else
begin
image1.picture.metafile := NIL;
image1.picture.bitmap := NIL;
image1.picture.Graphic := NIL;
end;
finally
Blob.Free;
imJPG.Free;
end;
end;
Espero que te sirva....
Saludos, Tony