Gracias amigos por la ayuda me da un error:
Código Delphi
[-]
[Error] Consulta_Padron.pas(164): Missing operator or semicolon
Este es el código:
Código Delphi
[-]
procedure TfrmConPadron.Button1Click(Sender: TObject);
var
jpg:TJPEGImage;
stream:TMemoryStream;
begin
stream:=TMemoryStream.Create;
jpg:=TJPEGImage.Create;
frmConPadron.Image1.Picture:=nil;
try
frmdata.blofield(frmdata.st_foto.fieldbyname('imagen')).SaveToStream(stream);
stream.Seek(0, soFromBeginning);
jpg.LoadFromStream(stream);
frmConPadron.Image1.Picture.Assign(jpg);
finally
stream.Free;
jpg.Free;
end;
end;