Imagem no banco

[Jerfs 1]

Galera, sei que existem duas formas de se gravar imagem em banco de dados (gravando endereço ou BLOB), porém gostaria de saber como eu faço para gravar a imagem mesmo, objeto OLE. Alguém teria algum tutorial para tal!? aguardo resposta!

[Yoshi 1]

qual DB você ta usando?

[Jerfs 1]

Estou usando Access com ADO Tables no Delphi 7

[Yoshi 1]

Broder ja fiz issu com o SQL Server o Interbase e o Postgres tenta no access pra v se da certo.......

 

var
msFoto: TMemoryStream;
begin msFoto := TMemoryStream.Create;
ImgFoto.Picture.Graphic.SaveToStream(msFoto);
msFoto.Position := 0;
       DMBANCO.SQL.(............................);
       DMBANCO.QProd.ParamByName('FOTO').LoadFromStream(msFoto, ftBlob);
       DMBANCO.QProd.ExecSQL;
end;

 

 

flw t+