Salvar arquivo em campo BLOB

Question

Caros amigos, pesquisei aqui no forum mas n�o encontrei o que queria: estou precisando de uma rotina que eu salve qualquer arquivo: imagem, texto, doc, etc... em um campo blob.
E que depois eu pudesse restaurar?

Sremulador · Answer

mas e claro que tem, digite BLOB na pesquisa.

Ex:

Var
Stm: TStream;
Foto: TJPEGImage;
begin
Foto:= TJPEGImage.Create;
Stm:= TMemoryStream.Create;
try
ft.Picture.Graphic.SaveToStream(Stm);
Stm.Position:= 0;

Foto.LoadFromStream(Stm);
Foto.Compress;
Foto.SaveToStream(Stm);
except
messagedlg (men(071), mtinformation, [mbok], 0);
end;

F�rum Salvar arquivo em campo BLOB #285616