Extrair foto no Access

[Marcos Santana]

Colegas tenho um banco Access 2003 com fotos no campo Objeto OLE como posso extrair

é salvar num diretório?

Editado Abril 29, 2009 por Marcos Santana

[Jhonas]

Colegas tenho um banco Access 2003 com fotos no campo Objeto OLE como posso extrair

é salvar num diretório?

Se quizer visualizar, apenas inclua um DBImage (palheta Data Controls) e configure o Datasource e DataField corretamente, fazendo isso a imagem irá aparecer.

Para pegar o conteúdo do campo e gravar em disco e supondo que ID seja a chave primaria da tabela:

var Arquivo:String; 

// código

Dataset.First; 
while not Dataset.Eof do begin 
  Arquivo := Dataset.FieldByName('ID').AsString+'.BMP'; 
  TBlobField(Dataset.FieldByName('IMAGEM')).SaveToFile(Arquivo); 
  Dataset.Next; 
end;

abraço

[Marcos Santana]

Obrigado colega vou testar.