|
Ya me funciona.
procedure TForm1.Button3Click(Sender: TObject);
var
BS: TStream;
Graphic: TGraphic;
begin
if FDM.IBtable2FOTO.isnull then
Image1.picture.graphic:=nil
else
begin
BS := FDM.IBtable2.CreateBlobStream(FDM.IBTable2.FieldByName('FOTO'), bmRead);
try
Graphic := TJPEGImage.Create;
try
Graphic.LoadFromStream(BS);
Image1.Picture := nil;
Image1.picture.graphic := Graphic;
Finally
Graphic.Free;
end;
Finally
BS.free;
end;
end;
end;
|