Salvar arquivo em campo BLOB
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?
E que depois eu pudesse restaurar?
Edan
Curtidas 0
Respostas
Sremulador
21/06/2005
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;
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;
GOSTEI 0