Fórum gravar jpg banco fb 1.5 #369833

boa tarde a todos, estou tentando gravaruma imagem jpg no banco e depois exibi-la... sei q o correto é gravar o caminho, mais nesse caso preciso realente gravr a img. segue o q estou fazendo:


var
ImgStr : TMemoryStream;
begin
AcquireJpg(Jpg, 10);
ImgStr := TMemoryStream.Create;
JPG.SaveToStream(ImgStr);

with cdsIMG do
begin
Active := false;
ImgStr.Position := 0;
Params.ParamByName(´vdescricao´).AsString := Edit1.Text;
Params.ParamByName(´vDigitalizacao´).LoadFromStream (ImgStr ,ftTypedBinary);
Execute;
end;

PS.
cdsIMG.commandtext := ´insert into documentos(descricao, foto) values( :vdescricao, :vdigitalizacao);
os parametros no cds
vDescricao é ftString
vDigitalizacao é ftTypedBinary ´ja tentei com ftOraBlob, ftGraphic´
o codigo asima ´grava´ mais no ibexpert não consigo v a imagem, aparece em branco, sendo q tem algo gravado no campo, mais não sei se tá da forma correta...

na aplicação esto carregando assim:
try
ImgStr := TMemoryStream.Create;
Jpg := TJpegImage.Create;
(cdsIMG.FieldByName(´documento´) as
TBlobField).SaveToStream(ImgStr);
ImgStr.Position := 0;
Jpg.LoadFromStream(ImgStr);
Image1.Picture.Assign(Jpg);
finally
Jpg.Free;
ImgStr.Free;
end;
da um erro
stream read error

Grato.