Cita:
Empezado por ascrnet
.... entonces como lo cargo en el image1
|
me respondo solo por si alguien tiene el mismo problema
![Big Grin](http://www.clubdelphi.com/foros/images/smilies/biggrin.gif)
aqui esta la soluccion despues de unas buenas horas de busquedas y pruebas.
Código:
var
jpgFoto: TJPEGImage;
msFoto: TMemoryStream;
begin
msFoto:=TMemoryStream.Create;
IBQuery1.Close;
IBQuery1.Sql.Clear;
IBQuery1.Sql.Add('Select Foto FROM Tabela Where Codigo = 1');
IBQuery1.Open;
TGraphicField(IBQuery1.FieldByName('Foto')).SaveToStream(msFoto);
IBQuery1.Close;
msFoto.Position:=0;
jpgFoto:=TJPEGImage.Create;
jpgFoto.LoadFromStream(msFoto);
imgFoto.Picture.Graphic := jpgFoto;
msFoto.Free;
saludos
![Big Grin](http://www.clubdelphi.com/foros/images/smilies/biggrin.gif)